1 /* -*- buffer-read-only: t -*-
5 * Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007, 2011
6 * by Larry Wall and others
8 * You may distribute under the terms of either the GNU General Public
9 * License or the Artistic License, as specified in the README file.
11 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
12 * This file is built by regen/overload.pl.
13 * Any changes made here will be lost!
16 #define AMG_id2name(id) (PL_AMG_names[id]+1)
17 #define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
19 static const U8 PL_AMG_namelens[NofAMmeth] = {
91 static const char * const PL_AMG_names[NofAMmeth] = {
92 /* Names kept in the symbol table. fallback => "()", the rest has
93 "(" prepended. The only other place in perl which knows about
94 this convention is AMG_id2name (used for debugging output and
95 'nomethod' only), the only other place which has it hardwired is
107 "(\"\"", /* string */
126 "(nomethod", /* nomethod */
130 "(-=", /* subtr_ass */
132 "(*=", /* mult_ass */
136 "(%=", /* modulo_ass */
138 "(**=", /* pow_ass */
140 "(<<=", /* lshift_ass */
142 "(>>=", /* rshift_ass */
144 "(&=", /* band_ass */
148 "(^=", /* bxor_ass */
152 "(atan2", /* atan2 */
159 "(x=", /* repeat_ass */
161 "(.=", /* concat_ass */