U/dlsrc.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: dlsrc.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: dlsrc.U,v $
  19 ?RCS:
  20 ?MAKE:dlsrc dlobj usedl: Myread Oldconfig package \
  21         Guess test rm cat i_dlfcn cc ccflags Findhdr
  22 ?MAKE:  -pick add $@ %<
  23 ?S:usedl:
  24 ?S:     This variable contains indicates if the the system supports dynamic
  25 ?S:     loading of some sort.  See also dlsrc and dlobj.
  26 ?S:.
  27 ?S:dlsrc:
  28 ?S:     This variable contains the name of the dynamic loading file that
  29 ?S:     will be used with the package.
  30 ?S:.
  31 ?S:dlobj:
  32 ?S:     This variable contains the name of the dynamic loading object
  33 ?S:     file that will be used with the package.
  34 ?S:.
  35 ?C:USE_DYNAMIC_LOADING~%<:
  36 ?C:     This symbol, if defined, indicates that dynamic loading of
  37 ?C:     some sort is available.
  38 ?C:.
  39 ?H:?%<:#$usedl USE_DYNAMIC_LOADING              /**/
  40 ?H:.
  41 ?W:%<:dlopen
  42 ?INIT: usedl=''
  43 ?X:
  44 ?X:  Can anyone suggest a test for whether this works on a given system?
  45 ?X:
  46 : determine which dynamic loading, if any, to compile in
  47 echo " "
  48 case "$usedl" in
  49 '')
  50         case "$i_dlfcn" in
  51         'define') dflt='y' ;;
  52         *)        dflt='n' ;;
  53         esac
  54         ;;
  55 'define') dflt='y' ;;
  56 'y') dflt='y'
  57      usedl='define' ;;
  58 *)  dflt='n' ;;
  59 esac
  60 rp="Do you wish to attempt to use dynamic loading?"
  61 . ./myread
  62 usedl="$ans"
  63 case "$ans" in
  64 y*) usedl='define'; dlsrc='dl.c'; dlobj='dl.o';;
  65 *) usedl='undef'; dlsrc=''; dlobj='';;
  66 esac