blob: eb1f4956d996047b338351a14d5082f1d0641143 [file] [log] [blame]
///////////////////////////////////////////////////////////////////////////////
//
// Copyright (c) 2000-2018 Ericsson Telecom AB
//
// All rights reserved. This program and the accompanying materials
// are made available under the terms of the Eclipse Public License v1.0
// which accompanies this distribution, and is available at
// http://www.eclipse.org/legal/epl-v10.html
///////////////////////////////////////////////////////////////////////////////
//
// File: EPTF_HTTP_Functions.ttcn
// Rev: <RnXnn>
// Prodnr: CNL 113 618
// Updated: 2015-05-20
// Contact: http://ttcn.ericsson.se
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
// Module: EPTF_HTTP_Functions
//
// Purpose:
// This module contains the functions of the EPTF HTTP application id
//
// Module Parameters:
// See <EPTF_HTTP_Definitions>
//
// Module depends on:
// <EPTF_CLL_Common_Definitions>
//
// <EPTF_CLL_Base_Functions>
//
// <EPTF_CLL_LGenBase_Definitions>
//
// <EPTF_CLL_LGenBase_Functions>
//
// <EPTF_CLL_LGenBase_ConfigFunctions>
//
// <EPTF_CLL_LGenBase_EventHandlingFunctions>
//
// <EPTF_CLL_HashMapStr2Int_Functions>
//
// <EPTF_CLL_HashMapOct2Int_Functions>
//
// <EPTF_CLL_Variable_Functions>
//
// <EPTF_CLL_Logging_Functions>
//
// <EPTF_CLL_Logging_Definitions>
//
// <EPTF_HTTP_Definitions>
//
// <HTTPmsg_Types>
//
// <TCCSecurity_Functions>
//
// <TCCDateTime_Functions>
// Current Owner:
// EAKOPER
//
// Last Review Date:
// 2012-10-24
//
///////////////////////////////////////////////////////////////////////////////
module EPTF_HTTP_Functions {
//=============================================================================
// Import Part
//=============================================================================
import from EPTF_CLL_Common_Definitions all;
import from EPTF_CLL_Base_Functions all;
import from EPTF_CLL_LGenBase_Definitions all;
import from EPTF_CLL_LGenBase_Functions all;
import from EPTF_CLL_LGenBase_ConfigFunctions all;
import from EPTF_CLL_LGenBase_EventHandlingFunctions all;
import from EPTF_CLL_LGenBase_TemplateFunctions all;
import from EPTF_CLL_HashMapStr2Int_Functions all;
import from EPTF_CLL_HashMapOct2Int_Functions all;
import from EPTF_CLL_Variable_Functions all;
import from EPTF_CLL_Logging_Functions all;
import from EPTF_CLL_Logging_Definitions all;
import from EPTF_HTTP_Definitions all;
import from HTTPmsg_Types all;
import from TCCDateTime_Functions all;
import from TCCConversion_Functions all;
//=============================================================================
// Functions
//=============================================================================
///////////////////////////////////////////////////////////////////////////////
// Group: EPTF_HTTP_PublicFunctions
//
// Purpose:
// The functions of the EPTF HTTP Public Functions
//
///////////////////////////////////////////////////////////////////////////////
group EPTF_HTTP_PublicFunctions{
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_init
//
// Purpose:
// Function to initialize HTTP behaviour
//
// Parameters:
// pl_selfName - *in* *charstring* - the components self name
// pl_selfId - *in* *integer* - component self id
// pl_entityNamePrefix - *in* *charstring* - entity name prefix
// pl_numEntities - *in* *integer* - number of entities
// pl_bind - *in* <EPTF_LGenBase_BehaviorContextBinder_FT> - behaviour
// context bind callback function
// pl_reset - *in* <EPTF_LGenBase_BehaviorContextHandler_FT> - behaviour
// context reset callback function
// pl_unbind - *in* <EPTF_LGenBase_BehaviorContextHandler_FT> - behaviour
// context unbind callback function
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_init(
in charstring pl_selfName,
in integer pl_selfId,
in charstring pl_entityNamePrefix,
in integer pl_numEntities := 0,
in EPTF_LGenBase_BehaviorContextBinder_FT pl_bind := refers(f_EPTF_HTTP_bindEntity4Behavior),
in EPTF_LGenBase_BehaviorContextHandler_FT pl_reset := refers(f_EPTF_HTTP_resetEntity4Behavior),
in EPTF_LGenBase_BehaviorContextHandler_FT pl_unbind := refers(f_EPTF_HTTP_unbindEntity4Behavior))
runs on EPTF_HTTP_LGen_CT
{
if (not v_EPTF_HTTP_initialized)
{
f_EPTF_Base_assert(%definitionId &
": tsp_EPTF_HTTP_maxNumberOfEntities must be set to at least: " &
int2str(f_EPTF_LGenBase_entityCount()),
tsp_EPTF_HTTP_maxNumberOfEntities > f_EPTF_LGenBase_entityCount());
f_EPTF_HTTP_initializeExtendedComponents( // LGenbase, Variable, Logging
pl_selfName,pl_numEntities,pl_entityNamePrefix);
f_EPTF_Base_registerCleanup(refers(f_EPTF_HTTP_cleanup_CT));
v_EPTF_HTTP_loggingMaskId :=
f_EPTF_Logging_registerComponentMasks(
tsp_EPTF_HTTP_loggingComponentMask,
c_EPTF_HTTP_loggingEventClasses,
EPTF_Logging_CLL);
if (tsp_EPTF_HTTP_loggingEnable)
{
f_EPTF_Logging_enableLocalMask(
v_EPTF_HTTP_loggingMaskId,
c_EPTF_HTTP_loggingClassIdx_Debug);
}
else
{
f_EPTF_Logging_disableLocalMask(
v_EPTF_HTTP_loggingMaskId,
c_EPTF_HTTP_loggingClassIdx_Debug);
}
v_EPTF_HTTP_selfName := pl_selfName;
v_EPTF_HTTP_selfId := pl_selfId;
v_EPTF_HTTP_EntityOffset := pl_selfId * tsp_EPTF_HTTP_maxNumberOfEntities;
f_EPTF_HTTP_debug(%definitionId & ": Entity offset: " &
int2str(v_EPTF_HTTP_EntityOffset));
vf_EPTF_HTTP_sendRequest := refers(f_EPTF_HTTP_defaultSendRequest);
vf_EPTF_HTTP_connectionOpen := refers(f_EPTF_HTTP_defaultConnectionOpen);
vf_EPTF_HTTP_connectionClose := refers(f_EPTF_HTTP_defaultConnectionClose);
vf_EPTF_HTTP_connectionHalfClose := refers(f_EPTF_HTTP_defaultConnectionHalfClose);
vf_EPTF_HTTP_closePortOfUser := refers(f_EPTF_HTTP_defaultFreePortOfUser);
vf_EPTF_HTTP_freePortOfUser := refers(f_EPTF_HTTP_defaultFreePortOfUser);
vf_EPTF_HTTP_closePort := refers(f_EPTF_HTTP_defaultClosePort);
vf_EPTF_HTTP_sendResponse := refers(f_EPTF_HTTP_defaultSendResponse);
vf_EPTF_HTTP_listen := refers(f_EPTF_HTTP_defaultListen);
vf_EPTF_HTTP_searchContext := refers(f_EPTF_HTTP_defaultSearch);
vf_EPTF_HTTP_searchContext4Event := refers(f_EPTF_HTTP_defaultSearch);
vf_EPTF_HTTP_searchContext4Error := refers(f_EPTF_HTTP_defaultSearch);
v_EPTF_HTTP_myBIdx := f_EPTF_LGenBase_declareBehaviorType(
c_EPTF_HTTP_myBName,
-1,
pl_reset,
pl_bind,
pl_unbind
);
v_EPTF_HTTP_charDB := f_EPTF_str2int_HashMap_New(c_EPTF_HTTP_HashMap_charDatabase);
v_EPTF_HTTP_octDB := f_EPTF_oct2int_HashMap_New(c_EPTF_HTTP_HashMap_octDatabase);
// set event dispatch mechanism
select (tsp_EPTF_HTTP_dispatchLevel) {
case (Class) { vf_EPTF_HTTP_dispatchFn := refers(f_EPTF_HTTP_reportClassEvent); }
case (Detailed) { vf_EPTF_HTTP_dispatchFn := refers(f_EPTF_HTTP_reportDetailedEvent); }
case else { }
}
f_EPTF_HTTP_declareStepsAndEvent();
f_EPTF_HTTP_initStats();
v_EPTF_HTTP_authData := c_EPTF_HTTP_initAuthData;
f_EPTF_HTTP_generateNonceValues(tsp_EPTF_HTTP_nofNonceValues, v_EPTF_HTTP_authData.nonceValues)
//Declare external template types
v_EPTF_HTTP_extTemplType_customHeader := f_EPTF_LGenBase_declareTemplateType(
{behaviourType:=c_EPTF_HTTP_myBName, templateName:=c_EPTF_HTTP_templName_CustomHeader},
{"method"}, {"requestURI","versionMajor","versionMinor","customHeader","contentLength"} );
v_EPTF_HTTP_extTemplType_customHeaderResponse := f_EPTF_LGenBase_declareTemplateType(
{behaviourType:=c_EPTF_HTTP_myBName, templateName:=c_EPTF_HTTP_templName_CustomHeaderResponse},
{}, {"status","versionMajor","versionMinor","contentLength"} );
v_EPTF_HTTP_extTemplType_customBody := f_EPTF_LGenBase_declareTemplateType(
{behaviourType:=c_EPTF_HTTP_myBName, templateName:=c_EPTF_HTTP_templName_CustomBody},
{}, {} );
v_EPTF_HTTP_initialized := true;
}
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getContextIndex
//
// Purpose:
// Function to add new entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
//
// Return Value:
// *integer* - index of the entity context
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getContextIndex(
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return integer
{
return f_EPTF_LGenBase_getBehaviorCtxItem(pl_eIdx, v_EPTF_HTTP_myBIdx, 0);
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_initStats
//
// Purpose:
// Function to initialize HTTP statistics
//
// Parameters:
// -
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_initStats()
runs on EPTF_HTTP_LGen_CT
{
var charstring vl_prefix :=
v_EPTF_HTTP_selfName & "." & int2str(v_EPTF_HTTP_selfId) & ".";
// incoming methods
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncRequests, 0,
v_EPTF_HTTP_stats.incoming.requests_k);
f_EPTF_Var_setSubsCanAdjust(v_EPTF_HTTP_stats.incoming.requests_k, false)
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncOptionMessages, 0,
v_EPTF_HTTP_stats.incoming.method.options_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncGetMessages, 0,
v_EPTF_HTTP_stats.incoming.method.get_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncHeadMessages, 0,
v_EPTF_HTTP_stats.incoming.method.head_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncPostMessages, 0,
v_EPTF_HTTP_stats.incoming.method.post_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncPutMessages, 0,
v_EPTF_HTTP_stats.incoming.method.put_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncDeleteMessages, 0,
v_EPTF_HTTP_stats.incoming.method.delete_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncTraceMessages, 0,
v_EPTF_HTTP_stats.incoming.method.trace_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncConnectMessages, 0,
v_EPTF_HTTP_stats.incoming.method.connect_k);
// outgoing methods
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutRequests, 0,
v_EPTF_HTTP_stats.outgoing.requests_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutOptionMessages, 0,
v_EPTF_HTTP_stats.outgoing.method.options_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutGetMessages, 0,
v_EPTF_HTTP_stats.outgoing.method.get_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutHeadMessages, 0,
v_EPTF_HTTP_stats.outgoing.method.head_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutPostMessages, 0,
v_EPTF_HTTP_stats.outgoing.method.post_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutPutMessages, 0,
v_EPTF_HTTP_stats.outgoing.method.put_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutDeleteMessages, 0,
v_EPTF_HTTP_stats.outgoing.method.delete_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutTraceMessages, 0,
v_EPTF_HTTP_stats.outgoing.method.trace_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutConnectMessages, 0,
v_EPTF_HTTP_stats.outgoing.method.connect_k);
// incoming status codes
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofIncResponses, 0,
v_EPTF_HTTP_stats.incoming.responses_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc100StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code100_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc101StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code101_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc200StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code200_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc201StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code201_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc202StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code202_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc203StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code203_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc204StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code204_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc205StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code205_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc206StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code206_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc300StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code300_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc301StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code301_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc302StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code302_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc303StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code303_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc304StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code304_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc305StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code305_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc306StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code306_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc307StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code307_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc400StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code400_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc401StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code401_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc402StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code402_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc403StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code403_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc404StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code404_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc405StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code405_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc406StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code406_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc407StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code407_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc408StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code408_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc409StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code409_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc410StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code410_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc411StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code411_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc412StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code412_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc413StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code413_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc414StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code414_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc415StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code415_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc416StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code416_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc417StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code417_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc500StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code500_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc501StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code501_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc502StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code502_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc503StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code503_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc504StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code504_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofInc505StatusCode, 0,
v_EPTF_HTTP_stats.incoming.status.code505_k);
// outgoing status codes
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOutResponses, 0,
v_EPTF_HTTP_stats.outgoing.responses_k);
f_EPTF_Var_setSubsCanAdjust(v_EPTF_HTTP_stats.outgoing.responses_k, false)
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut100StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code100_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut101StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code101_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut200StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code200_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut201StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code201_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut202StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code202_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut203StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code203_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut204StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code204_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut205StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code205_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut206StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code206_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut300StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code300_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut301StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code301_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut302StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code302_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut303StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code303_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut304StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code304_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut305StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code305_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut306StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code306_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut307StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code307_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut400StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code400_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut401StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code401_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut402StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code402_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut403StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code403_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut404StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code404_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut405StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code405_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut406StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code406_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut407StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code407_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut408StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code408_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut409StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code409_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut410StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code410_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut411StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code411_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut412StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code412_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut413StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code413_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut414StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code414_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut415StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code415_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut416StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code416_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut417StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code417_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut500StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code500_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut501StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code501_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut502StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code502_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut503StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code503_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut504StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code504_k);
f_EPTF_Var_newInt(
vl_prefix & c_EPTF_HTTP_Stat_nofOut505StatusCode, 0,
v_EPTF_HTTP_stats.outgoing.status.code505_k);
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_resetStats
//
// Purpose:
// Function to reset HTTP statistics
//
// Parameters:
// -
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_resetStats()
runs on EPTF_HTTP_LGen_CT
{
// incoming methods
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.requests_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.method.options_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.method.get_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.method.head_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.method.post_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.method.put_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.method.delete_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.method.trace_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.method.connect_k,
{ intVal := 0 });
// outgoing methods
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.requests_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.method.options_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.method.get_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.method.head_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.method.post_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.method.put_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.method.delete_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.method.trace_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.method.connect_k,
{ intVal := 0 });
// incoming status codes
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.responses_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code100_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code101_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code200_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code201_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code202_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code203_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code204_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code205_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code206_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code300_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code301_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code302_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code303_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code304_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code305_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code306_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code307_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code400_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code401_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code402_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code403_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code404_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code405_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code406_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code407_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code408_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code409_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code410_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code411_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code412_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code413_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code414_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code415_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code416_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code417_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code500_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code501_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code502_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code503_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code504_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.incoming.status.code505_k,
{ intVal := 0 });
// outgoing status codes
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.responses_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code100_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code101_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code200_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code201_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code202_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code203_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code204_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code205_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code206_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code300_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code301_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code302_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code303_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code304_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code305_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code306_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code307_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code400_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code401_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code402_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code403_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code404_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code405_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code406_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code407_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code408_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code409_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code410_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code411_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code412_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code413_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code414_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code415_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code416_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code417_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code500_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code501_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code502_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code503_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code504_k,
{ intVal := 0 });
f_EPTF_Var_adjustContent(
v_EPTF_HTTP_stats.outgoing.status.code505_k,
{ intVal := 0 });
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_updateStatistics
//
// Purpose:
// Function to update HTTP statistics
//
// Parameters:
// pl_in - *in* *boolean* - message direction (incoming/outgoing)
// pl_method - *in* *charstring* - HTTP method
// pl_code - *in* *integer* - HTTP response status code
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// If pl_in is true, incoming statistics is updated, else outgoing
// If pl_method is empty string then method statistics will not be updates
// If pl_code is -1 then statuscode statistics will not be updated
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_updateStatistics(
in boolean pl_in := true,
in charstring pl_method := "",
in integer pl_code := -1)
runs on EPTF_HTTP_LGen_CT
{
if (pl_in)
{
if ("" != pl_method)
{
// incoming methods
select (pl_method)
{
case ("OPTIONS")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.method.options_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.method.options_k) + 1 });
}
case ("GET")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.method.get_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.method.get_k) + 1 });
}
case ("HEAD")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.method.head_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.method.head_k) + 1 });
}
case ("POST")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.method.post_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.method.post_k) + 1 });
}
case ("PUT")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.method.put_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.method.put_k) + 1 });
}
case ("DELETE")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.method.delete_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.method.delete_k) + 1 });
}
case ("TRACE")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.method.trace_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.method.trace_k) + 1 });
}
case ("CONNECT")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.method.connect_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.method.connect_k) + 1 });
}
case else
{
f_EPTF_HTTP_error(%definitionId &
": Unhandled HTTP method: " & pl_method);
}
}
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.requests_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.requests_k) + 1 });
}
if (-1 != pl_code)
{
// incoming status codes
select (pl_code)
{
case (100)
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code100_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code100_k) + 1 });
}
case (101) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code101_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code101_k) + 1 });
}
case (200) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code200_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code200_k) + 1 });
}
case (201) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code201_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code201_k) + 1 });
}
case (202) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code202_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code202_k) + 1 });
}
case (203) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code203_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code203_k) + 1 });
}
case (204) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code204_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code204_k) + 1 });
}
case (205) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code205_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code205_k) + 1 });
}
case (206) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code206_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code206_k) + 1 });
}
case (300) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code300_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code300_k) + 1 });
}
case (301) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code301_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code301_k) + 1 });
}
case (302) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code302_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code302_k) + 1 });
}
case (303) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code303_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code303_k) + 1 });
}
case (304) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code304_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code304_k) + 1 });
}
case (305) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code305_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code305_k) + 1 });
}
case (306) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code306_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code306_k) + 1 });
}
case (307) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code307_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code307_k) + 1 });
}
case (400) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code400_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code400_k) + 1 });
}
case (401) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code401_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code401_k) + 1 });
}
case (402) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code402_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code402_k) + 1 });
}
case (403) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code403_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code403_k) + 1 });
}
case (404) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code404_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code404_k) + 1 });
}
case (405) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code405_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code405_k) + 1 });
}
case (406) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code406_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code406_k) + 1 });
}
case (407) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code407_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code407_k) + 1 });
}
case (408) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code408_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code408_k) + 1 });
}
case (409) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code409_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code409_k) + 1 });
}
case (410) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code410_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code410_k) + 1 });
}
case (411) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code411_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code411_k) + 1 });
}
case (412) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code412_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code412_k) + 1 });
}
case (413) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code413_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code413_k) + 1 });
}
case (414) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code414_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code414_k) + 1 });
}
case (415) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code415_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code415_k) + 1 });
}
case (416) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code416_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code416_k) + 1 });
}
case (417) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code417_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code417_k) + 1 });
}
case (500) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code500_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code500_k) + 1 });
}
case (501) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code501_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code501_k) + 1 });
}
case (502) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code502_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code502_k) + 1 });
}
case (503) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code503_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code503_k) + 1 });
}
case (504) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code504_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code504_k) + 1 });
}
case (505) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.status.code505_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.status.code505_k) + 1 });
}
}
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.incoming.responses_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.incoming.responses_k) + 1 });
}
}
else
{
if ("" != pl_method)
{
// outgoing method
select (pl_method)
{
case ("OPTIONS")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.method.options_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.method.options_k) + 1 });
}
case ("GET")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.method.get_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.method.get_k) + 1 });
}
case ("HEAD")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.method.head_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.method.head_k) + 1 });
}
case ("POST")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.method.post_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.method.post_k) + 1 });
}
case ("PUT")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.method.put_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.method.put_k) + 1 });
}
case ("DELETE")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.method.delete_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.method.delete_k) + 1 });
}
case ("TRACE")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.method.trace_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.method.trace_k) + 1 });
}
case ("CONNECT")
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.method.connect_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.method.connect_k) + 1 });
}
case else
{
f_EPTF_HTTP_error(%definitionId &
": Unhandled HTTP method: " & pl_method);
}
}
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.requests_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.requests_k) + 1 });
}
if (-1 != pl_code)
{
// outgoing status codes
select (pl_code)
{
case (100)
{
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code100_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code100_k) + 1 });
}
case (101) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code101_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code101_k) + 1 });
}
case (200) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code200_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code200_k) + 1 });
}
case (201) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code201_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code201_k) + 1 });
}
case (202) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code202_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code202_k) + 1 });
}
case (203) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code203_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code203_k) + 1 });
}
case (204) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code204_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code204_k) + 1 });
}
case (205) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code205_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code205_k) + 1 });
}
case (206) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code206_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code206_k) + 1 });
}
case (300) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code300_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code300_k) + 1 });
}
case (301) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code301_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code301_k) + 1 });
}
case (302) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code302_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code302_k) + 1 });
}
case (303) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code303_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code303_k) + 1 });
}
case (304) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code304_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code304_k) + 1 });
}
case (305) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code305_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code305_k) + 1 });
}
case (306) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code306_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code306_k) + 1 });
}
case (307) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code307_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code307_k) + 1 });
}
case (400) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code400_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code400_k) + 1 });
}
case (401) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code401_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code401_k) + 1 });
}
case (402) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code402_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code402_k) + 1 });
}
case (403) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code403_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code403_k) + 1 });
}
case (404) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code404_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code404_k) + 1 });
}
case (405) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code405_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code405_k) + 1 });
}
case (406) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code406_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code406_k) + 1 });
}
case (407) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code407_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code407_k) + 1 });
}
case (408) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code408_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code408_k) + 1 });
}
case (409) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code409_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code409_k) + 1 });
}
case (410) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code410_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code410_k) + 1 });
}
case (411) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code411_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code411_k) + 1 });
}
case (412) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code412_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code412_k) + 1 });
}
case (413) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code413_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code413_k) + 1 });
}
case (414) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code414_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code414_k) + 1 });
}
case (415) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code415_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code415_k) + 1 });
}
case (416) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code416_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code416_k) + 1 });
}
case (417) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code417_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code417_k) + 1 });
}
case (500) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code500_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code500_k) + 1 });
}
case (501) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code501_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code501_k) + 1 });
}
case (502) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code502_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code502_k) + 1 });
}
case (503) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code503_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code503_k) + 1 });
}
case (504) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code504_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code504_k) + 1 });
}
case (505) {
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.status.code505_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.status.code505_k) + 1 });
}
}
f_EPTF_Var_adjustContent(v_EPTF_HTTP_stats.outgoing.responses_k,
{ intVal := f_EPTF_Var_getIntValue(v_EPTF_HTTP_stats.outgoing.responses_k) + 1 });
}
}
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setConnectionOpenFunction
//
// Purpose:
// Function to set open connection callback function pointer
//
// Parameters:
// plf_connectionOpen - *in* <EPTF_HTTP_connectionOpen_FT> - connection
// open callback function
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setConnectionOpenFunction (
in EPTF_HTTP_connectionOpen_FT plf_connectionOpen)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_connectionOpen := plf_connectionOpen;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setConnectionCloseFunction
//
// Purpose:
// Function to set close connection callback function pointer
//
// Parameters:
// plf_connectionClose - *in* <EPTF_HTTP_connectionClose_FT> - connection
// close callback function
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setConnectionCloseFunction (
in EPTF_HTTP_connectionClose_FT plf_connectionClose)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_connectionClose := plf_connectionClose;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setConnectionHalfCloseFunction
//
// Purpose:
// Function to set half close connection callback function pointer
//
// Parameters:
// plf_connectionHalfClose - *in* <EPTF_HTTP_connectionClose_FT> -
// connection half close callback function
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setConnectionHalfCloseFunction (
in EPTF_HTTP_connectionClose_FT plf_connectionHalfClose)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_connectionHalfClose := plf_connectionHalfClose;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setSendRequestFunction
//
// Purpose:
// Function to set send message callback function pointer
//
// Parameters:
// pl_sendRequest_fp - <EPTF_HTTP_sendRequest_FT> - sendRequest function
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setSendRequestFunction(
in EPTF_HTTP_messageProcessSend_FT pl_sendRequest_fp)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_sendRequest := pl_sendRequest_fp;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setClosePortOfUserFunction
//
// Purpose:
// Function to set close port of user callback function pointer
//
// Parameters:
// plf_cpou - *in* <EPTF_HTTP_SessionOperation_FT> - close port of
// user function reference
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setClosePortOfUserFunction (
in EPTF_HTTP_SessionOperation_FT plf_cpou)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_closePortOfUser := plf_cpou;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setFreePortOfUserFunction
//
// Purpose:
// Function to set free port of user callback function pointer
//
// Parameters:
// plf_cpou - *in* <EPTF_HTTP_SessionOperation_FT> - close port of
// user function reference
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setFreePortOfUserFunction (
in EPTF_HTTP_SessionOperation_FT plf_fpou)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_freePortOfUser := plf_fpou;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setClosePortFunction
//
// Purpose:
// Function to set close a port callback function pointer
//
// Parameters:
// plf_close - *in* <EPTF_HTTP_PortOperation_FT> - close port function reference
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setClosePortFunction(
in EPTF_HTTP_PortOperation_FT plf_close)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_closePort := plf_close;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setSendResponseFunction
//
// Purpose:
// Sets the response sender callback function.
//
// Parameters:
// plf_sendResponse - *in* <EPTF_HTTP_sendResponse_FT> - send response function reference
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setSendResponseFunction (
in EPTF_HTTP_sendResponse_FT plf_sendResponse)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_sendResponse := plf_sendResponse;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setListenFunction
//
// Purpose:
// Sets the listen callback function.
//
// Parameters:
// plf_listen - *in* <EPTF_HTTP_Listen_FT> - listen function reference
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setListenFunction(
in EPTF_HTTP_Listen_FT plf_listen)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_listen := plf_listen;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setSearchContextFunction
//
// Purpose:
// Sets the entity searching callback function.
//
// Parameters:
// plf_search - *in* <EPTF_HTTP_searchEntity_FT> - entity searching function reference
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setSearchContextFunction(
in EPTF_HTTP_searchContext_FT plf_search)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_searchContext := plf_search;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setSearchContextFunction4Event
//
// Purpose:
// Sets the entity searching callback function for socket events.
//
// Parameters:
// plf_search - *in* <EPTF_HTTP_searchEntity_FT> - entity searching function reference
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setSearchContextFunction4Event(
in EPTF_HTTP_searchContext_FT plf_search)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_searchContext4Event := plf_search;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setSearchContextFunction4Error
//
// Purpose:
// Sets the entity searching callback function for socket error events.
//
// Parameters:
// plf_search - *in* <EPTF_HTTP_searchEntity_FT> - entity searching function reference
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setSearchContextFunction4Error(
in EPTF_HTTP_searchContext_FT plf_search)
runs on EPTF_HTTP_LGen_CT
{
vf_EPTF_HTTP_searchContext4Error := plf_search;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContext
//
// Purpose:
// Function to set entity context
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be set
// pl_method - *charstring* - HTTP method
// pl_uri - *charstring* - HTTP URI
// pl_version_major - *integer* - HTTP major version number
// pl_version_minor - *integer* - HTTP minor version number
// pl_headerLines - <HeaderLines> - HTTP header lines
// pl_connId - *integer* - port group index beloning to the entity
// pl_authDetails - <EPTF_HTTP_AuthDetails> - authorization details
// pl_body - *charstring* - message body
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContext (
in integer pl_eIdx,
in charstring pl_method,
in charstring pl_uri,
in integer pl_version_major,
in integer pl_version_minor,
in HeaderLines pl_headerlines,
in integer pl_connId := -1,
in EPTF_HTTP_AuthDetails pl_authDetails := c_EPTF_HTTP_initAuthDetails,
in EPTF_HTTP_CharOrOct pl_body := { charVal := "" })
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
var integer vl_bodyIdx := -1;
var integer vl_headerLinesIdx := -1;
if (ischosen(pl_body.charVal))
{
vl_bodyIdx := f_EPTF_HTTP_setCharEntityBody(pl_body.charVal);
}else{
vl_bodyIdx := f_EPTF_HTTP_setOctEntityBody(pl_body.octVal);
}
vl_headerLinesIdx := f_EPTF_HTTP_addNewHeaderLines(pl_headerlines);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx] := c_EPTF_HTTP_initCtx;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].method := pl_method;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].uri := pl_uri;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].version_major := pl_version_major;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].version_minor := pl_version_minor;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].headerLinesIdx := vl_headerLinesIdx;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].authDetails := pl_authDetails;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].connId := pl_connId;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].bodyId := vl_bodyIdx;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].headerGetterFn := refers(f_EPTF_HTTP_getHeaderContentForEntity);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].contentGetterFn := refers(f_EPTF_HTTP_getCharstringBodyContentForEntity);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].charBodyHandlerFn := refers(f_EPTF_HTTP_defaultCharstringBodyHandler);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].binaryBodyHandlerFn := refers(f_EPTF_HTTP_defaultBinaryBodyHandler);
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextServer
//
// Purpose:
// Sets the entity context of a server entity.
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be set
// pl_statusCode - *integer* - status code of the response
// pl_statusText - *charstring* - status text of the response
// pl_version_major - *integer* - HTTP major version number
// pl_version_minor - *integer* - HTTP minor version number
// pl_headerLines - <HeaderLines> - HTTP header lines
// pl_connId - *integer* - port group index beloning to the entity
// pl_body - *charstring* - message body
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextServer (
in integer pl_eIdx,
in integer pl_statusCode,
in charstring pl_statusText,
in integer pl_version_major,
in integer pl_version_minor,
in HeaderLines pl_headerlines,
in EPTF_HTTP_CharOrOct pl_body := { charVal := "" })
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
var integer vl_bodyIdx := -1;
var integer vl_headerLinesIdx := -1;
if (ischosen(pl_body.charVal))
{
vl_bodyIdx := f_EPTF_HTTP_setCharEntityBody(pl_body.charVal);
}else{
vl_bodyIdx := f_EPTF_HTTP_setOctEntityBody(pl_body.octVal);
}
vl_headerLinesIdx := f_EPTF_HTTP_addNewHeaderLines(pl_headerlines);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx] := c_EPTF_HTTP_initCtx;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].statusCode := pl_statusCode;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].statusText := pl_statusText;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].version_major := pl_version_major;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].version_minor := pl_version_minor;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].headerLinesIdx := vl_headerLinesIdx;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].bodyId := vl_bodyIdx;
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].headerGetterFn := refers(f_EPTF_HTTP_getHeaderContentForEntity);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].contentGetterFn := refers(f_EPTF_HTTP_getCharstringBodyContentForEntity);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].charBodyHandlerFn := refers(f_EPTF_HTTP_defaultCharstringBodyHandler);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].binaryBodyHandlerFn := refers(f_EPTF_HTTP_defaultBinaryBodyHandler);
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setCharstringBodyHandlerFunction4Entity
//
// Purpose:
// Function to set the HTTP charstring body handler function of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_bodySender - *in* <EPTF_HTTP_charstringBodyHandler_FT> - body handler function
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setCharstringBodyHandlerFunction4Entity(
in integer pl_eIdx,
in EPTF_HTTP_charstringBodyHandler_FT pl_bodySender)
runs on EPTF_HTTP_LGen_CT
{
v_EPTF_HTTP_contexts[pl_eIdx].charBodyHandlerFn := pl_bodySender;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setBinaryBodyHandlerFunction4Entity
//
// Purpose:
// Function to set the HTTP binary body handler function of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_bodySender - *in* <EPTF_HTTP_binaryBodyHandler_FT> - body handler function
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setBinaryBodyHandlerFunction4Entity(
in integer pl_eIdx,
in EPTF_HTTP_binaryBodyHandler_FT pl_bodySender)
runs on EPTF_HTTP_LGen_CT
{
v_EPTF_HTTP_contexts[pl_eIdx].binaryBodyHandlerFn := pl_bodySender;
}
/////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextMethod
//
// Purpose:
// Function to get the HTTP Method field of the entity context of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
//
// Return Value:
// *charstring* - method name
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextMethod (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return charstring
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].method;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextMethod
//
// Purpose:
// Function to set the HTTP Method field of the entity context of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_method - *in* *charstring* - HTTP method name
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextMethod (
in integer pl_eIdx,
in charstring pl_method)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].method := pl_method;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextStatusCode
//
// Purpose:
// Gets the HTTP status code field from an entity context.
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
//
// Return Value:
// *integer* - status code
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextStatusCode (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return integer
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].statusCode;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextStatusCode
//
// Purpose:
// Sets the HTTP status code field in an entity context.
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_statusCode - *in* *charstring* - status code
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextStatusCode (
in integer pl_eIdx,
in integer pl_statusCode)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].statusCode := pl_statusCode;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextStatusText
//
// Purpose:
// Gets the HTTP status text field from an entity context.
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
//
// Return Value:
// *charstring* - status text
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextStatusText (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return charstring
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].statusText;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextStatusText
//
// Purpose:
// Sets the HTTP status text field in an entity context.
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_statusText - *in* *charstring* - status text
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextStatusText (
in integer pl_eIdx,
in charstring pl_statusText)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].statusText := pl_statusText;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextHeaderLinesIdx
//
// Purpose:
// Sets the header line index of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_headerLinesIdx - *in* *integer* - header line index
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextHeaderLinesIdx(
in integer pl_eIdx,
in integer pl_headerLinesIdx)
runs on EPTF_HTTP_LGen_CT
{
if (0 > pl_headerLinesIdx) {return;}
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].headerLinesIdx := pl_headerLinesIdx;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_ETPF_HTTP_setEntityContextStatusCode
//
// Purpose:
// Sets the status code of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_statusCode - *in* *integer* - status code
//
///////////////////////////////////////////////////////////////////////////////
function f_ETPF_HTTP_setEntityContextStatusCode(
in integer pl_eIdx,
in integer pl_statusCode)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].statusCode := pl_statusCode;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_ETPF_HTTP_setEntityContextStatusText
//
// Purpose:
// Sets the status text of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_statusText - *in* *charstring* - status text
//
///////////////////////////////////////////////////////////////////////////////
function f_ETPF_HTTP_setEntityContextStatusText(
in integer pl_eIdx,
in charstring pl_statusText)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].statusText := pl_statusText;
}
/////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextURI
//
// Purpose:
// Function to get the HTTP URI field of the entity context of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
//
// Return Value:
// *charstring* - URI
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextURI (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return charstring
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].uri;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextURI
//
// Purpose:
// Function to set the HTTP URI field of the entity context of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_uri - *in* *charstring* - HTTP URI
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextURI (
in integer pl_eIdx,
in charstring pl_uri)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].uri := pl_uri;
}
/////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextVersionMajor
//
// Purpose:
// Function to get the major version number of HTTP
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
//
// Return Value:
// *integer* - major version number
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextVersionMajor (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return integer
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].version_major;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextVersionMajor
//
// Purpose:
// Function to set the major version number of HTTP
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_version_major - *in* *integer* - major version number
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextVersionMajor (
in integer pl_eIdx,
in integer pl_version_major)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].version_major := pl_version_major;
}
/////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextVersionMinor
//
// Purpose:
// Function to get the minor version number of HTTP
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
//
// Return Value:
// *integer* - minor version number
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextVersionMinor (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return integer
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].version_minor;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextVersionMinor
//
// Purpose:
// Function to set the minor version number of HTTP
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_version_minor - *in* *integer* - minor version number
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextVersionMinor (
in integer pl_eIdx,
in integer pl_version_minor)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].version_minor := pl_version_minor;
}
/////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextMessageHeader
//
// Purpose:
// Function to get the HTTP header lines of the entity context of an entity
//
// Parameters:
// pl_ctxIdx - *in* *integer* - entity index
//
// Return Value:
// *charstring* - URI
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextMessageHeader (
in integer pl_ctxIdx)
runs on EPTF_HTTP_LGen_CT
return HeaderLines
{
//var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
var integer vl_headerLinesIdx := v_EPTF_HTTP_contexts[pl_ctxIdx].headerLinesIdx;
return v_EPTF_HTTP_headerLinesList[vl_headerLinesIdx];
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextAddCustomHeader
//
// Purpose:
// Function to add a custom HTTP header to the entity context of an entity
//
// Parameters:
// pl_eIdx - *in* *integer* - entity index
// pl_uri - *in* *charstring* - HTTP URI
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextAddCustomHeader (
in integer pl_eIdx,
in charstring pl_field_name,
in charstring pl_field_value)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_EPTF_HTTP_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
var integer vl_headerLinesIdx := v_EPTF_HTTP_contexts[vl_EPTF_HTTP_myCtx].headerLinesIdx;
if(vl_headerLinesIdx < 0) { return; }
v_EPTF_HTTP_headerLinesList[vl_headerLinesIdx][sizeof(v_EPTF_HTTP_headerLinesList[vl_headerLinesIdx])] :=
{ pl_field_name, pl_field_value }
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextConnectionId
//
// Purpose:
// Function to get entity context connection Id
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be set
// Return Value:
// *integer* - connection id
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextConnectionId (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return integer
{
var integer myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[myCtx].connId;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextConnectionId
//
// Purpose:
// Function to set entity context
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be set
// pl_connId - *integer* - port group index beloning to the entity
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextConnectionId (
in integer pl_eIdx,
in integer pl_connId)
runs on EPTF_HTTP_LGen_CT
{
var integer myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[myCtx].connId := pl_connId;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextBodyId
//
// Purpose:
// Function to get entity context body Id
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be get
// Return Value:
// *integer* - body id
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextBodyId (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return integer
{
var integer myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[myCtx].bodyId;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextBodyId
//
// Purpose:
// Function to set entity context
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be set
// pl_bodyId - *integer* - body index beloning to the entity
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextBodyId (
in integer pl_eIdx,
in integer pl_bodyId)
runs on EPTF_HTTP_LGen_CT
{
var integer myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[myCtx].bodyId := pl_bodyId;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextPortId
//
// Purpose:
// Function to get entity context port Id
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be get
// Return Value:
// *integer* - port id
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextPortId (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return integer
{
var integer myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[myCtx].portId;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextPortId
//
// Purpose:
// Function to set entity context
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be set
// pl_portId - *integer* - port index beloning to the entity
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextPortId (
in integer pl_eIdx,
in integer pl_portId)
runs on EPTF_HTTP_LGen_CT
{
var integer myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[myCtx].portId := pl_portId;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getEntityContextSeqNum
//
// Purpose:
// Function to get entity context sequence number
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be get
// Return Value:
// *integer* - sequence number
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getEntityContextSeqNum (
in integer pl_eIdx)
runs on EPTF_HTTP_LGen_CT
return integer
{
var integer myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
return v_EPTF_HTTP_contexts[myCtx].seqNum;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextSeqNum
//
// Purpose:
// Function to set entity context
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be set
// pl_connId - *integer* - sequence number beloning to the entity
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextSeqNum (
in integer pl_eIdx,
in integer pl_seqNum)
runs on EPTF_HTTP_LGen_CT
{
var integer myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
v_EPTF_HTTP_contexts[myCtx].seqNum := pl_seqNum;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setCharEntityBody
//
// Purpose:
// Function to set the charstring body of an entity
//
// Parameters:
// pl_connId - *integer* - port group index beloning to the entity
//
// Return Value:
// *integer* - database index
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setCharEntityBody(
in charstring pl_val)
runs on EPTF_HTTP_LGen_CT return integer
{
var integer vl_dbIdx;
if (f_EPTF_str2int_HashMap_Find(v_EPTF_HTTP_charDB, pl_val, vl_dbIdx))
{
f_EPTF_HTTP_debug(%definitionId &
": CHAR Body already exists at index: " & int2str(vl_dbIdx));
}
else
{
vl_dbIdx := sizeof(v_EPTF_HTTP_charBodyDB);
f_EPTF_str2int_HashMap_Insert(v_EPTF_HTTP_charDB, pl_val, vl_dbIdx);
v_EPTF_HTTP_charBodyDB[vl_dbIdx] := pl_val;
f_EPTF_HTTP_debug(%definitionId &
": CHAR Body does not exists, now added: " & int2str(vl_dbIdx));
}
return vl_dbIdx;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setOctEntityBody
//
// Purpose:
// Function to set the octetstring body of an entity
//
// Parameters:
// pl_connId - *integer* - port group index beloning to the entity
//
// Return Value:
// *integer* - database index
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setOctEntityBody(
in octetstring pl_val)
runs on EPTF_HTTP_LGen_CT return integer
{
var integer vl_dbIdx;
if (f_EPTF_oct2int_HashMap_Find(v_EPTF_HTTP_octDB, pl_val, vl_dbIdx))
{
f_EPTF_HTTP_debug(%definitionId &
": OCT Body already exists at index: " & int2str(vl_dbIdx));
}
else
{
vl_dbIdx := sizeof(v_EPTF_HTTP_binBodyDB);
f_EPTF_oct2int_HashMap_Insert(v_EPTF_HTTP_octDB, pl_val, vl_dbIdx);
v_EPTF_HTTP_binBodyDB[vl_dbIdx] := pl_val;
f_EPTF_HTTP_debug(%definitionId &
": OCT Body does not exists, now added: " & int2str(vl_dbIdx));
}
return vl_dbIdx;
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getHeaderContentForEntity
//
// Purpose:
// Get HTTP header content for an entity
//
// Parameters:
// pl_pars - *in* <EPTF_IntegerList> - parameter list, element #0 is the entity context index
// pl_headerLines - *inout* <HeaderLines> - header content
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getHeaderContentForEntity(
in EPTF_IntegerList pl_pars,
inout HeaderLines pl_headerLines)
runs on EPTF_HTTP_LGen_CT
{
pl_headerLines := f_EPTF_HTTP_getEntityContextMessageHeader(pl_pars[0]);
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getCharstringBodyContentForEntity
//
// Purpose:
// Get HTTP body content for an entity
//
// Parameters:
// pl_pars - *in* <EPTF_IntegerList> - parameter list, element #0 is the entity context index
// pl_body - *inout* <EPTF_HTTP_CharOrOct> - charstring or binary body content
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getCharstringBodyContentForEntity(
in EPTF_IntegerList pl_pars,
inout EPTF_HTTP_CharOrOct pl_body)
runs on EPTF_HTTP_LGen_CT
{
pl_body := { charVal := v_EPTF_HTTP_charBodyDB[v_EPTF_HTTP_contexts[pl_pars[0]].bodyId] };
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getCharstringBodyContentForEntity
//
// Purpose:
// Get HTTP body content for an entity
//
// Parameters:
// pl_pars - *in* <EPTF_IntegerList> - parameter list, element #0 is the entity context index
// pl_body - *inout* <EPTF_HTTP_CharOrOct> - charstring or binary body content
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getBinaryBodyContentForEntity(
in EPTF_IntegerList pl_pars,
inout EPTF_HTTP_CharOrOct pl_body)
runs on EPTF_HTTP_LGen_CT
{
pl_body := { octVal := v_EPTF_HTTP_binBodyDB[v_EPTF_HTTP_contexts[pl_pars[0]].bodyId] };
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getBodyContentForEntity
//
// Purpose:
// Get HTTP body for an entity (entity context)
//
// Parameters:
// pl_ctxIdx - *in* *integer* - entity context
// pl_body - *inout* <EPTF_HTTP_CharOrOct> - charstring or binary body content
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getBodyContentForEntity(
in integer pl_ctxIdx,
inout EPTF_HTTP_CharOrOct pl_body)
runs on EPTF_HTTP_LGen_CT
{
f_EPTF_Base_assert(
%definitionId & ": Content getter function is null!",
v_EPTF_HTTP_contexts[pl_ctxIdx].contentGetterFn != null);
f_EPTF_Base_assert(
%definitionId & ": Content getter function is unbound!",
isvalue(v_EPTF_HTTP_contexts[pl_ctxIdx].contentGetterFn));
v_EPTF_HTTP_contexts[pl_ctxIdx].contentGetterFn.apply(
{pl_ctxIdx}, pl_body)
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getHeaderForEntity
//
// Purpose:
// Get HTTP header for an entity (entity context)
//
// Parameters:
// pl_ctxIdx - *in* *integer* - entity context
// pl_headerLines - *inout* <HeaderLines> - header content
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getHeaderForEntity(
in integer pl_ctxIdx,
inout HeaderLines pl_headerLines)
runs on EPTF_HTTP_LGen_CT
{
f_EPTF_Base_assert(
%definitionId & ": Header content getter function is null!",
v_EPTF_HTTP_contexts[pl_ctxIdx].headerGetterFn != null);
f_EPTF_Base_assert(
%definitionId & ": Header content getter function is unbound!",
isvalue(v_EPTF_HTTP_contexts[pl_ctxIdx].headerGetterFn));
v_EPTF_HTTP_contexts[pl_ctxIdx].headerGetterFn.apply(
{pl_ctxIdx}, pl_headerLines)
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_getRawHeaderForEntity
//
// Purpose:
// Get HTTP raw header for an entity (entity context)
//
// Parameters:
// pl_ctxIdx - *in* *integer* - entity context
// pl_body - *inout* <EPTF_HTTP_CharOrOct> - charstring or binary body content
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_getRawHeaderForEntity(
in integer pl_ctxIdx,
inout octetstring pl_rawHeader)
runs on EPTF_HTTP_LGen_CT
{
f_EPTF_Base_assert(
%definitionId & ": Raw header content getter function is null!",
v_EPTF_HTTP_contexts[pl_ctxIdx].rawHeaderGetterFn != null);
f_EPTF_Base_assert(
%definitionId & ": Raw header content getter function is unbound!",
isvalue(v_EPTF_HTTP_contexts[pl_ctxIdx].rawHeaderGetterFn));
v_EPTF_HTTP_contexts[pl_ctxIdx].rawHeaderGetterFn.apply(
{pl_ctxIdx}, pl_rawHeader)
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_setEntityContextMessageBody
//
// Purpose:
// Get HTTP body for an entity (entity context)
//
// Parameters:
// pl_eIdx - *in* *integer* - index of entity whose context
// database is to be set
// pl_body - *inout* <EPTF_HTTP_CharOrOct> - charstring or binary body content
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_setEntityContextMessageBody(
in integer pl_eIdx,
inout EPTF_HTTP_CharOrOct pl_body)
runs on EPTF_HTTP_LGen_CT
{
var integer vl_myCtx := f_EPTF_HTTP_getContextIndex(pl_eIdx);
if(ischosen(pl_body.charVal))
{
v_EPTF_HTTP_contexts[vl_myCtx].bodyId := f_EPTF_HTTP_setCharEntityBody(pl_body.charVal);
}
else
{
v_EPTF_HTTP_contexts[vl_myCtx].bodyId := f_EPTF_HTTP_setOctEntityBody(pl_body.octVal);
}
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_reportEvent
//
// Purpose:
// Function to report an event on the initially set reporting level
//
// Parameters:
// pl_statusCode - *in* *integer* - status code of the message
// pl_eIdx - *in* *integer* - index of the entity
// pl_fsmIdx - *in* *integer* - index of the fsm of the entity
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_reportEvent(
in integer pl_statusCode,
in integer pl_eIdx,
in integer pl_fsmIdx)
runs on EPTF_HTTP_LGen_CT
{
if (vf_EPTF_HTTP_dispatchFn != null) {
vf_EPTF_HTTP_dispatchFn.apply(pl_statusCode, pl_eIdx, pl_fsmIdx);
}
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_convertEvent
//
// Purpose:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_convertEvent(
in EPTF_LGenBase_ReportedEventDescriptor pl_eventIN,
inout EPTF_LGenBase_ReportedEventDescriptor pl_eventOUT)
{
pl_eventOUT := pl_eventIN;
if (omit != pl_eventIN.event.target)
{
if (0 > pl_eventIN.event.target.eIdx)
{
pl_eventOUT.event.target := omit;
}else if (0 > pl_eventIN.event.target.fsmCtxIdx)
{
pl_eventOUT.event.target.fsmCtxIdx := omit;
}
}
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_dispatchEvent
//
// Purpose:
// HTTP dispatch function
//
// Parameters:
// pl_event - *in* <EPTF_LGenBase_ReportedEventDescriptor> - status code of the message
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_dispatchEvent(in EPTF_LGenBase_ReportedEventDescriptor pl_event)
runs on EPTF_HTTP_LGen_CT
{
var EPTF_LGenBase_ReportedEventDescriptor vl_local;
f_EPTF_HTTP_convertEvent(pl_event, vl_local);
f_EPTF_LGenBase_dispatchEvent(vl_local);
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_postEvent
//
// Purpose:
// HTTP post function
//
// Parameters:
// pl_event - *in* <EPTF_LGenBase_ReportedEventDescriptor> - status code of the message
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_postEvent(in EPTF_LGenBase_ReportedEventDescriptor pl_event)
runs on EPTF_HTTP_LGen_CT
{
var EPTF_LGenBase_ReportedEventDescriptor vl_local;
f_EPTF_HTTP_convertEvent(pl_event, vl_local);
f_EPTF_LGenBase_postEvent(vl_local);
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_reportClassEvent
//
// Purpose:
// Function to report an event to an entity/fsm (class reporting level)
//
// Parameters:
// pl_statusCode - *in* *integer* - status code of the message
// pl_eIdx - *in* *integer* - index of the entity
// pl_fsmIdx - *in* *integer* - index of the fsm of the entity
//
// Return Value:
// -
//
// Errors:
// -
//
// Detailed Comments:
// -
//
///////////////////////////////////////////////////////////////////////////////
function f_EPTF_HTTP_reportClassEvent(
in integer pl_statusCode,
in integer pl_eIdx,
in integer pl_fsmIdx)
runs on EPTF_HTTP_LGen_CT
{
if (pl_statusCode < 100 or pl_statusCode > 599)
{
f_EPTF_HTTP_warning(%definitionId &
": Status code of incoming message is invalid: " &
int2str(pl_statusCode));
return;
}
if (pl_statusCode < 200) {
f_EPTF_HTTP_dispatchEvent({{v_EPTF_HTTP_myBIdx,
c_EPTF_HTTP_inputIdx_response100class,{pl_eIdx,pl_fsmIdx}, omit},{}});
}
else
if (pl_statusCode < 300) {
f_EPTF_HTTP_dispatchEvent({{v_EPTF_HTTP_myBIdx,
c_EPTF_HTTP_inputIdx_response200class,{pl_eIdx,pl_fsmIdx}, omit},{}});
}
else
if (pl_statusCode < 400) {
f_EPTF_HTTP_dispatchEvent({{v_EPTF_HTTP_myBIdx,
c_EPTF_HTTP_inputIdx_response300class,{pl_eIdx,pl_fsmIdx}, omit},{}});
}
else
if (pl_statusCode < 500) {
f_EPTF_HTTP_dispatchEvent({{v_EPTF_HTTP_myBIdx,
c_EPTF_HTTP_inputIdx_response400class,{pl_eIdx,pl_fsmIdx}, omit},{}});
}
else
if (pl_statusCode < 600) {
f_EPTF_HTTP_dispatchEvent({{v_EPTF_HTTP_myBIdx,
c_EPTF_HTTP_inputIdx_response500class,{pl_eIdx,pl_fsmIdx}, omit},{}});
}
}
///////////////////////////////////////////////////////////////////////////////
// Function: f_EPTF_HTTP_reportDetailedEvent
//
// Purpose:
// Function to report an event to an entity/fsm (detailed reporting level)