#!/usr/pkg/bin/perl
#
# $Header$
# $Log$
use strict;
## use Jcode;
my  $rcsid = q$Id$;
    $rcsid =~ s/Id: rcsid,v l//;
    $rcsid =~ s/\d+:\d+:\d+ .*//;


#------------ com_leaf for appropriate help message ----
# command name, strip all before '/' inclusively
# /home/fujiwara/perl/com_path-test -> com_path-test
my $my_name = $0;
$my_name =~ s#(.*)/##;
#------------ com_path for getting right @INC path -----
# command location, strip rightmost '/' and right of it.
# /home/fujiwara/perl/com_path-test -> /home/fujiwara/perl
my $my_path = $0;
$my_path =~ s|/[^/]+$||;
#---------------------
push(@INC,$my_path);
require 'getopts.pl';
## require 'cgi-lib.pl';

my $FILE = $ARGV[0];
## 00004978 T _rtld_elf_hash
## 00003ef4 T _rtld_error
my ($hex,$flag,$symbol);
my ($prevhex,$prevflag,$prevsymbol);
while (<>) {
    ($prevhex,$prevflag,$prevsymbol) = 
	($hex,$flag,$symbol);
    ($hex,$flag,$symbol) = split;
##    print $prevhex, ' ', $hex, ' ';
    my ($size)  = hex($hex) - hex($prevhex);
    printf("%08x", $size);
    print "\t$prevsymbol\n";
}


__END__