1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
/* -*- buffer-read-only: t -*-
*
* overload.c
*
* Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007 by Larry Wall
* and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
* This file is built by overload.pl
*/
#define AMG_id2name(id) (PL_AMG_names[id]+1)
char * const PL_AMG_names[NofAMmeth] = {
/* Names kept in the symbol table. fallback => "()", the rest has
"(" prepended. The only other place in perl which knows about
this convention is AMG_id2name (used for debugging output and
'nomethod' only), the only other place which has it hardwired is
overload.pm. */
"()",
"(${}",
"(@{}",
"(%{}",
"(*{}",
"(&{}",
"(++",
"(--",
"(bool",
"(0+",
"(\"\"",
"(!",
"(=",
"(abs",
"(neg",
"(<>",
"(int",
"(<",
"(<=",
"(>",
"(>=",
"(==",
"(!=",
"(lt",
"(le",
"(gt",
"(ge",
"(eq",
"(ne",
"(nomethod",
"(+",
"(+=",
"(-",
"(-=",
"(*",
"(*=",
"(/",
"(/=",
"(%",
"(%=",
"(**",
"(**=",
"(<<",
"(<<=",
"(>>",
"(>>=",
"(&",
"(&=",
"(|",
"(|=",
"(^",
"(^=",
"(<=>",
"(cmp",
"(~",
"(atan2",
"(cos",
"(sin",
"(exp",
"(log",
"(sqrt",
"(x",
"(x=",
"(.",
"(.=",
"(~~",
"DESTROY"
};
|
