Lines Matching refs:dir
159 my($node,$dev,$dir,$name,$type,$ver,$dnode,$ddev,$ddir,$dname,$dtype,$dver);
180 ($node,$dev,$dir,$name,$type,$ver) = $fspec =~
184 last if $node && $ver && $type && $dev && $dir && $name;
189 $dir = $ddir if $ddir && !$dir;
198 $fspec .= $dir if $dir;
207 my($hasdev,$dev,$defdirs,$dir,$base,@dirs,@realdirs);
211 ($hasdev,$dir,$base) = $fspec =~ m#(/?)(.*)/(.*)#;
212 @dirs = split(m#/#,$dir);
245 my($dir,$base) = split(/[\]>]/,$fspec);
246 my(@dirs) = grep($_,split(m#\.#,$dir));
256 my($dev,$dir,$base) = $fspec =~ m#([^:<\[]*):?[<\[](.*)[>\]](.*)#;
257 my(@dirs) = split(m#\.#,$dir);
285 my($dir,$sep,$base) = $path =~ /(.*)([>\]])(.*)/;
288 "$dir$sep$base.dir;1";
291 if ($dir !~ /\./) { $dir =~ s/([<\[])/${1}000000./; }
292 $dir =~ s#\.(\w+)$#$sep$1#;
293 $dir =~ s/^.$sep//;
294 "$dir.dir;1";