Lines Matching defs:deparse
101 # Current test.deparse failures
151 # True when deparsing via $deparse->coderef2text; false when deparsing the
180 # want to deparse. The fourth element is a pad name thingy for lexical
213 # deparse() calls each per-op subroutine with an argument $cx (short
217 # chart below). When ops with children call deparse on them, they pass
435 # Pop the next sub from the todo list and deparse it
638 $args .= $self->deparse($svop, 6);
695 # we will deparse, then we don’t want to dump it. If it is the
865 # First deparse command-line args
866 if (defined $^I) { # deparse -i
869 if ($^W) { # deparse -w
872 if ($/ ne "\n" or defined $O::savebackslash) { # deparse -l and -0
1069 sub deparse {
1073 Carp::confess("Null op in deparse") if !defined($op)
1181 # deparse_argops(): deparse, if possible, a sequence of argcheck + argelem
1265 my $def = $self->deparse($kid->first, 7);
1287 my $def = $self->deparse($defop->first, 7);
1353 # Try to deparse first subtree as a signature if possible.
1385 $body = $self->deparse($root->first, 0);
1442 push @exprs, $self->deparse($kid, -1);
1529 $kid = $self->deparse($kid, 1);
1535 $kid = $self->deparse($kid, 16);
1738 return $self->deparse($top->first, 1) . " "
1743 $cond = $self->deparse($cond, 1);
1744 $body = $self->deparse($body, 1);
1802 $expr = $self->deparse($kids[$i++], 0);
1813 my $expr2 = $self->deparse($kids[$i], (@kids != 1)/2);
2435 $kid = $self->deparse($kid, $prec);
2489 return $self->deparse($kid,$cx);
2501 if (($kid = $self->deparse($kid, 16)) !~ s/^\cS//) {
2652 $block = $self->deparse($enterop->first, 0);
2656 my $cond_str = $self->deparse($cond, 1);
2658 $block = $self->deparse($cond->sibling, 0);
2773 $expr = $self->deparse($op, 6);
2832 my $text = $self->deparse($kid->sibling, 1);
2870 and $self->deparse($kid, 1) eq 'ARGV')
2913 (my $kid = $self->deparse($op->first, 7)) =~ s/^\cS//;
2934 (my $kid = $self->deparse($op->first, 16)) =~ s/^\cS//;
3029 return $self->deparse($left, $prec - .00001);
3031 return $self->deparse($left, $prec);
3063 return $self->deparse($right, $prec - .00001);
3065 return $self->deparse($right, $prec);
3157 my $val = $self->deparse($op->first, 7);
3164 return $self->deparse($op->last, $cx);
3211 push @exprs, $self->deparse($kid, 6);
3231 $left = $self->deparse($left, 9);
3232 $right = $self->deparse($right, 9);
3255 $left = $self->deparse($left, 1);
3256 $right = $self->deparse($right, 0);
3260 $right = $self->deparse($right, 1);
3261 $left = $self->deparse($left, 1);
3287 $left = $self->deparse($left, 7);
3288 $right = $self->deparse($right, 7);
3335 $dep = $self->deparse($thiscmp->first, $prec);
3343 $dep .= $self->deparse($operand, $prec);
3362 $self->deparse($op, 6);
3394 $first = $self->deparse($kid, 6);
3409 push @exprs, $self->deparse($kid, 6);
3433 . $self->deparse($op->first->sibling, 7);
3547 my $text = $self->deparse($kid, $cx);
3568 $fh = $self->deparse($kid, 6);
3571 my $len = $self->deparse($kid->sibling, 6);
3590 $indir = "{" . $self->deparse($indir, 0) . "}";
3595 $indir = $self->deparse($indir, 24);
3608 $expr = $self->deparse($kid, !$indir && $kid == $firstkid && $name eq "sort" && $firstkid->name eq "entersub" ? 16 : 6);
3662 $code = "{" . $self->deparse($code, 0) . "} ";
3664 $code = $self->deparse($code, 24);
3669 $expr = $self->deparse($kid, 6);
3925 return $self->deparse($kid, $cx) if null $kid->sibling and not $local;
3934 $expr = $self->deparse($kid, 6);
3937 $expr = $self->deparse($kid, 6);
3969 $cond = $self->deparse($cond, 8);
3970 $true = $self->deparse($true, 6);
3971 $false = $self->deparse($false, 8);
3975 $cond = $self->deparse($cond, 1);
3976 $true = $self->deparse($true, 0);
3991 $newcond = $self->deparse($newcond, 1);
3992 $newtrue = $self->deparse($newtrue, 0);
3998 $self->deparse($false, 0) . "\n\b}\cK";
4010 my $ret = $self->deparse($true, $cx);
4044 $ary = $self->deparse($ary->first->sibling, 9) . " .. " .
4045 $self->deparse($ary->first->sibling->sibling, 9);
4047 $ary = $self->deparse($ary, 1);
4073 $var = "\$" . $self->deparse($var, 1);
4075 $var = $self->deparse($var, 1);
4081 return $self->deparse($body, 2) . " "
4120 $postcond = "; " . $self->deparse($cont, 1) .") ";
4124 $self->deparse($cont, 0) . "\n\b}\cK";
4133 $body = $self->deparse($body, 0);
4138 : $self->deparse($cond, 1);
4142 ref $cond and $cond = $self->deparse($cond, 1);
4156 my $init = $self->deparse($op, 1);
4194 my $body = $self->deparse($finallyop->first->first);
4253 return $self->maybe_parens($self->deparse($op->first, 7) . " = "
4254 . $self->deparse($op->first->sibling, 7),
4259 return $self->maybe_parens($self->deparse($op->first, 20) . " =~ "
4260 . $self->deparse($op->first->sibling, 20),
4264 . " {\n\t". $self->deparse($op->first, $cx) ."\n\b};";
4270 return $self->maybe_parens($self->deparse($op->first, 18) . " .= "
4271 . $self->deparse($op->first->sibling, 18),
4274 return $self->deparse($op->first, $cx);
4358 my $val = $self->deparse($op->first, 7);
4399 my $str = $self->deparse($kid, 0);
4414 return $type . "{" . $self->deparse($kid, 0) . "}";
4445 $expr = $self->deparse($kkid, 24); # 24 is '->'
4529 return "{" . $self->deparse($array, 0) . "}";
4541 return $self->deparse($array, 24);
4552 $idx = $self->deparse($idx, 1);
4604 return $self->deparse($array, 24) . $arrow . $left . $idx . $right;
4625 # deparse an OP_MULTICONCAT. If $in_dq is 1, we're within
4664 $lhs = $self->deparse($expr, 7);
4697 # don't deparse "a${$}b" as "a$$b"
4729 push @all, map $self->deparse($_, 6), @kids;
4740 push @all, $self->deparse(shift(@kids), 18) if $not_first;
4782 my $expr = $self->deparse($op->first, 24);
4902 $glob = $self->deparse($glob, 0);
4903 $part = $self->deparse($part, 1);
4927 push @elems, $self->deparse($kid, 6);
4950 $list = $self->deparse($list, 1);
4951 $idx = $self->deparse($idx, 1);
5031 my $obj = $self->deparse($info->{object}, 24);
5034 $meth = $self->deparse($meth, 1) if $info->{variable_method};
5035 my $args = join(", ", map { $self->deparse($_, 6) } @{$info->{args}} );
5071 push @reals, map($self->deparse($_, 6), @args);
5081 push @reals, $self->deparse($arg, 6);
5087 push @reals, $self->deparse($arg, 6);
5097 push @reals, $self->deparse($real, 6);
5099 push @reals, $self->deparse($real->first, 6);
5111 push @reals, $self->deparse($real, 6);
5113 push @reals, $self->deparse($arg, 6);
5134 push @reals, $self->deparse($real, 6);
5213 $kid = "{" . $self->deparse($kid, 0) . "}";
5254 $kid = $self->deparse($kid, 24);
5262 $kid = $self->deparse($kid, 24) . $arrow;
5307 : $self->deparse($_, 6),
5785 return $self->deparse($op->last, 26); # was join($", @ary)
5787 return $self->deparse($op, 26);
5807 return $self->deparse($kid, $cx) if $self->{'unquote'};
6193 return $self->deparse($op->last, 26); # was join($", @ary)
6195 my $ret = $self->deparse($op, 26);
6330 return ($self->deparse($kid, $cx), 0);
6406 $var = $self->deparse($kid, 20);
6500 push @exprs, $self->deparse($kid, 6);
6567 $var = $self->deparse($kid, 20);
6589 $repl = $self->deparse($repl->first, 0);
6661 . $self->deparse($op->first->sibling));
6677 . $self->deparse($op->first));
6729 $expr = $self->deparse($op->first, 7);
6746 my $def = $self->deparse($op->first, 7);
6748 $expr .= $self->deparse($op->first, $cx);
6758 my $body = $self->deparse($op->first->first);
6765 my $arg = $self->deparse($op->first);
7033 $deparse = B::Deparse->new("-p", "-sC");
7034 $body = $deparse->coderef2text(\&func);
7044 $deparse = B::Deparse->new(OPTIONS)
7053 $deparse->ambient_pragmas(strict => 'all', '$[' => $[);
7114 $deparse->ambient_pragmas(strict => 'subs refs');
7189 $body = $deparse->coderef2text(\&func)
7190 $body = $deparse->coderef2text(sub ($$) { ... })