This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #33998] [PATCH] Support for GNU/kFreeBSD
[metaconfig.git] / U / perl / dlsrc.U
1 ?RCS: $Id: dlsrc.U,v$
2 ?RCS:
3 ?RCS: Copyright (c) 1996-1998, Andy Dougherty
4 ?RCS:
5 ?RCS: You may distribute under the terms of either the GNU General Public
6 ?RCS: License or the Artistic License, as specified in the README file.
7 ?RCS:
8 ?RCS: $Log: dlsrc.U,v $
9 ?RCS:
10 ?X:  hpux support thanks to Jeff Okamoto <okamoto@hpcc101.corp.hp.com>
11 ?X:
12 ?X:  To create a shared library, you must compile ALL source files in the
13 ?X:  library with +z (or possibly +Z if the library is whopping huge),
14 ?X:  then link the library with -b.  Example:
15 ?X:       cc -c +z module_a.c
16 ?X:       cc -c +z module_b.c
17 ?X:       ld -b module_a.o module_b.o -o module.sl
18 ?X:
19 ?MAKE:usedl ld dlsrc cccdlflags lddlflags ccdlflags: \
20         Getfile Myread test osname sed i_dld d_dlopen Findhdr Setvar \
21         cc ccflags ldflags ls gccversion cat rsrc src run i_stdlib
22 ?MAKE:  -pick add $@ %<
23 ?Y:BOTTOM
24 ?S:usedl:
25 ?S:     This variable indicates if the system supports dynamic
26 ?S:     loading of some sort.  See also dlsrc and dlobj.
27 ?S:.
28 ?S:ld:
29 ?S:     This variable indicates the program to be used to link
30 ?S:     libraries for dynamic loading.  On some systems, it is 'ld'.
31 ?S:     On ELF systems, it should be $cc.  Mostly, we'll try to respect
32 ?S:     the hint file setting.
33 ?S:.
34 ?S:dlsrc:
35 ?S:     This variable contains the name of the dynamic loading file that
36 ?S:     will be used with the package.
37 ?S:.
38 ?S:cccdlflags:
39 ?S:     This variable contains any special flags that might need to be
40 ?S:     passed with 'cc -c' to compile modules to be used to create a shared
41 ?S:     library that will be used for dynamic loading.  For hpux, this
42 ?S:     should be +z.  It is up to the makefile to use it.
43 ?S:.
44 ?S:lddlflags:
45 ?S:     This variable contains any special flags that might need to be
46 ?S:     passed to $ld to create a shared library suitable for dynamic
47 ?S:     loading.  It is up to the makefile to use it.  For hpux, it
48 ?S:     should be '-b'.  For sunos 4.1, it is empty.
49 ?S:.
50 ?S:ccdlflags:
51 ?S:     This variable contains any special flags that might need to be
52 ?S:     passed to cc to link with a shared library for dynamic loading.
53 ?S:     It is up to the makefile to use it.  For sunos 4.1, it should
54 ?S:     be empty.
55 ?S:.
56 ?C:USE_DYNAMIC_LOADING ~ %<:
57 ?C:     This symbol, if defined, indicates that dynamic loading of
58 ?C:     some sort is available.
59 ?C:.
60 ?H:?%<:#$usedl USE_DYNAMIC_LOADING              /**/
61 ?H:.
62 ?W:%<:dlopen
63 ?T:dldir thisflag tdir
64 : determine which dynamic loading, if any, to compile in
65 echo " "
66 dldir="ext/DynaLoader"
67 case "$usedl" in
68 $define|y|true)
69         dflt='y'
70         usedl="$define"
71         ;;
72 $undef|n|false)
73         dflt='n'
74         usedl="$undef"
75         ;;
76 *) 
77         dflt='n'
78         case "$d_dlopen" in
79             $define) dflt='y' ;;
80         esac
81         case "$i_dld" in
82             $define) dflt='y' ;;
83         esac
84         : Does a dl_xxx.xs file exist for this operating system
85         $test -f $rsrc/$dldir/dl_${osname}.xs && dflt='y'
86         ;;
87 esac
88 rp="Do you wish to use dynamic loading?"
89 . ./myread
90 usedl="$ans"
91 case "$ans" in
92 y*) usedl="$define"
93         case "$dlsrc" in
94         '')
95                 if $test -f $rsrc/$dldir/dl_${osname}.xs ; then
96                         dflt="$dldir/dl_${osname}.xs"
97                 elif $test "$d_dlopen" = "$define" ; then
98                         dflt="$dldir/dl_dlopen.xs"
99                 elif $test "$i_dld" = "$define" ; then
100                         dflt="$dldir/dl_dld.xs"
101                 else
102                         dflt=''
103                 fi
104                 ;;
105         *)      dflt="$dldir/$dlsrc"
106                 ;;
107         esac
108     echo "The following dynamic loading files are available:"
109         : Can not go over to $dldir because getfile has path hard-coded in.
110         tdir=`pwd`; cd "$rsrc"; $ls -C $dldir/dl*.xs; cd "$tdir"
111         rp="Source file to use for dynamic loading"
112         fn="fne"
113         gfpth="$src"
114         . ./getfile
115         usedl="$define"
116         : emulate basename
117         dlsrc=`echo $ans | $sed -e 's%.*/\([^/]*\)$%\1%'`
118
119         $cat << EOM
120
121 Some systems may require passing special flags to $cc -c to
122 compile modules that will be used to create a shared library.
123 To use no flags, say "none".
124
125 EOM
126     case "$cccdlflags" in
127     '') case "$gccversion" in
128                 '') case "$osname" in
129                         hpux)   dflt='+z' ;;
130                         next)   dflt='none' ;;
131                         irix*)  dflt='-KPIC' ;;
132                         svr4*|esix*|solaris|nonstopux) dflt='-KPIC' ;;
133                         sunos)  dflt='-pic' ;;
134                         *)      dflt='none' ;;
135                     esac
136                         ;;
137                 *)  case "$osname" in
138                         darwin) dflt='none' ;;
139                         svr4*|esix*|solaris|nonstopux) dflt='-fPIC' ;;
140                         *)      dflt='-fpic' ;;
141                     esac ;;
142             esac ;;
143         ' ') dflt='none' ;;
144     *)  dflt="$cccdlflags" ;;
145     esac
146     rp="Any special flags to pass to $cc -c to compile shared library modules?"
147     . ./myread
148     case "$ans" in
149 ?X: Use ' ' so that a subsequent Configure run preserves the old state.
150     none) cccdlflags=' ' ;;
151     *) cccdlflags="$ans" ;;
152     esac
153
154     cat << EOM
155
156 Some systems use ld to create libraries that can be dynamically loaded,
157 while other systems (such as those using ELF) use $cc.
158
159 EOM
160         case "$ld" in
161         '')     $cat >try.c <<EOM
162 /* Test for whether ELF binaries are produced */
163 #include <fcntl.h>
164 #$i_stdlib I_STDLIB
165 #ifdef I_STDLIB
166 #include <stdlib.h>
167 #endif
168 int main() {
169         char b[4];
170         int i = open("a.out",O_RDONLY);
171         if(i == -1) 
172                 exit(1); /* fail */
173         if(read(i,b,4)==4 && b[0]==127 && b[1]=='E' && b[2]=='L' && b[3]=='F')
174                 exit(0); /* succeed (yes, it's ELF) */
175         else
176                 exit(1); /* fail */
177 }
178 EOM
179                 if $cc $ccflags $ldflags try.c >/dev/null 2>&1 && $run ./a.out; then
180                         cat <<EOM
181 You appear to have ELF support.  I'll use $cc to build dynamic libraries.
182 EOM
183                         dflt="$cc"
184                 else
185                         echo "I'll use ld to build dynamic libraries."
186                         dflt='ld'
187                 fi
188                 rm -f try.c a.out
189                 ;;
190         *)      dflt="$ld"
191                 ;;
192         esac
193
194     rp="What command should be used to create dynamic libraries?"
195     . ./myread
196         ld="$ans"
197
198     cat << EOM
199
200 Some systems may require passing special flags to $ld to create a
201 library that can be dynamically loaded.  If your ld flags include
202 -L/other/path options to locate libraries outside your loader's normal
203 search path, you may need to specify those -L options here as well.  To
204 use no flags, say "none".
205
206 EOM
207     case "$lddlflags" in
208     '') case "$osname" in
209                         beos) dflt='-nostart' ;;
210                         hpux) dflt='-b';
211                               case "$gccversion" in
212                               '') dflt="$dflt +vnocompatwarnings" ;;
213                               esac
214                               ;;        
215                         linux|irix*|gnu*)       dflt='-shared' ;;
216                         next)  dflt='none' ;;
217                         solaris) dflt='-G' ;;
218                         sunos) dflt='-assert nodefinitions' ;;
219                         svr4*|esix*|nonstopux) dflt="-G $ldflags" ;;
220                 *)     dflt='none' ;;
221                         esac
222                         ;;
223     *) dflt="$lddlflags" ;;
224     esac
225
226         : Try to guess additional flags to pick up local libraries.
227         : Be careful not to append to a plain 'none'
228         case "$dflt" in
229         none) dflt='' ;;
230         esac
231         for thisflag in $ldflags; do
232                 case "$thisflag" in
233                 -L*|-R*|-Wl,-R*)
234                         case " $dflt " in
235                         *" $thisflag "*) ;;
236                         *) dflt="$dflt $thisflag" ;;
237                         esac
238                         ;;
239                 esac
240         done
241
242         case "$dflt" in
243         ''|' ') dflt='none' ;;
244         esac
245
246     rp="Any special flags to pass to $ld to create a dynamically loaded library?"
247     . ./myread
248     case "$ans" in
249 ?X: Use ' ' so that a subsequent Configure run preserves the old state.
250     none) lddlflags=' ' ;;
251     *) lddlflags="$ans" ;;
252     esac
253
254         cat <<EOM
255
256 Some systems may require passing special flags to $cc to indicate that
257 the resulting executable will use dynamic linking.  To use no flags,
258 say "none".
259
260 EOM
261     case "$ccdlflags" in
262     '') case "$osname" in
263             linux|hpux|gnu*)    dflt='-Wl,-E' ;;
264             next|sunos) dflt='none' ;;
265             *)          dflt='none' ;;
266             esac ;;
267     ' ')  dflt='none' ;;
268     *)  dflt="$ccdlflags" ;;
269     esac
270     rp="Any special flags to pass to $cc to use dynamic linking?"
271     . ./myread
272     case "$ans" in
273 ?X: Use ' ' so that a subsequent Configure run preserves the old state.
274     none) ccdlflags=' ' ;;
275     *) ccdlflags="$ans" ;;
276     esac
277     ;;
278 ?X: End of usedl=y section
279 *)  usedl="$undef"
280         ld='ld'
281     dlsrc='dl_none.xs'
282     lddlflags=''
283     ccdlflags=''
284     ;;
285 esac
286