# tcap.cnf
# $Id$
# tcap conformation file

# 

#.MODULE_IMPORT

#.EXPORTS
DialoguePDU
UniDialoguePDU

#.REGISTER
DialoguePDU    B "0.0.17.773.1.1.1"  "dialogue-as-id"
UniDialoguePDU B "0.0.17.773.1.2.1"  "uniDialogue-as-id"

#.PDU


#.NO_EMIT

#.TYPE_RENAME

#.FIELD_RENAME

#.FN_BODY DialogueOC
tvbuff_t	*next_tvb;
gint8 class;
	gboolean pc;
	gint tag;
	guint32 len;
	gint ind_field;
	

offset = dissect_ber_identifier(actx->pinfo, tree, tvb, offset, &class, &pc, &tag);
offset = dissect_ber_length(actx->pinfo, tree, tvb, offset, &len, &ind_field);
	next_tvb = tvb_new_subset(tvb, offset, len-(2*ind_field), len-(2*ind_field));
                                    
 
 if (!next_tvb)
	return offset;

  dissect_tcap_ExternalPDU(TRUE, next_tvb, 0, actx, tree, -1);


return offset+len;

#.FN_BODY ExternalPDU
gint8 class;
	gboolean pc;
	gint tag;
	guint32 len;
	gint ind_field;
	/* Workaround for tagged fields */
offset = dissect_ber_identifier(actx->pinfo, tree, tvb, offset, &class, &pc, &tag);
offset = dissect_ber_length(actx->pinfo, tree, tvb, offset, &len, &ind_field);
%(DEFAULT_BODY)s

#.FN_BODY Dialog1
gint8 class;
	gboolean pc;
	gint tag;
	guint32 len;
	gint ind_field;
	
/* Calculate the correct length, Tags will be shown in DialoguePDU */
offset = get_ber_identifier(tvb, offset, &class, &pc, &tag);
offset = get_ber_length(tree, tvb, offset, &len, &ind_field);

 dissect_tcap_DialoguePDU(TRUE, tvb, 0, actx, tree, -1);

return offset+len;

#.FN_BODY Parameter
tvbuff_t	*next_tvb;
gint8 class;
	gboolean pc;
	gint tag;
	guint32 len;
	gint ind_field;


 offset = dissect_ber_identifier(actx->pinfo, tree, tvb, offset, &class, &pc, &tag);
 offset = dissect_ber_length(actx->pinfo, tree, tvb, offset, &len, &ind_field);
	/* need to strip the EOC off the next_tvb */
	next_tvb = tvb_new_subset(tvb, offset, len-(2*ind_field), len-(2*ind_field));		

if (!next_tvb)
	return offset; 
 dissect_tcap_param(actx,tree,tvb,0);
 offset += len;
  return offset;

#.FN_BODY User-information
tvbuff_t	*next_tvb;
gint8 class;
	gboolean pc;
	gint tag;
	guint32 len;
	gint ind_field;


offset = dissect_ber_identifier(actx->pinfo, tree, tvb, offset, &class, &pc, &tag);
offset = dissect_ber_length(actx->pinfo, tree, tvb, offset, &len, &ind_field);
next_tvb = tvb_new_subset(tvb, offset, len-(2*ind_field), len-(2*ind_field));		
if (!next_tvb)
	return offset+len; 
dissect_tcap_UserInformation(TRUE, next_tvb, 0, actx, tree, -1);
 
 
return offset+len;
#.FN_BODY Component
dissect_tcap_TheComponent(implicit_tag, tvb, offset, actx, tree, hf_index);

#.FN_BODY Applicationcontext  FN_VARIANT = _str  VAL_PTR = &cur_oid
%(DEFAULT_BODY)s
	tcap_private.oid= (void*) cur_oid; 
	tcap_private.acv=TRUE;

# Do not overwrite the ApplicationContext with the UserInfoOID !
#
#.FN_BODY UserInfoOID  FN_VARIANT = _str  VAL_PTR = &tcapext_oid
%(DEFAULT_BODY)s
#	tcap_private.oid= (void*)tcapext_oid;
#	tcap_private.acv=TRUE;

#.FN_BODY ExternUserInfo
dissect_tcap_TheExternUserInfo(implicit_tag, tvb, offset, actx, tree, hf_index);

#.FN_BODY ANSIParameters
/* we are doing the ParamSet here so need to look at the tags*/
	guint32 len;
len = tvb_length_remaining(tvb, offset);
if (len > 2)  /* arghhh I dont know whether this is constructed or not! */
		offset = dissect_tcap_param(actx,tree,tvb,offset);
else
offset = dissect_ber_octet_string(TRUE, actx, tree, tvb, 0, hf_index,
                                    NULL);


#.FN_BODY ComponentPDU 	
tvbuff_t *next_tvb;
dissector_handle_t subdissector_handle;

next_tvb = tvb_new_subset(tvb, offset, tvb_length_remaining(tvb, offset), tvb_length_remaining(tvb, offset));		

if (! (subdissector_handle = get_ansi_tcap_subdissector(actx->pinfo->match_port))) {
    subdissector_handle = data_handle;
} 
  
    tcap_subdissector_used=TRUE;

call_dissector(subdissector_handle, next_tvb, actx->pinfo, tcap_top_tree);
    
offset = dissect_ber_old_choice(actx, tree, tvb, offset,
                              ComponentPDU_choice, hf_index, ett_tcap_ComponentPDU,NULL);
	
#.FN_BODY OrigTransactionID
tvbuff_t *parameter_tvb;
guint8 len, i;
proto_item *tid_item;
proto_tree *subtree;
tid_item = proto_tree_add_text(tree, tvb, offset, -1, "Source Transaction ID");
subtree = proto_item_add_subtree(tid_item, ett_otid);

