Add new release to perlhist
[perl.git] / overload.inc
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
19 static 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
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
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: */