Lines Matching refs:new
92 my ($t, $tab, %curargs, $new, $eval_index, $dir, $name, $args, $outfile);
137 $new = '';
154 $new =~ s/(["\\])/\\$1/g; #"]);
160 $new = 1 if $new eq '';
163 next if $new =~ /^\s*&\Q$name\E\s*\z/;
165 $new = reindent($new);
167 $new =~ s/(['\\])/\\$1/g; #']);
174 print OUT "'sub $name () {$new;}' unless defined(&$name);\n";
227 $new = '';
231 print OUT $t,"if($new) {\n";
235 $new = '';
241 print OUT $t,"}\n elsif($new) {\n";
340 $new = '';
348 $new =~ s['
357 $new =~ s['
367 $new =~ s/&$_\b/\$$_/g for @local_variables;
368 $new =~ s/(["\\])/\\$1/g; #"]);
393 $new = reindent($new);
396 $new =~ s/(['\\])/\\$1/g; #']);
399 …line $eval_index $outfile\\n\" . 'sub $name $proto\{\n$t ${args}eval q($new);\n$t}' unless defi…
403 … "eval 'sub $name $proto\{\n$t ${args}eval q($new);\n$t}' unless defined(\&$name);\n";
406 …print OUT "unless(defined(\&$name)) {\n sub $name $proto\{\n\t${args}eval q($new);\n }\n}\n";
414 $new = '"(assembly code)"';
422 s/^\&\&// && do { $new .= " &&"; next;}; # handle && operator
424 s/^(\s+)// && do {$new .= ' '; next;};
430 $new .= hex(substr($hex, -8)) +
436 $new .= lc("0x$hex");
439 s/^(-?\d+\.\d+E[-+]?\d+)[FL]?//i && do {$new .= $1; next;};
440 s/^(\d+)\s*[LU]*//i && do {$new .= $1; next;};
441 s/^("(\\"|[^"])*")// && do {$new .= $1; next;};
444 $new .= "ord('\$$1')";
446 $new .= "ord('$1')";
458 $new .= '$sizeof';
503 $new .= " (\$$id)";
516 $new .= "\$$id";
517 $new .= '->' if /^[\[\{]/;
519 $new .= 'defined';
522 $new .= " &$id";
524 if ($new =~ /\{\s*$/) {
525 $new .= "'$id'";
526 } elsif ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
527 $new =~ s/\(\s*$//;
530 $new .= q(').$id.q(');
534 if ($new =~ /defined\s*$/) {
535 $new .= '(&' . $id . ')';
536 } elsif ($new =~ /defined\s*\($/) {
537 $new .= '&' . $id;
539 $new .= '(defined(&' . $id . ') ? &' . $id . ' : undef)';
542 $new .= " \$$id";
544 $new .= ' &' . $id;
549 s/^(.)// && do { if ($1 ne '#') { $new .= $1; } next;};