*
* overload.h
*
- * Copyright (C) 1997, 1998, 2000, 2001, 2005 and 2006 by Larry Wall and
- * others
+ * 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 overload.pl
+ * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
+ * This file is built by regen/overload.pl.
+ * Any changes made here will be lost!
*/
enum {
- fallback_amg,
- to_sv_amg,
- to_av_amg,
- to_hv_amg,
- to_gv_amg,
- to_cv_amg,
- inc_amg,
- dec_amg,
- bool__amg,
- numer_amg,
- string_amg,
- not_amg,
- copy_amg,
- abs_amg,
- neg_amg,
- iter_amg,
- int_amg,
- lt_amg,
- le_amg,
- gt_amg,
- ge_amg,
- eq_amg,
- ne_amg,
- slt_amg,
- sle_amg,
- sgt_amg,
- sge_amg,
- seq_amg,
- sne_amg,
- nomethod_amg,
- add_amg,
- add_ass_amg,
- subtr_amg,
- subtr_ass_amg,
- mult_amg,
- mult_ass_amg,
- div_amg,
- div_ass_amg,
- modulo_amg,
- modulo_ass_amg,
- pow_amg,
- pow_ass_amg,
- lshift_amg,
- lshift_ass_amg,
- rshift_amg,
- rshift_ass_amg,
- band_amg,
- band_ass_amg,
- bor_amg,
- bor_ass_amg,
- bxor_amg,
- bxor_ass_amg,
- ncmp_amg,
- scmp_amg,
- compl_amg,
- atan2_amg,
- cos_amg,
- sin_amg,
- exp_amg,
- log_amg,
- sqrt_amg,
- repeat_amg,
- repeat_ass_amg,
- concat_amg,
- concat_ass_amg,
- smart_amg,
- DESTROY_amg,
+ fallback_amg, /* 0x00 fallback */
+ to_sv_amg, /* 0x01 ${} */
+ to_av_amg, /* 0x02 @{} */
+ to_hv_amg, /* 0x03 %{} */
+ to_gv_amg, /* 0x04 *{} */
+ to_cv_amg, /* 0x05 &{} */
+ inc_amg, /* 0x06 ++ */
+ dec_amg, /* 0x07 -- */
+ bool__amg, /* 0x08 bool */
+ numer_amg, /* 0x09 0+ */
+ string_amg, /* 0x0a "" */
+ not_amg, /* 0x0b ! */
+ copy_amg, /* 0x0c = */
+ abs_amg, /* 0x0d abs */
+ neg_amg, /* 0x0e neg */
+ iter_amg, /* 0x0f <> */
+ int_amg, /* 0x10 int */
+ lt_amg, /* 0x11 < */
+ le_amg, /* 0x12 <= */
+ gt_amg, /* 0x13 > */
+ ge_amg, /* 0x14 >= */
+ eq_amg, /* 0x15 == */
+ ne_amg, /* 0x16 != */
+ slt_amg, /* 0x17 lt */
+ sle_amg, /* 0x18 le */
+ sgt_amg, /* 0x19 gt */
+ sge_amg, /* 0x1a ge */
+ seq_amg, /* 0x1b eq */
+ sne_amg, /* 0x1c ne */
+ nomethod_amg, /* 0x1d nomethod */
+ add_amg, /* 0x1e + */
+ add_ass_amg, /* 0x1f += */
+ subtr_amg, /* 0x20 - */
+ subtr_ass_amg, /* 0x21 -= */
+ mult_amg, /* 0x22 * */
+ mult_ass_amg, /* 0x23 *= */
+ div_amg, /* 0x24 / */
+ div_ass_amg, /* 0x25 /= */
+ modulo_amg, /* 0x26 % */
+ modulo_ass_amg, /* 0x27 %= */
+ pow_amg, /* 0x28 ** */
+ pow_ass_amg, /* 0x29 **= */
+ lshift_amg, /* 0x2a << */
+ lshift_ass_amg, /* 0x2b <<= */
+ rshift_amg, /* 0x2c >> */
+ rshift_ass_amg, /* 0x2d >>= */
+ band_amg, /* 0x2e & */
+ band_ass_amg, /* 0x2f &= */
+ bor_amg, /* 0x30 | */
+ bor_ass_amg, /* 0x31 |= */
+ bxor_amg, /* 0x32 ^ */
+ bxor_ass_amg, /* 0x33 ^= */
+ ncmp_amg, /* 0x34 <=> */
+ scmp_amg, /* 0x35 cmp */
+ compl_amg, /* 0x36 ~ */
+ atan2_amg, /* 0x37 atan2 */
+ cos_amg, /* 0x38 cos */
+ sin_amg, /* 0x39 sin */
+ exp_amg, /* 0x3a exp */
+ log_amg, /* 0x3b log */
+ sqrt_amg, /* 0x3c sqrt */
+ repeat_amg, /* 0x3d x */
+ repeat_ass_amg, /* 0x3e x= */
+ concat_amg, /* 0x3f . */
+ concat_ass_amg, /* 0x40 .= */
+ smart_amg, /* 0x41 ~~ */
+ ftest_amg, /* 0x42 -X */
+ regexp_amg, /* 0x43 qr */
max_amg_code
/* Do not leave a trailing comma here. C9X allows it, C89 doesn't. */
};
-
#define NofAMmeth max_amg_code
-#define AMG_id2name(id) (PL_AMG_names[id]+1)
-#ifdef DOINIT
-EXTCONST 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. */
- "()",
- "(${}",
- "(@{}",
- "(%{}",
- "(*{}",
- "(&{}",
- "(++",
- "(--",
- "(bool",
- "(0+",
- "(\"\"",
- "(!",
- "(=",
- "(abs",
- "(neg",
- "(<>",
- "(int",
- "(<",
- "(<=",
- "(>",
- "(>=",
- "(==",
- "(!=",
- "(lt",
- "(le",
- "(gt",
- "(ge",
- "(eq",
- "(ne",
- "(nomethod",
- "(+",
- "(+=",
- "(-",
- "(-=",
- "(*",
- "(*=",
- "(/",
- "(/=",
- "(%",
- "(%=",
- "(**",
- "(**=",
- "(<<",
- "(<<=",
- "(>>",
- "(>>=",
- "(&",
- "(&=",
- "(|",
- "(|=",
- "(^",
- "(^=",
- "(<=>",
- "(cmp",
- "(~",
- "(atan2",
- "(cos",
- "(sin",
- "(exp",
- "(log",
- "(sqrt",
- "(x",
- "(x=",
- "(.",
- "(.=",
- "(~~",
- "DESTROY"
-};
-#else
-EXTCONST char * PL_AMG_names[NofAMmeth];
-#endif /* def INITAMAGIC */
+/* ex: set ro: */
https://perl5.git.perl.org / perl5.git / blobdiff