megaco_test_msg_prev3c_lib.erl

OTP是开放电信平台的简称

cre_ActionRequest(CtxID, CtxReq, CAAR, CmdReqs) 
  when is_integer(CtxID) and 
       (is_record(CtxReq, 'ContextRequest') or 
	(CtxReq == asn1_NOVALUE)) and
       (is_record(CAAR, 'ContextAttrAuditRequest') or 
	(CAAR == asn1_NOVALUE)) and
       is_list(CmdReqs) ->
    #'ActionRequest'{contextId           = CtxID,
		     contextRequest      = CtxReq,
		     contextAttrAuditReq = CAAR,
		     commandRequests     = CmdReqs}.

cre_ActionReply(CtxID, CmdReps) 
  when integer(CtxID), 
       list(CmdReps) ->
    #'ActionReply'{contextId    = CtxID,
		   commandReply = CmdReps}.

cre_ActionReply(CtxID, ED, CmdReps) 
  when integer(CtxID), 
       record(ED, 'ErrorDescriptor'), 
       list(CmdReps) ->
    #'ActionReply'{contextId       = CtxID,
		   errorDescriptor = ED, 
		   commandReply    = CmdReps};
cre_ActionReply(CtxID, CtxReq, CmdReps) 
  when is_integer(CtxID) and
       is_record(CtxReq, 'ContextRequest') and
       is_list(CmdReps) ->
    #'ActionReply'{contextId    = CtxID,
		   contextReply = CtxReq, 
		   commandReply = CmdReps}.

cre_ActionReply(CtxID, ED, CtxReq, CmdReps) 
  when is_integer(CtxID) and
       (is_record(ED, 'ErrorDescriptor') or (ED == asn1_NOVALUE)) and
       (is_record(CtxReq, 'ContextRequest') or (CtxReq == asn1_NOVALUE)) and
       is_list(CmdReps) ->
    #'ActionReply'{contextId       = CtxID,
		   errorDescriptor = ED, 
		   contextReply    = CtxReq, 
		   commandReply    = CmdReps}.

cre_ContextRequest() ->
    strip_ContextRequest(#'ContextRequest'{}).

cre_ContextRequest(Prio) when integer(Prio), 0 =< Prio, Prio =< 15 ->
    strip_ContextRequest(#'ContextRequest'{priority = Prio});
cre_ContextRequest(Em) when Em == true; Em == false; Em == asn1_NOVALUE ->
    strip_ContextRequest(#'ContextRequest'{emergency = Em});
cre_ContextRequest(Top) when list(Top) ->
    strip_ContextRequest(#'ContextRequest'{topologyReq = Top}).

cre_ContextRequest(Prio, Em) 
  when (is_integer(Prio) and (0 =< Prio) and (Prio =< 15)) and 
       ((Em == true) or (Em == false) or (Em == asn1_NOVALUE)) ->
    CR = #'ContextRequest'{priority  = Prio,
			   emergency = Em},
    strip_ContextRequest(CR);
cre_ContextRequest(Prio, Top) 
  when integer(Prio), 0 =< Prio, Prio =< 15, list(Top) ->
    CR = #'ContextRequest'{priority    = Prio,
			   topologyReq = Top},
    strip_ContextRequest(CR).

cre_ContextRequest(Prio, Em, Top) 
  when (is_integer(Prio) and (0 =< Prio) and (Prio =< 15)) and 
       ((Em == true) or (Em == false) or (Em == asn1_NOVALUE)) and
       (is_list(Top) or (Top == asn1_NOVALUE)) ->
    CR = #'ContextRequest'{priority    = Prio,
			   emergency   = Em,
			   topologyReq = Top},
    strip_ContextRequest(CR).

cre_ContextRequest(Prio, Em, Top, Ieps) 
  when (is_integer(Prio) and (0 =< Prio) and (Prio =< 15)) and 
       ((Em == true) or (Em == false) or (Em == asn1_NOVALUE)) and
       (is_list(Top) or (Top == asn1_NOVALUE)) and
       ((Ieps == true) or (Ieps == false)) ->
    CR = #'ContextRequest'{priority       = Prio,
			   emergency      = Em,
			   topologyReq    = Top,
			   iepscallind    = Ieps},
    strip_ContextRequest(CR);
