overload.inc

   1 /* -*- buffer-read-only: t -*-
   2  *
   3  *    overload.inc
   4  *
   5  *    Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007, 2011
   6  *    by Larry Wall 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 regen/overload.pl.
  13  * Any changes made here will be lost!
  14  */
  15
  16 #define AMG_id2name(id) (PL_AMG_names[id]+1)
  17 #define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
  18
  19 static const U8 PL_AMG_namelens[NofAMmeth] = {
  20     2,
  21     4,
  22     4,
  23     4,
  24     4,
  25     4,
  26     3,
  27     3,
  28     5,
  29     3,
  30     3,
  31     2,
  32     2,
  33     4,
  34     4,
  35     3,
  36     4,
  37     2,
  38     3,
  39     2,
  40     3,
  41     3,
  42     3,
  43     3,
  44     3,
  45     3,
  46     3,
  47     3,
  48     3,
  49     9,
  50     2,
  51     3,
  52     2,
  53     3,
  54     2,
  55     3,
  56     2,
  57     3,
  58     2,
  59     3,
  60     3,
  61     4,
  62     3,
  63     4,
  64     3,
  65     4,
  66     2,
  67     3,
  68     3,
  69     4,
  70     2,
  71     3,
  72     3,
  73     4,
  74     2,
  75     3,
  76     3,
  77     4,
  78     4,
  79     4,
  80     2,
  81     3,
  82     6,
  83     4,
  84     4,
  85     4,
  86     4,
  87     5,
  88     2,
  89     3,
  90     2,
  91     3,
  92     3,
  93     3,
  94     3
  95 };
  96
  97 static const char * const PL_AMG_names[NofAMmeth] = {
  98   /* Names kept in the symbol table.  fallback => "()", the rest has
  99      "(" prepended.  The only other place in perl which knows about
 100      this convention is AMG_id2name (used for debugging output and
 101      'nomethod' only), the only other place which has it hardwired is
 102      overload.pm.  */
 103     "()",               /* fallback   */
 104     "(${}",             /* to_sv      */
 105     "(@{}",             /* to_av      */
 106     "(%{}",             /* to_hv      */
 107     "(*{}",             /* to_gv      */
 108     "(&{}",             /* to_cv      */
 109     "(++",              /* inc        */
 110     "(--",              /* dec        */
 111     "(bool",            /* bool_      */
 112     "(0+",              /* numer      */
 113     "(\"\"",            /* string     */
 114     "(!",               /* not        */
 115     "(=",               /* copy       */
 116     "(abs",             /* abs        */
 117     "(neg",             /* neg        */
 118     "(<>",              /* iter       */
 119     "(int",             /* int        */
 120     "(<",               /* lt         */
 121     "(<=",              /* le         */
 122     "(>",               /* gt         */
 123     "(>=",              /* ge         */
 124     "(==",              /* eq         */
 125     "(!=",              /* ne         */
 126     "(lt",              /* slt        */
 127     "(le",              /* sle        */
 128     "(gt",              /* sgt        */
 129     "(ge",              /* sge        */
 130     "(eq",              /* seq        */
 131     "(ne",              /* sne        */
 132     "(nomethod",        /* nomethod   */
 133     "(+",               /* add        */
 134     "(+=",              /* add_ass    */
 135     "(-",               /* subtr      */
 136     "(-=",              /* subtr_ass  */
 137     "(*",               /* mult       */
 138     "(*=",              /* mult_ass   */
 139     "(/",               /* div        */
 140     "(/=",              /* div_ass    */
 141     "(%",               /* modulo     */
 142     "(%=",              /* modulo_ass */
 143     "(**",              /* pow        */
 144     "(**=",             /* pow_ass    */
 145     "(<<",              /* lshift     */
 146     "(<<=",             /* lshift_ass */
 147     "(>>",              /* rshift     */
 148     "(>>=",             /* rshift_ass */
 149     "(&",               /* band       */
 150     "(&=",              /* band_ass   */
 151     "(&.",              /* sband      */
 152     "(&.=",             /* sband_ass  */
 153     "(|",               /* bor        */
 154     "(|=",              /* bor_ass    */
 155     "(|.",              /* sbor       */
 156     "(|.=",             /* sbor_ass   */
 157     "(^",               /* bxor       */
 158     "(^=",              /* bxor_ass   */
 159     "(^.",              /* sbxor      */
 160     "(^.=",             /* sbxor_ass  */
 161     "(<=>",             /* ncmp       */
 162     "(cmp",             /* scmp       */
 163     "(~",               /* compl      */
 164     "(~.",              /* scompl     */
 165     "(atan2",           /* atan2      */
 166     "(cos",             /* cos        */
 167     "(sin",             /* sin        */
 168     "(exp",             /* exp        */
 169     "(log",             /* log        */
 170     "(sqrt",            /* sqrt       */
 171     "(x",               /* repeat     */
 172     "(x=",              /* repeat_ass */
 173     "(.",               /* concat     */
 174     "(.=",              /* concat_ass */
 175     "(~~",              /* smart      */
 176     "(-X",              /* ftest      */
 177     "(qr"
 178 };
 179
 180 /* ex: set ro: */