CWMP

cwmp.erl

-module(cwmp).

-author("Wisher").
-email("hustitecwisher@gmail.com").

-export([create_model/1]).

-include_lib("xmerl/include/xmerl.hrl").

create_model({_, _, Xml}) ->
    process(Xml, []).

process([], Result) ->
    lists:reverse(Result);
process([{Tag, Attr, Content} | Rest], Result) ->
    case lists:keyfind(name, 1, Attr) of
        {name, Name} ->
            Attr2 = lists:keydelete(name, 1, Attr),
            case lists:keyfind(Tag, 1, Result) of
                {Tag, TagList} ->
                    TR = lists:reverse(TagList),
                    T2 = [{Name, Attr2 ++ process(Content, [])} | TR],
                    R = lists:keystore(Tag, 1, Result, {Tag,
                        lists:reverse(T2)});
                false ->
                    R = [{Tag,
                        [{Name, Attr2 ++ process(Content, [])}]} | Result]
            end;
        false ->
            R = [{Tag, Attr ++ process(Content, [])} | Result]
    end,
    process(Rest, R).