cre_ContextRequest(Prio, Em, Top, Ctx) 
  when ((is_integer(Prio) and (0 =< Prio) and (Prio =< 15)) or 
	(Prio == asn1_NOVALUE)) and 
       ((Em == true) or (Em == false) or (Em == asn1_NOVALUE)) and
       (is_list(Top) or (Top == asn1_NOVALUE)) and
       (is_list(Ctx)) ->
    CR = 
	case context_list_or_prop(Ctx) of
	    contextProp ->
		#'ContextRequest'{priority    = Prio,
				  emergency   = Em,
				  topologyReq = Top,
				  contextProp = Ctx};
	    contextList ->
		#'ContextRequest'{priority    = Prio,
				  emergency   = Em,
				  topologyReq = Top,
				  contextList = Ctx}
	end,
    strip_ContextRequest(CR).

cre_ContextRequest(Prio, Em, Top, Ieps, Ctx) 
  when ((is_integer(Prio) and (0 =< Prio) and (Prio =< 15)) or 
	(Prio == asn1_NOVALUE)) and 
       ((Em == true) or (Em == false) or (Em == asn1_NOVALUE)) and
       (is_list(Top) or (Top == asn1_NOVALUE)) and
       ((Ieps == true) or (Ieps == false) or (Ieps == asn1_NOVALUE)) and
       (is_list(Ctx)) ->
    CR = 
	case context_list_or_prop(Ctx) of
	    contextProp ->
		#'ContextRequest'{priority    = Prio,
				  emergency   = Em,
				  topologyReq = Top,
				  iepscallind = Ieps,
				  contextProp = Ctx};
	    contextList ->
		#'ContextRequest'{priority    = Prio,
				  emergency   = Em,
				  topologyReq = Top,
				  iepscallind = Ieps,
				  contextList = Ctx}
	end,
    strip_ContextRequest(CR).

cre_ContextRequest(Prio, Em, Top, Ieps, CtxProp, CtxList) 
  when ((is_integer(Prio) and (0 =< Prio) and (Prio =< 15)) or 
	(Prio == asn1_NOVALUE)) and 
       ((Em == true) or (Em == false) or (Em == asn1_NOVALUE)) and
       (is_list(Top) or (Top == asn1_NOVALUE)) and
       ((Ieps == true) or (Ieps == false) or (Ieps == asn1_NOVALUE)) and
       (is_list(CtxProp) or (CtxProp == asn1_NOVALUE)) and
       (is_list(CtxList) or (CtxList == asn1_NOVALUE)) ->
    CR = #'ContextRequest'{priority    = Prio,
			   emergency   = Em,
			   topologyReq = Top,
			   iepscallind = Ieps,
			   contextProp = CtxProp,
			   contextList = CtxList},
    strip_ContextRequest(CR).

context_list_or_prop(asn1_NOVALUE) ->
    contextProp;
context_list_or_prop([]) ->
    contextProp;
context_list_or_prop([H|T]) ->
    case is_ContextID(H) of
	true ->
	    context_list_or_prop(T, contextList);
	false ->
	    context_list_or_prop(T, contextProp)
    end.

context_list_or_prop([], What) ->
    What;
context_list_or_prop([H|T], What) ->
    case is_ContextID(H) of
	true when What == contextList ->
	    context_list_or_prop(T, What);
	false when What == contextProp ->
	    context_list_or_prop(T, What);
	_ ->
	    error({invalid_contextListOrProp, H, What})
    end.
    
strip_ContextRequest(#'ContextRequest'{priority    = asn1_NOVALUE,
				       emergency   = asn1_NOVALUE,
				       topologyReq = asn1_NOVALUE,
				       iepscallind = asn1_NOVALUE,
				       contextProp = asn1_NOVALUE}) ->
    asn1_NOVALUE;
strip_ContextRequest(#'ContextRequest'{priority    = asn1_NOVALUE,
				       emergency   = asn1_NOVALUE,
				       topologyReq = Top,
				       iepscallind = Ieps,
				       contextProp = Prop} = CR) ->
    case (((Top  == [])    or (Top  == asn1_NOVALUE)) and
	  ((Ieps == false) or (Ieps == asn1_NOVALUE)) and
	  ((Prop == [])    or (Prop == asn1_NOVALUE))) of
	true ->
	    asn1_NOVALUE;
	false ->
	    CR
    end;
strip_ContextRequest(CR) ->
    CR.

cre_ContextAttrAuditRequest() ->
    strip_ContextAttrAuditRequest(#'ContextAttrAuditRequest'{}).

cre_ContextAttrAuditRequest(Top, Em, Prio) 
  when ((Top  == 'NULL') or (Top  == asn1_NOVALUE)) and
       ((Em   == 'NULL') or (Em   == asn1_NOVALUE)) and
       ((Prio == 'NULL') or (Prio == asn1_NOVALUE)) ->
    CAAR = #'ContextAttrAuditRequest'{topology  = Top,
				      emergency = Em,
				      priority  = Prio},
    strip_ContextAttrAuditRequest(CAAR).

