[metaconfig.git] / U / perl / Extensions.U

?RCS: $Id: Extensions.U,v$
?RCS:
?RCS: Copyright (c) 1996-1998, Andy Dougherty
?RCS:
?RCS: You may distribute under the terms of either the GNU General Public
?RCS: License or the Artistic License, as specified in the README file.
?RCS:
?RCS: $Log: Extensions.U,v $
?RCS:
?MAKE:known_extensions extensions dynamic_ext static_ext nonxs_ext \
	useposix useopcode : \
	Myread hint usedl d_sem d_socket i_db i_dbm i_rpcsvcdbm i_gdbm \ 
	i_ndbm usethreads useithreads package test cat rsrc \
	d_msg d_shm osname use64bitint i_langinfo d_nl_langinfo \
	libs
?MAKE:	-pick add $@ %<
?Y:BOTTOM
?S:known_extensions:
?S:	This variable holds a list of all XS extensions included in 
?S:	the package.
?S:.
?S:dynamic_ext:
?S:	This variable holds a list of XS extension files we want to
?S:	link dynamically into the package.  It is used by Makefile.
?S:.
?S:static_ext:
?S:	This variable holds a list of XS extension files we want to
?S:	link statically into the package.  It is used by Makefile.
?S:.
?S:nonxs_ext:
?S:	This variable holds a list of all non-xs extensions included
?S:	in the package.  All of them will be built.
?S:.
?S:extensions:
?S:	This variable holds a list of all extension files (both XS and
?S:	non-xs linked into the package.  It is propagated to Config.pm
?S:	and is typically used to test whether a particular extesion 
?S:	is available.
?S:.
?S:useposix:
?S:	This variable holds either 'true' or 'false' to indicate
?S:	whether the POSIX extension should be used.  The sole
?S:	use for this currently is to allow an easy mechanism
?S:	for hints files to indicate that POSIX will not compile
?S:	on a particular system.
?S:.
?S:useopcode:
?S:	This variable holds either 'true' or 'false' to indicate
?S:	whether the Opcode extension should be used.  The sole
?S:	use for this currently is to allow an easy mechanism
?S:	for users to skip the Opcode extension from the Configure
?S:	command line.
?S:.
?T:xxx avail_ext tdir nonxs_extensions find_extensions
?INIT:: set useposix=false in your hint file to disable the POSIX extension.
?INIT:useposix=true
?INIT:: set useopcode=false in your hint file to disable the Opcode extension.
?INIT:useopcode=true
echo " "
echo "Looking for extensions..." >&4
: If we are using the old config.sh, known_extensions may contain
: old or inaccurate or duplicate values.
known_extensions=''
nonxs_extensions=''
: We do not use find because it might not be available.
: We do not just use MANIFEST because the user may have dropped
: some additional extensions into the source tree and expect them
: to be built.

: Function to recursively find available extensions, ignoring DynaLoader
: NOTE: recursion limit of 10 to prevent runaway in case of symlink madness
find_extensions='
    for xxx in *; do
       case "$xxx" in
           DynaLoader|dynaload) ;;
           *)
           if $test -f $xxx/$xxx.xs; then
               known_extensions="$known_extensions $1$xxx";
           elif $test -f $xxx/Makefile.PL; then
               nonxs_extensions="$nonxs_extensions $1$xxx";
           else
               if $test -d $xxx -a $# -lt 10; then
                   set $1$xxx/ $*;
                   cd "$xxx";
                   eval $find_extensions;
                   cd ..;
                   shift;
               fi;
           fi
           ;;
       esac;
    done'
tdir=`pwd`
cd "$rsrc/ext"
set X
shift
eval $find_extensions
# Special case:  Add in threads/shared since it is not picked up by the
# recursive find above (and adding in general recursive finding breaks
# SDBM_File/sdbm).  A.D.  10/25/2001.
known_extensions="$known_extensions threads/shared"
set X $nonxs_extensions
shift
nonxs_extensions="$*"
set X $known_extensions
shift
known_extensions="$*"
cd "$tdir"

: Now see which are supported on this system.
?X: avail_ext lists available XS extensions.
avail_ext=''
for xxx in $known_extensions ; do
	case "$xxx" in
