wireshark/asn1/camel/camel.cnf

# camel.cnf
# camel conformation file
# $Id$

#.INCLUDE ../gsmmap/gsm_map-exp.cnf
#.INCLUDE ../inap/inap-exp.cnf

#.MODULE
CS1-DataTypes  inap
CS2-datatypes  inap

#.PDU

#.OMIT_ASSIGNMENT Remote-Operations-Information-Objects
Bind
Unbind
#.END

#.OMIT_ASSIGNMENT
# Removed as they are giving 'defined but not used' warnings currently.
RejectProblem
TariffSwitchInterval
Priority

#.REGISTER
CAP-GPRS-ReferenceNumber	B "0.4.0.0.1.1.5.2" "id-CAP-GPRS-ReferenceNumber"
CAP-U-ABORT-REASON			B "0.4.0.0.1.1.2.2" "id-CAP-U-ABORT-Reason"

#.NO_EMIT

#.TYPE_RENAME
ReturnResult/result/result		ResultArgument

#.FIELD_RENAME
Invoke/linkedId/present			linkedIdPresent
Reject/problem/invoke			invokeProblem
Reject/problem/returnError		returnErrorProblem
ReturnResult/result/result		resultArgument
Reject/problem/returnResult		problemReturnResult

PAR-cancelFailed/problem		par-cancelFailedProblem
CAMEL-FCIBillingChargingCharacteristics/fCIBCCCAMELsequence1		fci-fCIBCCCAMELsequence1
CAMEL-FCIGPRSBillingChargingCharacteristics/fCIBCCCAMELsequence1	fciGPRS-fCIBCCCAMELsequence1
CAMEL-FCISMSBillingChargingCharacteristics/fCIBCCCAMELsequence1		fciSMS-fCIBCCCAMELsequence1
EventSpecificInformationBCSM/oMidCallSpecificInfo/midCallEvents		omidCallEvents
EventSpecificInformationBCSM/tMidCallSpecificInfo/midCallEvents		tmidCallEvents
AudibleIndicator/tone		audibleIndicatorTone
GapIndicators/duration		gapIndicatorsDuration
InbandInfo/duration			inbandInfoDuration
Tone/duration				toneDuration
Burst/toneDuration			burstToneDuration

EventSpecificInformationSMS/o-smsFailureSpecificInfo/failureCause smsfailureCause
EventSpecificInformationBCSM/routeSelectFailureSpecificInfo/failureCause routeSelectfailureCause
EventSpecificInformationSMS/t-smsFailureSpecificInfo/failureCause t-smsfailureCause

CAMEL-FCIBillingChargingCharacteristics/fCIBCCCAMELsequence1/partyToCharge fCIBCCCAMELsequence1partyToCharge
CAMEL-CallResult/timeDurationChargingResult/partyToCharge timeDurationChargingResultpartyToCharge

AOCSubsequent/tariffSwitchInterval aocSubsequent-tariffSwitchInterval
CAMEL-AChBillingChargingCharacteristics/timeDurationCharging/tariffSwitchInterval timeDurationCharging-tariffSwitchInterval
ApplyChargingGPRSArg/tariffSwitchInterval applyChargingGPRS-tariffSwitchInterval
TimeIfTariffSwitch/tariffSwitchInterval timeIfTariffSwitch-tariffSwitchInterval


#.TABLE_HDR
/* CAMEL OPERATIONS */
const value_string camel_opr_code_strings[] = {
#.TABLE_BODY OPERATION
	{ %(&operationCode)s, "%(_ident)s" },
#.TABLE_FTR
  { 0, NULL }
};
#.END

#.TABLE_HDR
/* CAMEL ERRORS */
static const value_string camel_err_code_string_vals[] = {
#.TABLE_BODY ERROR
	{ %(&errorCode)s, "%(_ident)s" },  
#.TABLE_FTR
  { 0, NULL }
};
#.END

