3 * Copyright (c) 1991-1997, Larry Wall
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
11 * The fields of BASEOP are:
12 * op_next Pointer to next ppcode to execute after this one.
13 * (Top level pre-grafted op points to first op,
14 * but this is replaced when op is grafted in, when
15 * this op will point to the real next op, and the new
16 * parent takes over role of remembering starting op.)
17 * op_ppaddr Pointer to current ppcode's function.
18 * op_type The type of the operation.
19 * op_flags Flags common to all operations. See OPf_* below.
20 * op_private Flags peculiar to a particular operation (BUT,
21 * by default, set to the number of children until
22 * the operation is privatized by a check routine,
23 * which may or may not check number of children).
26 typedef U32 PADOFFSET;
27 #define NOT_IN_PAD ((PADOFFSET) -1)
45 #define OP_GIMME(op,dfl) \
46 (((op)->op_flags & OPf_WANT) == OPf_WANT_VOID ? G_VOID : \
47 ((op)->op_flags & OPf_WANT) == OPf_WANT_SCALAR ? G_SCALAR : \
48 ((op)->op_flags & OPf_WANT) == OPf_WANT_LIST ? G_ARRAY : \
51 #define GIMME_V OP_GIMME(op, block_gimme())
55 #define OPf_WANT 3 /* Mask for "want" bits: */
56 #define OPf_WANT_VOID 1 /* Want nothing */
57 #define OPf_WANT_SCALAR 2 /* Want single value */
58 #define OPf_WANT_LIST 3 /* Want list of any length */
59 #define OPf_KIDS 4 /* There is a firstborn child. */
60 #define OPf_PARENS 8 /* This operator was parenthesized. */
61 /* (Or block needs explicit scope entry.) */
62 #define OPf_REF 16 /* Certified reference. */
63 /* (Return container, not containee). */
64 #define OPf_MOD 32 /* Will modify (lvalue). */
65 #define OPf_STACKED 64 /* Some arg is arriving on the stack. */
66 #define OPf_SPECIAL 128 /* Do something weird for this op: */
67 /* On local LVAL, don't init local value. */
68 /* On OP_SORT, subroutine is inlined. */
69 /* On OP_NOT, inversion was implicit. */
70 /* On OP_LEAVE, don't restore curpm. */
71 /* On truncate, we truncate filehandle */
72 /* On control verbs, we saw no label */
73 /* On flipflop, we saw ... instead of .. */
74 /* On UNOPs, saw bare parens, e.g. eof(). */
75 /* On OP_ENTERSUB || OP_NULL, saw a "do". */
76 /* On OP_(ENTER|LEAVE)EVAL, don't clear $@ */
78 /* old names; don't use in new code, but don't break them, either */
82 (op->op_flags & OPf_KNOW ? op->op_flags & OPf_LIST : dowantarray())
84 /* Private for lvalues */
85 #define OPpLVAL_INTRO 128 /* Lvalue must be localized */
87 /* Private for OP_AASSIGN */
88 #define OPpASSIGN_COMMON 64 /* Left & right have syms in common. */
90 /* Private for OP_SASSIGN */
91 #define OPpASSIGN_BACKWARDS 64 /* Left & right switched. */
93 /* Private for OP_MATCH and OP_SUBST{,CONST} */
94 #define OPpRUNTIME 64 /* Pattern coming in on the stack */
96 /* Private for OP_TRANS */
97 #define OPpTRANS_SQUASH 16
98 #define OPpTRANS_DELETE 32
99 #define OPpTRANS_COMPLEMENT 64
101 /* Private for OP_REPEAT */
102 #define OPpREPEAT_DOLIST 64 /* List replication. */
104 /* Private for OP_ENTERSUB, OP_RV2?V, OP_?ELEM */
105 #define OPpDEREF (32|64) /* Want ref to something: */
106 #define OPpDEREF_AV 32 /* Want ref to AV. */
107 #define OPpDEREF_HV 64 /* Want ref to HV. */
108 #define OPpDEREF_SV (32|64) /* Want ref to SV. */
109 /* OP_ENTERSUB only */
110 #define OPpENTERSUB_DB 16 /* Debug subroutine. */
111 #define OPpENTERSUB_AMPER 8 /* Used & form to call. */
113 #define OPpLVAL_DEFER 16 /* Defer creation of array/hash elem */
114 /* for OP_RV2?V, lower bits carry hints */
116 /* Private for OP_CONST */
117 #define OPpCONST_ENTERED 16 /* Has been entered as symbol. */
118 #define OPpCONST_ARYBASE 32 /* Was a $[ translated to constant. */
119 #define OPpCONST_BARE 64 /* Was a bare word (filehandle?). */
121 /* Private for OP_FLIP/FLOP */
122 #define OPpFLIP_LINENUM 64 /* Range arg potentially a line num. */
124 /* Private for OP_LIST */
125 #define OPpLIST_GUESSED 64 /* Guessed that pushmark was needed. */
127 /* Private for OP_DELETE */
128 #define OPpSLICE 64 /* Operating on a list of keys */
130 /* Private for OP_SORT, OP_PRTF, OP_SPRINTF, string cmp'n, and case changers */
131 #define OPpLOCALE 64 /* Use locale */
175 PMOP * op_pmnext; /* list of all scanpats */
176 REGEXP * op_pmregexp; /* compiled expression */
177 SV * op_pmshort; /* for a fast bypass of execute() */
183 #define PMf_USED 0x0001 /* pm has been used once already */
184 #define PMf_ONCE 0x0002 /* use pattern only once per reset */
185 #define PMf_SCANFIRST 0x0004 /* initial constant not anchored */
186 #define PMf_ALL 0x0008 /* initial constant is whole pat */
187 #define PMf_SKIPWHITE 0x0010 /* skip leading whitespace for split */
188 #define PMf_FOLD 0x0020 /* case insensitivity */
189 #define PMf_CONST 0x0040 /* subst replacement is constant */
190 #define PMf_KEEP 0x0080 /* keep 1st runtime pattern forever */
191 #define PMf_GLOBAL 0x0100 /* pattern had a g modifier */
192 #define PMf_CONTINUE 0x0200 /* don't reset pos() if //g fails */
193 #define PMf_EVAL 0x0400 /* evaluating replacement as expr */
194 #define PMf_WHITE 0x0800 /* pattern is \s+ */
195 #define PMf_MULTILINE 0x1000 /* assume multiple lines */
196 #define PMf_SINGLELINE 0x2000 /* assume single line */
197 #define PMf_LOCALE 0x4000 /* use locale for character types */
198 #define PMf_EXTENDED 0x8000 /* chuck embedded whitespace */
225 #define cUNOP ((UNOP*)op)
226 #define cBINOP ((BINOP*)op)
227 #define cLISTOP ((LISTOP*)op)
228 #define cLOGOP ((LOGOP*)op)
229 #define cCONDOP ((CONDOP*)op)
230 #define cPMOP ((PMOP*)op)
231 #define cSVOP ((SVOP*)op)
232 #define cGVOP ((GVOP*)op)
233 #define cPVOP ((PVOP*)op)
234 #define cCOP ((COP*)op)
235 #define cLOOP ((LOOP*)op)
237 #define cUNOPo ((UNOP*)o)
238 #define cBINOPo ((BINOP*)o)
239 #define cLISTOPo ((LISTOP*)o)
240 #define cLOGOPo ((LOGOP*)o)
241 #define cCONDOPo ((CONDOP*)o)
242 #define cPMOPo ((PMOP*)o)
243 #define cSVOPo ((SVOP*)o)
244 #define cGVOPo ((GVOP*)o)
245 #define cPVOPo ((PVOP*)o)
246 #define cCVOPo ((CVOP*)o)
247 #define cCOPo ((COP*)o)
248 #define cLOOPo ((LOOP*)o)
250 #define kUNOP ((UNOP*)kid)
251 #define kBINOP ((BINOP*)kid)
252 #define kLISTOP ((LISTOP*)kid)
253 #define kLOGOP ((LOGOP*)kid)
254 #define kCONDOP ((CONDOP*)kid)
255 #define kPMOP ((PMOP*)kid)
256 #define kSVOP ((SVOP*)kid)
257 #define kGVOP ((GVOP*)kid)
258 #define kPVOP ((PVOP*)kid)
259 #define kCOP ((COP*)kid)
260 #define kLOOP ((LOOP*)kid)
262 #define Nullop Null(OP*)
264 /* Lowest byte of opargs */
266 #define OA_FOLDCONST 2
267 #define OA_RETSCALAR 4
269 #define OA_RETINTEGER 16
270 #define OA_OTHERINT 32
271 #define OA_DANGEROUS 64
276 /* Remaining nybbles of opargs */
283 #define OA_SCALARREF 7
284 #define OA_OPTIONAL 8