cre_ContextAttrAuditRequest(Top, Em, Prio, Ieps) 
  when ((Top  == 'NULL') or (Top  == asn1_NOVALUE)) and
       ((Em   == 'NULL') or (Em   == asn1_NOVALUE)) and
       ((Prio == 'NULL') or (Prio == asn1_NOVALUE)) and
       ((Ieps == 'NULL') or (Ieps == asn1_NOVALUE)) ->
    CAAR = #'ContextAttrAuditRequest'{topology    = Top,
				      emergency   = Em,
				      priority    = Prio,
				      iepscallind = Ieps},
    strip_ContextAttrAuditRequest(CAAR).

cre_ContextAttrAuditRequest(Top, Em, Prio, Ieps, Ctx) 
  when ((Top  == 'NULL') or (Top  == asn1_NOVALUE)) and
       ((Em   == 'NULL') or (Em   == asn1_NOVALUE)) and
       ((Prio == 'NULL') or (Prio == asn1_NOVALUE)) and
       ((Ieps == 'NULL') or (Ieps == asn1_NOVALUE)) and
       (is_list(Ctx)     or (Ctx == asn1_NOVALUE)) ->
    CAAR = #'ContextAttrAuditRequest'{topology       = Top,
				      emergency      = Em,
				      priority       = Prio,
				      iepscallind    = Ieps,
				      contextPropAud = Ctx},
    strip_ContextAttrAuditRequest(CAAR).

cre_ContextAttrAuditRequest(Top, Em, Prio, Ieps, Ctx, SelPrio) 
  when ((Top  == 'NULL') or (Top  == asn1_NOVALUE)) and
       ((Em   == 'NULL') or (Em   == asn1_NOVALUE)) and
       ((Prio == 'NULL') or (Prio == asn1_NOVALUE)) and
       ((Ieps == 'NULL') or (Ieps == asn1_NOVALUE)) and
       (is_list(Ctx)     or (Ctx  == asn1_NOVALUE)) and
       ((is_integer(SelPrio) and ((0 =< SelPrio) and (SelPrio =< 15))) or
	(SelPrio == asn1_NOVALUE)) ->
    CAAR = #'ContextAttrAuditRequest'{topology       = Top,
				      emergency      = Em,
				      priority       = Prio,
				      iepscallind    = Ieps,
				      contextPropAud = Ctx,
				      selectpriority = SelPrio},
    strip_ContextAttrAuditRequest(CAAR).

cre_ContextAttrAuditRequest(Top, Em, Prio, Ieps, Ctx, SelPrio, SelLog) 
  when ((Top  == 'NULL') or (Top  == asn1_NOVALUE)) and
       ((Em   == 'NULL') or (Em   == asn1_NOVALUE)) and
       ((Prio == 'NULL') or (Prio == asn1_NOVALUE)) and
       ((Ieps == 'NULL') or (Ieps == asn1_NOVALUE)) and
       (is_list(Ctx)     or (Ctx  == asn1_NOVALUE)) and
       ((is_integer(SelPrio) and ((0 =< SelPrio) and (SelPrio =< 15))) or
	(SelPrio == asn1_NOVALUE)) ->
    case ((SelLog == asn1_NOVALUE) orelse is_SelectLogic(SelLog)) of
	true ->
	    CAAR = #'ContextAttrAuditRequest'{topology       = Top,
					      emergency      = Em,
					      priority       = Prio,
					      iepscallind    = Ieps,
					      contextPropAud = Ctx,
					      selectpriority = SelPrio,
					      selectLogic    = SelLog},
	    strip_ContextAttrAuditRequest(CAAR);
	false ->
	    error({invalid_SelectLogic, SelLog, 
		   ['ContextAttrAuditRequest', 
		    Top, Em, Prio, Ieps, Ctx, SelPrio]})
    end.

cre_ContextAttrAuditRequest(Top, Em, Prio, Ieps, Ctx, 
			    SelPrio, SelEm, SelIeps) 
  when ((Top  == 'NULL') or (Top  == asn1_NOVALUE)) and
       ((Em   == 'NULL') or (Em   == asn1_NOVALUE)) and
       ((Prio == 'NULL') or (Prio == asn1_NOVALUE)) and
       ((Ieps == 'NULL') or (Ieps == asn1_NOVALUE)) and
       (is_list(Ctx)     or (Ctx  == asn1_NOVALUE)) and
       ((is_integer(SelPrio) and ((0 =< SelPrio) and (SelPrio =< 15))) or
	(SelPrio == asn1_NOVALUE)) and
       ((SelEm == true)  or 
	(SelEm == false) or 
	(SelEm == asn1_NOVALUE)) and
       ((SelIeps == true)  or 
	(SelIeps == false) or 
	(SelIeps == asn1_NOVALUE)) ->
    CAAR = #'ContextAttrAuditRequest'{topology          = Top,
				      emergency         = Em,
				      priority          = Prio,
				      iepscallind       = Ieps,
				      contextPropAud    = Ctx,
				      selectpriority    = SelPrio,
				      selectemergency   = SelEm,
				      selectiepscallind = SelIeps},
    strip_ContextAttrAuditRequest(CAAR).