#.TABLE2_HDR
static int dissect_invokeData(proto_tree *tree, tvbuff_t *tvb, int offset, asn1_ctx_t *actx) {
  proto_item *cause;

  switch(opcode){
#.TABLE2_BODY OPERATION.&ArgumentType
    case %(&operationCode)s:  /* %(_ident)s */
      offset= %(_argument_fn)s(FALSE, tvb, offset, actx, tree, hf_camel_%(_ident)s);
      break;
#.TABLE2_FTR
    cause=proto_tree_add_text(tree, tvb, offset, -1, "Unknown invokeData blob");
    proto_item_set_expert_flags(cause, PI_MALFORMED, PI_WARN);
    expert_add_info_format(actx->pinfo, cause, PI_MALFORMED, PI_WARN, "Unknown invokeData %d",opcode);
    /* todo call the asn.1 dissector */
  }
  return offset;
}
#.END
#.TABLE2_HDR
static int dissect_returnResultData(proto_tree *tree, tvbuff_t *tvb, int offset,asn1_ctx_t *actx) {
  proto_item *cause;

  switch(opcode){
#.TABLE2_BODY OPERATION.&ResultType
    case %(&operationCode)s:  /* %(_ident)s */
	  offset= %(_result_fn)s(FALSE, tvb, offset, actx, tree, hf_camel_%(_ident)s);
      break;
#.TABLE2_FTR
  default:
    cause=proto_tree_add_text(tree, tvb, offset, -1, "Unknown returnResultData blob");
    proto_item_set_expert_flags(cause, PI_MALFORMED, PI_WARN);
    expert_add_info_format(actx->pinfo, cause, PI_MALFORMED, PI_WARN, "Unknown returnResultData %d",opcode);
  }
  return offset;
}
#.END
#.TABLE2_HDR
static int dissect_returnErrorData(proto_tree *tree, tvbuff_t *tvb, int offset,asn1_ctx_t *actx) {
  proto_item *cause;

  switch(errorCode) {
#.TABLE2_BODY ERROR.&ParameterType
    case %(&errorCode)s:  /* %(_ident)s */
      %(_parameter_fn)s(FALSE, tvb, offset, actx, tree, hf_camel_%(_ident)s);
      break;
#.TABLE2_FTR
  default:
    cause=proto_tree_add_text(tree, tvb, offset, -1, "Unknown returnErrorData blob");
    proto_item_set_expert_flags(cause, PI_MALFORMED, PI_WARN);
    expert_add_info_format(actx->pinfo, cause, PI_MALFORMED, PI_WARN, "Unknown returnErrorData %d",errorCode);
  }
  return offset;
}
#.END

#.TABLE3_HDR
/* CAMEL OPERATIONS hf filelds */
#.TABLE3_BODY OPERATION
    { &hf_camel_%(_ident)s,
      { "%(_ident)s", "camel.%(_ident)s",
        FT_NONE, BASE_NONE, NULL, 0,
        "camel.%(_ident)s", HFILL }},

#.TABLE3_FTR
/* END CAMEL OPERATIONS hf filelds */
#.END
#.TABLE3_HDR
/* CAMEL ERRORS  hf filelds */
#.TABLE3_BODY ERROR.&ParameterType
    { &hf_camel_%(_ident)s,
      { "%(_ident)s", "camel.%(_ident)s",
        FT_NONE, BASE_NONE, NULL, 0,
        "camel.%(_ident)s", HFILL }},
#.TABLE3_FTR
/* END CAMEL ERRORS hf filelds */
#.END

#.TABLE4_HDR
/* CAMEL OPERATIONS hf filelds */
#.TABLE4_BODY OPERATION
int hf_camel_%(_ident)s = -1;
#.TABLE4_FTR
/* END CAMEL OPERATIONS hf filelds */
#.END

