Home
last modified time | relevance | path

Searched refs:dir (Results 1 – 25 of 634) sorted by relevance

12345678910>>...26

/mirbsd/src/gnu/usr.bin/perl/Porting/
Dcheck83.pl19 my ($dir, $base, $ext) = ($_[0] =~ m{^(?:(.+)/)?([^/.]+)(?:\.([^/.]+))?$});
23 if (defined $dir && $dir =~ /\./) {
24 print "directory name contains '.': $dir\n";
32 if (defined $dir) {
33 return ($dir, defined $ext ? "$dir/$base.$ext" : "$dir/$base");
39 my %dir;
54 my ($dir, $edt) = eight_dot_three($`);
55 next unless defined $dir;
56 ($dir, $edt) = map { lc } ($dir, $edt);
57 push @{$dir{$dir}->{$edt}}, $_;
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/
Dlib_pm.PL90 my $dir = $Is_MacOS
93 unshift(@INC, $dir) if -d $dir;
131 my($dir) = @_;
137 $arch_auto_dir = File::Spec->catdir( $dir, $archname, 'auto' );
138 $arch_dir = File::Spec->catdir( $dir, $archname, );
139 $version_dir = File::Spec->catdir( $dir, $version );
140 $version_arch_dir = File::Spec->catdir( $dir, $version, $archname );
142 $arch_auto_dir = "$dir/$archname/auto";
143 $arch_dir = "$dir/$archname";
144 $version_dir = "$dir/$version";
[all …]
Dblib.pm49 my $dir = getcwd;
50 if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/\z--; }
53 $dir = shift;
54 $dir =~ s/blib\z//;
55 $dir =~ s,/+\z,,;
56 $dir = File::Spec->curdir unless ($dir);
57 die "$dir is not a directory\n" unless (-d $dir);
63 $blib = File::Spec->catdir($dir, "blib");
81 $dir = File::Spec->catdir($dir, File::Spec->updir);
83 die "Cannot find blib even in $dir\n";
DSelfLoader.t5 $dir = "self-$$";
9 $dir = ":" . $dir;
13 @INC = $dir;
19 mkdir $dir, 0755 or die "Can't mkdir $dir: $!";
21 open(FOO, ">$dir${sep}Foo.pm") or die;
50 open(BAR, ">$dir${sep}Bar.pm") or die;
205 return unless $dir && -d $dir;
206 unlink "$dir${sep}Foo.pm", "$dir${sep}Bar.pm";
207 rmdir "$dir";
Dgetcwd.pl16 local($dotdots, $cwd, @pst, @cst, $dir, @tst);
42 $dir = '';
48 unless (defined ($dir = readdir(getcwd'PARENT))) #'))
54 unless (@tst = lstat("$dotdots/$dir"))
61 while ($dir eq '.' || $dir eq '..' || $tst[$[] != $pst[$[] ||
64 $cwd = "$dir/$cwd";
66 } while ($dir ne '');
DCwd.pm484 my($dotdots, $cwd, @pst, @cst, $dir, @tst);
496 my ($dir, $file) = $start =~ m{^(.*)/(.+)$}
505 $link_target = $dir . '/' . $link_target
511 return $dir ? abs_path($dir) . "/$file" : "/$file";
534 $dir = undef;
540 unless (defined ($dir = readdir(PARENT)))
546 $tst[0] = $pst[0]+1 unless (@tst = lstat("$dotdots/$dir"))
548 while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] ||
551 $cwd = (defined $dir ? "$dir" : "" ) . "/$cwd" ;
553 } while (defined $dir);
[all …]
/mirbsd/src/gnu/usr.bin/perl/os2/
Dperl2cmd.pl7 $dir = shift;
8 $dir =~ s|/|\\|g ;
9 $nowarn = 1, $dir = shift if $dir eq '-n';
11 die <<EOU unless defined $dir and -d $dir;
30 my $new = (-f "$dir/$base.cmd" ? '' : ' (new file)');
31 print "Processing $file => $dir/$base.cmd$new\n";
34 open OUT, '>', "$dir/$base$ext" or warn, next;
42 chmod 0444, "$dir/$base$ext";
44 if (compare "$dir/$base$ext", "$dir/$base.cmd") { # different
45 chmod 0666, "$dir/$base.cmd";
[all …]
/mirbsd/src/gnu/usr.bin/cvs/lib/
Dchdir-long.c78 cdb_advance_fd (struct cd_buf *cdb, char const *dir) in cdb_advance_fd() argument
80 int new_fd = openat (cdb->fd, dir, O_RDONLY | O_DIRECTORY); in cdb_advance_fd()
83 new_fd = openat (cdb->fd, dir, O_WRONLY | O_DIRECTORY); in cdb_advance_fd()
118 chdir_long (char *dir) in chdir_long() argument
120 int e = chdir (dir); in chdir_long()
125 size_t len = strlen (dir); in chdir_long()
126 char *dir_end = dir + len; in chdir_long()
138 n_leading_slash = strspn (dir, "/"); in chdir_long()
150 char *slash = memchr (dir + 3, '/', dir_end - (dir + 3)); in chdir_long()
157 err = cdb_advance_fd (&cdb, dir); in chdir_long()
[all …]
Dtempname.c117 direxists (const char *dir) in direxists() argument
120 return __xstat64 (_STAT_VER, dir, &buf) == 0 && S_ISDIR (buf.st_mode); in direxists()
130 __path_search (char *tmpl, size_t tmpl_len, const char *dir, const char *pfx, in __path_search() argument
152 dir = d; in __path_search()
153 else if (dir != NULL && direxists (dir)) in __path_search()
156 dir = NULL; in __path_search()
158 if (dir == NULL) in __path_search()
161 dir = P_tmpdir; in __path_search()
163 dir = "/tmp"; in __path_search()
171 dlen = strlen (dir); in __path_search()
[all …]
/mirbsd/src/gnu/usr.bin/perl/vms/ext/
DFilespec.pm159 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));
[all …]
/mirbsd/src/gnu/usr.bin/cvs/src/
Dfind_names.c28 static int find_dirs (char *dir, List * list, int checkadm,
30 static int find_rcs (const char *dir, List * list);
101 char *dir = Xasprintf ("%s/%s", repository, CVSATTIC); in Find_Names() local
102 if (find_rcs (dir, files) != 0 in Find_Names()
107 primary_root_inverse_translate (dir)); in Find_Names()
108 free (dir); in Find_Names()
273 find_files (const char *dir, const char *pat) in find_files() argument
281 if (dir && *dir) in find_files()
285 if (glob_pattern_p (dir, false)) in find_files()
289 p = dir; in find_files()
[all …]
Drecurse.c26 static void addfile (List **listp, char *dir, char *file);
362 char *dir; in start_recursion() local
370 dir = xstrdup (argv[i]); in start_recursion()
374 comp = (char *)last_component (dir); in start_recursion()
375 if (comp == dir) in start_recursion()
378 dir = xstrdup("."); in start_recursion()
398 addfile (&files_by_dir, dir, comp); in start_recursion()
399 else if (isdir (dir)) in start_recursion()
410 + strlen (dir) in start_recursion()
417 strcat (tmp_update_dir, dir); in start_recursion()
[all …]
/mirbsd/src/gnu/usr.bin/perl/
Dinstallhtml226 foreach my $dir (@podpath) {
227 installdir($dir, $recurse, $podroot, \@splitdirs, \@ignore);
232 foreach my $dir (@splititem) {
233 print "creating index $htmldir/$dir.html\n" if $verbose;
234 create_index("$htmldir/$dir.html", "$htmldir/$dir");
237 foreach my $dir (@splithead) {
238 (my $pod = $dir) =~ s,^.*/,,;
239 $dir .= ".pod" unless $dir =~ /(\.pod|\.pm)$/;
241 runpod2html($dir, 1);
244 $dir =~ /^(.*?)(\.pod|\.pm)?$/sm;
[all …]
/mirbsd/src/gnu/usr.bin/perl/win32/
Dbuildext.pl91 my $dir = shift;
92 chdir($dir) || die "Cannot cd to $dir\n";
103 foreach $dir (sort @ext)
105 if (exists $excl{$dir}) {
106 warn "Skipping extension $ext\\$dir, not ported to current platform";
109 if (chdir("$ext\\$dir"))
114 print "\nRunning Makefile.PL in $dir\n";
117 (FindExt::is_static($dir)
125 warn "$code from $dir\'s Makefile.PL" if $code;
134 print "Making $targ in $dir\n$make $targ\n";
[all …]
/mirbsd/src/gnu/share/
Ddepcomp221 dir=`echo "$object" | sed -e 's|/[^/]*$|/|'`
222 test "x$dir" = "x$object" && dir=
225 tmpdepfile1=$dir$base.u
227 tmpdepfile3=$dir.libs/$base.u
230 tmpdepfile1=$dir$base.u
231 tmpdepfile2=$dir$base.u
232 tmpdepfile3=$dir$base.u
308 dir=`echo "$object" | sed -e 's|/[^/]*$|/|'`
309 test "x$dir" = "x$object" && dir=
312 tmpdepfile1=$dir$base.d
[all …]
/mirbsd/src/usr.bin/window/
Dwwscroll.c53 int dir; variable
58 dir = n < 0 ? -1 : 1;
67 (void) wwscroll1(w, w->ww_i.t, w->ww_i.b, dir, 0);
68 w->ww_buf += dir;
69 w->ww_b.t -= dir;
70 w->ww_b.b -= dir;
85 wwscroll1(w, row1, row2, dir, leaveit)
87 int row1, row2, dir; variable
124 if ((dir > 0 ? tt.tt_scroll_down == 0 : tt.tt_scroll_up == 0) ||
129 xxscroll(dir, row1x, row2x);
[all …]
/mirbsd/src/sbin/fsck_msdos/
Ddir.c168 fullpath(struct dosDirEntry *dir) in fullpath() argument
177 np = dir->lname[0] ? dir->lname : dir->name; in fullpath()
186 dir = dir->parent; in fullpath()
187 if (!dir) in fullpath()
384 struct dosDirEntry *dir) in checksize() argument
391 if (dir->head == CLUST_FREE) in checksize()
394 if (dir->head < CLUST_FIRST || dir->head >= boot->NumClusters) in checksize()
396 physicalSize = fat[dir->head].length * boot->ClusterSize; in checksize()
398 if (physicalSize < dir->size) { in checksize()
400 fullpath(dir), dir->size, physicalSize); in checksize()
[all …]
/mirbsd/src/etc/mtree/
Dspecial8 . type=dir mode=0755 uname=root gname=wheel
11 dev type=dir mode=0755 uname=root gname=wheel
13 fd type=dir mode=0555 uname=root gname=wheel ignore
19 etc type=dir mode=0755 uname=root gname=wheel
28 disklabels type=dir mode=0755 uname=root gname=wheel ignore
42 isakmpd type=dir mode=0755 uname=root gname=wheel
53 mail type=dir mode=0755 uname=root gname=wheel
69 mtree type=dir mode=0755 uname=root gname=wheel
78 ppp type=dir mode=0750 uname=root gname=wheel
95 skey type=dir mode=01730 uname=root gname=auth optional
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/File/Spec/
DVMS.pm89 my $dir = pop @dirs;
94 my ($spath,$sdir) = ($path,$dir);
106 if (not defined $dir or not length $dir) { $rslt = ''; }
107 elsif ($dir =~ /^\$\([^\)]+\)\Z(?!\n)/s) { $rslt = $dir; }
108 else { $rslt = vmspath($dir); }
219 my (@dirs,$dir,$i);
220 while ($dir = $ENV{'DCL$PATH;' . $i++}) { push(@dirs,$dir); }
247 my($dev,$dir,$file) = ('','','');
288 my($self,$dev,$dir,$file) = @_;
291 my ($dir_volume, $dir_dir, $dir_file) = $self->splitpath($dir);
[all …]
/mirbsd/src/gnu/usr.bin/binutils/gdb/
Dgdb_mbuild.sh214 rm -rf ${dir}
215 elif test -f ${dir}
226 if test -d ${dir} -a ! -r ${dir}/Makefile
229 rm -rf ${dir}
230 if test -d ${dir}
232 echo "${target}: unable to remove directory ${dir}"
239 mkdir -p ${dir}
240 cd ${dir} || exit 1
260 trap "echo Removing partially configured ${dir} directory ...; rm -rf ${dir}; exit 1" 1 2 15
283 rm -f core gdb.core ${dir}/gdb/x
/mirbsd/src/usr.sbin/httpd/src/helpers/
Dslo.sh76 for dir in ${DIRS} switch-to-defdirs ${DIRS_DEFAULT}; do
77 [ "x$dir" = "x" ] && continue
78 [ "x$dir" = "xswitch-to-defdirs" ] && found_indefdir=yes
79 [ ! -d $dir ] && continue
83 for file in '' `cd $dir && ls lib${lib}.* 2>/dev/null`; do
105 found_dir="$dir"
134 for dir in $DIRS; do
136 if [ ".`echo \"$dirlist\" | fgrep :$dir:`" = . ]; then
137 DIRS_OBJ="$DIRS_OBJ:$dir"
158 for dir in $dirs; do
[all …]
/mirbsd/src/share/i18n/csmapper/
DMakefile11 SRCS_mapper.dir+= mapper.dir.src
26 mapper.dir: ${SRCS_mapper.dir}
29 mapper.dir.db: mapper.dir
32 FILES+= mapper.dir mapper.dir.db
33 CLEANFILES+= mapper.dir mapper.dir.db
/mirbsd/src/usr.bin/oldroff/neqn/
Dmove.c50 move(dir, amt, p) int dir, amt, p; { in move() argument
60 if( dir == FWD || dir == BACK ) /* fwd, back */
61 printf("\\h'%s%du'\\*(%d\n", (dir==BACK) ? "-" : "", a, p);
62 else if (dir == UP)
64 else if (dir == DOWN)
67 p, dir, a, eht[yyval], ebase[yyval]);
/mirbsd/src/gnu/usr.bin/perl/vms/
Dwritemain.pl11 if (-f 'miniperlmain.c') { $dir = ''; }
12 elsif (-f '../miniperlmain.c') { $dir = '../'; }
15 open (IN,"${dir}miniperlmain.c")
16 || die "$0: Can't open ${dir}miniperlmain.c: $!\n";
17 open (OUT,">${dir}perlmain.c")
18 || die "$0: Can't open ${dir}perlmain.c: $!\n";
29 unlink "${dir}perlmain.c";
30 die "$0: Can't find marker line in ${dir}miniperlmain.c - aborting\n";
Dgen_shrfls.pl68 if (-f 'perl.h') { $dir = '[]'; }
69 elsif (-f '[-]perl.h') { $dir = '[-]'; }
76 $config = $dir . "config.sh";
174 $preprocess_list = "${dir}perl.h+${dir}perlapi.h,${dir}perliol.h";
176 $preprocess_list = "${dir}perl.h+${dir}perlapi.h";
252 open(OPTBLD,">${dir}${dbgprefix}perlshr_bld.opt")
253 or die "$0: Can't write to ${dir}${dbgprefix}perlshr_bld.opt: $!\n";
255 open(MAR,">${dir}perlshr_gbl${marord}.mar")
256 or die "$0: Can't write to ${dir}perlshr_gbl${marord}.mar: $!\n";
274 open(MAR,">${dir}perlshr_gbl${marord}.mar")
[all …]

12345678910>>...26