Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: blead
Fetching contributors…

Cannot retrieve contributors at this time

169 lines (164 sloc) 3.44 kB
/* -*- buffer-read-only: t -*-
*
* overload.c
*
* Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007, 2011
* by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
* This file is built by regen/overload.pl.
* Any changes made here will be lost!
*/
#define AMG_id2name(id) (PL_AMG_names[id]+1)
#define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
static const U8 PL_AMG_namelens[NofAMmeth] = {
2,
4,
4,
4,
4,
4,
3,
3,
5,
3,
3,
2,
2,
4,
4,
3,
4,
2,
3,
2,
3,
3,
3,
3,
3,
3,
3,
3,
3,
9,
2,
3,
2,
3,
2,
3,
2,
3,
2,
3,
3,
4,
3,
4,
3,
4,
2,
3,
2,
3,
2,
3,
4,
4,
2,
6,
4,
4,
4,
4,
5,
2,
3,
2,
3,
3,
3,
3,
7
};
static const char * const PL_AMG_names[NofAMmeth] = {
/* Names kept in the symbol table. fallback => "()", the rest has
"(" prepended. The only other place in perl which knows about
this convention is AMG_id2name (used for debugging output and
'nomethod' only), the only other place which has it hardwired is
overload.pm. */
"()", /* fallback */
"(${}", /* to_sv */
"(@{}", /* to_av */
"(%{}", /* to_hv */
"(*{}", /* to_gv */
"(&{}", /* to_cv */
"(++", /* inc */
"(--", /* dec */
"(bool", /* bool_ */
"(0+", /* numer */
"(\"\"", /* string */
"(!", /* not */
"(=", /* copy */
"(abs", /* abs */
"(neg", /* neg */
"(<>", /* iter */
"(int", /* int */
"(<", /* lt */
"(<=", /* le */
"(>", /* gt */
"(>=", /* ge */
"(==", /* eq */
"(!=", /* ne */
"(lt", /* slt */
"(le", /* sle */
"(gt", /* sgt */
"(ge", /* sge */
"(eq", /* seq */
"(ne", /* sne */
"(nomethod", /* nomethod */
"(+", /* add */
"(+=", /* add_ass */
"(-", /* subtr */
"(-=", /* subtr_ass */
"(*", /* mult */
"(*=", /* mult_ass */
"(/", /* div */
"(/=", /* div_ass */
"(%", /* modulo */
"(%=", /* modulo_ass */
"(**", /* pow */
"(**=", /* pow_ass */
"(<<", /* lshift */
"(<<=", /* lshift_ass */
"(>>", /* rshift */
"(>>=", /* rshift_ass */
"(&", /* band */
"(&=", /* band_ass */
"(|", /* bor */
"(|=", /* bor_ass */
"(^", /* bxor */
"(^=", /* bxor_ass */
"(<=>", /* ncmp */
"(cmp", /* scmp */
"(~", /* compl */
"(atan2", /* atan2 */
"(cos", /* cos */
"(sin", /* sin */
"(exp", /* exp */
"(log", /* log */
"(sqrt", /* sqrt */
"(x", /* repeat */
"(x=", /* repeat_ass */
"(.", /* concat */
"(.=", /* concat_ass */
"(~~", /* smart */
"(-X", /* ftest */
"(qr", /* regexp */
"DESTROY"
};
/* ex: set ro: */
Jump to Line
Something went wrong with that request. Please try again.