Lines Matching refs:path
151 my ($path, $link, $pkgs) = @_;
159 $basename = basename($path);
167 return if ($path =~ /$path_skip/);
169 return unless (-f $path);
173 $inode = (stat($path))[1];
179 $symlink{$inode} .= ":" . $path;
181 $symlink{$inode} = ":" . $path;
185 $inode_hash{$path} = $inode;
186 push(@liblist, $path);
201 my (%list, $paths, $path, $cnt);
209 foreach $path (@list) {
210 $list{$path} = 1;
213 # $path should never have single quote in it in
216 next if ($path =~ /'/);
221 $paths .= "'$path'";
268 undef($path);
284 if (defined($path)) {
285 output($path, $pub, $pri, $obs, $evo);
292 $path = $new_path;
320 if (defined($path)) {
321 output($path, $pub, $pri, $obs, $evo);
331 my ($path, $pub, $pri, $obs, $evo) = @_;
333 return if ($didlib{$path}); # skip repeating a library
378 my $inode = $inode_hash{$path};
381 $links = "${path}$symlink{$inode}";
383 $links = "$path";
393 $fout = $fileoutput{$path};
403 print STDOUT "$abi|$path|$defn|$n|$links\n";
406 $didlib{$path} = 1;