overload.c

   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 #define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
  17
  18 static const U8 PL_AMG_namelens[NofAMmeth] = {
  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,
  85     3,
  86     3,
  87     7
  88 };
  89
  90 static const char * const PL_AMG_names[NofAMmeth] = {
  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     "(~~",
 162     "(-X",
 163     "(qr",
 164     "DESTROY"
 165 };