?X: Handle possible DOS 8.3 filename and case alterations
	DB_File|db_file)
		case "$i_db" in
		$define) avail_ext="$avail_ext $xxx" ;;
		esac
		;;
	GDBM_File|gdbm_fil)
		case "$i_gdbm" in 
		$define) avail_ext="$avail_ext $xxx" ;;
		esac
		;;
	I18N/Langinfo|i18n_lan)
		case "$i_langinfo$d_nl_langinfo" in 
		$define$define) avail_ext="$avail_ext $xxx" ;;
		esac
		;;
	NDBM_File|ndbm_fil)
		case "$i_ndbm" in
		$define)
		    case "$osname-$use64bitint" in
		    cygwin-*|hpux-define)
			case "$libs" in
			*-lndbm*) avail_ext="$avail_ext $xxx" ;;
			esac
			;;
		    *) avail_ext="$avail_ext $xxx" ;;
		    esac
		    ;;
		esac
		;;
	ODBM_File|odbm_fil) 
		case "${i_dbm}${i_rpcsvcdbm}" in
		*"${define}"*)
		    case "$osname-$use64bitint" in
		    cygwin-*|hpux-define)
			case "$libs" in
			*-ldbm*) avail_ext="$avail_ext $xxx" ;;
			esac
			;;
		    *) avail_ext="$avail_ext $xxx" ;;
		    esac
		    ;;
		esac
		;;
	POSIX|posix)
		case "$useposix" in
		true|define|y) avail_ext="$avail_ext $xxx" ;;
		esac
		;;
	Opcode|opcode)
		case "$useopcode" in
		true|define|y) avail_ext="$avail_ext $xxx" ;;
		esac
		;;
	Socket|socket)
		case "$d_socket" in 
		true|$define|y)
		    case "$osname" in
		    beos) ;; # not unless BONE
		    *) avail_ext="$avail_ext $xxx" ;;
		    esac
		    ;;
		esac
		;;
	Sys/Syslog|sys/syslog)
		: XXX syslog requires socket
		case "$d_socket" in 
		true|$define|y) avail_ext="$avail_ext $xxx" ;;
		esac
		;;
	Thread|thread)
                case "$usethreads" in
                true|$define|y)
                        case "$useithreads" in
                        $undef|false|[nN]*) avail_ext="$avail_ext $xxx" ;;
                        esac
		esac
		;;
	threads|threads/shared)
		# threads and threads::shared are special cases.
		# To stop people from asking "Perl 5.8.0 was supposed
		# to have this new fancy threads implementation but my
		# perl doesn't have it" and from people trying to
		# (re)install the threads module using CPAN.pm and
		# CPAN.pm then offering to reinstall Perl 5.8.0,
		# the threads.pm and threads/shared.pm will always be
		# there, croaking informatively ("you need to rebuild
		# all of Perl with threads, sorry") when threads haven't
		# been compiled in.
		# --jhi
		avail_ext="$avail_ext $xxx"
		;;
	IPC/SysV|ipc/sysv)
		: XXX Do we need a useipcsysv variable here
		case "${d_msg}${d_sem}${d_shm}" in 
		*"${define}"*) avail_ext="$avail_ext $xxx" ;;
		esac
		;;
	*)	avail_ext="$avail_ext $xxx"
		;;
	esac
done

set X $avail_ext
shift
avail_ext="$*"

: Now see which nonxs extensions are supported on this system.
: For now assume all are.
nonxs_ext=''
for xxx in $nonxs_extensions ; do
	case "$xxx" in
	*)	nonxs_ext="$nonxs_ext $xxx"
		;;
	esac
done

set X $nonxs_ext
shift
nonxs_ext="$*"

case $usedl in
$define)
	$cat <<EOM
A number of extensions are supplied with $package.  You may choose to
compile these extensions for dynamic loading (the default), compile
them into the $package executable (static loading), or not include
them at all.  Answer "none" to include no extensions.
Note that DynaLoader is always built and need not be mentioned here.

EOM
	case "$dynamic_ext" in
	'') dflt="$avail_ext" ;;
	*)	dflt="$dynamic_ext"
		# Perhaps we are reusing an old out-of-date config.sh.
		case "$hint" in
		previous)
			if test X"$dynamic_ext" != X"$avail_ext"; then
				$cat <<EOM
