Home
last modified time | relevance | path

Searched refs:cwd (Results 1 – 25 of 146) sorted by relevance

123456

/mirbsd/src/gnu/usr.bin/cvs/lib/
Dsave-cwd.c77 save_cwd (struct saved_cwd *cwd) in save_cwd() argument
79 cwd->name = NULL; in save_cwd()
81 cwd->desc = fd_safer (open (".", O_RDONLY)); in save_cwd()
82 if (cwd->desc < 0) in save_cwd()
84 cwd->desc = fd_safer (open (".", O_WRONLY)); in save_cwd()
85 if (cwd->desc < 0) in save_cwd()
87 cwd->name = xgetcwd (); in save_cwd()
88 return cwd->name ? 0 : -1; in save_cwd()
100 restore_cwd (const struct saved_cwd *cwd) in restore_cwd() argument
102 if (0 <= cwd->desc) in restore_cwd()
[all …]
Dxgetcwd.c39 char *cwd = getcwd (NULL, 0); in xgetcwd() local
40 if (! cwd && errno == ENOMEM) in xgetcwd()
42 return cwd; in xgetcwd()
Dsave-cwd.h30 int save_cwd (struct saved_cwd *cwd);
31 int restore_cwd (const struct saved_cwd *cwd);
32 void free_cwd (struct saved_cwd *cwd);
/mirbsd/src/gnu/usr.bin/perl/lib/
DCwd.pm189 *cwd = defined &sys_cwd ? \&sys_cwd : \&_os2_cwd;
190 *getcwd = \&cwd;
191 *fastgetcwd = \&cwd;
192 *fastcwd = \&cwd;
222 cwd => '_vms_cwd',
233 cwd => '_NT_cwd',
243 cwd => '_dos_cwd',
252 cwd => '_qnx_cwd',
271 cwd => '_epoc_cwd',
322 my $cwd = `$pwd_cmd`;
[all …]
Dgetcwd.pl16 local($dotdots, $cwd, @pst, @cst, $dir, @tst);
23 $cwd = '';
64 $cwd = "$dir/$cwd";
67 chop($cwd);
68 $cwd;
DFindBin.pm110 my $cwd = getcwd();
113 defined $cwd or $cwd = cwd();
114 $cwd;
/mirbsd/src/gnu/usr.bin/cvs/src/
Drelease.c146 struct saved_cwd cwd; in release() local
200 if (save_cwd (&cwd)) in release()
221 if (restore_cwd (&cwd)) in release()
224 cwd.name); in release()
273 if (restore_cwd (&cwd)) in release()
276 cwd.name); in release()
294 if (restore_cwd (&cwd)) in release()
297 cwd.name); in release()
303 if (restore_cwd (&cwd)) in release()
306 cwd.name); in release()
[all …]
Dadd.c64 struct saved_cwd cwd; in add() local
206 if (save_cwd (&cwd)) in add()
253 if (restore_cwd (&cwd)) in add()
256 cwd.name); in add()
257 free_cwd (&cwd); in add()
296 if (save_cwd (&cwd)) in add()
692 if (restore_cwd (&cwd)) in add()
694 cwd.name); in add()
695 free_cwd (&cwd); in add()
733 struct saved_cwd cwd; in add_directory() local
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/win32/
Dsystem_tests9 my $cwdb = my $cwd = cwd();
10 $cwd =~ s,\\,/,g;
40 "$cwd/$exe",
41 "$cwd/$exex",
52 "$cwd/$bat",
53 "$cwd/$batx",
60 "$cwd/$cmdx",
66 [$^X, "$cwd/$batx"],
Dsystem.t24 my $cwd = cwd();
99 chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
101 if (open(my $EIN, "$cwd/win32/${exename}_exe.uu")) {
140 chdir($cwd);
/mirbsd/src/scripts/
Dtarsets23 cwd=$(realpath .)
28 [[ -e $cwd/$set/mi && -e $cwd/$set/md.$arch ]] || return 0
29 cat "$cwd/$set/mi" "$cwd/$set/md.$arch" 2>/dev/null | sort $2
78 for set in $cwd/*/mi; do
88 cd "$cwd"
/mirbsd/src/gnu/usr.bin/perl/lib/File/
DCheckTree.pm72 my ($starting_dir, $file, $test, $cwd, $oldwarnings);
74 $starting_dir = cwd;
76 $cwd = "";
113 $file = File::Spec->catfile($cwd, $file)
114 if $cwd && !File::Spec->file_name_is_absolute($file);
160 if ($starting_dir ne cwd) {
173 if ($starting_dir ne cwd) {
DFind.pm604 my $cwd = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::getcwd();
605 my $cwd_untainted = $cwd;
650 $cwd = "$cwd:" unless ($cwd =~ /:$/); # for safety
653 $abs_dir = $cwd;
656 $abs_dir = contract_name_Mac($cwd, $top_item);
669 $abs_dir = $cwd;
672 $abs_dir = contract_name("$cwd/",$top_item);
679 $dangling_symlinks->($top_item, $cwd);
744 if ( ($check_t_cwd) && (($untaint) && (is_tainted($cwd) )) ) {
745 ( $cwd_untainted ) = $cwd =~ m|$untaint_pat|;
[all …]
/mirbsd/src/usr.sbin/httpd/src/support/
Dsuexec.c267 char cwd[AP_MAXPATH]; /* current working directory */ in main() local
463 if (getcwd(cwd, AP_MAXPATH) == NULL) { in main()
472 ((chdir(cwd)) != 0)) { in main()
481 ((chdir(cwd)) != 0)) { in main()
487 if ((strncmp(cwd, dwd, strlen(dwd))) != 0) { in main()
488 log_err("error: command not in docroot (%s/%s)\n", cwd, cmd); in main()
495 if (((lstat(cwd, &dir_info)) != 0) || !(S_ISDIR(dir_info.st_mode))) { in main()
496 log_err("error: cannot stat directory: (%s)\n", cwd); in main()
504 log_err("error: directory is writable by others: (%s)\n", cwd); in main()
520 log_err("error: file is writable by others: (%s/%s)\n", cwd, cmd); in main()
[all …]
/mirbsd/src/gnu/usr.bin/perl/os2/
Dos2_base.t11 my $cwd = Cwd::sys_cwd();
12 ok -d $cwd;
20 ok Cwd::extLibpath_set("$lpb$cwd");
24 (my $s_cwd = $cwd) =~ s#\\#/#g;
28 ok Cwd::extLibpath_set("$lpe$cwd", 1);
51 ok(not defined eval { OS2::DLLname $_, \&Cwd::cwd; 1 } ) for 0..2;
/mirbsd/src/usr.bin/less/
Dlsystem.c53 char cwd[FILENAME_MAX+1]; local
78 getcwd(cwd, FILENAME_MAX);
201 chdir(cwd);
207 if (cwd[1] == ':')
209 if (cwd[0] >= 'a' && cwd[0] <= 'z')
210 setdisk(cwd[0] - 'a');
211 else if (cwd[0] >= 'A' && cwd[0] <= 'Z')
212 setdisk(cwd[0] - 'A');
/mirbsd/src/gnu/usr.bin/perl/wince/
Dmakedist.pl30 my $cwd = cwd;
63 chdir $cwd;
82 chdir $cwd;
126 chdir $cwd;
/mirbsd/src/gnu/usr.bin/perl/ext/Cwd/t/
Dtaint.t21 my @Functions = qw(getcwd cwd fastcwd fastgetcwd
28 my $cwd;
29 eval { $cwd = &{'Cwd::'.$func} };
31 ok( tainted($cwd), "its return value should be tainted" );
/mirbsd/src/gnu/usr.bin/cvs/m4/
Dsave-cwd.m49 AC_LIBSOURCES([save-cwd.c, save-cwd.h])
10 AC_LIBOBJ([save-cwd])
11 dnl Prerequisites for lib/save-cwd.c.
/mirbsd/src/bin/systrace/
Dintercept.c617 static char cwd[2*MAXPATHLEN]; in normalize_filename() local
638 if (getcwd(cwd, sizeof(cwd)) == NULL) in normalize_filename()
644 if (strlcat(cwd, "/", sizeof(cwd)) >= sizeof(cwd)) in normalize_filename()
646 if (strlcat(cwd, name, sizeof(cwd)) >= sizeof(cwd)) in normalize_filename()
649 if (strlcpy(cwd, name, sizeof(cwd)) >= sizeof(cwd)) in normalize_filename()
655 char *base = basename(cwd); in normalize_filename()
672 if (realpath(cwd, rcwd) == NULL) { in normalize_filename()
683 if (strlcpy(rcwd, cwd, sizeof(rcwd)) >= sizeof(rcwd)) in normalize_filename()
714 "/<non-existent filename>: %s", cwd); in normalize_filename()
717 simplify_path(cwd); in normalize_filename()
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/
Dtestlib.pm12 my $cwd;
14 ($cwd) = getcwd() =~ /(.*)/;
16 use lib map File::Spec->rel2abs($_, $cwd), qw(blib/arch blib/lib);
/mirbsd/src/gnu/usr.bin/perl/epoc/
Dcreatepkg.pl27 print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TC\n";
28 print OUT "\"" . cwd . "/perl\"-\"!:\\emx\\bin\\perl.exe\"\n";
30 find(\&filefound, cwd.'/lib');
/mirbsd/src/gnu/usr.bin/perl/emacs/
Dptags29 cwd=`pwd`
35 cwd='.'
46 …|perlapi\.h\|os2ish\.h\|\(globals\|perlapi\| os2\)\.c / /g'| sed "s#\(^\| \)\([^ ]\)#\1$cwd/\2#g"`"
47 subdirs="`find $cwd/* -maxdepth 0 -type d`"
50 xsfiles="`find $cwd/ -name '*.xs' -print | sort`"
77 $cwd/config_h.SH
81 -r '/^\([a-zA-Z_0-9]+\)[ \t]+(/\1/' $cwd/Porting/Glossary
123 etags -o TAGS.tmp -a -D -l none -r '/#define.*\t\(Perl_.*\)/\1/' $cwd/embed.h
124 etags -o TAGS.tmp -a $cwd/globals.c $cwd/embedvar.h $cwd/perlapi.c $cwd/perlapi.h
/mirbsd/src/gnu/usr.bin/perl/lib/Pod/t/
Dpod2html-lib.pl9 my $cwd = Cwd::cwd();
10 my $base_dir = catdir $cwd, updir(), "lib", "Pod";
/mirbsd/src/gnu/usr.bin/perl/lib/File/Find/t/
Dtaint.t7 my ($cwd, $cwd_untainted);
235 $cwd = cwd(); # save cwd
236 ( $cwd_untainted ) = $cwd =~ m|^(.+)$|; # untaint it
314 like( $@, qr|insecure cwd|, 'Bad untaint pattern causes death in cwd (good)' );
384 like( $@, qr|insecure cwd|, 'Cwd not untainted with bad pattern (good)' );

123456