20 $r=&list_files($opt_f,"",*a);
23 foreach (sort split(/\n/,$r))
33 print "$_:$have{$_}\n";
39 local($f,$o,*done)=@_;
40 local($a,$_,$ff,$ret);
42 return if $f =~ /^\s*$/;
45 $ret.=$f."\n" if $opt_F;
46 foreach (split(/ /,$have{$f}))
48 $ret.="$o$f:$_\n" unless $opt_F;
51 foreach (split(/ /,$missing{$f}))
54 next if defined($done{$ff});
55 $ret.=&list_files($ff,$o." ");
65 open(IN,"nm $file|") || die "unable to run 'nm $file|':$!\n";
75 ($type,$name)=/^.{8} (.) (.+)/;
76 # print "$fname $type $name\n";
80 $have{$fname}.="$name ";
85 $missing{$fname}.="$name ";
95 open(IN,"<$files") || die "unable to open $files:$!\n";
101 ($n)=/\/([^\/\s]+)\s+/;
103 # print "$n - $fn\n";
104 if (defined($name{$n}))
105 { print "$n already exists\n"; }