test/STUN_Functions.ttcn

///////////////////////////////////////////////////////////////////////////////
// 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 v2.0
// which accompanies this distribution, and is available at
// https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
///////////////////////////////////////////////////////////////////////////////
//
//  File:               STUN_Functions.ttcn
//  Description:        Functions for STUN Protocol module
//  Rev:                <RnXnn>
//  Prodnr:             CNL 113 644
//  Updated:            2009-05-21
//  Contact:            http://ttcn.ericsson.se
//  Reference:          RFC 3489
///////////////////////////////////////////////
module STUN_Functions {

import from STUN_Types all;

function f_STUN_appendMappedAddress(
inout PDU_STUN pl_msg, 
in Stun_Address pl_values) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := MAPPED_ADDRESS,
		attr_length := 0,
		attr_data := {
			attr_Mapped_Address := pl_values
				}
	}  
}

function f_STUN_appendResponseAddress(
inout PDU_STUN pl_msg, 
in Stun_Address pl_values) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := RESPONSE_ADDRESS,
		attr_length := 0,
		attr_data := {
			attr_Response_Address := pl_values
				}
	}  
}

function f_STUN_appendChangedAddress(
inout PDU_STUN pl_msg, 
in Stun_Address pl_values) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := CHANGED_ADDRESS,
		attr_length := 0,
		attr_data := {
			attr_Changed_Address := pl_values
				}
	}  
}

function f_STUN_appendSourceAddress(
inout PDU_STUN pl_msg, 
in Stun_Address pl_values) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := SOURCE_ADDRESS,
		attr_length := 0,
		attr_data := {
			attr_Source_Address := pl_values
				}
	}  
}

function f_STUN_appendReflectedForm(
inout PDU_STUN pl_msg, 
in Stun_Address pl_values) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := REFLECTED_FROM,
		attr_length := 0,
		attr_data := {
			attr_Reflected_From := pl_values
				}
	}  
}

function f_STUN_appendChangeRequest(
inout PDU_STUN pl_msg, 
in Stun_Change_Request pl_request) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := CHANGE_REQUEST,
		attr_length := 0,
		attr_data := {
			attr_Change_Request := pl_request
				}
	}  
}

function f_STUN_appendUsername(
inout PDU_STUN pl_msg, 
in Stun_Username pl_username) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := USERNAME,
		attr_length := 0,
		attr_data := {
			attr_Username := pl_username
				}
	}  
}

function f_STUN_appendPassword(
inout PDU_STUN pl_msg, 
in Stun_Password pl_password) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := PASSWORD,
		attr_length := 0,
		attr_data := {
			attr_Password := pl_password
				}
	}  
}

function f_STUN_appendMessageIntegrity(
inout PDU_STUN pl_msg, 
in Stun_Message_Integrity pl_integrity := '0000000000000000000000000000000000000000'O) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := MESSAGE_INTEGRITY,
		attr_length := 0,
		attr_data := {
			attr_Message_Integrity := pl_integrity
				}
	}  
}

function f_STUN_appendErrorCode(
inout PDU_STUN pl_msg, 
in Stun_Error_Code pl_error) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := ERROR_CODE,
		attr_length := 0,
		attr_data := {
			attr_Error_Code := pl_error
				}
	}  
}

function f_STUN_appendUnkonwnAttrs(
inout PDU_STUN pl_msg, 
in Stun_Unknown_Attributes pl_unknown) 
{
	pl_msg.attr_list[sizeof(pl_msg.attr_list)] := {
	  attr_type := UNKNOWN_ATTRIBUTES,
		attr_length := 0,
		attr_data := {
			attr_Unknown_Attributes := pl_unknown
				}
	}  
}
function f_STUN_createMsgHeader(
inout PDU_STUN pl_msg, 
in STUN_Msg_Type pl_msgType,
in OCT16 pl_transId := '00000000000000000000000000000000'O)
{
  if (pl_transId == '00000000000000000000000000000000'O) {
    pl_transId := f_STUN_genTrasId();
  }

  pl_msg := {
    header := {
      msg_type := pl_msgType,
      msg_length := 0,
      trans_id := pl_transId
    },
    attr_list := {}
  }
  
}
}