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

         name/2,

         string/2,

-export([core_function/1]).      

    ?boolean(compare_eq_format(N1,N2,C) /= compare_eq_format(N2,N1,C)).

    WD = C#xmlContext.whole_document,

    NS0 = [WD],

    Obj = mk_object(C,Arg),

    case Obj#xmlObj.type of

            NodeSet = Obj#xmlObj.value,

            StrVal = string_value(Obj#xmlObj.value),

            NodeSet = [(WD#xmlNode.node)#xmlDocument.content],

            NewNodeSet = lists:foldl(

                           fun(Tok, AccX) ->

                                   select_on_attribute(NodeSet, id, Tok, AccX)

                           end, [], IdTokens),

            ?nodeset(NewNodeSet)

            

local_name1([#xmlNode{type=element,node=El}|_]) ->

    #xmlElement{name=Name,nsinfo=NSI} = El,

    local_name2(Name,NSI);

local_name1([#xmlNode{type=attribute,node=Att}|_]) ->

    #xmlAttribute{name=Name,nsinfo=NSI} = Att,

    local_name2(Name,NSI);

    local_name2(Name,NSI).

local_name2(Name, NSI) ->

            ?string(atom_to_list(Name))

    ns_uri2(NSI,NS);

ns_uri([#xmlNode{type=element,node=El}|_]) ->

    #xmlElement{nsinfo=NSI, namespace = NS} = El,

    ns_uri2(NSI,NS);

ns_uri([#xmlNode{type=attribute,node=Att}|_]) ->

    #xmlAttribute{nsinfo=NSI, namespace = NS} = Att,

    ns_uri2(NSI,NS);

ns_uri(_) ->

    ?string([]).

 

ns_uri2(NSI,NS) ->

                    string_value(V)

            ?string([])

%% name(node-set) -> xmlObj{type=string}

%% The name function returns a string containing the QName of the node

%% first in document order. The representation of the QName is not

%% standardized and applications have their own format. At

%% http://xml.coverpages.org/clarkNS-980804.html (the author of XPath)

%% adopts the format "namespace URI"+"local-name" but according to

%% other sources it is more common to use the format:

%% '{'"namespace URI"'}'"local-name". This function also uses this

%% latter form.

name(C,[]) ->

    name1(default_nodeset(C));

name(C, [Arg]) ->

    name1(mk_nodeset(C, Arg)).

name1([]) ->

    ?string([]);

name1(NodeSet) ->

    NSVal =

        case ns_uri(NodeSet) of

            #xmlObj{value=NSStr} when NSStr =/= [] ->

                "{"++NSStr++"}";

            _ ->

                ""

        end,

    #xmlObj{value=LocalName} = local_name1(NodeSet),

    ?string(NSVal++LocalName).

        

          

string_value(T=#xmlNode{type=text}) ->

    #xmlText{value=Txt} = T#xmlNode.node,

    ?string(Txt);

    ?string(strip_zeroes(integer_to_list(N1)));

string_value(Str) when is_list(Str) ->

    ?string(Str).

    ?boolean(lists:prefix(mk_string(C, A2), mk_string(C, A1))).