← Back to branch summary

~ubuntu-branches/ubuntu/trusty/erlang/trusty

« back to all changes in this revision

Viewing changes to lib/xmerl/src/xmerl_xpath_pred.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-06-11 12:18:07 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20090611121807-ks7eb4xrt7dsysgx
Tags: 1:13.b.1-dfsg-1
http://bugs.debian.org/529512
* New upstream release.
* Removed unnecessary dependency of erlang-os-mon on erlang-observer and
  erlang-tools and added missing dependency of erlang-nox on erlang-os-mon
  (closes: #529512).
* Removed a patch to eunit application because the bug was fixed upstream.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/xmerl/src/xmerl_xpath_pred.erl
444
444
    ?string(Txt);
445
445
string_value(infinity) -> ?string("Infinity");
446
446
string_value(neg_infinity) -> ?string("-Infinity");
447
 
string_value(A) when atom(A) ->
 
447
string_value(A) when is_atom(A) ->
448
448
    ?string(atom_to_list(A));
449
 
string_value(N) when integer(N) ->
 
449
string_value(N) when is_integer(N) ->
450
450
    ?string(integer_to_list(N));
451
 
string_value(N) when float(N) ->
 
451
string_value(N) when is_float(N) ->
452
452
    N1 = round(N * 10000000000000000),
453
453
    ?string(strip_zeroes(integer_to_list(N1)));
454
454
string_value(Str) when is_list(Str) ->
646
646
 
647
647
round(C, [Arg]) ->
648
648
    case mk_number(C, Arg) of
649
 
        A when atom(A) ->
 
649
        A when is_atom(A) ->
650
650
            A;
651
 
        N when integer(N) ->
 
651
        N when is_integer(N) ->
652
652
            N;
653
 
        F when float(F) ->
 
653
        F when is_float(F) ->
654
654
            round(F)
655
655
    end.
656
656
 
704
704
 
705
705
 
706
706
 
707
 
mk_integer(_C0, #xmlObj{type = number, value = V}) when float(V)  ->
 
707
mk_integer(_C0, #xmlObj{type = number, value = V}) when is_float(V)  ->
708
708
    round(V);
709
 
mk_integer(_C0, #xmlObj{type = number, value = V}) when integer(V)  ->
 
709
mk_integer(_C0, #xmlObj{type = number, value = V}) when is_integer(V)  ->
710
710
    V;
711
711
mk_integer(C, Expr) ->
712
712
    mk_integer(C, expr(Expr, C)).
730
730
    V;
731
731
mk_boolean(_C, #xmlObj{type = number, value = 0}) ->
732
732
    false;
733
 
mk_boolean(_C, #xmlObj{type = number, value = V}) when float(V) ; integer(V) ->
 
733
mk_boolean(_C, #xmlObj{type = number, value = V}) when is_float(V) ; is_integer(V) ->
734
734
    true;
735
735
mk_boolean(_C, #xmlObj{type = nodeset, value = []}) ->
736
736
    false;