cre_ContextAttrAuditRequest(Top, Em, Prio, Ieps, Ctx, 
			    SelPrio, SelEm, SelIeps, SelLog) 
  when ((Top  == 'NULL') or (Top  == asn1_NOVALUE)) and
       ((Em   == 'NULL') or (Em   == asn1_NOVALUE)) and
       ((Prio == 'NULL') or (Prio == asn1_NOVALUE)) and
       ((Ieps == 'NULL') or (Ieps == asn1_NOVALUE)) and
       (is_list(Ctx)     or (Ctx  == asn1_NOVALUE)) and
       ((is_integer(SelPrio) and ((0 =< SelPrio) and (SelPrio =< 15))) or
	(SelPrio == asn1_NOVALUE)) and
       ((SelEm == true)  or 
	(SelEm == false) or 
	(SelEm == asn1_NOVALUE)) and
       ((SelIeps == true)  or 
	(SelIeps == false) or 
	(SelIeps == asn1_NOVALUE)) ->
    case ((SelLog == asn1_NOVALUE) orelse is_SelectLogic(SelLog)) of
	true ->
	    CAAR = #'ContextAttrAuditRequest'{topology          = Top,
					      emergency         = Em,
					      priority          = Prio,
					      iepscallind       = Ieps,
					      contextPropAud    = Ctx,
					      selectpriority    = SelPrio,
					      selectemergency   = SelEm,
					      selectiepscallind = SelIeps,
					      selectLogic       = SelLog},
	    strip_ContextAttrAuditRequest(CAAR);
	false ->
	    error({invalid_SelectLogic, SelLog})
    end.

strip_ContextAttrAuditRequest(
  #'ContextAttrAuditRequest'{topology       = asn1_NOVALUE,
			     emergency      = asn1_NOVALUE,
			     priority       = asn1_NOVALUE,
			     iepscallind    = asn1_NOVALUE,
			     contextPropAud = asn1_NOVALUE}) ->
    asn1_NOVALUE;
strip_ContextAttrAuditRequest(
  #'ContextAttrAuditRequest'{topology       = asn1_NOVALUE,
			     emergency      = asn1_NOVALUE,
			     priority       = asn1_NOVALUE,
			     iepscallind    = asn1_NOVALUE,
			     contextPropAud = []}) ->
    asn1_NOVALUE;
strip_ContextAttrAuditRequest(CAAR) ->
    CAAR.


cre_SelectLogic(andAUDITSelect = SL) ->
    {SL, 'NULL'};
cre_SelectLogic(orAUDITSelect = SL) ->
    {SL, 'NULL'};
cre_SelectLogic(asn1_NOVALUE) ->
    asn1_NOVALUE.


cre_CommandRequest(Cmd) ->
    #'CommandRequest'{command = Cmd}.

cre_CommandRequest(Cmd, Opt) 
  when ((Opt == 'NULL') or (Opt == asn1_NOVALUE)) ->
    #'CommandRequest'{command  = Cmd,
		      optional = Opt}.

cre_CommandRequest(Cmd, Opt, WR) 
  when ((Opt == 'NULL') or (Opt == asn1_NOVALUE)) and 
       ((WR  == 'NULL') or (WR  == asn1_NOVALUE)) ->
    #'CommandRequest'{command        = Cmd,
		      optional       = Opt,
		      wildcardReturn = WR}.

cre_Command(addReq = Tag, Req) 
  when record(Req, 'AmmRequest') ->
    {Tag, Req};
cre_Command(moveReq = Tag, Req) 
  when record(Req, 'AmmRequest') ->
    {Tag, Req};
cre_Command(modReq = Tag, Req) 
  when record(Req, 'AmmRequest') ->
    {Tag, Req};
cre_Command(subtractReq = Tag, Req) 
  when record(Req, 'SubtractRequest') ->
    {Tag, Req};
cre_Command(auditCapRequest = Tag, Req) 
  when record(Req, 'AuditRequest') ->
    {Tag, Req};
cre_Command(auditValueRequest = Tag, Req) 
  when record(Req, 'AuditRequest') ->
    {Tag, Req};
cre_Command(notifyReq = Tag, Req) 
  when record(Req, 'NotifyRequest') ->