This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Actuall excise 'Apollo DomainOS' support. We officially killed it in 5.11.0. It
[perl5.git] / overload.c
CommitLineData
8261f8eb
NC
1/* -*- buffer-read-only: t -*-
2 *
3 * overload.c
4 *
5 * Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007 by Larry Wall
6 * 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 !!!!!!!
1de57daf 12 * This file is built by regen/overload.pl
8261f8eb
NC
13 */
14
15#define AMG_id2name(id) (PL_AMG_names[id]+1)
82af6593 16#define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
8261f8eb 17
2e1c5ef0 18static const U8 PL_AMG_namelens[NofAMmeth] = {
d279ab82
NC
19 2,
20 4,
21 4,
22 4,
23 4,
24 4,
25 3,
26 3,
27 5,
28 3,
29 3,
30 2,
31 2,
32 4,
33 4,
34 3,
35 4,
36 2,
37 3,
38 2,
39 3,
40 3,
41 3,
42 3,
43 3,
44 3,
45 3,
46 3,
47 3,
48 9,
49 2,
50 3,
51 2,
52 3,
53 2,
54 3,
55 2,
56 3,
57 2,
58 3,
59 3,
60 4,
61 3,
62 4,
63 3,
64 4,
65 2,
66 3,
67 2,
68 3,
69 2,
70 3,
71 4,
72 4,
73 2,
74 6,
75 4,
76 4,
77 4,
78 4,
79 5,
80 2,
81 3,
82 2,
83 3,
84 3,
9846fe22 85 3,
d9151963 86 3,
d279ab82
NC
87 7
88};
89
2e1c5ef0 90static const char * const PL_AMG_names[NofAMmeth] = {
8261f8eb
NC
91 /* Names kept in the symbol table. fallback => "()", the rest has
92 "(" prepended. The only other place in perl which knows about
93 this convention is AMG_id2name (used for debugging output and
94 'nomethod' only), the only other place which has it hardwired is
95 overload.pm. */
96 "()",
97 "(${}",
98 "(@{}",
99 "(%{}",
100 "(*{}",
101 "(&{}",
102 "(++",
103 "(--",
104 "(bool",
105 "(0+",
106 "(\"\"",
107 "(!",
108 "(=",
109 "(abs",
110 "(neg",
111 "(<>",
112 "(int",
113 "(<",
114 "(<=",
115 "(>",
116 "(>=",
117 "(==",
118 "(!=",
119 "(lt",
120 "(le",
121 "(gt",
122 "(ge",
123 "(eq",
124 "(ne",
125 "(nomethod",
126 "(+",
127 "(+=",
128 "(-",
129 "(-=",
130 "(*",
131 "(*=",
132 "(/",
133 "(/=",
134 "(%",
135 "(%=",
136 "(**",
137 "(**=",
138 "(<<",
139 "(<<=",
140 "(>>",
141 "(>>=",
142 "(&",
143 "(&=",
144 "(|",
145 "(|=",
146 "(^",
147 "(^=",
148 "(<=>",
149 "(cmp",
150 "(~",
151 "(atan2",
152 "(cos",
153 "(sin",
154 "(exp",
155 "(log",
156 "(sqrt",
157 "(x",
158 "(x=",
159 "(.",
160 "(.=",
161 "(~~",
9846fe22 162 "(-X",
d9151963 163 "(qr",
8261f8eb
NC
164 "DESTROY"
165};