768dcd1998-09-20Fredrik Hübinette (Hubbe) #!/usr/local/bin/pike
a7c5232000-08-21Henrik Grubbström (Grubba) /* -*- Pike -*- */
768dcd1998-09-20Fredrik Hübinette (Hubbe)  inherit "lib.pike";
11577c2002-09-12Peter Bortas int main(int argc, array(string) argv)
768dcd1998-09-20Fredrik Hübinette (Hubbe) { string ext=reverse(argv[-1]); sscanf(ext,"%s.",ext); ext=reverse(ext); switch(ext) { case "a": case "lib": case "dll":
a7c5232000-08-21Henrik Grubbström (Grubba)  case "o": case "obj":
f47a422004-04-04Henrik Grubbström (Grubba)  case "so":
a7c5232000-08-21Henrik Grubbström (Grubba)  argv[0]="dumpbin";
768dcd1998-09-20Fredrik Hübinette (Hubbe)  exit(do_cmd( Array.map(argv,fixpath))); default: exece(find_next_in_path(argv[0],"nm"),argv[1..]); exit(69); } }