#!/ASperl/bin/perl

use strict;

my $ifname = shift;
my $ofname = shift;

my $iflines = [];
my $proctext = [];
my $oflines = [];

my $isgrab = 0;

open (IFN, "<", $ifname)
    or die "Cannot open $ifname: $!";

open (OFN, ">", $ofname)
    or die "Cannot open $ofname: $!";

while (<IFN>) {
    chomp;
    push (@{$iflines}, $_);
}

close (IFN);

for (@{$iflines}) {
    my $ln = $_;
    $ln =~ s/outl\[i\] = /outl\[i\] += /;
    $ln =~ s/outr\[i\] = /outr\[i\] += /;
    push (@{$proctext}, $ln) if ($isgrab);
    $isgrab = 1 if (/BEGINPROCMAGIC/);
    $isgrab = 0 if (/ENDPROCMAGIC/);
}

for (@{$iflines}) {
    if (/INSERTHEREPROCMAGIC/) {
	push (@{$oflines}, @{$proctext});
    } else {
	push (@{$oflines}, $_);
    }
}

for (@{$oflines}) {
    print OFN "$_\n";
}

close (OFN);