NOTICE:  Your previous config.sh list may be incorrect. 
The extensions now available to you are 
	${avail_ext}
but the default list from your previous config.sh is
	${dynamic_ext} 

EOM
			fi
			;;
		esac
		;;
	esac
	case "$dflt" in
	'')	dflt=none;;
	esac
	rp="What extensions do you wish to load dynamically?"
	. ./myread
	case "$ans" in
?X: Use ' ' so a subsequent Configure will preserve that value.
	none) dynamic_ext=' ' ;;
	*) dynamic_ext="$ans" ;;
	esac

	case "$static_ext" in
	'')
		: Exclude those already listed in dynamic linking
		dflt=''
		for xxx in $avail_ext; do
			case " $dynamic_ext " in
			*" $xxx "*) ;;
			*) dflt="$dflt $xxx" ;;
			esac
		done
		set X $dflt
		shift
		dflt="$*"
		;;
	*)  dflt="$static_ext" 
		;;
	esac

	case "$dflt" in
	'')	dflt=none;;
	esac
	rp="What extensions do you wish to load statically?"
	. ./myread
	case "$ans" in
?X: Use ' ' so a subsequent Configure will preserve that value.
	none) static_ext=' ' ;;
	*) static_ext="$ans" ;;
	esac
	;;
*)
	$cat <<EOM
A number of extensions are supplied with $package.  Answer "none" 
to include no extensions. 
Note that DynaLoader is always built and need not be mentioned here.

EOM
	case "$static_ext" in
	'') dflt="$avail_ext" ;;
	*)	dflt="$static_ext"
		# Perhaps we are reusing an old out-of-date config.sh.
		case "$hint" in
		previous)
			if test X"$static_ext" != X"$avail_ext"; then
				$cat <<EOM
NOTICE:  Your previous config.sh list may be incorrect. 
The extensions now available to you are 
	${avail_ext}
but the default list from your previous config.sh is
	${static_ext} 

EOM
			fi
			;;
		esac
		;;
	esac
	: Exclude those that are not xs extensions
	case "$dflt" in
	'')	dflt=none;;
	esac
	rp="What extensions do you wish to include?"
	. ./myread
	case "$ans" in
?X: Use ' ' so a subsequent Configure will preserve that value.
	none) static_ext=' ' ;;
	*) static_ext="$ans" ;;
	esac
	;;
esac
#        
# Encode is a special case.  If we are building Encode as a static
# extension, we need to explicitly list its subextensions as well.
# For other nested extensions, this is handled automatically by
# the appropriate Makefile.PL.
case " $static_ext " in
	*" Encode "*) # Add the subextensions of Encode
	cd "$rsrc/ext"
	for xxx in `ls Encode/*/Makefile.PL|awk -F/ '{print $2}'`; do
		static_ext="$static_ext Encode/$xxx"
	done
	cd "$tdir"
	;;
esac

set X $dynamic_ext $static_ext $nonxs_ext
shift
extensions="$*"
Commit	Line	Data
959f3c4c JH	1	?RCS: $Id: Extensions.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: Extensions.U,v $
	9	?RCS:
	10	?MAKE:known_extensions extensions dynamic_ext static_ext nonxs_ext \
	11	useposix useopcode : \
	12	Myread hint usedl d_sem d_socket i_db i_dbm i_rpcsvcdbm i_gdbm \
