Lines Matching refs:dir
62 use vars qw($script $usage $dir $argc $target $elfclass);
93 # Clip the path up through ..sgs/, leaving the path from sgs to current dir
94 $dir = getcwd();
95 $dir = "$1" if $dir =~ /\/sgs\/(.*)$/;
98 # target [dir]
99 # However, if this is the special case where $dir is equal to
101 # and prog matches our target name, then just show dir without brackets.
102 if (($dir =~ /^([^\/]+)\/[^\/]+$/) && ($1 eq $target)) {
105 $dir = " [$dir]";
108 print "\n$elfclass$target$dir\n";