#.TABLE4_HDR
/* CAMEL ERRORS hf filelds */
#.TABLE4_BODY ERROR.&ParameterType
int hf_camel_%(_ident)s = -1;
#.TABLE4_FTR
/* END CAMEL ERRORS hf filelds */
#.END

# ROS stuff here XXX change when TCAP is redone.

#.FN_BODY Code/local  VAL_PTR = &opcode

  if (is_ExtensionField){
	hf_index = hf_camel_extension_code_local;
  }else if (camel_opcode_type == CAMEL_OPCODE_RETURN_ERROR){
	hf_index = hf_camel_error_code_local;  
  }		
  %(DEFAULT_BODY)s
  if (is_ExtensionField == FALSE){
	if (camel_opcode_type == CAMEL_OPCODE_RETURN_ERROR){
	  errorCode = opcode;	
	  if (check_col(actx->pinfo->cinfo, COL_INFO)){
	    col_append_fstr(actx->pinfo->cinfo, COL_INFO, 
	       val_to_str(errorCode, camel_err_code_string_vals, "Unknown CAMEL error (%%u)"));
	    col_append_str(actx->pinfo->cinfo, COL_INFO, " ");
	    col_set_fence(actx->pinfo->cinfo, COL_INFO);
	  }
	}else{
	  if (check_col(actx->pinfo->cinfo, COL_INFO)){
	    col_append_fstr(actx->pinfo->cinfo, COL_INFO, 
	       val_to_str(opcode, camel_opr_code_strings, "Unknown CAMEL (%%u)"));
	    col_append_str(actx->pinfo->cinfo, COL_INFO, " ");
	    col_set_fence(actx->pinfo->cinfo, COL_INFO);
	  }
	}
	gp_camelsrt_info->opcode=opcode;
  }
#.FN_HDR Invoke
  camel_opcode_type=CAMEL_OPCODE_INVOKE;

#.FN_HDR ReturnResult
  camel_opcode_type=CAMEL_OPCODE_RETURN_RESULT;

#.FN_HDR ReturnError
  camel_opcode_type=CAMEL_OPCODE_RETURN_ERROR;

#.FN_HDR Reject
  camel_opcode_type=CAMEL_OPCODE_REJECT;


#.FN_BODY Invoke/argument
	offset = dissect_invokeData(tree, tvb, offset, actx);

#.FN_BODY ReturnResult/result/result
	offset = dissect_returnResultData(tree, tvb, offset, actx);

#.FN_BODY ReturnError/parameter
	offset = dissect_returnErrorData(tree, tvb, offset, actx);

# END ROS

#.FN_HDR ExtensionField
	camel_obj_id = NULL;
	is_ExtensionField =TRUE;

#.FN_PARS Code/global  FN_VARIANT = _str  VAL_PTR = &camel_obj_id

#.FN_BODY ExtensionField/value
  /*XXX handle local form here */
  if(camel_obj_id){
    offset=call_ber_oid_callback(camel_obj_id, tvb, offset, actx->pinfo, tree);
  }
  is_ExtensionField = FALSE;

#----------------------------------------------------------------------------------------
#.FN_BODY CallingPartyNumber


 proto_item* parameter_item;
 proto_item* parameter_tree;
 tvbuff_t *isup_tvb;
 guint32 len;

 len=tvb_length_remaining(tvb,offset);
 parameter_item = proto_tree_add_item(tree, hf_index, tvb, offset, -1, FALSE);
 parameter_tree = proto_item_add_subtree(parameter_item, ett_camelisup_parameter);
 isup_tvb = tvb_new_subset(tvb, offset,-1 , -1 );
 dissect_isup_calling_party_number_parameter(isup_tvb, parameter_tree, parameter_item);
 offset += len;
#.END

#----------------------------------------------------------------------------------------
#.FN_BODY CalledPartyNumber


 tvbuff_t *isup_tvb;
 guint32 len;

 len=tvb_length_remaining(tvb,offset);
 isup_tvb = tvb_new_subset(tvb, offset,-1 , -1 );
 dissect_isup_called_party_number_parameter(isup_tvb, tree, NULL);
 offset += len;
 
