xpath

%% xpath_utils.erl
%% @author Pablo Polvorin 
%% @doc Utility functions, mainly for type conversion
%%      Conversion rules taken from http://www.w3.org/TR/1999/REC-xpath-19991116
%% created on 2008-05-07
-module(xpath_utils).

-export([string_value/1,
        number_value/1,
        node_set_value/1,
        boolean_value/1,
        convert/2]).

-spec string_value(xpath:indexed_xpath_return()) -> binary().
string_value(N) when is_list(N)->
    case N of
        [X|_] -> string_value(X);
        [] -> <<>>
    end;
string_value({_,_,Contents,_}) ->
    %% Node
    L = lists:filter(fun
                    ({_,_,_,_}) ->false;
                    (B) when is_binary(B) -> true
        end,Contents),
    list_to_binary(L);
string_value({_Name, Value}) ->
    %% attribute
    Value;
string_value(N) when is_integer(N) ->
    list_to_binary(integer_to_list(N));
string_value(B) when is_binary(B) ->
    B;
string_value(B) when is_atom(B) ->
    list_to_binary(atom_to_list(B));
string_value(Expr) ->
	%% string_value(mochiweb_xpath:execute_expr(Expr, Ctx)).
	throw({not_implemented, "String from expression", Expr}).

-spec node_set_value(xpath:indexed_xpath_return()) -> [xpath:indexed_html_node()].
node_set_value(List) when is_list(List) ->
    List;
node_set_value(N) ->
    throw({node_set_expected,N}).

-spec number_value(xpath:indexed_xpath_return() | binary()) -> number().
number_value(N) when is_integer(N) or is_float(N) ->
    N;
number_value({number, N}) when is_integer(N) or is_float(N) ->
	N;
number_value({negative, Exp}) ->
	N = number_value(Exp),
	- N;
number_value(N) when is_binary(N)->
    String = binary_to_list(N),
    case erl_scan:string(String) of
        {ok, [{integer,1,I}],1} -> I;
        {ok, [{float,1,F}],1} -> F
    end;
    
number_value(N) ->
    number_value(string_value(N)).

-spec boolean_value(xpath:indexed_xpath_return()) -> boolean().
boolean_value([]) ->
    false;
boolean_value([_|_]) ->
    true;
boolean_value(N) when is_number(N) ->
    N /= 0;
boolean_value(B) when is_binary(B) ->
    size(B) /= 0;
boolean_value(B) when is_boolean(B) ->
    B;
boolean_value({_, _, _Contents, _}) ->
    true;  % TODO: rly?
boolean_value(_Expr) ->
    throw({not_implemented, "Boolean from expression"}).




convert(Value,number) ->
    number_value(Value);
convert(Value,string) ->
    string_value(Value);
convert(Value,node_set) ->
    node_set_value(Value);
convert(Value, boolean) ->
    boolean_value(Value).