#!/usr/bin/perl -w


$infile = shift;
$sizefile = shift;

open(SIZE, "<$sizefile") or die "Can't open $sizefile: $!";;
$line = <SIZE>;
$line =~ /(IN=)(.*)( OUT=.*)/;
$size = $2;
close SIZE;

open(IN, "<$infile.s") or die "Can't open $infile: $!";;

$infile =~ /(.*)\/(.*)/;
$file = $2;
open(OUT, ">..\/$file\_zh.s") or die "Can't open $file: $!"; 
$mod = 0;

while (<IN>) {
    if ($mod==0) {
        if (/\.byte/) {
            printf OUT "\t\t.globl %s_size\n\t\t%s_size=%d\n\n", $file, $file, $size;
            $mod=1;
        }
    } 
    printf OUT "%s", $_;
}
close IN;
close OUT;