4a2f2b60	13	i_ndbm usethreads useithreads package test cat rsrc \
d0abe53c	14	d_msg d_shm osname use64bitint i_langinfo d_nl_langinfo \
58aecb3f	15	libs
959f3c4c JH	16	?MAKE: -pick add $@ %<
	17	?Y:BOTTOM
	18	?S:known_extensions:
	19	?S: This variable holds a list of all XS extensions included in
	20	?S: the package.
	21	?S:.
	22	?S:dynamic_ext:
	23	?S: This variable holds a list of XS extension files we want to
	24	?S: link dynamically into the package. It is used by Makefile.
	25	?S:.
	26	?S:static_ext:
	27	?S: This variable holds a list of XS extension files we want to
	28	?S: link statically into the package. It is used by Makefile.
	29	?S:.
	30	?S:nonxs_ext:
	31	?S: This variable holds a list of all non-xs extensions included
	32	?S: in the package. All of them will be built.
	33	?S:.
	34	?S:extensions:
	35	?S: This variable holds a list of all extension files (both XS and
	36	?S: non-xs linked into the package. It is propagated to Config.pm
	37	?S: and is typically used to test whether a particular extesion
	38	?S: is available.
	39	?S:.
	40	?S:useposix:
	41	?S: This variable holds either 'true' or 'false' to indicate
	42	?S: whether the POSIX extension should be used. The sole
	43	?S: use for this currently is to allow an easy mechanism
	44	?S: for hints files to indicate that POSIX will not compile
	45	?S: on a particular system.
	46	?S:.
	47	?S:useopcode:
	48	?S: This variable holds either 'true' or 'false' to indicate
	49	?S: whether the Opcode extension should be used. The sole
	50	?S: use for this currently is to allow an easy mechanism
	51	?S: for users to skip the Opcode extension from the Configure
	52	?S: command line.
	53	?S:.
	54	?T:xxx avail_ext tdir nonxs_extensions find_extensions
	55	?INIT:: set useposix=false in your hint file to disable the POSIX extension.
	56	?INIT:useposix=true
	57	?INIT:: set useopcode=false in your hint file to disable the Opcode extension.
	58	?INIT:useopcode=true
	59	echo " "
	60	echo "Looking for extensions..." >&4
	61	: If we are using the old config.sh, known_extensions may contain
	62	: old or inaccurate or duplicate values.
	63	known_extensions=''
	64	nonxs_extensions=''
	65	: We do not use find because it might not be available.
	66	: We do not just use MANIFEST because the user may have dropped
	67	: some additional extensions into the source tree and expect them
	68	: to be built.
	69
	70	: Function to recursively find available extensions, ignoring DynaLoader
	71	: NOTE: recursion limit of 10 to prevent runaway in case of symlink madness
	72	find_extensions='
	73	for xxx in *; do
	74	case "$xxx" in
	75	DynaLoader\|dynaload) ;;
	76	*)
	77	if $test -f $xxx/$xxx.xs; then
	78	known_extensions="$known_extensions $1$xxx";
	79	elif $test -f $xxx/Makefile.PL; then
80	nonxs_extensions="$nonxs_extensions $1$xxx";
81	else
82	if $test -d $xxx -a $# -lt 10; then
83	set $1$xxx/ $*;
3720fc47	84	cd "$xxx";
959f3c4c JH	85	eval $find_extensions;
	86	cd ..;
	87	shift;
84e2cbfd	88	fi;
959f3c4c JH	89	fi
959f3c4c JH	90	;;
84e2cbfd	91	esac;
959f3c4c JH	92	done'
959f3c4c JH	93	tdir=`pwd`
3720fc47	94	cd "$rsrc/ext"
86a2f2c4	95	set X
959f3c4c JH	96	shift
959f3c4c JH	97	eval $find_extensions
660a2481 JH	98	# Special case: Add in threads/shared since it is not picked up by the
	99	# recursive find above (and adding in general recursive finding breaks
	100	# SDBM_File/sdbm). A.D. 10/25/2001.
ba335d16	101	known_extensions="$known_extensions threads/shared"
959f3c4c JH	102	set X $nonxs_extensions
	103	shift
	104	nonxs_extensions="$*"
	105	set X $known_extensions
	106	shift
	107	known_extensions="$*"
3720fc47	108	cd "$tdir"
959f3c4c JH	109
	110	: Now see which are supported on this system.
	111	?X: avail_ext lists available XS extensions.
	112	avail_ext=''
	113	for xxx in $known_extensions ; do
	114	case "$xxx" in
	115	?X: Handle possible DOS 8.3 filename and case alterations
	116	DB_File\|db_file)
	117	case "$i_db" in
	118	$define) avail_ext="$avail_ext $xxx" ;;
	119	esac
	120	;;
	121	GDBM_File\|gdbm_fil)
	122	case "$i_gdbm" in
	123	$define) avail_ext="$avail_ext $xxx" ;;
	124	esac
	125	;;
