print O @_ or die "error writing $writing_output.tmp: $!\n";
}
-sub od { # maybe $-doubled
+sub oud { # undoubled
if (defined $buffering_output) {
$buffering_output .= $_ foreach @_;
return;
oraw @_;
}
+our $ddbl;
+
+sub od { # maybe $-doubled
+ if (!$ddbl) {
+ oud @_;
+ return;
+ }
+ foreach (@_) {
+ my $e = $_;
+ $e =~ s{\$}{\$\$}g;
+ oud $e;
+ }
+}
+
sub start_output_file ($) {
close_any_output_file();
($writing_output) = @_;
);
$pfxmap{$_} = $srcdirmap{$_}.'/' foreach keys %srcdirmap;
+ local $ddbl;
+
while (<$input>) {
if (s#^\s*$esc\:changequote\s+(\S+)\s+$##) {
$$esclitr = $1;
$targets->{$t} //= [ ];
}
for (;;) {
+ die if $ddbl && defined $buffering_output;
unless (s{^(.*?)$esc}{}) { od $_; last; }
od $1;
if (s{^\\$esc}{}) { od "$$esclitr" }
- elsif (s{^\\\$}{}) { od '$' }
+ elsif (s{^\\\$}{}) { oud '$' }
elsif (s{^\\\s+$}{}) { }
elsif (s{^$esc}{}) { od "$$esclitr$$esclitr" }
elsif (m{^(?=$caps_re)}) { od $var_prefix }
elsif (s{^([~^]?)/}{}) { od $pfxmap{$1} }
elsif (s{^\.}{}) { od $dir_name }
elsif (s{^([~^])\.}{}) { od $srcdirmap{$1} }
+ elsif (s{^\$\-}{}) { $ddbl=undef; }
+ elsif (s{^\$\+}{}) { $ddbl=1; }
+ elsif (s{^\$\(}{}) { die unless $ddbl; oud "\$("; }
+ elsif (s{^\$(\d+)}{}) { die unless $ddbl; oud "\$($1)"; }
elsif (s{^([~^]?)(?=[ \t])}{}) {
my $prefix = $pfxmap{$1} // die;
my $after='';