#!/usr/local/bin/perl
# Usage: morewave SYMBOL_NAME
# wave ファイルから SYMBOL_NAME を抜き出して gdis する。
#

$wave = "wave";

open IN, "nm $wave |" or die;

while (<IN>) {
# 8000e894 ? strchr\n みたいな出力になる。
  chop;
  @symbol = split(/ /);
  if (@symbol[2] eq @ARGV[0]) {
    $found = 1;
    last;
  }
}

close IN;

die "$wave: symbol \'@ARGV[0]\' does\'t exist.\n" if $found == 0;

$value = hex(@symbol[0]);
$begin = $value - 0x400;
$end = $value + 0x400;

system("gdis -S -I. -b$begin -e$end $wave | grep -v \'^ \' | less -p @symbol[2]:");