dfd712ee	126	I18N/Langinfo\|i18n_lan)
0e5a028f JH	127	case "$i_langinfo$d_nl_langinfo" in
	128	$define$define) avail_ext="$avail_ext $xxx" ;;
	129	esac
	130	;;
959f3c4c JH	131	NDBM_File\|ndbm_fil)
959f3c4c JH	132	case "$i_ndbm" in
4ee071c7	133	$define)
33b2427b	134	case "$osname-$use64bitint" in
cfdc7a7f	135	cygwin-*\|hpux-define)
4ee071c7 JH	136	case "$libs" in
	137	-lndbm) avail_ext="$avail_ext $xxx" ;;
	138	esac
	139	;;
	140	*) avail_ext="$avail_ext $xxx" ;;
	141	esac
	142	;;
959f3c4c JH	143	esac
	144	;;
	145	ODBM_File\|odbm_fil)
	146	case "${i_dbm}${i_rpcsvcdbm}" in
4ee071c7	147	"${define}")
33b2427b	148	case "$osname-$use64bitint" in
cfdc7a7f	149	cygwin-*\|hpux-define)
4ee071c7 JH	150	case "$libs" in
	151	-ldbm) avail_ext="$avail_ext $xxx" ;;
	152	esac
	153	;;
	154	*) avail_ext="$avail_ext $xxx" ;;
	155	esac
	156	;;
959f3c4c JH	157	esac
	158	;;
	159	POSIX\|posix)
	160	case "$useposix" in
	161	true\|define\|y) avail_ext="$avail_ext $xxx" ;;
	162	esac
	163	;;
	164	Opcode\|opcode)
	165	case "$useopcode" in
	166	true\|define\|y) avail_ext="$avail_ext $xxx" ;;
	167	esac
	168	;;
	169	Socket\|socket)
	170	case "$d_socket" in
625b7e7f JH	171	true\|$define\|y)
	172	case "$osname" in
	173	beos) ;; # not unless BONE
	174	*) avail_ext="$avail_ext $xxx" ;;
	175	esac
	176	;;
959f3c4c JH	177	esac
959f3c4c JH	178	;;
fa92de3e YST	179	Sys/Syslog\|sys/syslog)
	180	: XXX syslog requires socket
	181	case "$d_socket" in
	182	true\|$define\|y) avail_ext="$avail_ext $xxx" ;;
	183	esac
	184	;;
959f3c4c	185	Thread\|thread)
4a2f2b60 JH	186	case "$usethreads" in
	187	true\|$define\|y)
	188	case "$useithreads" in
	189	$undef\|false\|[nN]*) avail_ext="$avail_ext $xxx" ;;
	190	esac
80f8756f JH	191	esac
80f8756f JH	192	;;
4f2abfa6	193	threads\|threads/shared)
1e86056f JH	194	# threads and threads::shared are special cases.
	195	# To stop people from asking "Perl 5.8.0 was supposed
	196	# to have this new fancy threads implementation but my
	197	# perl doesn't have it" and from people trying to
	198	# (re)install the threads module using CPAN.pm and
	199	# CPAN.pm then offering to reinstall Perl 5.8.0,
	200	# the threads.pm and threads/shared.pm will always be
	201	# there, croaking informatively ("you need to rebuild
	202	# all of Perl with threads, sorry") when threads haven't
	203	# been compiled in.
	204	# --jhi
	205	avail_ext="$avail_ext $xxx"
