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] = {
97 static const char * const PL_AMG_names[NofAMmeth] = {
98 /* Names kept in the symbol table. fallback => "()", the rest has
99 "(" prepended. The only other place in perl which knows about
100 this convention is AMG_id2name (used for debugging output and
101 'nomethod' only), the only other place which has it hardwired is
113 "(\"\"", /* string */
132 "(nomethod", /* nomethod */
136 "(-=", /* subtr_ass */
138 "(*=", /* mult_ass */
142 "(%=", /* modulo_ass */
144 "(**=", /* pow_ass */
146 "(<<=", /* lshift_ass */
148 "(>>=", /* rshift_ass */
150 "(&=", /* band_ass */
152 "(&.=", /* sband_ass */
156 "(|.=", /* sbor_ass */
158 "(^=", /* bxor_ass */
160 "(^.=", /* sbxor_ass */
165 "(atan2", /* atan2 */
172 "(x=", /* repeat_ass */
174 "(.=", /* concat_ass */