*
* 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)
#define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
-const U8 PL_AMG_namelens[NofAMmeth] = {
+static const U8 PL_AMG_namelens[NofAMmeth] = {
2,
4,
4,
2,
3,
3,
- 7
+ 3,
+ 3
};
-const char * const PL_AMG_names[NofAMmeth] = {
+static const char * const PL_AMG_names[NofAMmeth] = {
/* Names kept in the symbol table. fallback => "()", the rest has
"(" prepended. The only other place in perl which knows about
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=",
- "(.",
- "(.=",
- "(~~",
- "DESTROY"
+ "()", /* 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"
};
+
+/* ex: set ro: */