~rdoering/ubuntu/karmic/erlang/fix-535090

%%<copyright>

%% <year>1997-2008</year>

%% <holder>Ericsson AB, All Rights Reserved</holder>

%%</copyright>

%%<legalnotice>

%% The contents of this file are subject to the Erlang Public License,

%% retrieved online at http://www.erlang.org/.

%%

%%

%% The Initial Developer of the Original Code is Ericsson AB.

%%</legalnotice>

            emit(["DV = V,",nl]);

        _ ->

        {constructed,bif} ->

            emit(["   ",{asis,ensure_atom(list2name([N,Name]))},"(",DefVal,",",Val,")"]);

            emit(["   if",nl,

                  "      ",DefVal," == ",Val," -> true;",nl,

                  "      true -> throw({error,{asn1_open_type}})",nl,

                  "   end",nl])

    NoFinalPadding = lists:member(no_final_padding,get(encoding_options)),

               ber_bin_v2 -> "encode_disp(Type,Data)";

               uper_bin when NoFinalPadding == true -> 

                   "?RT_PER:complete_NFP(encode_disp(Type,Data))";

               uper_bin -> "?RT_PER:complete(encode_disp(Type,Data))"

        {uper_bin,true} ->

            emit(["  {X,{_,Rest}} ->",nl,

                  "    {ok,X,Rest};",nl,

                  "  {X,{_,Rest},_Len} ->",nl,

                  "    {ok,X,Rest};",nl,

                  "  {X,Rest} ->",nl,

                  "    {ok,X,Rest};",nl,

                  "  {X,Rest,_Len} ->",nl,

                  "    {ok,X,Rest}",nl]);

                          {record,to_textual_order(Set#'SET'.components)};

                          {record,to_textual_order(Set#'SET'.components)}

                            [_H|_] when Rootl2 /= [] -> emit([",",nl]);

                            _ -> ok

                            {"RT_BER","asn1rt_ber_bin_v2"};

                        uper_bin ->

                            emit(["%% Generated by the Erlang ASN.1 UNALIGNED"

                                  " PER-compiler version, utilizing"

                                  " bit-syntax:",

                                  asn1ct:vsn(),nl]),

                            {"RT_PER","asn1rt_uper_bin"}

%% May only be a list or a two-tuple.

to_textual_order({Root,Ext}) ->

    {to_textual_order(Root),Ext};

to_textual_order(Cs={_R1,_Ext,_R2}) ->

    Cs;

to_textual_order(Cs=[#'ComponentType'{textual_order=undefined}|_]) ->

    Cs;

to_textual_order(Cs) when is_list(Cs) ->

    lists:keysort(#'ComponentType'.textual_order,Cs).

    

 

            lookahead_innertype(NameList,InnerType,Type);

        _ ->

            %% Generate Dummy function call i.e. anything is accepted

            emit(["fun() -> true end ()"])

        'RELATIVE-OID' ->

            emit({"asn1rt_check:check_objectidentifier(",DefaultValue,

                  ", ",Element,")"});

    _Info = ets:info(Table),