This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PL_AMG_names is only used by gv.c (as far as Google code search can
[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 !!!!!!!
12 * This file is built by overload.pl
13 */
14
15#define AMG_id2name(id) (PL_AMG_names[id]+1)
16
17char * 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};