/openbsd/gnu/lib/libiberty/src/ |
H A D | make-relative-prefix.c | 118 char **dirs; in split_directories() local 144 if (dirs == NULL) in split_directories() 156 free (dirs); in split_directories() 172 if (dirs[num_dirs - 1] == NULL) in split_directories() 174 dirs[num_dirs] = NULL; in split_directories() 184 dirs[num_dirs] = NULL; in split_directories() 186 if (dirs[num_dirs - 1] == NULL) in split_directories() 194 return dirs; in split_directories() 204 while (dirs[i] != NULL) in free_split_directories() 205 free (dirs[i++]); in free_split_directories() [all …]
|
/openbsd/gnu/usr.bin/perl/ext/VMS-Filespec/lib/VMS/ |
H A D | Filespec.pm | 306 @dirs = split(m#/#,$dir); 309 push @dirs,$base; 312 foreach (@dirs) { 340 my(@dirs) = grep($_,split(m#\.#,$dir)); 341 if ($dirs[0] =~ /^-/) { 342 my($steps) = shift @dirs; 345 join('/',@dirs) . "/$base"; 351 my(@dirs) = split(m#\.#,$dir); 352 if ($dirs[0] && $dirs[0] =~ /^-/) { 353 my($steps) = shift @dirs; [all …]
|
/openbsd/gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html/ |
H A D | Util.pm | 151 my ($vol, $dirs, $file) = File::Spec->splitpath($full_path); 152 my @dirs = $dirs eq File::Spec->curdir() 154 : File::Spec->splitdir($dirs); 159 if( $dirs[0] ) { 160 unshift @dirs, $vol; 163 $dirs[0] = $vol; 166 unshift @dirs, '' if File::Spec->file_name_is_absolute($full_path); 167 return $file unless scalar(@dirs); 168 $full_path = File::Spec::Unix->catfile(File::Spec::Unix->catdir(@dirs),
|
/openbsd/gnu/usr.bin/perl/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/ |
H A D | VMS.pm | 40 my ($self, @dirs) = @_; 44 unshift @dirs, $1; 46 return unless @dirs; 48 return ('/include=(' . join(',', @dirs) . ')'); 157 my(@dirs,@libs,$dir,$lib,%found,@fndlibs,$ldlib); 174 push(@dirs,$1), next if $lib =~ /^-L(.*)/; 175 push(@dirs,$lib), next if $lib =~ /[:>\]]$/; 176 push(@dirs,$lib), next if -d $lib; 185 foreach $dir (@dirs) { 196 @dirs = grep { length($_) } @dirs; [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-Install/lib/ExtUtils/ |
H A D | Installed.pm | 78 my ($self, @dirs)= @_; 82 for @dirs; 86 s|\\|/|g for @dirs; 88 return wantarray ? @dirs : $dirs[0]; 196 while (@dirs) { 197 $root= shift @dirs; 265 my (%dirs); 269 return sort keys %dirs; 275 my (%dirs); 277 $dirs{$dir}++; [all …]
|
/openbsd/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/ |
H A D | VMS.pm | 136 my @dirs = grep {defined() && length()} @_; 139 if (@dirs) { 140 my $path = (@dirs == 1 ? $dirs[0] : $self->catdir(@dirs)); 324 my (@dirs,$dir,$i); 325 while ($dir = $ENV{'DCL$PATH;' . $i++}) { push(@dirs,$dir); } 326 return @dirs; 386 my @dirs = (); 387 return @dirs if ( (!defined $dirspec) || ('' eq $dirspec) ); 405 @dirs = split /(?<!\^)\./, vmspath($dirspec); 406 $dirs[0] =~ s/^[\[<]//s; $dirs[-1] =~ s/[\]>]\Z(?!\n)//s; [all …]
|
H A D | Unix.pm | 548 my($vol, $dirs, $file) = $fs->splitpath($path); 549 my @dirs = $fs->splitdir($dirs); 550 pop @dirs if @dirs && $dirs[-1] eq ''; 553 foreach my $dir (@dirs) {
|
/openbsd/usr.bin/libtool/LT/ |
H A D | Library.pm | 42 sub resolve_library($self, $dirs, $shared, $staticflag, $linkmode, $gp = undef) 93 push @$dirs, $gp->libsearchdirs if defined $gp; 95 tsay {"search path= ", join(':', @$dirs)}; 97 foreach my $sd (@$dirs) { 189 my @dirs; 199 @dirs = split(":", $1); 203 tsay {"found ", (@dirs == 0) ? 'none ' : '', 204 "RPATH/RUNPATH for $filename\n@dirs"}; 205 return @dirs;
|
/openbsd/usr.bin/mandoc/ |
H A D | manpath.c | 84 manpath_base(struct manpaths *dirs) in manpath_base() argument 87 manpath_parseline(dirs, path_base, '\0'); in manpath_base() 94 manpath_parseline(struct manpaths *dirs, char *path, char option) in manpath_parseline() argument 102 manpath_add(dirs, dir, option); in manpath_parseline() 110 manpath_add(struct manpaths *dirs, const char *dir, char option) in manpath_add() argument 120 for (i = 0; i < dirs->sz; i++) in manpath_add() 121 if (strcmp(dirs->paths[i], dir) == 0) in manpath_add() 127 dirs->paths = mandoc_reallocarray(dirs->paths, in manpath_add() 128 dirs->sz + 1, sizeof(*dirs->paths)); in manpath_add() 129 dirs->paths[dirs->sz++] = mandoc_strdup(cp); in manpath_add()
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/ |
H A D | HandleConfig.pm | 508 my ($module, @dirs) = @_; 513 for my $dir ( @dirs ) { 530 my @dirs; 539 push @dirs, File::HomeDir->my_home; 542 push @dirs, $ENV{HOME} if $ENV{HOME}; 550 @dirs = map { File::Spec->catdir($_, $dotcpan) } grep { defined } @dirs; 551 return wantarray ? @dirs : $dirs[0]; 659 my @dirs = cpan_home_dir_candidates(); 660 for my $d (@dirs) { 663 for my $d (@dirs) { [all …]
|
/openbsd/usr.bin/libtool/LT/Mode/ |
H A D | Link.pm | 499 sub find_first_lib($self, $lib, $dirs, $gp) 504 push(@$dirs, $gp->libsearchdirs) if $gp; 505 for my $sd(".", @$dirs) { 548 push(@$dirs, $1); 596 push @$dirs, $r; 620 push(@$dirs, abs_dir($arg)); 625 push(@$dirs, abs_dir($arg)); 641 push(@$dirs, abs_dir($arg)); 688 push(@$dirs, $1); 705 push(@$dirs, $d); [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/Pod-Simple/lib/Pod/Simple/ |
H A D | HTMLBatch.pm | 117 my($self, $dirs, $outdir) = @_; 121 if(!defined($dirs) or $dirs eq '' or $dirs eq '@INC' ) { 122 $dirs = ''; 123 } elsif(ref $dirs) { 131 $dirs = [ grep length($_), split qr/$ps/, $dirs ]; 163 if($dirs) { 164 $self->muse(scalar(@$dirs), " dirs to scan: @$dirs"); 168 my $mod2path = $self->find_all_pods($dirs ? $dirs : ()); 518 my($self, $dirs) = @_; 528 my($self, $dirs) = @_; [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/podlators/lib/Pod/ |
H A D | Man.pm | 966 my @dirs = File::Spec->splitdir ($dirs); 967 if (@dirs) { 971 if ($dirs[$i] =~ /perl/) { 973 $cut++ if ($dirs[$i + 1] && $dirs[$i + 1] eq 'lib'); 975 } elsif ($dirs[$i] eq 'lib' && $dirs[$i + 1] && $dirs[0] eq 'ext') { 980 splice (@dirs, 0, $cut); 981 shift @dirs if ($dirs[0] =~ /^(site|vendor)(_perl)?$/); 982 shift @dirs if ($dirs[0] =~ /^[\d.]+$/); 983 shift @dirs if ($dirs[0] =~ /^(.*-$^O|$^O-.*|$^O)$/); 985 shift @dirs if $dirs[0] eq 'lib'; [all …]
|
/openbsd/gnu/usr.bin/cvs/src/ |
H A D | checkout.c | 1134 while (dirs != NULL) 1138 if (!dirs->just_chdir) 1152 build_one_dir (dirs->repository, dirs->dirpath, sticky); 1155 nextdir = dirs->next; 1156 free (dirs->dirpath); 1157 free (dirs); 1158 dirs = nextdir; 1166 nextdir = dirs->next; 1167 free (dirs->dirpath); 1168 free (dirs); [all …]
|
/openbsd/lib/libcrypto/x509/ |
H A D | by_dir.c | 85 STACK_OF(BY_DIR_ENTRY) *dirs; 150 a->dirs = NULL; in new_dir() 186 sk_BY_DIR_ENTRY_pop_free(a->dirs, by_dir_entry_free); in free_dir() 215 ent = sk_BY_DIR_ENTRY_value(ctx->dirs, j); in add_cert_dir() 220 if (j < sk_BY_DIR_ENTRY_num(ctx->dirs)) in add_cert_dir() 222 if (ctx->dirs == NULL) { in add_cert_dir() 223 ctx->dirs = sk_BY_DIR_ENTRY_new_null(); in add_cert_dir() 224 if (ctx->dirs == NULL) { in add_cert_dir() 242 if (!sk_BY_DIR_ENTRY_push(ctx->dirs, ent)) { in add_cert_dir() 301 for (i = 0; i < sk_BY_DIR_ENTRY_num(ctx->dirs); i++) { in get_cert_by_subject() [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/ |
H A D | eu_command.t | 41 my ($vol, $dirs, $file) = File::Spec->splitpath($self); 42 my @dirs = File::Spec->splitdir($dirs); 43 unshift(@dirs, File::Spec->updir); 44 $dirs = File::Spec->catdir(@dirs); 45 $self = File::Spec->catpath($vol, $dirs, $file);
|
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/ |
H A D | Installed.t | 304 my @dirs = $ei->directories('goodmod', 'prog', 'fake'); 305 is( scalar @dirs, 0, 'directories() should return no dirs if no files found' ); 309 @dirs = $ei->directories('goodmod', 'doc'); 310 is( scalar @dirs, $mandirs, '... should find all files files() would' ); 312 @dirs = $ei->directories('goodmod'); 313 is( scalar @dirs, 2 + $mandirs, '... should find all files files() would, again' ); 315 is( join(' ', @files), join(' ', @dirs), '... should sort output' ); 325 @dirs = $ei->directory_tree('goodmod', 'doc', $Config{man1direxp} ? 327 is( scalar @dirs, $expectdirs,
|
/openbsd/gnu/usr.bin/perl/cpan/File-Temp/t/ |
H A D | tempfile.t | 13 my (@files, @dirs, @still_there); 30 END { foreach (@dirs) { ok( !(-d $_), "Dir $_ should not be present" )} } 68 push(@dirs, File::Spec->rel2abs($tempdir)); 78 push(@dirs, File::Spec->rel2abs($tempdir)); 197 push(@dirs, File::Spec->rel2abs($tempdir));
|
/openbsd/usr.sbin/pkg_add/OpenBSD/ |
H A D | OldLibs.pm | 119 sub enforce_dir($self, $path, $copy, $dirs) 127 if ($dirs->{$d}) { 130 $dirs->{$d} = 1; 131 $self->enforce_dir($d, $copy, $dirs); 137 sub special_deep_copy($self, $copy, $h, $dirs) 139 $self->enforce_dir($self->fullname, $copy, $dirs); 140 $self->SUPER::special_deep_copy($copy, $h, $dirs);
|
H A D | Temp.pm | 31 my $dirs = {}; 41 while (my ($dir, $pid) = each %$dirs) { 61 $dirs->{$dir} = $$; 106 delete $dirs->{$name};
|
/openbsd/usr.bin/make/ |
H A D | main.c | 91 struct dirs { struct 106 static char *chdir_verify_path(const char *, struct dirs *); argument 108 static void setup_CURDIR_OBJDIR(struct dirs *); 112 static void read_all_make_rules(bool, bool, Lst, struct dirs *); 113 static void read_makefile_list(Lst, struct dirs *); 540 chdir_verify_path(const char *path, struct dirs *d) in chdir_verify_path() 552 setup_CURDIR_OBJDIR(struct dirs *d) in setup_CURDIR_OBJDIR() 592 read_makefile_list(Lst mk, struct dirs *d) in read_makefile_list() 602 Lst makefiles, struct dirs *d) in read_all_make_rules() 655 static struct dirs d; in main() [all …]
|
/openbsd/gnu/llvm/lld/cmake/modules/ |
H A D | FindVTune.cmake | 7 set(dirs variable 15 PATHS ${dirs} 26 PATHS ${dirs}
|
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/ |
H A D | Kid.pm | 538 my ( @dirs, @libs ); 540 push( @dirs, $1 ), next if $lib =~ /^-L(.*)/; 541 push( @dirs, $lib ), next if $lib =~ /[:>\]]$/; 542 push( @dirs, $lib ), next if -d $lib; 546 push( @dirs, split( ' ', $Config{'libpth'} ) ); 551 foreach my $dir ( @dirs ) { 565 @dirs = grep { length( $_ ) } @dirs; 566 unshift( @dirs, '' ); # Check each $lib without additions first 590 foreach my $dir ( @dirs ) {
|
/openbsd/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/ |
H A D | File.pm | 396 my ($vol, $dirs, $file) = File::Spec->splitpath( $path, $self->is_dir ); 397 my @dirs = File::Spec->splitdir( File::Spec->canonpath($dirs) ); 400 $file = pop @dirs if $self->is_dir and not length $file; 406 map { $_ = '..' if $_ eq '-'; $_ = '' if $_ eq '000000' } @dirs; 409 unshift @dirs, $vol; 413 my $prefix = File::Spec::Unix->catdir(@dirs);
|
/openbsd/gnu/usr.bin/perl/cpan/File-Temp/lib/File/ |
H A D | Temp.pm | 417 my @dirs = File::Spec->splitdir($directories); 421 if ($#dirs == 0) { 426 $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]); 431 $parent = File::Spec->catdir(@dirs[0..$#dirs-1]); 774 my @dirs = File::Spec->splitdir($directories); 777 foreach my $pos (0.. $#dirs) { 780 File::Spec->catdir(@dirs[0.. $#dirs - $pos]), 903 my @dirs = (exists $dirs_to_unlink{$$} ? 906 foreach my $dir (@dirs) {
|