1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
#!/usr/local/bin/pike 
/* -*- Pike -*- */ 
 
inherit "lib.pike"; 
 
int main(int argc, string *argv) 
{ 
  string ext=reverse(argv[-1]); 
  sscanf(ext,"%s.",ext); 
  ext=reverse(ext); 
  switch(ext) 
  { 
    case "a": 
    case "lib": 
    case "dll": 
    case "o": 
    case "obj": 
      argv[0]="dumpbin"; 
      exit(do_cmd( Array.map(argv,fixpath))); 
 
    default: 
      exece(find_next_in_path(argv[0],"nm"),argv[1..]); 
      exit(69); 
  } 
}