959f3c4c JH	206	;;
	207	IPC/SysV\|ipc/sysv)
	208	: XXX Do we need a useipcsysv variable here
	209	case "${d_msg}${d_sem}${d_shm}" in
	210	"${define}") avail_ext="$avail_ext $xxx" ;;
	211	esac
	212	;;
	213	*) avail_ext="$avail_ext $xxx"
	214	;;
	215	esac
	216	done
	217
	218	set X $avail_ext
	219	shift
	220	avail_ext="$*"
	221
	222	: Now see which nonxs extensions are supported on this system.
	223	: For now assume all are.
	224	nonxs_ext=''
	225	for xxx in $nonxs_extensions ; do
	226	case "$xxx" in
	227	*) nonxs_ext="$nonxs_ext $xxx"
	228	;;
	229	esac
	230	done
	231
	232	set X $nonxs_ext
	233	shift
	234	nonxs_ext="$*"
	235
	236	case $usedl in
	237	$define)
	238	$cat <<EOM
	239	A number of extensions are supplied with $package. You may choose to
	240	compile these extensions for dynamic loading (the default), compile
	241	them into the $package executable (static loading), or not include
	242	them at all. Answer "none" to include no extensions.
	243	Note that DynaLoader is always built and need not be mentioned here.
	244
	245	EOM
	246	case "$dynamic_ext" in
	247	'') dflt="$avail_ext" ;;
	248	*) dflt="$dynamic_ext"
	249	# Perhaps we are reusing an old out-of-date config.sh.
	250	case "$hint" in
	251	previous)
	252	if test X"$dynamic_ext" != X"$avail_ext"; then
	253	$cat <<EOM
	254	NOTICE: Your previous config.sh list may be incorrect.
	255	The extensions now available to you are
	256	${avail_ext}
	257	but the default list from your previous config.sh is
	258	${dynamic_ext}
	259
	260	EOM
	261	fi
	262	;;
	263	esac
	264	;;
	265	esac
	266	case "$dflt" in
	267	'') dflt=none;;
	268	esac
	269	rp="What extensions do you wish to load dynamically?"
270	. ./myread
271	case "$ans" in
272	?X: Use ' ' so a subsequent Configure will preserve that value.
273	none) dynamic_ext=' ' ;;
274	*) dynamic_ext="$ans" ;;
275	esac
276
277	case "$static_ext" in
278	'')
279	: Exclude those already listed in dynamic linking
280	dflt=''
281	for xxx in $avail_ext; do
282	case " $dynamic_ext " in
283	" $xxx ") ;;
284	*) dflt="$dflt $xxx" ;;
285	esac
286	done
287	set X $dflt
288	shift
289	dflt="$*"
290	;;
291	*) dflt="$static_ext"
292	;;
293	esac
294
295	case "$dflt" in
296	'') dflt=none;;
297	esac
298	rp="What extensions do you wish to load statically?"
299	. ./myread
300	case "$ans" in
301	?X: Use ' ' so a subsequent Configure will preserve that value.
302	none) static_ext=' ' ;;
303	*) static_ext="$ans" ;;
304	esac
305	;;
306	*)
307	$cat <<EOM
308	A number of extensions are supplied with $package. Answer "none"
309	to include no extensions.
310	Note that DynaLoader is always built and need not be mentioned here.
311
312	EOM
313	case "$static_ext" in
314	'') dflt="$avail_ext" ;;
315	*) dflt="$static_ext"
316	# Perhaps we are reusing an old out-of-date config.sh.
317	case "$hint" in
318	previous)
319	if test X"$static_ext" != X"$avail_ext"; then
320	$cat <<EOM
321	NOTICE: Your previous config.sh list may be incorrect.
322	The extensions now available to you are
323	${avail_ext}
324	but the default list from your previous config.sh is
325	${static_ext}
326
327	EOM
328	fi
329	;;
330	esac
331	;;
332	esac
333	: Exclude those that are not xs extensions
334	case "$dflt" in
335	'') dflt=none;;
336	esac
337	rp="What extensions do you wish to include?"
338	. ./myread
339	case "$ans" in
340	?X: Use ' ' so a subsequent Configure will preserve that value.
341	none) static_ext=' ' ;;
342	*) static_ext="$ans" ;;
343	esac
344	;;
345	esac
75423307 JH	346	#
	347	# Encode is a special case. If we are building Encode as a static
	348	# extension, we need to explicitly list its subextensions as well.
	349	# For other nested extensions, this is handled automatically by
	350	# the appropriate Makefile.PL.
	351	case " $static_ext " in
	352	" Encode ") # Add the subextensions of Encode
	353	cd "$rsrc/ext"
	354	for xxx in `ls Encode/*/Makefile.PL\|awk -F/ '{print $2}'`; do
	355	static_ext="$static_ext Encode/$xxx"
	356	done
	357	cd "$tdir"
	358	;;
	359	esac
959f3c4c JH	360
	361	set X $dynamic_ext $static_ext $nonxs_ext
	362	shift
	363	extensions="$*"
	364