Commit | Line | Data |
8261f8eb |
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 | }; |