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
  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 };