offset = dissect_ber_octet_string(implicit_tag, actx, subtree, tvb, offset, hf_tcap_tid,
                                    &parameter_tvb);

if (parameter_tvb){
	len = tvb_length_remaining(parameter_tvb, 0);
	switch(len) {
	case 1:
		gp_tcapsrt_info->src_tid=tvb_get_guint8(parameter_tvb, 0);
		break;
	case 2:
		gp_tcapsrt_info->src_tid=tvb_get_ntohs(parameter_tvb, 0);
		break;
	case 4:
		gp_tcapsrt_info->src_tid=tvb_get_ntohl(parameter_tvb, 0);
		break;
	default:
		gp_tcapsrt_info->src_tid=0;
		break;
	}

	if ((len)&&(check_col(actx->pinfo->cinfo, COL_INFO))){
		col_append_fstr(actx->pinfo->cinfo, COL_INFO, "otid(");
	   	for(i=0;i<len;i++)
        		  col_append_fstr(actx->pinfo->cinfo, COL_INFO, "%%02x",tvb_get_guint8(parameter_tvb,i));
        	col_append_fstr(actx->pinfo->cinfo, COL_INFO, ") ");
	}

}	


#.FN_BODY DestTransactionID
tvbuff_t *parameter_tvb;
guint8 len , i;
proto_item *tid_item;
proto_tree *subtree;
tid_item = proto_tree_add_text(tree, tvb, offset, -1, "Destination Transaction ID");
subtree = proto_item_add_subtree(tid_item, ett_otid);

offset = dissect_ber_octet_string(implicit_tag, actx, subtree, tvb, offset, hf_tcap_tid,
                                    &parameter_tvb);

if (parameter_tvb){
	len = tvb_length_remaining(parameter_tvb, 0);
	switch(len) {
	case 1:
		gp_tcapsrt_info->dst_tid=tvb_get_guint8(parameter_tvb, 0);
		break;
	case 2:
		gp_tcapsrt_info->dst_tid=tvb_get_ntohs(parameter_tvb, 0);
		break;
	case 4:
		gp_tcapsrt_info->dst_tid=tvb_get_ntohl(parameter_tvb, 0);
		break;	
	default:
		gp_tcapsrt_info->dst_tid=0;
		break;
	}
	
	if ((len)&&(check_col(actx->pinfo->cinfo, COL_INFO))){
		col_append_fstr(actx->pinfo->cinfo, COL_INFO, "dtid(");
		for(i=0;i<len;i++)
          		col_append_fstr(actx->pinfo->cinfo, COL_INFO, "%%02x",tvb_get_guint8(parameter_tvb,i));
        	col_append_fstr(actx->pinfo->cinfo, COL_INFO, ") ");
	   }
}
#.FN_BODY Begin
gp_tcapsrt_info->ope=TC_BEGIN;

if (check_col(actx->pinfo->cinfo, COL_INFO))
		col_append_fstr(actx->pinfo->cinfo, COL_INFO, " Begin ");

%(DEFAULT_BODY)s

#.FN_BODY End
gp_tcapsrt_info->ope=TC_END;

if (check_col(actx->pinfo->cinfo, COL_INFO))
		col_append_fstr(actx->pinfo->cinfo, COL_INFO, " End ");

%(DEFAULT_BODY)s

#.FN_BODY Continue
gp_tcapsrt_info->ope=TC_CONT;

if (check_col(actx->pinfo->cinfo, COL_INFO))
		col_append_fstr(actx->pinfo->cinfo, COL_INFO, " Continue ");

%(DEFAULT_BODY)s

#.FN_BODY Abort
gp_tcapsrt_info->ope=TC_ABORT;

if (check_col(actx->pinfo->cinfo, COL_INFO))
		col_append_fstr(actx->pinfo->cinfo, COL_INFO, " Abort ");
 
 %(DEFAULT_BODY)s
  
#.FN_BODY AbortPDU
if (check_col(actx->pinfo->cinfo, COL_INFO))
		col_append_fstr(actx->pinfo->cinfo, COL_INFO, " Abort ");

%(DEFAULT_BODY)s

#.FN_BODY TransactionPDU
if ((hf_index == hf_tcap_ansiqueryWithPerm)&&(check_col(actx->pinfo->cinfo, COL_INFO)))
				col_append_fstr(actx->pinfo->cinfo, COL_INFO, " QueryWithPerm");		
				
if ((hf_index == hf_tcap_ansiqueryWithoutPerm)&&(check_col(actx->pinfo->cinfo, COL_INFO)))
				col_append_fstr(actx->pinfo->cinfo, COL_INFO, " QueryWithOutPerm");		
				
if ((hf_index == hf_tcap_ansiresponse)&&(check_col(actx->pinfo->cinfo, COL_INFO)))
				col_append_fstr(actx->pinfo->cinfo, COL_INFO, " Response");		
				
if ((hf_index == hf_tcap_ansiconversationWithPerm)&&(check_col(actx->pinfo->cinfo, COL_INFO)))
				col_append_fstr(actx->pinfo->cinfo, COL_INFO, " ConversationWithPerm");		
				
if ((hf_index == hf_tcap_ansiconversationWithoutPerm)&&(check_col(actx->pinfo->cinfo, COL_INFO)))
				col_append_fstr(actx->pinfo->cinfo, COL_INFO, " ConversationWithoutPerm");		
				
%(DEFAULT_BODY)s  

#.FN_BODY TransactionID VAL_PTR = &next_tvb

tvbuff_t *next_tvb;

%(DEFAULT_BODY)s

if(next_tvb)
	tcap_private.TransactionID_str = tvb_bytes_to_str(next_tvb, 0,tvb_length(next_tvb));

#.END