xref: /openbsd/gnu/usr.bin/perl/overload.inc (revision 771fbea0) 
1/* -*- buffer-read-only: t -*-
2 *
3 *    overload.inc
4 *
5 *    Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007, 2011
6 *    by Larry Wall and others
7 *
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.
10 *
11 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
12 * This file is built by regen/overload.pl.
13 * Any changes made here will be lost!
14 */
15
16#define AMG_id2name(id) (PL_AMG_names[id]+1)
17#define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
18
19static const U8 PL_AMG_namelens[NofAMmeth] = {
20    2,
21    4,
22    4,
23    4,
24    4,
25    4,
26    3,
27    3,
28    5,
29    3,
30    3,
31    2,
32    2,
33    4,
34    4,
35    3,
36    4,
37    2,
38    3,
39    2,
40    3,
41    3,
42    3,
43    3,
44    3,
45    3,
46    3,
47    3,
48    3,
49    9,
50    2,
51    3,
52    2,
53    3,
54    2,
55    3,
56    2,
57    3,
58    2,
59    3,
60    3,
61    4,
62    3,
63    4,
64    3,
65    4,
66    2,
67    3,
68    3,
69    4,
70    2,
71    3,
72    3,
73    4,
74    2,
75    3,
76    3,
77    4,
78    4,
79    4,
80    2,
81    3,
82    6,
83    4,
84    4,
85    4,
86    4,
87    5,
88    2,
89    3,
90    2,
91    3,
92    3,
93    3,
94    3
95};
96
97static 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
102     overload.pm.  */
103    "()",		/* fallback   */
104    "(${}",		/* to_sv      */
105    "(@{}",		/* to_av      */
106    "(%{}",		/* to_hv      */
107    "(*{}",		/* to_gv      */
108    "(&{}",		/* to_cv      */
109    "(++",		/* inc        */
110    "(--",		/* dec        */
111    "(bool",		/* bool_      */
112    "(0+",		/* numer      */
113    "(\"\"",		/* string     */
114    "(!",		/* not        */
115    "(=",		/* copy       */
116    "(abs",		/* abs        */
117    "(neg",		/* neg        */
118    "(<>",		/* iter       */
119    "(int",		/* int        */
120    "(<",		/* lt         */
121    "(<=",		/* le         */
122    "(>",		/* gt         */
123    "(>=",		/* ge         */
124    "(==",		/* eq         */
125    "(!=",		/* ne         */
126    "(lt",		/* slt        */
127    "(le",		/* sle        */
128    "(gt",		/* sgt        */
129    "(ge",		/* sge        */
130    "(eq",		/* seq        */
131    "(ne",		/* sne        */
132    "(nomethod",	/* nomethod   */
133    "(+",		/* add        */
134    "(+=",		/* add_ass    */
135    "(-",		/* subtr      */
136    "(-=",		/* subtr_ass  */
137    "(*",		/* mult       */
138    "(*=",		/* mult_ass   */
139    "(/",		/* div        */
140    "(/=",		/* div_ass    */
141    "(%",		/* modulo     */
142    "(%=",		/* modulo_ass */
143    "(**",		/* pow        */
144    "(**=",		/* pow_ass    */
145    "(<<",		/* lshift     */
146    "(<<=",		/* lshift_ass */
147    "(>>",		/* rshift     */
148    "(>>=",		/* rshift_ass */
149    "(&",		/* band       */
150    "(&=",		/* band_ass   */
151    "(&.",		/* sband      */
152    "(&.=",		/* sband_ass  */
153    "(|",		/* bor        */
154    "(|=",		/* bor_ass    */
155    "(|.",		/* sbor       */
156    "(|.=",		/* sbor_ass   */
157    "(^",		/* bxor       */
158    "(^=",		/* bxor_ass   */
159    "(^.",		/* sbxor      */
160    "(^.=",		/* sbxor_ass  */
161    "(<=>",		/* ncmp       */
162    "(cmp",		/* scmp       */
163    "(~",		/* compl      */
164    "(~.",		/* scompl     */
165    "(atan2",		/* atan2      */
166    "(cos",		/* cos        */
167    "(sin",		/* sin        */
168    "(exp",		/* exp        */
169    "(log",		/* log        */
170    "(sqrt",		/* sqrt       */
171    "(x",		/* repeat     */
172    "(x=",		/* repeat_ass */
173    "(.",		/* concat     */
174    "(.=",		/* concat_ass */
175    "(~~",		/* smart      */
176    "(-X",		/* ftest      */
177    "(qr"
178};
179
180/* ex: set ro: */
181