#!/usr/bin/perl
###############################################################################
#
#  機能 :
#         セグメントマップのファイルの表示形式を変更する。
#  書式 :
#         ConvSegmentMap.pl < <MkSegmentMap.plで生成したファイル>
#
#   $Id: ConvSegmentMap.pl,v 1.7 2000-05-25 11:55:24+09 otsuki Exp $
#
###############################################################################
{
    # MkRommapShell.plで Total を探すキーにしている
    $total_head = ">>> Total "; 

    $total_byte = 0;
    while(<>) {
	if ($_ =~ /_/) {
	    s/ : [0-9x〜 a-f]* =//;
	    s/ byte//;
	    @line = split(' ', $_);
	    $sym_name = @line[0];
	    $byte = @line[1];
	    $lists{$sym_name} = $byte;
	    $total_byte += $byte;
	}
    }
    
    foreach $sym_name (sort keys(%lists)) {
	printf("%10d byte --- %s\n", $lists{$sym_name}, $sym_name);
    }
    print("\n");
    printf("$total_head  %10d byte \n", $total_byte);
}