#!/usr/bin/perl
###############################################################################
#
#  機能 :
#         ＲＯＭマップを出力するためのシェルを生成する
#  書式 :
#         MkRommapShell.pl <ＲＯＭマップ・セグメントリスト>
#
#  $Id: ConvToDesignersRommap.pl,v 1.3 2000-05-26 10:04:05+09 otsuki Exp $
#
###############################################################################
{
    while(<>) {
	if (($_ =~ /\#/) 
	    || ($_ =~ /=/) 
	    || ($_ =~ /\* Total/) 
	    || ($_ =~ />>>/)) {
	    if ($_ =~ /\#/) {
		print $_;
	    }
	    else {
		chop;
		if ($_ =~ /=/) {
		    s/====/・/g;
		    print "$_  →  (";
		}
		if ($_ =~ /\* Total/) {
		    s/\* Total//g;
		    s/ //g;
		    s/\t//;
		    s/byte/ byte)/g;
		    print "$_\n";
		}
		if ($_ =~ />>>/) {
		    print "\n";
		    s/>>>//g;
		    s/Total//g;
		    s/ //g;
		    s/byte/ byte/g;
		    print "   計 $_\n";
		}
	    }
	}
    }
}