Install arch-dependent files into $archlib.
[perl.git] / mad / P5AST.pm
1 package P5AST;
2
3 $::herequeue = '';
4
5 1;
6
7 {
8     my %newkey = qw(
9     );
10
11     sub translate {
12         my $class = shift;
13         my $key = shift;
14         $key = $newkey{$key} || "op_$key";
15         return "P5AST::$key";
16     }
17 }
18
19 sub new {
20     my $class = shift;
21     bless {@_}, $class;
22 }
23
24 sub AUTOLOAD {
25     warn "AUTOLOAD $P5AST::AUTOLOAD(" . join(',', @_) . ")\n";
26 }
27
28 sub DESTROY { }
29
30 sub p5arraytext {
31     my $kid = shift;
32     my $text = "";
33     for my $subkid (@$kid) {
34         my $type = ref $subkid;
35         if ($type eq 'ARRAY') {
36             if ($dowarn) {
37                 warn "Extra array\n";
38                 $text .= '〔 '. p5arraytext($subkid) . ' 〕';
39             }
40             else {
41                 $text .= p5arraytext($subkid);
42             }
43         }
44         elsif ($type =~ /^p5::/) {
45             my $newtext = $subkid->enc();
46             if ($::herequeue && $newtext =~ s/\n/\n$::herequeue/) {
47                 $::herequeue = '';
48             }
49             $text .= $newtext;
50         }
51         elsif ($type) {
52             $text .= $subkid->text(@_);
53         }
54         else {
55             $text .= $subkid;
56         }
57     }
58     return $text;
59 }
60
61 sub p5text {
62     my $self = shift;
63 #    my $pre = $self->pretext();
64 #    my $post = $self->posttext();
65     my $text = "";
66     foreach my $kid (@{$$self{Kids}}) {
67         my $type = ref $kid;
68         if ($type eq 'ARRAY') {
69             $text .= p5arraytext($kid);
70         }
71         elsif ($type =~ /^p5::/) {
72             my $newtext = $kid->enc();
73             if ($::herequeue && $newtext =~ s/\n/\n$::herequeue/) {
74                 $::herequeue = '';
75             }
76             $text .= $newtext;
77         }
78         elsif ($type eq "chomp") {
79             $text =~ s/\n$//g;
80         }
81         elsif ($type) {
82             $text .= $kid->p5text(@_);
83         }
84         elsif (defined $kid) {
85             $text .= $kid;
86         }
87         else {
88             $text .= '[[[ UNDEF ]]]';
89         }
90     }
91     return $text;
92 }
93
94 sub p5subtext {
95     my $self = shift;
96     my @text;
97     foreach my $kid (@{$$self{Kids}}) {
98         my $text = $kid->p5text(@_);
99         push @text, $text if defined $text;
100     }
101     return @text;
102 }
103
104 sub p6text {
105     return $_[0]->p5text();     # assume it's the same
106 }
107
108 package P5AST::heredoc; @ISA = 'P5AST';
109
110 sub p5text {
111     my $self = shift;
112     my $newdoc;
113     {
114         local $::herequeue;                     # don't interpolate outer heredoc yet
115         $newdoc = $self->{doc}->p5text(@_) .  $self->{end}->enc();
116         if ($::herequeue) {                     # heredoc within the heredoc?
117             $newdoc .= $::herequeue;
118             $::herequeue = '';
119         }
120     }
121     $::herequeue .= $newdoc;
122     my $start = $self->{start};
123     my $type = ref $start;
124     if ($type =~ /^p5::/) {             # XXX too much cut-n-paste here...
125         return $start->enc();
126     }
127     elsif ($type) {
128         return $start->p5text(@_);
129     }
130     else {
131         return $start;
132     }
133 }
134
135 package P5AST::BAD;
136
137 sub p5text {
138     my $self = shift;
139     my $t = ref $t;
140     warn "Shouldn't have a node of type $t";
141 }
142
143 package P5AST::baseop;          @ISA = 'P5AST';
144 package P5AST::baseop_unop;     @ISA = 'P5AST::baseop';
145 package P5AST::binop;           @ISA = 'P5AST::baseop';
146 package P5AST::cop;             @ISA = 'P5AST::baseop';
147 package P5AST::filestatop;      @ISA = 'P5AST::baseop';
148 package P5AST::listop;          @ISA = 'P5AST::baseop';
149 package P5AST::logop;           @ISA = 'P5AST::baseop';
150 package P5AST::loop;            @ISA = 'P5AST::baseop';
151 package P5AST::loopexop;        @ISA = 'P5AST::baseop';
152 package P5AST::padop;           @ISA = 'P5AST::baseop';
153 package P5AST::padop_svop;      @ISA = 'P5AST::baseop';
154 package P5AST::pmop;            @ISA = 'P5AST::baseop';
155 package P5AST::pvop_svop;       @ISA = 'P5AST::baseop';
156 package P5AST::unop;            @ISA = 'P5AST::baseop';
157
158 # Nothing.
159
160 package P5AST::op_null;         @ISA = 'P5AST::baseop';
161 package P5AST::op_stub;         @ISA = 'P5AST::baseop';
162 package P5AST::op_scalar;       @ISA = 'P5AST::baseop_unop';
163
164 # Pushy stuff.
165
166 package P5AST::op_pushmark;     @ISA = 'P5AST::baseop';
167 package P5AST::op_wantarray;    @ISA = 'P5AST::baseop';
168 package P5AST::op_const;        @ISA = 'P5AST::padop_svop';
169 package P5AST::op_gvsv;         @ISA = 'P5AST::padop_svop';
170 package P5AST::op_gv;           @ISA = 'P5AST::padop_svop';
171 package P5AST::op_gelem;        @ISA = 'P5AST::binop';
172 package P5AST::op_padsv;        @ISA = 'P5AST::baseop';
173 package P5AST::op_padav;        @ISA = 'P5AST::baseop';
174 package P5AST::op_padhv;        @ISA = 'P5AST::baseop';
175 package P5AST::op_padany;       @ISA = 'P5AST::baseop';
176 package P5AST::op_pushre;       @ISA = 'P5AST::pmop';
177 package P5AST::op_rv2gv;        @ISA = 'P5AST::unop';
178 package P5AST::op_rv2sv;        @ISA = 'P5AST::unop';
179 package P5AST::op_av2arylen;    @ISA = 'P5AST::unop';
180 package P5AST::op_rv2cv;        @ISA = 'P5AST::unop';
181 package P5AST::op_anoncode;     @ISA = 'P5AST::padop_svop';
182 package P5AST::op_prototype;    @ISA = 'P5AST::baseop_unop';
183 package P5AST::op_refgen;       @ISA = 'P5AST::unop';
184 package P5AST::op_srefgen;      @ISA = 'P5AST::unop';
185 package P5AST::op_ref;          @ISA = 'P5AST::baseop_unop';
186 package P5AST::op_bless;        @ISA = 'P5AST::listop';
187 package P5AST::op_backtick;     @ISA = 'P5AST::baseop_unop';
188 package P5AST::op_glob;         @ISA = 'P5AST::listop';
189 package P5AST::op_readline;     @ISA = 'P5AST::baseop_unop';
190 package P5AST::op_rcatline;     @ISA = 'P5AST::padop_svop';
191 package P5AST::op_regcmaybe;    @ISA = 'P5AST::unop';
192 package P5AST::op_regcreset;    @ISA = 'P5AST::unop';
193 package P5AST::op_regcomp;      @ISA = 'P5AST::logop';
194 package P5AST::op_match;        @ISA = 'P5AST::pmop';
195 package P5AST::op_qr;           @ISA = 'P5AST::pmop';
196 package P5AST::op_subst;        @ISA = 'P5AST::pmop';
197 package P5AST::op_substcont;    @ISA = 'P5AST::logop';
198 package P5AST::op_trans;        @ISA = 'P5AST::pvop_svop';
199 package P5AST::op_sassign;      @ISA = 'P5AST::baseop';
200 package P5AST::op_aassign;      @ISA = 'P5AST::binop';
201 package P5AST::op_chop;         @ISA = 'P5AST::baseop_unop';
202 package P5AST::op_schop;        @ISA = 'P5AST::baseop_unop';
203 package P5AST::op_chomp;        @ISA = 'P5AST::baseop_unop';
204 package P5AST::op_schomp;       @ISA = 'P5AST::baseop_unop';
205 package P5AST::op_defined;      @ISA = 'P5AST::baseop_unop';
206 package P5AST::op_undef;        @ISA = 'P5AST::baseop_unop';
207 package P5AST::op_study;        @ISA = 'P5AST::baseop_unop';
208 package P5AST::op_pos;          @ISA = 'P5AST::baseop_unop';
209 package P5AST::op_preinc;       @ISA = 'P5AST::unop';
210 package P5AST::op_i_preinc;     @ISA = 'P5AST::unop';
211 package P5AST::op_predec;       @ISA = 'P5AST::unop';
212 package P5AST::op_i_predec;     @ISA = 'P5AST::unop';
213 package P5AST::op_postinc;      @ISA = 'P5AST::unop';
214 package P5AST::op_i_postinc;    @ISA = 'P5AST::unop';
215 package P5AST::op_postdec;      @ISA = 'P5AST::unop';
216 package P5AST::op_i_postdec;    @ISA = 'P5AST::unop';
217 package P5AST::op_pow;          @ISA = 'P5AST::binop';
218 package P5AST::op_multiply;     @ISA = 'P5AST::binop';
219 package P5AST::op_i_multiply;   @ISA = 'P5AST::binop';
220 package P5AST::op_divide;       @ISA = 'P5AST::binop';
221 package P5AST::op_i_divide;     @ISA = 'P5AST::binop';
222 package P5AST::op_modulo;       @ISA = 'P5AST::binop';
223 package P5AST::op_i_modulo;     @ISA = 'P5AST::binop';
224 package P5AST::op_repeat;       @ISA = 'P5AST::binop';
225 package P5AST::op_add;          @ISA = 'P5AST::binop';
226 package P5AST::op_i_add;        @ISA = 'P5AST::binop';
227 package P5AST::op_subtract;     @ISA = 'P5AST::binop';
228 package P5AST::op_i_subtract;   @ISA = 'P5AST::binop';
229 package P5AST::op_concat;       @ISA = 'P5AST::binop';
230 package P5AST::op_stringify;    @ISA = 'P5AST::listop';
231 package P5AST::op_left_shift;   @ISA = 'P5AST::binop';
232 package P5AST::op_right_shift;  @ISA = 'P5AST::binop';
233 package P5AST::op_lt;           @ISA = 'P5AST::binop';
234 package P5AST::op_i_lt;         @ISA = 'P5AST::binop';
235 package P5AST::op_gt;           @ISA = 'P5AST::binop';
236 package P5AST::op_i_gt;         @ISA = 'P5AST::binop';
237 package P5AST::op_le;           @ISA = 'P5AST::binop';
238 package P5AST::op_i_le;         @ISA = 'P5AST::binop';
239 package P5AST::op_ge;           @ISA = 'P5AST::binop';
240 package P5AST::op_i_ge;         @ISA = 'P5AST::binop';
241 package P5AST::op_eq;           @ISA = 'P5AST::binop';
242 package P5AST::op_i_eq;         @ISA = 'P5AST::binop';
243 package P5AST::op_ne;           @ISA = 'P5AST::binop';
244 package P5AST::op_i_ne;         @ISA = 'P5AST::binop';
245 package P5AST::op_ncmp;         @ISA = 'P5AST::binop';
246 package P5AST::op_i_ncmp;       @ISA = 'P5AST::binop';
247 package P5AST::op_slt;          @ISA = 'P5AST::binop';
248 package P5AST::op_sgt;          @ISA = 'P5AST::binop';
249 package P5AST::op_sle;          @ISA = 'P5AST::binop';
250 package P5AST::op_sge;          @ISA = 'P5AST::binop';
251 package P5AST::op_seq;          @ISA = 'P5AST::binop';
252 package P5AST::op_sne;          @ISA = 'P5AST::binop';
253 package P5AST::op_scmp;         @ISA = 'P5AST::binop';
254 package P5AST::op_bit_and;      @ISA = 'P5AST::binop';
255 package P5AST::op_bit_xor;      @ISA = 'P5AST::binop';
256 package P5AST::op_bit_or;       @ISA = 'P5AST::binop';
257 package P5AST::op_negate;       @ISA = 'P5AST::unop';
258 package P5AST::op_i_negate;     @ISA = 'P5AST::unop';
259 package P5AST::op_not;          @ISA = 'P5AST::unop';
260 package P5AST::op_complement;   @ISA = 'P5AST::unop';
261 package P5AST::op_atan2;        @ISA = 'P5AST::listop';
262 package P5AST::op_sin;          @ISA = 'P5AST::baseop_unop';
263 package P5AST::op_cos;          @ISA = 'P5AST::baseop_unop';
264 package P5AST::op_rand;         @ISA = 'P5AST::baseop_unop';
265 package P5AST::op_srand;        @ISA = 'P5AST::baseop_unop';
266 package P5AST::op_exp;          @ISA = 'P5AST::baseop_unop';
267 package P5AST::op_log;          @ISA = 'P5AST::baseop_unop';
268 package P5AST::op_sqrt;         @ISA = 'P5AST::baseop_unop';
269 package P5AST::op_int;          @ISA = 'P5AST::baseop_unop';
270 package P5AST::op_hex;          @ISA = 'P5AST::baseop_unop';
271 package P5AST::op_oct;          @ISA = 'P5AST::baseop_unop';
272 package P5AST::op_abs;          @ISA = 'P5AST::baseop_unop';
273 package P5AST::op_length;       @ISA = 'P5AST::baseop_unop';
274 package P5AST::op_substr;       @ISA = 'P5AST::listop';
275 package P5AST::op_vec;          @ISA = 'P5AST::listop';
276 package P5AST::op_index;        @ISA = 'P5AST::listop';
277 package P5AST::op_rindex;       @ISA = 'P5AST::listop';
278 package P5AST::op_sprintf;      @ISA = 'P5AST::listop';
279 package P5AST::op_formline;     @ISA = 'P5AST::listop';
280 package P5AST::op_ord;          @ISA = 'P5AST::baseop_unop';
281 package P5AST::op_chr;          @ISA = 'P5AST::baseop_unop';
282 package P5AST::op_crypt;        @ISA = 'P5AST::listop';
283 package P5AST::op_ucfirst;      @ISA = 'P5AST::baseop_unop';
284 package P5AST::op_lcfirst;      @ISA = 'P5AST::baseop_unop';
285 package P5AST::op_uc;           @ISA = 'P5AST::baseop_unop';
286 package P5AST::op_lc;           @ISA = 'P5AST::baseop_unop';
287 package P5AST::op_quotemeta;    @ISA = 'P5AST::baseop_unop';
288 package P5AST::op_rv2av;        @ISA = 'P5AST::unop';
289 package P5AST::op_aelemfast;    @ISA = 'P5AST::padop_svop';
290 package P5AST::op_aelem;        @ISA = 'P5AST::binop';
291 package P5AST::op_aslice;       @ISA = 'P5AST::listop';
292 package P5AST::op_each;         @ISA = 'P5AST::baseop_unop';
293 package P5AST::op_values;       @ISA = 'P5AST::baseop_unop';
294 package P5AST::op_keys;         @ISA = 'P5AST::baseop_unop';
295 package P5AST::op_delete;       @ISA = 'P5AST::baseop_unop';
296 package P5AST::op_exists;       @ISA = 'P5AST::baseop_unop';
297 package P5AST::op_rv2hv;        @ISA = 'P5AST::unop';
298 package P5AST::op_helem;        @ISA = 'P5AST::listop';
299 package P5AST::op_hslice;       @ISA = 'P5AST::listop';
300 package P5AST::op_unpack;       @ISA = 'P5AST::listop';
301 package P5AST::op_pack;         @ISA = 'P5AST::listop';
302 package P5AST::op_split;        @ISA = 'P5AST::listop';
303 package P5AST::op_join;         @ISA = 'P5AST::listop';
304 package P5AST::op_list;         @ISA = 'P5AST::listop';
305 package P5AST::op_lslice;       @ISA = 'P5AST::binop';
306 package P5AST::op_anonlist;     @ISA = 'P5AST::listop';
307 package P5AST::op_anonhash;     @ISA = 'P5AST::listop';
308 package P5AST::op_splice;       @ISA = 'P5AST::listop';
309 package P5AST::op_push;         @ISA = 'P5AST::listop';
310 package P5AST::op_pop;          @ISA = 'P5AST::baseop_unop';
311 package P5AST::op_shift;        @ISA = 'P5AST::baseop_unop';
312 package P5AST::op_unshift;      @ISA = 'P5AST::listop';
313 package P5AST::op_sort;         @ISA = 'P5AST::listop';
314 package P5AST::op_reverse;      @ISA = 'P5AST::listop';
315 package P5AST::op_grepstart;    @ISA = 'P5AST::listop';
316 package P5AST::op_grepwhile;    @ISA = 'P5AST::logop';
317 package P5AST::op_mapstart;     @ISA = 'P5AST::listop';
318 package P5AST::op_mapwhile;     @ISA = 'P5AST::logop';
319 package P5AST::op_range;        @ISA = 'P5AST::logop';
320 package P5AST::op_flip;         @ISA = 'P5AST::unop';
321 package P5AST::op_flop;         @ISA = 'P5AST::unop';
322 package P5AST::op_and;          @ISA = 'P5AST::logop';
323 package P5AST::op_or;           @ISA = 'P5AST::logop';
324 package P5AST::op_xor;          @ISA = 'P5AST::binop';
325 package P5AST::op_cond_expr;    @ISA = 'P5AST::logop';
326 package P5AST::op_andassign;    @ISA = 'P5AST::logop';
327 package P5AST::op_orassign;     @ISA = 'P5AST::logop';
328 package P5AST::op_method;       @ISA = 'P5AST::unop';
329 package P5AST::op_entersub;     @ISA = 'P5AST::unop';
330 package P5AST::op_leavesub;     @ISA = 'P5AST::unop';
331 package P5AST::op_leavesublv;   @ISA = 'P5AST::unop';
332 package P5AST::op_caller;       @ISA = 'P5AST::baseop_unop';
333 package P5AST::op_warn;         @ISA = 'P5AST::listop';
334 package P5AST::op_die;          @ISA = 'P5AST::listop';
335 package P5AST::op_reset;        @ISA = 'P5AST::baseop_unop';
336 package P5AST::op_lineseq;      @ISA = 'P5AST::listop';
337 package P5AST::op_nextstate;    @ISA = 'P5AST::BAD';
338 package P5AST::op_dbstate;      @ISA = 'P5AST::cop';
339 package P5AST::op_unstack;      @ISA = 'P5AST::baseop';
340 package P5AST::op_enter;        @ISA = 'P5AST::baseop';
341 package P5AST::op_leave;        @ISA = 'P5AST::listop';
342 package P5AST::op_scope;        @ISA = 'P5AST::listop';
343 package P5AST::op_enteriter;    @ISA = 'P5AST::loop';
344 package P5AST::op_iter;         @ISA = 'P5AST::baseop';
345 package P5AST::op_enterloop;    @ISA = 'P5AST::loop';
346 package P5AST::op_leaveloop;    @ISA = 'P5AST::binop';
347 package P5AST::op_return;       @ISA = 'P5AST::listop';
348 package P5AST::op_last;         @ISA = 'P5AST::loopexop';
349 package P5AST::op_next;         @ISA = 'P5AST::loopexop';
350 package P5AST::op_redo;         @ISA = 'P5AST::loopexop';
351 package P5AST::op_dump;         @ISA = 'P5AST::loopexop';
352 package P5AST::op_goto;         @ISA = 'P5AST::loopexop';
353 package P5AST::op_exit;         @ISA = 'P5AST::baseop_unop';
354 package P5AST::op_open;         @ISA = 'P5AST::listop';
355 package P5AST::op_close;        @ISA = 'P5AST::baseop_unop';
356 package P5AST::op_pipe_op;      @ISA = 'P5AST::listop';
357 package P5AST::op_fileno;       @ISA = 'P5AST::baseop_unop';
358 package P5AST::op_umask;        @ISA = 'P5AST::baseop_unop';
359 package P5AST::op_binmode;      @ISA = 'P5AST::listop';
360 package P5AST::op_tie;          @ISA = 'P5AST::listop';
361 package P5AST::op_untie;        @ISA = 'P5AST::baseop_unop';
362 package P5AST::op_tied;         @ISA = 'P5AST::baseop_unop';
363 package P5AST::op_dbmopen;      @ISA = 'P5AST::listop';
364 package P5AST::op_dbmclose;     @ISA = 'P5AST::baseop_unop';
365 package P5AST::op_sselect;      @ISA = 'P5AST::listop';
366 package P5AST::op_select;       @ISA = 'P5AST::listop';
367 package P5AST::op_getc;         @ISA = 'P5AST::baseop_unop';
368 package P5AST::op_read;         @ISA = 'P5AST::listop';
369 package P5AST::op_enterwrite;   @ISA = 'P5AST::baseop_unop';
370 package P5AST::op_leavewrite;   @ISA = 'P5AST::unop';
371 package P5AST::op_prtf;         @ISA = 'P5AST::listop';
372 package P5AST::op_print;        @ISA = 'P5AST::listop';
373 package P5AST::op_sysopen;      @ISA = 'P5AST::listop';
374 package P5AST::op_sysseek;      @ISA = 'P5AST::listop';
375 package P5AST::op_sysread;      @ISA = 'P5AST::listop';
376 package P5AST::op_syswrite;     @ISA = 'P5AST::listop';
377 package P5AST::op_send;         @ISA = 'P5AST::listop';
378 package P5AST::op_recv;         @ISA = 'P5AST::listop';
379 package P5AST::op_eof;          @ISA = 'P5AST::baseop_unop';
380 package P5AST::op_tell;         @ISA = 'P5AST::baseop_unop';
381 package P5AST::op_seek;         @ISA = 'P5AST::listop';
382 package P5AST::op_truncate;     @ISA = 'P5AST::listop';
383 package P5AST::op_fcntl;        @ISA = 'P5AST::listop';
384 package P5AST::op_ioctl;        @ISA = 'P5AST::listop';
385 package P5AST::op_flock;        @ISA = 'P5AST::listop';
386 package P5AST::op_socket;       @ISA = 'P5AST::listop';
387 package P5AST::op_sockpair;     @ISA = 'P5AST::listop';
388 package P5AST::op_bind;         @ISA = 'P5AST::listop';
389 package P5AST::op_connect;      @ISA = 'P5AST::listop';
390 package P5AST::op_listen;       @ISA = 'P5AST::listop';
391 package P5AST::op_accept;       @ISA = 'P5AST::listop';
392 package P5AST::op_shutdown;     @ISA = 'P5AST::listop';
393 package P5AST::op_gsockopt;     @ISA = 'P5AST::listop';
394 package P5AST::op_ssockopt;     @ISA = 'P5AST::listop';
395 package P5AST::op_getsockname;  @ISA = 'P5AST::baseop_unop';
396 package P5AST::op_getpeername;  @ISA = 'P5AST::baseop_unop';
397 package P5AST::op_lstat;        @ISA = 'P5AST::filestatop';
398 package P5AST::op_stat;         @ISA = 'P5AST::filestatop';
399 package P5AST::op_ftrread;      @ISA = 'P5AST::filestatop';
400 package P5AST::op_ftrwrite;     @ISA = 'P5AST::filestatop';
401 package P5AST::op_ftrexec;      @ISA = 'P5AST::filestatop';
402 package P5AST::op_fteread;      @ISA = 'P5AST::filestatop';
403 package P5AST::op_ftewrite;     @ISA = 'P5AST::filestatop';
404 package P5AST::op_fteexec;      @ISA = 'P5AST::filestatop';
405 package P5AST::op_ftis;         @ISA = 'P5AST::filestatop';
406 package P5AST::op_fteowned;     @ISA = 'P5AST::filestatop';
407 package P5AST::op_ftrowned;     @ISA = 'P5AST::filestatop';
408 package P5AST::op_ftzero;       @ISA = 'P5AST::filestatop';
409 package P5AST::op_ftsize;       @ISA = 'P5AST::filestatop';
410 package P5AST::op_ftmtime;      @ISA = 'P5AST::filestatop';
411 package P5AST::op_ftatime;      @ISA = 'P5AST::filestatop';
412 package P5AST::op_ftctime;      @ISA = 'P5AST::filestatop';
413 package P5AST::op_ftsock;       @ISA = 'P5AST::filestatop';
414 package P5AST::op_ftchr;        @ISA = 'P5AST::filestatop';
415 package P5AST::op_ftblk;        @ISA = 'P5AST::filestatop';
416 package P5AST::op_ftfile;       @ISA = 'P5AST::filestatop';
417 package P5AST::op_ftdir;        @ISA = 'P5AST::filestatop';
418 package P5AST::op_ftpipe;       @ISA = 'P5AST::filestatop';
419 package P5AST::op_ftlink;       @ISA = 'P5AST::filestatop';
420 package P5AST::op_ftsuid;       @ISA = 'P5AST::filestatop';
421 package P5AST::op_ftsgid;       @ISA = 'P5AST::filestatop';
422 package P5AST::op_ftsvtx;       @ISA = 'P5AST::filestatop';
423 package P5AST::op_fttty;        @ISA = 'P5AST::filestatop';
424 package P5AST::op_fttext;       @ISA = 'P5AST::filestatop';
425 package P5AST::op_ftbinary;     @ISA = 'P5AST::filestatop';
426 package P5AST::op_chdir;        @ISA = 'P5AST::baseop_unop';
427 package P5AST::op_chown;        @ISA = 'P5AST::listop';
428 package P5AST::op_chroot;       @ISA = 'P5AST::baseop_unop';
429 package P5AST::op_unlink;       @ISA = 'P5AST::listop';
430 package P5AST::op_chmod;        @ISA = 'P5AST::listop';
431 package P5AST::op_utime;        @ISA = 'P5AST::listop';
432 package P5AST::op_rename;       @ISA = 'P5AST::listop';
433 package P5AST::op_link;         @ISA = 'P5AST::listop';
434 package P5AST::op_symlink;      @ISA = 'P5AST::listop';
435 package P5AST::op_readlink;     @ISA = 'P5AST::baseop_unop';
436 package P5AST::op_mkdir;        @ISA = 'P5AST::listop';
437 package P5AST::op_rmdir;        @ISA = 'P5AST::baseop_unop';
438 package P5AST::op_open_dir;     @ISA = 'P5AST::listop';
439 package P5AST::op_readdir;      @ISA = 'P5AST::baseop_unop';
440 package P5AST::op_telldir;      @ISA = 'P5AST::baseop_unop';
441 package P5AST::op_seekdir;      @ISA = 'P5AST::listop';
442 package P5AST::op_rewinddir;    @ISA = 'P5AST::baseop_unop';
443 package P5AST::op_closedir;     @ISA = 'P5AST::baseop_unop';
444 package P5AST::op_fork;         @ISA = 'P5AST::baseop';
445 package P5AST::op_wait;         @ISA = 'P5AST::baseop';
446 package P5AST::op_waitpid;      @ISA = 'P5AST::listop';
447 package P5AST::op_system;       @ISA = 'P5AST::listop';
448 package P5AST::op_exec;         @ISA = 'P5AST::listop';
449 package P5AST::op_kill;         @ISA = 'P5AST::listop';
450 package P5AST::op_getppid;      @ISA = 'P5AST::baseop';
451 package P5AST::op_getpgrp;      @ISA = 'P5AST::baseop_unop';
452 package P5AST::op_setpgrp;      @ISA = 'P5AST::listop';
453 package P5AST::op_getpriority;  @ISA = 'P5AST::listop';
454 package P5AST::op_setpriority;  @ISA = 'P5AST::listop';
455 package P5AST::op_time;         @ISA = 'P5AST::baseop';
456 package P5AST::op_tms;          @ISA = 'P5AST::baseop';
457 package P5AST::op_localtime;    @ISA = 'P5AST::baseop_unop';
458 package P5AST::op_gmtime;       @ISA = 'P5AST::baseop_unop';
459 package P5AST::op_alarm;        @ISA = 'P5AST::baseop_unop';
460 package P5AST::op_sleep;        @ISA = 'P5AST::baseop_unop';
461 package P5AST::op_shmget;       @ISA = 'P5AST::listop';
462 package P5AST::op_shmctl;       @ISA = 'P5AST::listop';
463 package P5AST::op_shmread;      @ISA = 'P5AST::listop';
464 package P5AST::op_shmwrite;     @ISA = 'P5AST::listop';
465 package P5AST::op_msgget;       @ISA = 'P5AST::listop';
466 package P5AST::op_msgctl;       @ISA = 'P5AST::listop';
467 package P5AST::op_msgsnd;       @ISA = 'P5AST::listop';
468 package P5AST::op_msgrcv;       @ISA = 'P5AST::listop';
469 package P5AST::op_semget;       @ISA = 'P5AST::listop';
470 package P5AST::op_semctl;       @ISA = 'P5AST::listop';
471 package P5AST::op_semop;        @ISA = 'P5AST::listop';
472 package P5AST::op_require;      @ISA = 'P5AST::baseop_unop';
473 package P5AST::op_dofile;       @ISA = 'P5AST::unop';
474 package P5AST::op_entereval;    @ISA = 'P5AST::baseop_unop';
475 package P5AST::op_leaveeval;    @ISA = 'P5AST::unop';
476 package P5AST::op_entertry;     @ISA = 'P5AST::logop';
477 package P5AST::op_leavetry;     @ISA = 'P5AST::listop';
478 package P5AST::op_ghbyname;     @ISA = 'P5AST::baseop_unop';
479 package P5AST::op_ghbyaddr;     @ISA = 'P5AST::listop';
480 package P5AST::op_ghostent;     @ISA = 'P5AST::baseop';
481 package P5AST::op_gnbyname;     @ISA = 'P5AST::baseop_unop';
482 package P5AST::op_gnbyaddr;     @ISA = 'P5AST::listop';
483 package P5AST::op_gnetent;      @ISA = 'P5AST::baseop';
484 package P5AST::op_gpbyname;     @ISA = 'P5AST::baseop_unop';
485 package P5AST::op_gpbynumber;   @ISA = 'P5AST::listop';
486 package P5AST::op_gprotoent;    @ISA = 'P5AST::baseop';
487 package P5AST::op_gsbyname;     @ISA = 'P5AST::listop';
488 package P5AST::op_gsbyport;     @ISA = 'P5AST::listop';
489 package P5AST::op_gservent;     @ISA = 'P5AST::baseop';
490 package P5AST::op_shostent;     @ISA = 'P5AST::baseop_unop';
491 package P5AST::op_snetent;      @ISA = 'P5AST::baseop_unop';
492 package P5AST::op_sprotoent;    @ISA = 'P5AST::baseop_unop';
493 package P5AST::op_sservent;     @ISA = 'P5AST::baseop_unop';
494 package P5AST::op_ehostent;     @ISA = 'P5AST::baseop';
495 package P5AST::op_enetent;      @ISA = 'P5AST::baseop';
496 package P5AST::op_eprotoent;    @ISA = 'P5AST::baseop';
497 package P5AST::op_eservent;     @ISA = 'P5AST::baseop';
498 package P5AST::op_gpwnam;       @ISA = 'P5AST::baseop_unop';
499 package P5AST::op_gpwuid;       @ISA = 'P5AST::baseop_unop';
500 package P5AST::op_gpwent;       @ISA = 'P5AST::baseop';
501 package P5AST::op_spwent;       @ISA = 'P5AST::baseop';
502 package P5AST::op_epwent;       @ISA = 'P5AST::baseop';
503 package P5AST::op_ggrnam;       @ISA = 'P5AST::baseop_unop';
504 package P5AST::op_ggrgid;       @ISA = 'P5AST::baseop_unop';
505 package P5AST::op_ggrent;       @ISA = 'P5AST::baseop';
506 package P5AST::op_sgrent;       @ISA = 'P5AST::baseop';
507 package P5AST::op_egrent;       @ISA = 'P5AST::baseop';
508 package P5AST::op_getlogin;     @ISA = 'P5AST::baseop';
509 package P5AST::op_syscall;      @ISA = 'P5AST::listop';
510 package P5AST::op_lock;         @ISA = 'P5AST::baseop_unop';
511 package P5AST::op_threadsv;     @ISA = 'P5AST::baseop';
512 package P5AST::op_setstate;     @ISA = 'P5AST::cop';
513 package P5AST::op_method_named; @ISA = 'P5AST::padop_svop';
514 package P5AST::op_dor;          @ISA = 'P5AST::logop';
515 package P5AST::op_dorassign;    @ISA = 'P5AST::logop';
516 package P5AST::op_custom;       @ISA = 'P5AST::baseop';
517
518 # New node types (implicit types within perl)
519
520 package P5AST::statement;       @ISA = 'P5AST::cop';
521 package P5AST::peg;             @ISA = 'P5AST::baseop';
522 package P5AST::parens;          @ISA = 'P5AST::baseop';
523 package P5AST::bindop;          @ISA = 'P5AST::baseop';
524 package P5AST::nothing;         @ISA = 'P5AST::baseop';
525 package P5AST::condstate;       @ISA = 'P5AST::logop';
526 package P5AST::use;             @ISA = 'P5AST::baseop';
527 package P5AST::ternary;         @ISA = 'P5AST::baseop';
528 package P5AST::sub;             @ISA = 'P5AST::baseop';
529 package P5AST::condmod;         @ISA = 'P5AST::logop';
530 package P5AST::package;         @ISA = 'P5AST::baseop';
531 package P5AST::format;          @ISA = 'P5AST::baseop';
532 package P5AST::qwliteral;       @ISA = 'P5AST::baseop';
533 package P5AST::quote;           @ISA = 'P5AST::baseop';
534 package P5AST::token;           @ISA = 'P5AST::baseop';
535 package P5AST::attrlist;        @ISA = 'P5AST::baseop';
536 package P5AST::listelem;        @ISA = 'P5AST::baseop';
537 package P5AST::preplus;         @ISA = 'P5AST::baseop';
538 package P5AST::doblock;         @ISA = 'P5AST::baseop';
539 package P5AST::cfor;            @ISA = 'P5AST::baseop';
540 package P5AST::pmop;            @ISA = 'P5AST::baseop';