perl 5.0 alpha 8
[p5sagit/p5-mst-13.2.git] / U / dlsrc.U
CommitLineData
2304df62 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
47echo " "
48case "$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' ;;
59esac
60rp="Do you wish to attempt to use dynamic loading?"
61. ./myread
62usedl="$ans"
63case "$ans" in
64y*) usedl='define'; dlsrc='dl.c'; dlobj='dl.o';;
65*) usedl='undef'; dlsrc=''; dlobj='';;
66esac