From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- .../tlnet/tlpkg/tlperl/lib/overload/numbers.pm | 176 +++++++++++++++++++++ 1 file changed, 176 insertions(+) create mode 100644 systems/texlive/tlnet/tlpkg/tlperl/lib/overload/numbers.pm (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/overload/numbers.pm') diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/overload/numbers.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/overload/numbers.pm new file mode 100644 index 0000000000..ccea9e17bc --- /dev/null +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/overload/numbers.pm @@ -0,0 +1,176 @@ +# -*- 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 regen/overload.pl. +# Any changes made here will be lost! + +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= + (. + (.= + (~~ + (-X + (qr +#; + +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 + sband + sband_ass + bor + bor_ass + sbor + sbor_ass + bxor + bxor_ass + sbxor + sbxor_ass + ncmp + scmp + compl + scompl + atan2 + cos + sin + exp + log + sqrt + repeat + repeat_ass + concat + concat_ass + smart + ftest + regexp +#; + +{ my $i = 0; our %names = map { $_ => $i++ } @names } + +{ my $i = 0; our %enums = map { $_ => $i++ } @enums } + +# ex: set ro: -- cgit v1.2.3