+sub processpcfgz ($$$$) {
+ my ($inpcfgz,$outpcfgz,$logfile,$what) = @_;
+ print $reportfh "processing $inpcfgz to $outpcfgz\n" if $verbose>=2;
+ my $current = new IO::File $inpcfgz, '<' or die "$inpcfgz $!";
+ my ($usread,$uswrite);
+ my ($reader,$writer);
+ my @children;
+ foreach my $proc (['gunzip'], ['pcf2bdf'], [],
+ ['bdftopcf'],['',qw(gzip -1 -n)]) {
+ my $isfinal = (@$proc && $proc->[0] eq '');
+ if (!$isfinal) {
+ $reader = new IO::Handle or die $!;
+ $writer = new IO::Handle or die $!;
+ new IO::Pipe($reader,$writer) or die $!;
+ } else {
+ shift @$proc;
+ $reader = undef;
+ $writer = new IO::File $outpcfgz, '>' or die "$outpcfgz $!";
+ }
+ if (@$proc) {
+ my $exe = $proc->[0];
+ my $child = fork; defined $child or die $!;
+ if (!$child) {
+ open STDIN, '<&', $current or die $!;
+ open STDOUT, '>&', $writer or die $!;
+ if (!$isfinal) {
+ close $reader or die $!;
+ }
+ close $usread or die $! if $usread;
+ close $uswrite or die $! if $uswrite;
+ exec $exe @$proc or die "$exe $!";
+ }
+ push @children, [ $child, $exe, defined $usread ];
+ close $current or die $!;
+ close $writer or die $!;
+ $current = $reader;
+ } else {
+ $usread = $current;
+ $uswrite = $writer;
+ $current = $reader;
+ }
+ }
+ my $r = processbdf($usread,$uswrite,$logfile,$what);
+ my $none = $r !~ m/^\d/;
+ if ($none) {
+ flush $uswrite or die $!;
+ } else {
+ close $uswrite or die $!;
+ }
+ close $usread or die $!;
+ foreach my $chinfo (@children) {
+ my ($child,$exe,$isoutput)=@$chinfo;
+ my $sigok = 0;
+ if ($none) {
+ if ($isoutput) {
+ $sigok = 9;
+ kill 9, $child or die "$child $!";
+ } else {
+ $sigok = 13;
+ }
+ }
+ $!=0; waitpid($child, 0) == $child or die "$child $!";
+ !$? or ($?&~128)==$sigok or die "$exe [$child] $sigok $?";
+ }
+ return $r;
+}
+