#.END
#----------------------------------------------------------------------------------------
#.FN_BODY Cause VAL_PTR = &camel_tvb

       tvbuff_t *camel_tvb;
       guint8 Cause_value;

%(DEFAULT_BODY)s

       if (camel_tvb)
           dissect_q931_cause_ie(camel_tvb, 0, tvb_length_remaining(camel_tvb,0), tree, hf_camel_cause_indicator, &Cause_value);


       return offset;
#.END
#----------------------------------------------------------------------------------------
#.FN_BODY RPCause VAL_PTR = &camel_tvb

       tvbuff_t *camel_tvb;
       guint8 Cause_value;

%(DEFAULT_BODY)s

       if (camel_tvb)
           dissect_RP_cause_ie(camel_tvb, 0, tvb_length_remaining(camel_tvb,0), tree, hf_camel_RP_Cause, &Cause_value);

       return offset;
#.END

#----------------------------------------------------------------------------------------
#.FN_BODY DateAndTime


/* 
* date_option = 1 european dd:mm:yyyy
* date_option = 2 american mm:dd:yyyy
*/

/*
* Output should be HH:MM:SS;dd/mm/yyyy
* if european is selected, and HH:MM:SS;mm/dd/yyyy
* otherwise.
*/

  guint8 digit_pair;
  guint8 i = 0, curr_offset; 
  char time[CAMEL_DATE_AND_TIME_LEN];
  char c[CAMEL_DATE_AND_TIME_LEN]; /*temporary container*/

  /* 2 digits per octet, 7 octets total + 5 delimiters */
    
  for (curr_offset = 0; curr_offset < 7 ; curr_offset++)    
  /*Loop to extract date*/
  {
      digit_pair = tvb_get_guint8(tvb, curr_offset);
      
      proto_tree_add_uint(tree,
                          hf_digit,
                          tvb,
                          curr_offset,
                          1,
                          digit_pair & 0x0F);

      proto_tree_add_uint(tree,
                          hf_digit,
                          tvb,
                          curr_offset,
                          1,
                          digit_pair >>4);
			  
      
      c[i] = camel_number_to_char( digit_pair & 0x0F);
      i++;
      c[i] = camel_number_to_char( digit_pair >>4);
      i++;
  }
  
  /* Pretty print date */
  /* XXX - Should we use sprintf here instead of assembling the string by
   * hand? */
  
  time[0] = c[8];
  time[1] = c[9];
  time[2] = ':';
  time[3] = c[10];
  time[4] = c[11];
  time[5] = ':';
  time[6] = c[12];
  time[7] = c[13];
  time[8] = ';';
  if ( EUROPEAN_DATE == date_format) /*european*/
  {
    time[9] = c[6]; /*day*/
    time[10] = c[7];
    time[11] = '/'; 
    time[12] = c[4]; /*month*/
    time[13] = c[5];
  }
  else /*american*/
  {
    time[9] = c[4]; /*month*/
    time[10] = c[5];
    time[11] = '/'; 
    time[12] = c[6]; /*day*/
    time[13] = c[7];
  }
  time[14] = '/';
  time[15] = c[0];
  time[16] = c[1];
  time[17] = c[2];
  time[18] = c[3];

  time[CAMEL_DATE_AND_TIME_LEN - 1] = '\0';
 
/*start = 0, length = 7*/
 
  proto_tree_add_string(tree, 
		      hf_index, 
		      tvb,
		      0, 
		      7, 
		      time);

  return 7; /* 7  octets eaten*/
#.END

#----------------------------------------------------------------------------------------
#.FN_BODY BearerCapability/bearerCap VAL_PTR = &parameter_tvb
 tvbuff_t	*parameter_tvb;

