X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2e1c5ef038e0e6c85edfb5ac0d6cc98f79121ef9..84eea98055f218b655619db1600f75f511c33e3d:/overload.c diff --git a/overload.c b/overload.c index 2f1f870..91e2d20 100644 --- a/overload.c +++ b/overload.c @@ -2,14 +2,15 @@ * * overload.c * - * Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007 by Larry Wall - * and others + * Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007, 2011 + * 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 + * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! + * This file is built by regen/overload.pl. + * Any changes made here will be lost! */ #define AMG_id2name(id) (PL_AMG_names[id]+1) @@ -82,6 +83,8 @@ static const U8 PL_AMG_namelens[NofAMmeth] = { 2, 3, 3, + 3, + 3, 7 }; @@ -91,71 +94,75 @@ static const char * const PL_AMG_names[NofAMmeth] = { this convention is AMG_id2name (used for debugging output and 'nomethod' only), the only other place which has it hardwired is overload.pm. */ - "()", - "(${}", - "(@{}", - "(%{}", - "(*{}", - "(&{}", - "(++", - "(--", - "(bool", - "(0+", - "(\"\"", - "(!", - "(=", - "(abs", - "(neg", - "(<>", - "(int", - "(<", - "(<=", - "(>", - "(>=", - "(==", - "(!=", - "(lt", - "(le", - "(gt", - "(ge", - "(eq", - "(ne", - "(nomethod", - "(+", - "(+=", - "(-", - "(-=", - "(*", - "(*=", - "(/", - "(/=", - "(%", - "(%=", - "(**", - "(**=", - "(<<", - "(<<=", - "(>>", - "(>>=", - "(&", - "(&=", - "(|", - "(|=", - "(^", - "(^=", - "(<=>", - "(cmp", - "(~", - "(atan2", - "(cos", - "(sin", - "(exp", - "(log", - "(sqrt", - "(x", - "(x=", - "(.", - "(.=", - "(~~", + "()", /* fallback */ + "(${}", /* to_sv */ + "(@{}", /* to_av */ + "(%{}", /* to_hv */ + "(*{}", /* to_gv */ + "(&{}", /* to_cv */ + "(++", /* inc */ + "(--", /* dec */ + "(bool", /* bool_ */ + "(0+", /* numer */ + "(\"\"", /* string */ + "(!", /* not */ + "(=", /* copy */ + "(abs", /* abs */ + "(neg", /* neg */ + "(<>", /* iter */ + "(int", /* int */ + "(<", /* lt */ + "(<=", /* le */ + "(>", /* gt */ + "(>=", /* ge */ + "(==", /* eq */ + "(!=", /* ne */ + "(lt", /* slt */ + "(le", /* sle */ + "(gt", /* sgt */ + "(ge", /* sge */ + "(eq", /* seq */ + "(ne", /* sne */ + "(nomethod", /* 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 */ + "(cmp", /* scmp */ + "(~", /* compl */ + "(atan2", /* atan2 */ + "(cos", /* cos */ + "(sin", /* sin */ + "(exp", /* exp */ + "(log", /* log */ + "(sqrt", /* sqrt */ + "(x", /* repeat */ + "(x=", /* repeat_ass */ + "(.", /* concat */ + "(.=", /* concat_ass */ + "(~~", /* smart */ + "(-X", /* ftest */ + "(qr", /* regexp */ "DESTROY" }; + +/* ex: set ro: */