home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / perl-5.003-bin.lha / lib / perl5 / auto / DynaLoader / dl_findfile.al < prev   
Text File  |  1996-10-09  |  3KB  |  82 lines
  1. # NOTE: Derived from ../../lib/DynaLoader.pm.  Changes made here will be lost.
  2. package DynaLoader;
  3.  
  4. sub dl_findfile {
  5.     # Read ext/DynaLoader/DynaLoader.doc for detailed information.
  6.     # This function does not automatically consider the architecture
  7.     # or the perl library auto directories.
  8.     my (@args) = @_;
  9.     my (@dirs,  $dir);   # which directories to search
  10.     my (@found);         # full paths to real files we have found
  11.     my $dl_ext= $Config::Config{'dlext'}; # suffix for perl extensions
  12.     my $dl_so = $Config::Config{'so'};    # suffix for shared libraries
  13.  
  14.     print STDERR "dl_findfile(@args)\n" if $dl_debug;
  15.  
  16.     # accumulate directories but process files as they appear
  17.     arg: foreach(@args) {
  18.         #  Special fast case: full filepath requires no search
  19.         if ($Is_VMS && m%[:>/\]]% && -f $_) {
  20.         push(@found,dl_expandspec(VMS::Filespec::vmsify($_)));
  21.         last arg unless wantarray;
  22.         next;
  23.         }
  24.         elsif (m:/: && -f $_ && !$do_expand) {
  25.         push(@found,$_);
  26.         last arg unless wantarray;
  27.         next;
  28.     }
  29.  
  30.         # Deal with directories first:
  31.         #  Using a -L prefix is the preferred option (faster and more robust)
  32.         if (m:^-L:) { s/^-L//; push(@dirs, $_); next; }
  33.  
  34.         #  Otherwise we try to try to spot directories by a heuristic
  35.         #  (this is a more complicated issue than it first appears)
  36.         if (m:/: && -d $_) {   push(@dirs, $_); next; }
  37.  
  38.         # VMS: we may be using native VMS directry syntax instead of
  39.         # Unix emulation, so check this as well
  40.         if ($Is_VMS && /[:>\]]/ && -d $_) {   push(@dirs, $_); next; }
  41.  
  42.         #  Only files should get this far...
  43.         my(@names, $name);    # what filenames to look for
  44.         if (m:-l: ) {          # convert -lname to appropriate library name
  45.             s/-l//;
  46.             push(@names,"lib$_.$dl_so");
  47.             push(@names,"lib$_.a");
  48.         } else {                # Umm, a bare name. Try various alternatives:
  49.             # these should be ordered with the most likely first
  50.             push(@names,"$_.$dl_ext")    unless m/\.$dl_ext$/o;
  51.             push(@names,"$_.$dl_so")     unless m/\.$dl_so$/o;
  52.             push(@names,"lib$_.$dl_so")  unless m:/:;
  53.             push(@names,"$_.a")          if !m/\.a$/ and $dlsrc eq "dl_dld.xs";
  54.             push(@names, $_);
  55.         }
  56.         foreach $dir (@dirs, @dl_library_path) {
  57.             next unless -d $dir;
  58.             chop($dir = VMS::Filespec::unixpath($dir)) if $Is_VMS;
  59.             foreach $name (@names) {
  60.         my($file) = "$dir/$name";
  61.                 print STDERR " checking in $dir for $name\n" if $dl_debug;
  62.         $file = _check_file($file);
  63.         if ($file) {
  64.                     push(@found, $file);
  65.                     next arg; # no need to look any further
  66.                 }
  67.             }
  68.         }
  69.     }
  70.     if ($dl_debug) {
  71.         foreach(@dirs) {
  72.             print STDERR " dl_findfile ignored non-existent directory: $_\n" unless -d $_;
  73.         }
  74.         print STDERR "dl_findfile found: @found\n";
  75.     }
  76.     return $found[0] unless wantarray;
  77.     @found;
  78. }
  79.  
  80.  
  81. 1;
  82.