%(DEFAULT_BODY)s

 if (!parameter_tvb)
	return offset;

 dissect_q931_bearer_capability_ie(parameter_tvb, 0, tvb_length_remaining(parameter_tvb,0), tree);
#.END

#----------------------------------------------------------------------------------------
#.FN_BODY OriginalCalledPartyID VAL_PTR = &parameter_tvb

 tvbuff_t	*parameter_tvb;

%(DEFAULT_BODY)s

 if (!parameter_tvb)
	return offset;
 dissect_isup_original_called_number_parameter(parameter_tvb, tree, NULL);
#.END

#----------------------------------------------------------------------------------------
#.FN_PARS  RedirectingPartyID 

  VAL_PTR = &parameter_tvb

#.FN_BODY RedirectingPartyID 

 tvbuff_t	*parameter_tvb;

%(DEFAULT_BODY)s

 if (!parameter_tvb)
	return offset;
 dissect_isup_redirecting_number_parameter(parameter_tvb, tree, NULL);
#.END


#----------------------------------------------------------------------------------------
#.FN_BODY EndUserAddress/pDPTypeOrganization VAL_PTR = &parameter_tvb

 tvbuff_t	*parameter_tvb;

%(DEFAULT_BODY)s

 if (!parameter_tvb)
	return offset;
 PDPTypeOrganization  = (tvb_get_guint8(parameter_tvb,0) &0x0f);	
#.END

#----------------------------------------------------------------------------------------
#.FN_BODY EndUserAddress/pDPTypeNumber VAL_PTR = &parameter_tvb

 tvbuff_t	*parameter_tvb;
 proto_item *item;
 proto_tree *subtree;

%(DEFAULT_BODY)s

 if (!parameter_tvb)
	return offset;
 PDPTypeNumber = tvb_get_guint8(parameter_tvb,0);	
 item = get_ber_last_created_item();
 subtree = proto_item_add_subtree(item, ett_camel_pdptypenumber);
 switch (PDPTypeOrganization){
 case 0: /* ETSI */
	proto_tree_add_item(tree, hf_camel_PDPTypeNumber_etsi, parameter_tvb, 0, 1, FALSE);
	break;
 case 1: /* IETF */
	proto_tree_add_item(tree, hf_camel_PDPTypeNumber_ietf, parameter_tvb, 0, 1, FALSE);
	break;
 default:
	break;
 }
#.END


#.FN_BODY EndUserAddress/pDPAddress VAL_PTR = &parameter_tvb

 tvbuff_t	*parameter_tvb;
 proto_item *item;
 proto_tree *subtree;

%(DEFAULT_BODY)s

 if (!parameter_tvb)
	return offset;
 item = get_ber_last_created_item();
 subtree = proto_item_add_subtree(item, ett_camel_pdptypenumber);
 switch (PDPTypeOrganization){
 case 0: /* ETSI */
	break;
 case 1: /* IETF */
	switch(PDPTypeNumber){
	case 0x21: /* IPv4 */
		proto_tree_add_item(tree, hf_camel_PDPAddress_IPv4, parameter_tvb, 0, tvb_length(parameter_tvb), FALSE);
		break;
	case 0x57: /* IPv6 */
		proto_tree_add_item(tree, hf_camel_PDPAddress_IPv6, parameter_tvb, 0, tvb_length(parameter_tvb), FALSE);
		break;
	default:
		break;
	}
 default:
	break;

 }
#.END

#----------------------------------------------------------------------------------------
#.FN_BODY LocationInformationGPRS/cellGlobalIdOrServiceAreaIdOrLAI 
	proto_item *item;
	proto_tree *subtree;
	int start_offset;

 start_offset = offset;
