1 /* $RCSfile: arg.h,v $$Revision: 4.1 $$Date: 92/08/07 17:18:16 $
3 * Copyright (c) 1991, 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.
12 * The fields of BASEOP are:
13 * op_next Pointer to next ppcode to execute after this one.
14 * (Top level pre-grafted op points to first op,
15 * but this is replaced when op is grafted in, when
16 * this op will point to the real next op, and the new
17 * parent takes over role of remembering starting op.)
18 * op_ppaddr Pointer to current ppcode's function.
19 * op_type The type of the operation.
20 * op_flags Flags common to all operations. See OPf_* below.
21 * op_private Flags peculiar to a particular operation (BUT,
22 * by default, set to the number of children until
23 * the operation is privatized by a check routine,
24 * which may or may not check number of children).
27 typedef U16 PADOFFSET;
45 #define GIMME (op->op_flags & OPf_KNOW ? op->op_flags & OPf_LIST : getgimme(op))
48 #define OPf_LIST 1 /* Do operator in list context. */
49 #define OPf_KNOW 2 /* Context is known. */
50 #define OPf_KIDS 4 /* There is a firstborn child. */
51 #define OPf_PARENS 8 /* This operator was parenthesized. */
52 #define OPf_STACKED 16 /* Some arg is arriving on the stack. */
53 #define OPf_LVAL 32 /* Certified reference (lvalue). */
54 #define OPf_LOCAL 64 /* Lvalue must be localized */
55 #define OPf_SPECIAL 128 /* Do something weird for this op: */
56 /* On local LVAL, don't init local value. */
57 /* On OP_SORT, subroutine is inlined. */
58 /* On OP_NOT, inversion was implicit. */
59 /* On file tests, we fstat filehandle */
60 /* On truncate, we truncate filehandle */
61 /* On control verbs, we saw no label */
62 /* On flipflop, we saw ... instead of .. */
63 /* On UNOPs, saw bare parens, e.g. eof(). */
64 /* On OP_ENTERSUBR || OP_NULL, saw a "do". */
66 /* Private for OP_ASSIGN */
67 #define OPpASSIGN_COMMON 1 /* Left & right have syms in common. */
69 /* Private for OP_TRANS */
70 #define OPpTRANS_SQUASH 1
71 #define OPpTRANS_DELETE 2
72 #define OPpTRANS_COMPLEMENT 4
74 /* Private for OP_REPEAT */
75 #define OPpREPEAT_DOLIST 1 /* List replication. */
77 /* Private for OP_SUBR */
78 #define OPpSUBR_DB 1 /* Debug subroutine. */
80 /* Private for OP_CONST */
81 #define OPpCONST_BARE 1 /* Was a bare word (filehandle?). */
83 /* Private for OP_FLIP/FLOP */
84 #define OPpFLIP_LINENUM 1 /* Range arg potentially a line num. */
128 PMOP * op_pmnext; /* list of all scanpats */
129 REGEXP * op_pmregexp; /* compiled expression */
130 SV * op_pmshort; /* for a fast bypass of execute() */
134 #define PMf_USED 1 /* pm has been used once already */
135 #define PMf_ONCE 2 /* use pattern only once per reset */
136 #define PMf_SCANFIRST 4 /* initial constant not anchored */
137 #define PMf_ALL 8 /* initial constant is whole pat */
138 #define PMf_SKIPWHITE 16 /* skip leading whitespace for split */
139 #define PMf_FOLD 32 /* case insensitivity */
140 #define PMf_CONST 64 /* subst replacement is constant */
141 #define PMf_KEEP 128 /* keep 1st runtime pattern forever */
142 #define PMf_GLOBAL 256 /* pattern had a g modifier */
143 #define PMf_RUNTIME 512 /* pattern coming in on the stack */
144 #define PMf_EVAL 1024 /* evaluating replacement as expr */
177 #define cUNOP ((UNOP*)op)
178 #define cBINOP ((BINOP*)op)
179 #define cLISTOP ((LISTOP*)op)
180 #define cLOGOP ((LOGOP*)op)
181 #define cCONDOP ((CONDOP*)op)
182 #define cPMOP ((PMOP*)op)
183 #define cSVOP ((SVOP*)op)
184 #define cGVOP ((GVOP*)op)
185 #define cPVOP ((PVOP*)op)
186 #define cCVOP ((CVOP*)op)
187 #define cCOP ((COP*)op)
188 #define cLOOP ((LOOP*)op)
190 #define kUNOP ((UNOP*)kid)
191 #define kBINOP ((BINOP*)kid)
192 #define kLISTOP ((LISTOP*)kid)
193 #define kLOGOP ((LOGOP*)kid)
194 #define kCONDOP ((CONDOP*)kid)
195 #define kPMOP ((PMOP*)kid)
196 #define kSVOP ((SVOP*)kid)
197 #define kGVOP ((GVOP*)kid)
198 #define kPVOP ((PVOP*)kid)
199 #define kCVOP ((CVOP*)kid)
200 #define kCOP ((COP*)kid)
201 #define kLOOP ((LOOP*)kid)
203 #define Nullop Null(OP*)