| /mirbsd/src/gnu/usr.bin/perl/lib/File/Spec/ |
| D | VMS.pm | 37 my($self,$path) = @_;
39 if ($path =~ m|/|) { # Fake Unix
40 my $pathify = $path =~ m|/\Z(?!\n)|;
41 $path = $self->SUPER::canonpath($path);
42 if ($pathify) { return vmspath($path); }
43 else { return vmsify($path); }
46 $path =~ tr/<>/[]/; # < and > ==> [ and ]
47 $path =~ s/\]\[\./\.\]\[/g; # ][. ==> .][
48 $path =~ s/\[000000\.\]\[/\[/g; # [000000.][ ==> [
49 $path =~ s/\[000000\./\[/g; # [000000. ==> [
[all …]
|
| D | Win32.pm | 110 sub path { subroutine
111 my @path = split(';', $ENV{PATH});
112 s/"//g for @path;
113 @path = grep length, @path;
114 unshift(@path, ".");
115 return @path;
130 my ($self,$path) = @_;
132 $path =~ s/^([a-z]:)/\u$1/s;
133 $path =~ s|/|\\|g;
134 $path =~ s|([^\\])\\+|$1\\|g; # xx\\\\xx -> xx\xx
[all …]
|
| D | Unix.pm | 43 my ($self,$path) = @_;
51 if ( $^O =~ m/^(?:qnx|nto|cygwin)$/ && $path =~ s:^(//[^/]+)(/|\z):/:s ) {
59 $path =~ s|/+|/|g; # xx////xx -> xx/xx
60 $path =~ s@(/\.)+(/|\Z(?!\n))@/@g; # xx/././xx -> xx/xx
61 $path =~ s|^(\./)+||s unless $path eq "./"; # ./xx -> xx
62 $path =~ s|^/(\.\./)+|/|; # /../../xx -> xx
63 $path =~ s|^/\.\.$|/|; # /.. -> /
64 $path =~ s|/\Z(?!\n)|| unless $path eq "/"; # xx/ -> xx
65 return "$node$path";
215 sub path { subroutine
[all …]
|
| D | OS2.pm | 24 sub path { subroutine
25 my $path = $ENV{PATH};
26 $path =~ s:\\:/:g;
27 my @path = split(';',$path);
28 foreach (@path) { $_ = '.' if $_ eq '' }
29 return @path;
57 my ($self,$path) = @_;
58 $path =~ s/^([a-z]:)/\l$1/s;
59 $path =~ s|\\|/|g;
60 $path =~ s|([^/])/+|$1/|g; # xx////xx -> xx/xx
[all …]
|
| D | Mac.pm | 42 my ($self,$path) = @_;
43 return $path;
430 sub path { subroutine
461 my ($self,$path, $nofile) = @_;
465 ( $volume, $directory ) = $path =~ m|^((?:[^:]+:)?)(.*)|s;
468 $path =~
529 my ($self, $path) = @_;
533 return ('') if ( (!defined($path)) || ($path eq '') );
534 return (':') if ($path eq ':');
536 ( $volume, $sep, $directories ) = $path =~ m|^((?:[^:]+:)?)(:*)(.*)|s;
[all …]
|
| D | Epoc.pm | 47 my ($self,$path) = @_;
49 $path =~ s|/+|/|g; # xx////xx -> xx/xx
50 $path =~ s|(/\.)+/|/|g; # xx/././xx -> xx/xx
51 $path =~ s|^(\./)+||s unless $path eq "./"; # ./xx -> xx
52 $path =~ s|^/(\.\./)+|/|s; # /../../xx -> xx
53 $path =~ s|/\Z(?!\n)|| unless $path eq "/"; # xx/ -> xx
54 return $path;
|
| /mirbsd/src/gnu/usr.bin/perl/lib/FileCache/t/ |
| D | 03append.t | 20 for my $path ( @files ){
21 cacheout $path;
22 print $path "$path 3\n";
24 for my $path ( @files ){
25 cacheout $path;
26 print $path "$path 33\n";
28 for my $path ( @files ){
29 open($path, '<', $path);
30 push @cat, do{ local $/; <$path>};
31 close($path);
[all …]
|
| D | 02maxopen.t | 19 for my $path ( @files ){
20 cacheout $path;
21 print $path "$path 1\n";
25 for my $path ( @files ){
26 ok(fileno($path) || $path =~ /^(?:foo|bar)$/);
27 next unless fileno($path);
28 print $path "$path 2\n";
29 close($path);
30 open($path, $path);
31 <$path>;
[all …]
|
| /mirbsd/src/gnu/usr.bin/perl/lib/File/ |
| D | Temp.pm | 383 my $path = _replace_XX($template, $options{"suffixlen"});
395 ($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
424 ($volume, $directories, $file) = File::Spec->splitpath( $path );
490 $fh = VMS::Stdio::vmssysopen($path, $OPENFLAGS, 0600, 'fop=dlt');
496 $open_success = sysopen($fh, $path, $flags, 0600);
501 chmod(0600, $path);
504 return ($fh, $path);
511 ${$options{ErrStr}} = "Could not create temp file $path: $!";
521 if (mkdir( $path, 0700)) {
523 chmod(0700, $path);
[all …]
|
| D | Path.pm | 148 my(@created,$path);
149 foreach $path (@$paths) {
150 $path .= '/' if $^O eq 'os2' and $path =~ /^\w:\z/s; # feature of CRT
153 next if $path eq '/';
154 $path = VMS::Filespec::unixify($path);
155 if ($path =~ m:^(/[^/]+)/?\z:) {
156 $path = $1.'/000000';
159 next if -d $path;
160 my $parent = File::Basename::dirname($path);
161 unless (-d $parent or $path eq $parent) {
[all …]
|
| /mirbsd/src/lib/libc/stdio/ |
| D | mktemp.c | 46 mkstemps(char *path, int slen) in mkstemps() argument
50 return (_gettemp(path, &fd, 0, slen) ? fd : -1); in mkstemps()
54 mkstemp(char *path) in mkstemp() argument
58 return (_gettemp(path, &fd, 0, 0) ? fd : -1); in mkstemp()
62 mkdtemp(char *path) in mkdtemp() argument
64 return(_gettemp(path, (int *)NULL, 1, 0) ? path : (char *)NULL); in mkdtemp()
70 _mktemp(char *path) in _mktemp() argument
72 return(_gettemp(path, (int *)NULL, 0, 0) ? path : (char *)NULL); in _mktemp()
81 mktemp(char *path) in mktemp() argument
83 return(_mktemp(path)); in mktemp()
[all …]
|
| /mirbsd/src/usr.bin/sudo/ |
| D | find_path.c | 65 find_path(infile, outfile, sbp, path) in find_path() argument
69 char *path; /* path to search */
97 path = SECURE_PATH;
99 if (path == NULL)
101 path = estrdup(path);
102 origpath = path;
105 if ((n = strchr(path, ':')))
112 if (*path == '\0' || (*path == '.' && *(path + 1) == '\0')) {
114 path = n + 1;
121 len = snprintf(command, sizeof(command), "%s/%s", path, infile);
[all …]
|
| /mirbsd/src/lib/libncurses/src/ncurses/tinfo/ |
| D | access.c | 42 _nc_rootname(char *path) in NCURSES_EXPORT()
44 char *result = _nc_basename(path); in NCURSES_EXPORT()
71 _nc_pathlast(const char *path) in _nc_pathlast() argument
73 const char *test = strrchr(path, '/'); in _nc_pathlast()
76 test = strrchr(path, '\\'); in _nc_pathlast()
79 test = path; in _nc_pathlast()
82 return (test - path); in _nc_pathlast()
86 _nc_basename(char *path) in _nc_basename() argument
88 return path + _nc_pathlast(path); in _nc_basename()
92 _nc_access(const char *path, int mode) in _nc_access() argument
[all …]
|
| /mirbsd/src/lib/libc/gen/ |
| D | dirname.c | 25 dirname(const char *path) in dirname() argument
32 if (path == NULL || *path == '\0') { in dirname()
39 endp = path + strlen(path) - 1; in dirname()
40 while (endp > path && *endp == '/') in dirname()
44 while (endp > path && *endp != '/') in dirname()
48 if (endp == path) { in dirname()
56 } while (endp > path && *endp == '/'); in dirname()
59 len = endp - path + 1; in dirname()
64 memcpy(dname, path, len); in dirname()
|
| /mirbsd/src/gnu/usr.bin/perl/lib/ |
| D | Cwd.pm | 371 my(@path, $path);
394 unshift(@path, $direntry);
396 $path = '/' . join('/', @path);
397 if ($^O eq 'apollo') { $path = "/".$path; }
400 $path =~ /^(.*)\z/s # untaint
405 $path;
564 my $path = @_ ? shift : ($Curdir ||= File::Spec->curdir);
568 ($path) = $path =~ /(.*)/;
571 unless (-e $path) {
572 _croak("$path: No such file or directory");
[all …]
|
| D | lib_pm.PL | 74 my $path = $_; # we'll be modifying it, so break the alias
75 if ($path eq '') {
80 $path = _nativize($path);
82 if (-e $path && ! -d _) {
86 unshift(@INC, $path);
91 ? File::Spec->catdir( $path, $incver )
92 : "$path/$incver";
95 # Put a corresponding archlib directory in front of $path if it
96 # looks like $path has an archlib directory below it.
98 = _get_dirs($path);
[all …]
|
| /mirbsd/src/kern/z/ |
| D | gzlib.c | 91 local gzFile gz_open(path, fd, mode) in gz_open() argument
92 const void *path; in gz_open()
107 if (path == NULL)
193 len = wcstombs(NULL, path, 0);
199 len = strlen((const char *)path);
200 state->path = (char *)malloc(len + 1);
201 if (state->path == NULL) {
208 wcstombs(state->path, path, len + 1);
210 *(state->path) = 0;
214 snprintf(state->path, len + 1, "%s", (const char *)path);
[all …]
|
| /mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/ |
| D | Installed.pm | 22 my ($self, $path, $prefix) = @_;
23 return unless defined $prefix && defined $path;
27 $path = VMS::Filespec::unixify($path);
32 $path =~ s{/+}{/}g;
34 return 1 if substr($path, 0, length($prefix)) eq $prefix;
37 $path =~ s|\\|/|g;
39 return 1 if $path =~ m{^\Q$prefix\E}i;
45 my ($self, $path) = @_;
48 return(($man1dir && $self->_is_prefix($path, $man1dir))
50 ($man3dir && $self->_is_prefix($path, $man3dir))
[all …]
|
| /mirbsd/src/gnu/usr.bin/perl/vms/ext/ |
| D | Filespec.pm | 268 my($path) = @_;
270 if (!$path) { return undef }
271 if ($path eq '/') { return 'sys$disk:[000000]'; }
272 if ($path =~ /(.+)\.([^:>\]]*)$/) {
273 $path = $1;
277 if ($path !~ m#[/>\]]#) {
278 $path =~ s/:$//;
279 while ($ENV{$path}) {
280 ($path = $ENV{$path}) =~ s/:$//;
281 last if $path =~ m#[/>\]]#;
[all …]
|
| /mirbsd/src/usr.bin/which/ |
| D | which.c | 54 char *path; in main() local
90 if ((path = (char *)malloc(n)) == NULL) in main()
92 if (sysctl(mib, 2, path, &n, NULL, 0) == -1) in main()
95 if ((path = getenv("PATH")) == NULL) in main()
106 if (findprog(argv[n], path, progmode, allmatches) == 0) in main()
113 findprog(char *prog, char *path, int progmode, int allmatches) in findprog() argument
132 if ((path = strdup(path)) == NULL) in findprog()
134 pathcpy = path; in findprog()
147 free(path); in findprog()
157 free(path); in findprog()
[all …]
|
| /mirbsd/src/gnu/usr.bin/perl/lib/File/Find/t/ |
| D | taint.t | 25 my @path;
32 push(@path,$dir) unless (length($dir) >= 256
38 $ENV{'PATH'} = join($sep,@path);
154 my $path = File::Spec->catdir(@_);
156 $path = "./$path";
157 return $path;
172 my $path = dir_path(@_);
173 $path =~ s/:$// if ($^O eq 'MacOS');
174 return $path;
202 my $path = File::Spec->catfile(@_);
[all …]
|
| /mirbsd/src/sbin/isakmpd/ |
| D | monitor.c | 205 monitor_open(const char *path, int flags, mode_t mode) in monitor_open() argument
211 if (path[0] == '/') in monitor_open()
212 strlcpy(pathreal, path, sizeof pathreal); in monitor_open()
215 path); in monitor_open()
244 monitor_fopen(const char *path, const char *mode) in monitor_fopen() argument
275 fd = monitor_open(path, flags, mask); in monitor_fopen()
292 monitor_stat(const char *path, struct stat *sb) in monitor_stat() argument
297 fd = monitor_open(path, O_RDONLY | O_NONBLOCK, 0); in monitor_stat()
586 char path[MAXPATHLEN]; in m_priv_getfd() local
593 if (len == 0 || len >= sizeof path) in m_priv_getfd()
[all …]
|
| /mirbsd/src/usr.bin/xlint/xlint/ |
| D | xlint.c | 516 char **args, *ofn, *path; in fname() local
564 path = strdup("env"); in fname()
565 appcstrg(&args, path); in fname()
567 if ((path = getenv("CC")) == NULL || *path == '\0') { in fname()
568 path = NULL; in fname()
571 appcstrg(&args, strdup(path)); in fname()
573 if ((path = strrchr(name, '.')) != NULL && in fname()
589 if (path == NULL) in fname()
599 if (asprintf(&path, "%s/lint1", PATH_LIBEXEC) == -1) in fname()
602 appcstrg(&args, path); in fname()
[all …]
|
| /mirbsd/src/gnu/usr.bin/perl/beos/ |
| D | nm.c | 16 char *path, *symname; in main() local
24 path = (void *) malloc((size_t) 2048); in main()
27 if (!getcwd(path, 2048)) { printf("aiee!\n"); exit(1); } in main()
28 if (!strcat(path, "/")) {printf("naah.\n"); exit (1); } in main()
32 if (!strcat(path, argv[1])) { printf("feh1\n"); exit(1); } in main()
34 if (!strcpy(path, argv[1])) { printf("gah!\n"); exit(1); } in main()
38 img = load_add_on(path); in main()
39 if (B_ERROR == img) {printf("Couldn't load_add_on() %s.\n", path); exit(2); } in main()
51 free(path); in main()
|
| /mirbsd/src/bin/systrace/ |
| D | util.c | 134 extern char *ksh_strchr_dirsep(const char *path);
135 extern char *ksh_strrchr_dirsep(const char *path);
166 simplify_path(path) in simplify_path() argument
167 char *path; in simplify_path()
172 char *very_start = path;
175 if (!*path)
178 if ((isrooted = ISROOTEDPATH(path)))
181 if (path[0] && path[1] == ':') /* skip a: */
202 if (path[0] && ISDIRSEP(path[0]) && path[1] && ISDIRSEP(path[1]))
212 if (cur == path)
|