%(DEFAULT_BODY)s

 item = get_ber_last_created_item();
 subtree = proto_item_add_subtree(item, ett_camel_pdptypenumber);

 if (tvb_reported_length_remaining(tvb,start_offset) == 7){
	dissect_gsm_map_CellGlobalIdOrServiceAreaIdFixedLength(TRUE, tvb, start_offset, actx, subtree, hf_camel_cellGlobalIdOrServiceAreaIdFixedLength);
 }else{
	dissect_gsm_map_LAIFixedLength(TRUE, tvb, start_offset, actx, subtree, hf_camel_locationAreaId);
 }			
#.END

#----------------------------------------------------------------------------------------
#.FN_BODY AChBillingChargingCharacteristics VAL_PTR = &parameter_tvb
 tvbuff_t	*parameter_tvb;
 proto_item *item;
 proto_tree *subtree;

%(DEFAULT_BODY)s
 if (!parameter_tvb)
	return offset;
 item = get_ber_last_created_item();
 subtree = proto_item_add_subtree(item, ett_camel_CAMEL_AChBillingChargingCharacteristics);
 dissect_camel_CAMEL_AChBillingChargingCharacteristics(FALSE, parameter_tvb, 0, actx, subtree, hf_camel_CAMEL_AChBillingChargingCharacteristics);

#.FN_BODY FCIBillingChargingCharacteristics VAL_PTR = &parameter_tvb
 tvbuff_t	*parameter_tvb;
%(DEFAULT_BODY)s
 if (!parameter_tvb)
	return offset;
 dissect_camel_CAMEL_FCIBillingChargingCharacteristics(FALSE, parameter_tvb, 0, actx, tree, -1);

#.FN_BODY FCIGPRSBillingChargingCharacteristics VAL_PTR = &parameter_tvb
 tvbuff_t	*parameter_tvb;
%(DEFAULT_BODY)s
 if (!parameter_tvb)
	return offset;
 dissect_camel_CAMEL_FCIGPRSBillingChargingCharacteristics(FALSE, parameter_tvb, 0, actx, tree, -1);

#.FN_BODY FCISMSBillingChargingCharacteristics VAL_PTR = &parameter_tvb
 tvbuff_t	*parameter_tvb;
%(DEFAULT_BODY)s
 if (!parameter_tvb)
	return offset;
 dissect_camel_CAMEL_FCISMSBillingChargingCharacteristics(FALSE, parameter_tvb, 0, actx, tree, -1);

#.FN_BODY SCIBillingChargingCharacteristics VAL_PTR = &parameter_tvb
 tvbuff_t	*parameter_tvb;
%(DEFAULT_BODY)s
 if (!parameter_tvb)
	return offset;
 dissect_camel_CAMEL_SCIBillingChargingCharacteristics(FALSE, parameter_tvb, 0, actx, tree, -1);

#.FN_BODY SCIGPRSBillingChargingCharacteristics VAL_PTR = &parameter_tvb
 tvbuff_t	*parameter_tvb;
%(DEFAULT_BODY)s
 if (!parameter_tvb)
	return offset;
 dissect_camel_CAMEL_SCIGPRSBillingChargingCharacteristics(FALSE, parameter_tvb, 0, actx, tree, -1);

#.FN_BODY CallResult VAL_PTR = &parameter_tvb
 tvbuff_t	*parameter_tvb;
%(DEFAULT_BODY)s
 if (!parameter_tvb)
	return offset;
 dissect_camel_CAMEL_CallResult(FALSE, parameter_tvb, 0, actx, tree, -1);


#.TYPE_ATTR
PDPTypeOrganization TYPE = FT_UINT8  DISPLAY = BASE_DEC  BITMASK = 0x0f STRINGS = VALS(gsm_map_PDP_Type_Organisation_vals)
DateAndTime	TYPE = FT_STRING DISPLAY = NONE
AccessPointName	TYPE = FT_STRING DISPLAY = NONE
Code/local TYPE = FT_INT32  DISPLAY = BASE_DEC  STRINGS = VALS(camel_opr_code_strings)
#.END