Lines Matching refs:path
201 my ($path) = @_;
204 return $path unless (os_is_win());
207 return $path if ($path eq '');
209 if($path =~ s{^([a-zA-Z]):$}{\u$1:}) {
216 return $path;
218 elsif($path =~ m{^\\} || $path =~ m{^[a-zA-Z]:[^/\\]}) {
227 my $first_char = ucfirst(substr($path, 0, 1));
230 $path =~ s{[\\/]+}{/}g;
234 substr($path, 0, 1) = $first_char;
235 return $path;
242 $path =~ s{^([\\/])[\\/]+}{$1}g;
244 my $has_final_slash = ($path =~ m{[/\\]$});
247 chomp($path = `cygpath -m '$path'`);
254 $path .= '/' if($has_final_slash);
258 $path =~ s{//+}{/}g;
260 return $path;
266 $path = do_msys_transform($path);
267 return undef unless defined $path;
270 $path =~ s{^([a-z]:)}{\u$1};
273 $path =~ s{[\\/]+}{/}g;
274 return $path;
276 elsif($path =~ s{^([a-zA-Z]):[/\\]}{\u$1:/}) {
280 $path =~ s{[\\/]+}{/}g;
281 return $path;
283 elsif($path !~ m{^/}) {
287 $path =~ s{[\\/]+}{/}g;
288 return $path;
293 return do_dumb_guessed_transform($path);
302 my ($path) = @_;
306 $path = Cwd::abs_path($path);
309 return $path;
312 if($path =~ m{^([a-zA-Z]):($|[^/\\].*$)}) {
319 elsif($path eq '') {
328 my $has_final_slash = ($path =~ m{[\\/]$});
332 $path =~ s{^([\\/])[\\/]+}{$1}g;
334 print "Inter result: \"$path\"\n";
337 chomp($path = `cygpath -m -a '$path'`);
344 $path .= '/' if($has_final_slash);
348 $path =~ s{//+}{/}g;
350 return $path
352 elsif($path =~ s{^([a-zA-Z]):[/\\]}{\u$1:/}) {
357 return normalize_path($path);
359 elsif(substr($path, 0, 1) eq '\\' ) {
368 return normalize_path($w32drive . $path);
371 unless (substr($path, 0, 1) eq '/') {
382 $path = $cur_dir . '/' . $path;
386 $path = normalize_path($path);
387 return undef unless defined $path;
392 $path = do_msys_transform($path);
393 return undef unless defined $path;
396 $path =~ s{[\\/]+}{/}g;
397 return $path;
402 return do_dumb_guessed_transform($path);
414 my ($path) = @_;
418 $path = Cwd::abs_path($path);
421 return $path;
424 if($path =~ m{^([a-zA-Z]):($|[^/\\].*$)}) {
434 $path = get_abs_path_on_win32_drive($1, $2);
435 return undef unless defined $path;
437 return simple_transform_win32_to_unix($path);
439 elsif($path eq '') {
443 chomp($path = `pwd -L`);
450 $path .= '/' if length($path) > 2;
451 return $path;
456 my $has_final_slash = ($path =~ m{[\\/]$});
461 $path = normalize_path($path);
462 return undef unless defined $path;
466 chomp($path = `cygpath -u -a '$path'`);
474 $path .= '/' if($has_final_slash &&
475 substr($path, length($path) - 1, 1) ne '/');
477 return $path
479 elsif($path =~ m{^[a-zA-Z]:[/\\]}) {
486 $path = normalize_path($path);
487 return undef unless defined $path;
489 return simple_transform_win32_to_unix($path);
491 elsif(substr($path, 0, 1) eq '\\') {
502 $path = normalize_path($w32drive . $path);
503 return undef unless defined $path;
505 return simple_transform_win32_to_unix($path);
509 unless (substr($path, 0, 1) eq '/') {
520 $path = $cur_dir . '/' . $path;
523 return normalize_path($path);
535 my ($path) = @_;
538 return $path if $path eq '';
540 unless($path =~ m{(?:^|\\|/)\.{1,2}(?:\\|/|$)}) {
542 my $first_char = substr($path, 0, 1);
543 $path =~ s{[\\/]+}{/}g;
545 substr($path, 0, 1) = $first_char;
546 return $path;
554 if($path =~ m{^([a-zA-Z]:(/|\\)?)(.*$)}) {
563 if($path =~ m{^(\/|\\)}) {
570 @arr = split(m{\/|\\}, $path);
587 warn "Error processing path \"$path\": " .
593 $ret .= '/' if($path =~ m{\\$|/$} && scalar @res > 0);
601 my ($path) = @_;
603 return $path if $path eq '';
607 $path =~ s{^/[/\\]+}{/};
612 $path = `cmd //c echo '$path'`;
621 $path =~ s{^\"|\"$|\"\r|\n|\r}{}g;
623 return $path;
668 my ($path) = @_;
672 $path =~ s{[/\\]+}{/}g;
675 return undef if (length($path) == 0);
684 if($path =~ m{$drv_ltr_re}) {
694 my $check_path = $path;
700 if($? == 0 && substr($path, 0, 1) ne '%') {
723 warn "Can't determine Win32 directory for path \"$path\".\n";
732 my ($path) = @_;
737 chomp($res = `cygpath -a -u '$path'`);
740 "directory \"$path\".\n";
746 $path =~ m{[/\\]$});
751 unless($path =~ s{^([a-zA-Z]):(?:/|\\)}{/\l$1/}) {
753 "directory \"$path\".\n";
757 $path = '/cygdrive' . $path if(drives_mounted_on_cygdrive());
758 return $path;