1756
1756
PP = TSD#'TerminationStateDescriptor'.propertyParms,
1757
1757
TSD#'TerminationStateDescriptor'{propertyParms = lists:reverse(PP)}.
1759
-ifdef(megaco_nscanner_props).
1759
1761
-ifdef(megaco_parser_inline).
1760
1762
-compile({inline,[{ensure_prop_groups,1}]}).
1843
1845
#'PropertyParm'{name = lists:reverse(Name),
1844
1846
value = [lists:reverse(Value)]}.
1848
-else. % -ifdef(megaco_nscanner_props).
1850
-ifdef(megaco_parser_inline).
1851
-compile({inline,[{ensure_prop_groups,1}]}).
1853
ensure_prop_groups(Token) ->
1854
{_TokenTag, _Line, Groups} = Token,
1857
%% -ifdef(megaco_parser_inline).
1858
%% -compile({inline,[{do_ensure_prop_groups,1}]}).
1860
%% do_ensure_prop_groups(Groups) when is_list(Groups) ->
1861
%% [ensure_prop_group(Group) || Group <- Groups];
1862
%% do_ensure_prop_groups(BadGroups) ->
1863
%% throw({error, {?MODULE, {bad_property_groups, BadGroups}}}).
1865
%% -ifdef(megaco_parser_inline).
1866
%% -compile({inline,[{ensure_prop_group,1}]}).
1868
%% ensure_prop_group(Group) when is_list(Group) ->
1869
%% [ensure_prop_parm(PropParm) || PropParm <- Group];
1870
%% ensure_prop_group(BadGroup) ->
1871
%% throw({error, {?MODULE, {bad_property_group, BadGroup}}}).
1873
%% -ifdef(megaco_parser_inline).
1874
%% -compile({inline,[{ensure_prop_parm,1}]}).
1876
%% ensure_prop_parm(#property_parm{name = Name,
1877
%% value = Value}) ->
1878
%% #'PropertyParm'{name = Name,
1880
%% ensure_prop_parm(PP) when is_record(PP, 'PropertyParm') ->
1882
%% ensure_prop_parm(BadPropParm) ->
1883
%% throw({error, {?MODULE, {bad_property_parm, BadPropParm}}}).
1885
-endif. % -ifdef(megaco_nscanner_props).
1846
1887
-ifdef(megaco_parser_inline).
1847
1888
-compile({inline,[{ensure_uint,3}]}).