Commit | Line | Data |
---|---|---|
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 !!!!!!! | |
12 | * This file is built by overload.pl | |
13 | */ | |
14 | ||
15 | #define AMG_id2name(id) (PL_AMG_names[id]+1) | |
16 | ||
17 | char * const PL_AMG_names[NofAMmeth] = { | |
18 | /* Names kept in the symbol table. fallback => "()", the rest has | |
19 | "(" prepended. The only other place in perl which knows about | |
20 | this convention is AMG_id2name (used for debugging output and | |
21 | 'nomethod' only), the only other place which has it hardwired is | |
22 | overload.pm. */ | |
23 | "()", | |
24 | "(${}", | |
25 | "(@{}", | |
26 | "(%{}", | |
27 | "(*{}", | |
28 | "(&{}", | |
29 | "(++", | |
30 | "(--", | |
31 | "(bool", | |
32 | "(0+", | |
33 | "(\"\"", | |
34 | "(!", | |
35 | "(=", | |
36 | "(abs", | |
37 | "(neg", | |
38 | "(<>", | |
39 | "(int", | |
40 | "(<", | |
41 | "(<=", | |
42 | "(>", | |
43 | "(>=", | |
44 | "(==", | |
45 | "(!=", | |
46 | "(lt", | |
47 | "(le", | |
48 | "(gt", | |
49 | "(ge", | |
50 | "(eq", | |
51 | "(ne", | |
52 | "(nomethod", | |
53 | "(+", | |
54 | "(+=", | |
55 | "(-", | |
56 | "(-=", | |
57 | "(*", | |
58 | "(*=", | |
59 | "(/", | |
60 | "(/=", | |
61 | "(%", | |
62 | "(%=", | |
63 | "(**", | |
64 | "(**=", | |
65 | "(<<", | |
66 | "(<<=", | |
67 | "(>>", | |
68 | "(>>=", | |
69 | "(&", | |
70 | "(&=", | |
71 | "(|", | |
72 | "(|=", | |
73 | "(^", | |
74 | "(^=", | |
75 | "(<=>", | |
76 | "(cmp", | |
77 | "(~", | |
78 | "(atan2", | |
79 | "(cos", | |
80 | "(sin", | |
81 | "(exp", | |
82 | "(log", | |
83 | "(sqrt", | |
84 | "(x", | |
85 | "(x=", | |
86 | "(.", | |
87 | "(.=", | |
88 | "(~~", | |
89 | "DESTROY" | |
90 | }; |