代码拉取完成,页面将自动刷新
/* -*- buffer-read-only: t -*-
*
* overload.inc
*
* 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,
3,
4,
2,
3,
3,
4,
2,
3,
3,
4,
4,
4,
2,
3,
6,
4,
4,
4,
4,
5,
2,
3,
2,
3,
3,
3,
3
};
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 */
"(&.", /* sband */
"(&.=", /* sband_ass */
"(|", /* bor */
"(|=", /* bor_ass */
"(|.", /* sbor */
"(|.=", /* sbor_ass */
"(^", /* bxor */
"(^=", /* bxor_ass */
"(^.", /* sbxor */
"(^.=", /* sbxor_ass */
"(<=>", /* ncmp */
"(cmp", /* scmp */
"(~", /* compl */
"(~.", /* scompl */
"(atan2", /* atan2 */
"(cos", /* cos */
"(sin", /* sin */
"(exp", /* exp */
"(log", /* log */
"(sqrt", /* sqrt */
"(x", /* repeat */
"(x=", /* repeat_ass */
"(.", /* concat */
"(.=", /* concat_ass */
"(~~", /* smart */
"(-X", /* ftest */
"(qr"
};
/* ex: set ro: */
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。