1 /* -*- mode: C; buffer-read-only: t -*-
5 * Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
6 * 2008 by Larry Wall and others
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.
11 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
12 * This file is built by regen/opcode.pl from its data.
13 * Any changes made here will be lost!
123 OP_NCOMPLEMENT = 106,
124 OP_SCOMPLEMENT = 107,
140 OP_SUBSTR_LEFT = 123,
156 OP_AELEMFAST_LEX = 139,
157 OP_AELEMFASTLEX_STORE = 140,
237 OP_METHOD_NAMED = 220,
238 OP_METHOD_SUPER = 221,
239 OP_METHOD_REDIR = 222,
240 OP_METHOD_REDIR_SUPER = 223,
289 OP_GETSOCKNAME = 272,
290 OP_GETPEERNAME = 273,
347 OP_GETPRIORITY = 330,
348 OP_SETPRIORITY = 331,
422 OP_CMPCHAIN_AND = 405,
423 OP_CMPCHAIN_DUP = 406,
424 OP_ENTERTRYCATCH = 407,
425 OP_LEAVETRYCATCH = 408,
439 OP_HELEMEXISTSOR = 422,
447 =for apidoc Ay||opcode
448 An enum of all the legal Perl opcodes, defined in F<opnames.h>
454 #define OP_FREED MAXO
456 /* the OP_IS_* macros are optimized to a simple range check because
457 all the member OPs are contiguous in regen/opcodes table.
458 opcode.pl verifies the range contiguity, or generates an OR-equals
461 #define OP_IS_SOCKET(op) \
462 ((op) >= OP_SEND && (op) <= OP_GETPEERNAME)
464 #define OP_IS_FILETEST(op) \
465 ((op) >= OP_FTRREAD && (op) <= OP_FTBINARY)
467 #define OP_IS_FILETEST_ACCESS(op) \
468 ((op) >= OP_FTRREAD && (op) <= OP_FTEEXEC)
470 #define OP_IS_NUMCOMPARE(op) \
471 ((op) >= OP_LT && (op) <= OP_I_NCMP)
473 #define OP_IS_DIRHOP(op) \
474 ((op) >= OP_READDIR && (op) <= OP_CLOSEDIR)
476 #define OP_IS_INFIX_BIT(op) \
477 ((op) >= OP_BIT_AND && (op) <= OP_SBIT_OR)
479 /* ex: set ro ft=c: */