diff options
| author | Norbert Preining <preining@logic.at> | 2010-05-12 16:54:37 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2010-05-12 16:54:37 +0000 |
| commit | 661c41a09e39a182865e0b51e34cc995a0dc96e8 (patch) | |
| tree | 2f79bb1406e22fdcb2587be8ffda6c0c609d7932 /Master/tlpkg/tlperl/lib/overload | |
| parent | b645030efc22e13c2498a1522083634ab91b2de1 (diff) | |
move tlperl.straw to tlperl
git-svn-id: svn://tug.org/texlive/trunk@18210 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/overload')
| -rwxr-xr-x | Master/tlpkg/tlperl/lib/overload/numbers.pm | 159 |
1 files changed, 159 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/overload/numbers.pm b/Master/tlpkg/tlperl/lib/overload/numbers.pm new file mode 100755 index 00000000000..2e9e9ac1d9a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/overload/numbers.pm @@ -0,0 +1,159 @@ +# -*- buffer-read-only: t -*- +# +# lib/overload/numbers.pm +# +# Copyright (C) 2008 by Larry Wall and others +# +# You may distribute under the terms of either the GNU General Public +# License or the Artistic License, as specified in the README file. +# +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by overload.pl +# + +package overload::numbers; + +our @names = qw# + () + (${} + (@{} + (%{} + (*{} + (&{} + (++ + (-- + (bool + (0+ + ("" + (! + (= + (abs + (neg + (<> + (int + (< + (<= + (> + (>= + (== + (!= + (lt + (le + (gt + (ge + (eq + (ne + (nomethod + (+ + (+= + (- + (-= + (* + (*= + (/ + (/= + (% + (%= + (** + (**= + (<< + (<<= + (>> + (>>= + (& + (&= + (| + (|= + (^ + (^= + (<=> + (cmp + (~ + (atan2 + (cos + (sin + (exp + (log + (sqrt + (x + (x= + (. + (.= + (~~ + DESTROY +#; + +our @enums = qw# + fallback + to_sv + to_av + to_hv + to_gv + to_cv + inc + dec + bool_ + numer + string + not + copy + abs + neg + iter + int + lt + le + gt + ge + eq + ne + slt + sle + sgt + sge + seq + sne + nomethod + add + add_ass + subtr + subtr_ass + mult + mult_ass + div + div_ass + modulo + modulo_ass + pow + pow_ass + lshift + lshift_ass + rshift + rshift_ass + band + band_ass + bor + bor_ass + bxor + bxor_ass + ncmp + scmp + compl + atan2 + cos + sin + exp + log + sqrt + repeat + repeat_ass + concat + concat_ass + smart + DESTROY +#; + +{ my $i = 0; our %names = map { $_ => $i++ } @names } + +{ my $i = 0; our %enums = map { $_ => $i++ } @enums } + |