U/Extensions.U

   1 ?X:  These units are based on the ones supplied with dist-3.0
   2 ?X:  patchlevel 22.  They have been changed or enhanced to work with
   3 ?X:  perl5alpha.  I would appreciate hearing about any changes,
   4 ?X:  corrections, or enhancements.
   5 ?X:     Andy Dougherty                  doughera@lafcol.lafayette.edu
   6 ?X:     Dept. of Physics
   7 ?X:     Lafayette College
   8 ?X:     Easton, PA  18042-1782
   9 ?X:     Sat Apr  2 15:45:17 EST 1994
  10 ?RCS: $Id: Extensions.U,v$
  11 ?RCS:
  12 ?RCS: You may redistribute only under the terms of the Artistic Licence,
  13 ?RCS: as specified in the README file that comes with the distribution.
  14 ?RCS: You may reuse parts of this distribution only within the terms of
  15 ?RCS: that same Artistic Licence; a copy of which may be found at the root
  16 ?RCS: of the source tree for dist 3.0.
  17 ?RCS:
  18 ?RCS: $Log: Extensions.U,v $
  19 ?RCS:
  20 ?MAKE:extensions : find package
  21 ?MAKE:  -pick add $@ %<
  22 ?S:extensions:
  23 ?S:     This variable holds a list of extension files we want to
  24 ?S:     include in perl.
  25 ?S:.
  26 ?INIT:: List of extensions we want:
  27 ?INIT:extensions=''
  28 ?X:
  29 echo " "
  30 case "$extensions" in
  31 ' '|'') echo "Looking for extensions..."
  32         case "$find" in
  33                 *find*)
  34                 cd ..
  35                 dflt="`$find ext -type f -name \*.xs -print`"
  36                 cd UU
  37                 ;;
  38         *)      dflt='ext/dbm/NDBM_File.xs ext/dbm/ODBM_File.xs ext/dbm/GDBM_File.xs ext/dbm/SDBM_File.xs ext/posix/POSIX.xs'
  39                 ;;
  40         esac
  41         ;;
  42 none)   dflt='' ;;
  43 *)      dflt="$extensions" ;;
  44 esac
  45 rp="What extensions do you wish to include?"
  46 . ./myread
  47 extensions="$ans"
  48