Home
last modified time | relevance | path

Searched refs:files (Results 1 – 25 of 970) sorted by relevance

12345678910>>...39

/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/t/
Dbasic.t133 my %files = ();
141 $files{$file} = $File::Find::name;
143 ok( $files{'dummy.pm'}, ' Dummy.pm installed' );
144 ok( $files{'liar.pm'}, ' Liar.pm installed' );
145 ok( $files{'program'}, ' program installed' );
146 ok( $files{'.packlist'}, ' packlist created' );
147 ok( $files{'perllocal.pod'},' perllocal.pod created' );
159 %files = ();
160 find( sub { $files{$_} = $File::Find::name; }, 'elsewhere' );
161 ok( $files{'Dummy.pm'}, ' Dummy.pm installed' );
[all …]
DInstalled.t150 eval { $ei->files('badmod') };
152 eval { $ei->files('goodmod', 'badtype' ) };
155 my @files;
159 @files = $ei->files('goodmod', 'doc', $Config{man1direxp});
160 is( scalar @files, 1, '... should find doc file under given dir' );
161 is( (grep { /foo$/ } @files), 1, '... checking file name' );
165 @files = $ei->files('goodmod', 'doc');
166 is( scalar @files, $mandirs, '... should find all doc files with no dir' );
169 @files = $ei->files('goodmod', 'prog', 'fake', 'fake2');
170 is( scalar @files, 0, '... should find no doc files given wrong dirs' );
[all …]
DManifest.t43 chomp( my @files = <M> );
45 return @files;
132 my $files = maniread();
133 is( keys %$files, 2, 'two files found' );
134 is( join(' ', sort { lc($a) cmp lc($b) } keys %$files), 'foo MANIFEST',
141 manicopy( $files, 'copy', 'cp' );
147 is_deeply( [sort map { lc } @copies], [sort map { lc } keys %$files] );
165 $files = maniread();
167 manicopy( $files, 'copy', 'cp' ) })
205 $files = maniread;
[all …]
DConstant.t111 my ($tests, $expect, $files) = @_;
257 check_for_bonus_files ('.', @$files, $output, $makefile_rename, '.', '..');
276 check_for_bonus_files ('.', @$files, '.', '..');
279 foreach (@$files) {
311 my (@files) = @_;
315 push @files, $manifest;
317 print FH "$_\n" foreach @files;
319 return @files;
338 my @files;
342 push @files, $header_name;
[all …]
/mirbsd/src/usr.bin/compress/
Dzdiff54 files="$1"
57 files="${1%??}"
60 files="${1%???}"
63 files="${1%??}"ar
68 compress -cdfq "$1" | $prog $flags - "$files"
74 files=-
78 files="$1"
83 if [ "$files" = "-" ]; then
87 files="$files $tmp"
89 files="$files -"
[all …]
/mirbsd/src/gnu/usr.bin/perl/Porting/
Dgenlog75 my ($change,$who,$date,$time,@log,$branch,$file,$type,%files);
99 $files{$branch} = {} unless exists $files{$branch};
100 $files{$branch}{$type} = [] unless exists $files{$branch}{$type};
101 push @{$files{$branch}{$type}}, $file;
126 for my $branch (sort keys %files) {
128 for my $kind (sort keys %{$files{$branch}}) {
130 my $files = $files{$branch}{$kind};
132 $files = ["($kind " . scalar(@$files) . ' files)']
133 if (@$files > 25 && ($kind eq 'integrate'
135 || @$files > 100;
[all …]
DMaintainers.pm49 my @files;
52 push @files, $File::Find::name
55 @files;
138 my @files;
140 push @files, get_module_files($module);
142 printf "%-15s @files\n", $m;
156 my @files = get_module_files($m);
157 printf "%-15s @files\n", $m;
245 my %files;
248 ++$files{$f};
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Harness/t/
Dtest-harness.t40 files => 1,
56 files => 1,
74 files => 1,
90 files => 1,
108 files => 1,
124 files => 1,
140 files => 1,
156 files => 1,
173 files => 1,
191 files => 1,
[all …]
/mirbsd/src/usr.bin/vgrind/
Dvgrind.sh35 unset voptions options files f head
72 files="$files $1"
80 for i in $files; do
88 $vf $options -h "$head" $files
90 $vf $options $files
94 $vf $options -h "$head" $files
96 $vf $options $files
103 $vf $options -h "$head" $files
105 $vf $options $files
109 $vf $options -h "$head" $files
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/FileCache/t/
D03append.t3 use vars qw(@files);
5 @files = qw(foo bar baz quux Foo_Bar);
13 1 while unlink @files;
20 for my $path ( @files ){
24 for my $path ( @files ){
28 for my $path ( @files ){
33 print 'not ' unless scalar grep(/\b3$/m, @cat) == scalar @files;
36 for my $path ( @files ){
40 for my $path ( @files ){
45 print 'not ' unless scalar grep(/\b33$/m, @cat) == scalar @files;
D01open.t3 use vars qw(@files);
5 @files = qw(foo bar baz quux Foo_Bar);
13 1 while unlink @files;
20 for my $path ( @files ){
25 print "not " unless scalar map({ -f } @files) == scalar @files;
/mirbsd/src/share/mk/
Dbsd.dep.mk15 @files="${.ALLSRC:M*.s} ${.ALLSRC:M*.S}"; \
16 if [[ $$files != *( ) ]]; then \
18 ${AFLAGS:M-[ID]*} ${CPPFLAGS} ${AINC} $$files; \
20 ${AFLAGS:M-[ID]*} ${CPPFLAGS} ${AINC} $$files; \
22 @files="${.ALLSRC:M*.c} ${.ALLSRC:M*.m}"; \
23 if [[ $$files != *( ) ]]; then \
25 ${CPPFLAGS} $$files; \
27 ${CPPFLAGS} $$files; \
29 @files="${.ALLSRC:M*.cc} ${.ALLSRC:M*.C} ${.ALLSRC:M*.cxx} ${.ALLSRC:M*.cpp}"; \
30 if [[ $$files != *( ) ]]; then \
[all …]
/mirbsd/src/gnu/usr.bin/cvs/contrib/
Drcslock.in106 @files = @ARGV[0..$#ARGV];
126 print "Checking directory ", $files[0] if defined $opt_v ;
128 if ( $files[0] =~ /^\// )
130 print "Directory path is $files[0]" if defined $opt_d ;
131 chdir $files[0] || die "Can't change to repository directory $files[0]" ;
135 print "Directory path is $cvsroot/$files[0]" if defined $opt_d ;
136 chdir ($cvsroot . "/" . $files[0]) ||
137 die "Can't change to repository directory $files[0] in $cvsroot" ;
212 foreach $i (@files[1..$#files])
/mirbsd/src/gnu/usr.bin/perl/lib/
DShell.t44 my @files = directory('*.*');
45 ok(@files, 'Quoted arguments');
47 ok(eq_array(\@files, [$so->directory('*.*')]), 'object method');
52 my @files = dir('*.*');
53 ok(@files, 'Quoted arguments');
55 ok(eq_array(\@files, [$so->dir('*.*')]), 'object method');
60 my @files = ls('*');
61 ok(@files, 'Quoted arguments');
63 ok(eq_array(\@files, [$so->ls('*')]), 'object method');
Dwarnings.t35 my $files = 0;
51 $files++;
59 plan tests => (scalar(@prgs)-$files);
79 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
80 shift @files ;
82 scalar(@files) . "[" . join("%%%%", @files) ."]\n"
83 if @files % 2 ;
84 while (@files > 2) {
85 my $filename = shift @files ;
86 my $code = shift @files ;
[all …]
Dstrict.t50 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
51 shift @files ;
53 scalar(@files) . "[" . join("%%%%", @files) ."]\n"
54 if @files % 2 ;
55 while (@files > 2) {
56 my $filename = shift @files ;
57 my $code = shift @files ;
64 shift @files ;
65 $prog = shift @files ;
Dsubs.t31 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
32 shift @files ;
34 scalar(@files) . "[" . join("%%%%", @files) ."]\n"
35 if @files % 2 ;
36 while (@files > 2) {
37 my $filename = shift @files ;
38 my $code = shift @files ;
44 shift @files ;
45 $prog = shift @files ;
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dglob.t13 map { $files{lc($_)}++ } <op/*>;
14 map { delete $files{"op/$_"} } split /[\s\n]/, `dir /b /l op & dir /b /l /ah op 2>nul`,
17 map { $files{lc($_)}++ } <[.op]*>;
18 …map { s/;.*$//; delete $files{lc($_)}; } split /[\n]/, `directory/noheading/notrailing/versions=1 …
22 map { $files{$_}++ } <:op:*>;
23 map { delete $files{$_} } split /[\s\n]/, `echo :op:\xc5`;
26 map { $files{$_}++ } <op/*>;
27 map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
29 if (keys %files) {
30 print "not ok 1\t(",join(' ', sort keys %files),"\n";
/mirbsd/src/gnu/usr.bin/perl/lib/File/
DPath.pm177 my(@files);
213 @files = map { /^(.*)$/s ; $1 } readdir $d;
215 @files = readdir $d;
221 @files = ();
226 @files = reverse @files if $Is_VMS;
229 @files = map("$root$_", @files);
231 @files = map("$root/$_", grep $_!~/^\.{1,2}\z/s,@files);
233 $count += rmtree(\@files,$verbose,$safe);
/mirbsd/src/gnu/usr.bin/cvs/diff/
Ded.c57 print_number_range (',', &files[0], f0, l0);
70 i - f1 + translate_line_number (&files[0], f0) - 1);
78 if (files[1].linbuf[i][0] == '.'
79 && files[1].linbuf[i][1] == '\n')
85 i - f1 + translate_line_number (&files[0], f0));
90 print_1_line ("", &files[1].linbuf[i]);
126 print_number_range (' ', files, f0, l0);
138 print_1_line ("", &files[1].linbuf[i]);
172 translate_range (&files[0], f0, l0, &tf0, &tl0);
189 translate_range (&files[1], f1, l1, &tf1, &tl1);
[all …]
Dcontext.c90 find_function_last_search = - files[0].prefix_lines;
148 i = - files[0].prefix_lines;
151 last0 = min (last0 + context, files[0].valid_lines - 1);
152 last1 = min (last1 + context, files[1].valid_lines - 1);
157 find_function (&files[0], first0, &function, &function_length);
172 print_context_number_range (&files[0], first0, last0);
196 print_1_line (prefix, &files[0].linbuf[i]);
201 print_context_number_range (&files[1], first1, last1);
225 print_1_line (prefix, &files[1].linbuf[i]);
279 i = - files[0].prefix_lines;
[all …]
Dside.c43 next0 = next1 = - files[0].prefix_lines;
46 print_sdiff_common_lines (files[0].valid_lines, files[1].valid_lines);
236 print_1sdiff_line (&files[0].linbuf[i0++], ' ', &files[1].linbuf[i1++]);
238 print_1sdiff_line (0, ')', &files[1].linbuf[i1++]);
241 print_1sdiff_line (&files[0].linbuf[i0++], '(', 0);
274 print_1sdiff_line (&files[0].linbuf[i], '|', &files[1].linbuf[j]);
286 print_1sdiff_line (0, '>', &files[1].linbuf[j]);
294 print_1sdiff_line (&files[0].linbuf[i], '<', 0);
/mirbsd/src/usr.bin/sed/
Dmain.c89 static struct s_flist *files, **fl_nextp = &files; variable
256 if (files == NULL) { in mf_fgets()
260 if (files->fname == NULL) { in mf_fgets()
264 fname = files->fname; in mf_fgets()
274 files = files->next; in mf_fgets()
296 files = files->next; in mf_fgets()
297 if (files == NULL) { in mf_fgets()
301 if (files->fname == NULL) { in mf_fgets()
305 fname = files->fname; in mf_fgets()
/mirbsd/src/gnu/usr.bin/perl/ext/B/t/
Df_sort5 @articles = sort @files;
8 @articles = sort {$a cmp $b} @files;
11 @articles = sort {uc($a) cmp uc($b)} @files;
14 @articles = sort {$b cmp $a} @files;
17 @articles = sort {$a <=> $b} @files;
20 @articles = sort {$b <=> $a} @files;
76 @articles = sort {$FooPack::b <=> $FooPack::a} @files;
/mirbsd/src/gnu/usr.bin/perl/lib/File/Temp/t/
Dtempfile.t13 my (@files, @dirs, @still_there);
26 END { foreach (@files) { ok( !(-e $_) )} }
53 push(@files, $tempfile);
79 push(@files, $tempfile);
89 push(@files, $tempfile);
99 push(@files, $tempfile);
114 push(@files, $tempfile);

12345678910>>...39