[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 use5005threads 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
?LINT:extern noextensions
?LINT:extern onlyextensions
?T:keepextensions i
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 -o -f $xxx/$xxx.c; 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 $known_extensions
shift
known_extensions="$*"
set X $nonxs_extensions
shift
nonxs_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
		    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
		    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 "$use5005threads" in
                        $define|true|[yY]*) avail_ext="$avail_ext $xxx" ;;
                        esac
		esac
		;;
	Win32*)
		case "$osname" in
		cygwin) avail_ext="$avail_ext $xxx" ;;
		esac
		;;
	XS/APItest|xs/apitest)
		# This is just for testing.  Skip it unless we have dynamic loading.

		case "$usedl" in
		$define) avail_ext="$avail_ext $xxx" ;;
		esac
		;;
	XS/Typemap|xs/typemap)
		# This is just for testing.  Skip it unless we have dynamic loading.
		case "$usedl" in
		$define) avail_ext="$avail_ext $xxx" ;;
		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="$*"

case "$onlyextensions" in
'') ;;
*)  keepextensions=''
    echo "You have requested that only certains extensions be included..." >&4
    for i in $onlyextensions; do
        case " $avail_ext " in
        *" $i "*)
            echo "Keeping extension $i."
            keepextensions="$keepextensions $i"
            ;;
        *) echo "Ignoring extension $i." ;;
        esac
    done
    avail_ext="$keepextensions"
    ;;
esac

case "$noextensions" in
'') ;;
*)  keepextensions=''
    echo "You have requested that certain extensions be ignored..." >&4
    for i in $avail_ext; do
        case " $noextensions " in
        *" $i "*) echo "Ignoring extension $i." ;;
        *) echo "Keeping extension $i.";
           keepextensions="$keepextensions $i"
           ;;
        esac
    done
    avail_ext="$keepextensions"
    ;;
esac

: 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
	'')
		: Exclude those listed in static_ext
		dflt=''
		for xxx in $avail_ext; do
			case " $static_ext " in
			*" $xxx "*) ;;
			*) dflt="$dflt $xxx" ;;
			esac
		done
		set X $dflt
		shift
		dflt="$*"
		;;
	*)	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="$*"

# Sanity check:  We require an extension suitable for use with
# AnyDBM_File, as well as Fcntl and IO.  (Failure to have these
# should show up as failures in the test suite, but it's helpful to
# catch them now.) The 'extensions' list is normally sorted
# alphabetically, so we need to accept either
#    DB_File ... Fcntl ... IO  ....
# or something like
#    Fcntl ... NDBM_File ... IO  ....
case " $extensions"  in
*"_File "*" Fcntl "*" IO "*) ;; # DB_File
*" Fcntl "*"_File "*" IO "*) ;; # GDBM_File
*" Fcntl "*" IO "*"_File "*) ;; # NDBM_File
*) echo "WARNING: Extensions DB_File or *DBM_File, Fcntl, and IO not configured." >&4
   echo "WARNING: The Perl you are building will be quite crippled." >& 4
   ;;
esac
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 : \
3c64a580	12	Myread hint usedl d_sem d_socket i_db i_dbm i_rpcsvcdbm i_gdbm \
50dd2a3c	13	i_ndbm usethreads use5005threads 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:
3c64a580	19	?S: This variable holds a list of all XS extensions included in
959f3c4c JH	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
3c64a580	37	?S: and is typically used to test whether a particular extesion
959f3c4c JH	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
3ae30915 JH	59	?LINT:extern noextensions
3ae30915 JH	60	?LINT:extern onlyextensions
946dea48	61	?T:keepextensions i
959f3c4c JH	62	echo " "
	63	echo "Looking for extensions..." >&4
	64	: If we are using the old config.sh, known_extensions may contain
	65	: old or inaccurate or duplicate values.
	66	known_extensions=''
	67	nonxs_extensions=''
	68	: We do not use find because it might not be available.
	69	: We do not just use MANIFEST because the user may have dropped
	70	: some additional extensions into the source tree and expect them
	71	: to be built.
	72
	73	: Function to recursively find available extensions, ignoring DynaLoader
	74	: NOTE: recursion limit of 10 to prevent runaway in case of symlink madness
	75	find_extensions='
	76	for xxx in *; do
ba5f32a3 MB	77	case "$xxx" in
	78	DynaLoader\|dynaload) ;;
	79	*)
1d5a8f63	80	if $test -f $xxx/$xxx.xs -o -f $xxx/$xxx.c; then
ba5f32a3 MB	81	known_extensions="$known_extensions $1$xxx";
	82	elif $test -f $xxx/Makefile.PL; then
	83	nonxs_extensions="$nonxs_extensions $1$xxx";
	84	else
	85	if $test -d $xxx -a $# -lt 10; then
	86	set $1$xxx/ $*;
	87	cd "$xxx";
	88	eval $find_extensions;
	89	cd ..;
	90	shift;
	91	fi;
	92	fi
	93	;;
	94	esac;
959f3c4c JH	95	done'
959f3c4c JH	96	tdir=`pwd`
3720fc47	97	cd "$rsrc/ext"
86a2f2c4	98	set X
959f3c4c JH	99	shift
959f3c4c JH	100	eval $find_extensions
660a2481 JH	101	# Special case: Add in threads/shared since it is not picked up by the
	102	# recursive find above (and adding in general recursive finding breaks
	103	# SDBM_File/sdbm). A.D. 10/25/2001.
ba335d16	104	known_extensions="$known_extensions threads/shared"
959f3c4c JH	105	set X $known_extensions
	106	shift
	107	known_extensions="$*"
4823dbc4 MB	108	set X $nonxs_extensions
	109	shift
	110	nonxs_extensions="$*"
3720fc47	111	cd "$tdir"
959f3c4c JH	112
	113	: Now see which are supported on this system.
	114	?X: avail_ext lists available XS extensions.
	115	avail_ext=''
	116	for xxx in $known_extensions ; do
	117	case "$xxx" in
	118	?X: Handle possible DOS 8.3 filename and case alterations
	119	DB_File\|db_file)
	120	case "$i_db" in
	121	$define) avail_ext="$avail_ext $xxx" ;;
	122	esac
	123	;;
	124	GDBM_File\|gdbm_fil)
3c64a580	125	case "$i_gdbm" in
959f3c4c JH	126	$define) avail_ext="$avail_ext $xxx" ;;
	127	esac
	128	;;
dfd712ee	129	I18N/Langinfo\|i18n_lan)
3c64a580	130	case "$i_langinfo$d_nl_langinfo" in
0e5a028f JH	131	$define$define) avail_ext="$avail_ext $xxx" ;;
	132	esac
	133	;;
959f3c4c JH	134	NDBM_File\|ndbm_fil)
959f3c4c JH	135	case "$i_ndbm" in
4ee071c7	136	$define)
33b2427b	137	case "$osname-$use64bitint" in
2862815c	138	hpux-define)
4ee071c7 JH	139	case "$libs" in
	140	-lndbm) avail_ext="$avail_ext $xxx" ;;
	141	esac
	142	;;
	143	*) avail_ext="$avail_ext $xxx" ;;
	144	esac
	145	;;
959f3c4c JH	146	esac
959f3c4c JH	147	;;
3c64a580	148	ODBM_File\|odbm_fil)
959f3c4c	149	case "${i_dbm}${i_rpcsvcdbm}" in
4ee071c7	150	"${define}")
33b2427b	151	case "$osname-$use64bitint" in
2862815c	152	hpux-define)
4ee071c7 JH	153	case "$libs" in
	154	-ldbm) avail_ext="$avail_ext $xxx" ;;
	155	esac
	156	;;
	157	*) avail_ext="$avail_ext $xxx" ;;
	158	esac
	159	;;
959f3c4c JH	160	esac
	161	;;
	162	POSIX\|posix)
	163	case "$useposix" in
	164	true\|define\|y) avail_ext="$avail_ext $xxx" ;;
	165	esac
	166	;;
	167	Opcode\|opcode)
	168	case "$useopcode" in
	169	true\|define\|y) avail_ext="$avail_ext $xxx" ;;
	170	esac
	171	;;
	172	Socket\|socket)
3c64a580	173	case "$d_socket" in
625b7e7f JH	174	true\|$define\|y)
	175	case "$osname" in
	176	beos) ;; # not unless BONE
	177	*) avail_ext="$avail_ext $xxx" ;;
	178	esac
	179	;;
959f3c4c JH	180	esac
959f3c4c JH	181	;;
fa92de3e YST	182	Sys/Syslog\|sys/syslog)
fa92de3e YST	183	: XXX syslog requires socket
3c64a580	184	case "$d_socket" in
fa92de3e YST	185	true\|$define\|y) avail_ext="$avail_ext $xxx" ;;
	186	esac
	187	;;
959f3c4c	188	Thread\|thread)
4a2f2b60 JH	189	case "$usethreads" in
4a2f2b60 JH	190	true\|$define\|y)
50dd2a3c MB	191	case "$use5005threads" in
50dd2a3c MB	192	$define\|true\|[yY]*) avail_ext="$avail_ext $xxx" ;;
4a2f2b60	193	esac
80f8756f JH	194	esac
80f8756f JH	195	;;
1d5a8f63	196	Win32*)
2ed3374f JD	197	case "$osname" in
	198	cygwin) avail_ext="$avail_ext $xxx" ;;
	199	esac
	200	;;
6e939e10 AD	201	XS/APItest\|xs/apitest)
	202	# This is just for testing. Skip it unless we have dynamic loading.
	203
	204	case "$usedl" in
	205	$define) avail_ext="$avail_ext $xxx" ;;
	206	esac
	207	;;
	208	XS/Typemap\|xs/typemap)
	209	# This is just for testing. Skip it unless we have dynamic loading.
	210	case "$usedl" in
	211	$define) avail_ext="$avail_ext $xxx" ;;
	212	esac
	213	;;
4f2abfa6	214	threads\|threads/shared)
1e86056f JH	215	# threads and threads::shared are special cases.
	216	# To stop people from asking "Perl 5.8.0 was supposed
	217	# to have this new fancy threads implementation but my
	218	# perl doesn't have it" and from people trying to
	219	# (re)install the threads module using CPAN.pm and
	220	# CPAN.pm then offering to reinstall Perl 5.8.0,
	221	# the threads.pm and threads/shared.pm will always be
	222	# there, croaking informatively ("you need to rebuild
	223	# all of Perl with threads, sorry") when threads haven't
	224	# been compiled in.
	225	# --jhi
	226	avail_ext="$avail_ext $xxx"
959f3c4c JH	227	;;
	228	IPC/SysV\|ipc/sysv)
	229	: XXX Do we need a useipcsysv variable here
3c64a580	230	case "${d_msg}${d_sem}${d_shm}" in
959f3c4c JH	231	"${define}") avail_ext="$avail_ext $xxx" ;;
	232	esac
	233	;;
	234	*) avail_ext="$avail_ext $xxx"
	235	;;
	236	esac
	237	done
	238
	239	set X $avail_ext
	240	shift
	241	avail_ext="$*"
	242
3eb2ab03 JH	243	case "$onlyextensions" in
	244	'') ;;
	245	*) keepextensions=''
	246	echo "You have requested that only certains extensions be included..." >&4
	247	for i in $onlyextensions; do
	248	case " $avail_ext " in
	249	" $i ")
	250	echo "Keeping extension $i."
	251	keepextensions="$keepextensions $i"
	252	;;
	253	*) echo "Ignoring extension $i." ;;
	254	esac
	255	done
	256	avail_ext="$keepextensions"
	257	;;
	258	esac
	259
	260	case "$noextensions" in
	261	'') ;;
	262	*) keepextensions=''
	263	echo "You have requested that certain extensions be ignored..." >&4
	264	for i in $avail_ext; do
0ec877d1 JH	265	case " $noextensions " in
0ec877d1 JH	266	" $i ") echo "Ignoring extension $i." ;;
3eb2ab03 JH	267	*) echo "Keeping extension $i.";
	268	keepextensions="$keepextensions $i"
	269	;;
	270	esac
	271	done
	272	avail_ext="$keepextensions"
	273	;;
	274	esac
	275
959f3c4c JH	276	: Now see which nonxs extensions are supported on this system.
	277	: For now assume all are.
	278	nonxs_ext=''
	279	for xxx in $nonxs_extensions ; do
	280	case "$xxx" in
	281	*) nonxs_ext="$nonxs_ext $xxx"
	282	;;
	283	esac
	284	done
	285
	286	set X $nonxs_ext
	287	shift
	288	nonxs_ext="$*"
	289
	290	case $usedl in
	291	$define)
	292	$cat <<EOM
	293	A number of extensions are supplied with $package. You may choose to
	294	compile these extensions for dynamic loading (the default), compile
	295	them into the $package executable (static loading), or not include
	296	them at all. Answer "none" to include no extensions.
	297	Note that DynaLoader is always built and need not be mentioned here.
	298
	299	EOM
	300	case "$dynamic_ext" in
a7eb1db8 MB	301	'')
	302	: Exclude those listed in static_ext
	303	dflt=''
	304	for xxx in $avail_ext; do
	305	case " $static_ext " in
	306	" $xxx ") ;;
	307	*) dflt="$dflt $xxx" ;;
	308	esac
	309	done
	310	set X $dflt
	311	shift
	312	dflt="$*"
	313	;;
959f3c4c JH	314	*) dflt="$dynamic_ext"
	315	# Perhaps we are reusing an old out-of-date config.sh.
	316	case "$hint" in
	317	previous)
	318	if test X"$dynamic_ext" != X"$avail_ext"; then
	319	$cat <<EOM
3c64a580 RGS	320	NOTICE: Your previous config.sh list may be incorrect.
3c64a580 RGS	321	The extensions now available to you are
959f3c4c JH	322	${avail_ext}
959f3c4c JH	323	but the default list from your previous config.sh is
3c64a580	324	${dynamic_ext}
959f3c4c JH	325
	326	EOM
	327	fi
	328	;;
	329	esac
	330	;;
	331	esac
	332	case "$dflt" in
	333	'') dflt=none;;
	334	esac
	335	rp="What extensions do you wish to load dynamically?"
	336	. ./myread
	337	case "$ans" in
	338	?X: Use ' ' so a subsequent Configure will preserve that value.
	339	none) dynamic_ext=' ' ;;
	340	*) dynamic_ext="$ans" ;;
	341	esac
	342
	343	case "$static_ext" in
	344	'')
	345	: Exclude those already listed in dynamic linking
	346	dflt=''
	347	for xxx in $avail_ext; do
	348	case " $dynamic_ext " in
	349	" $xxx ") ;;
	350	*) dflt="$dflt $xxx" ;;
	351	esac
	352	done
	353	set X $dflt
	354	shift
	355	dflt="$*"
	356	;;
3c64a580	357	*) dflt="$static_ext"
959f3c4c JH	358	;;
	359	esac
	360
	361	case "$dflt" in
	362	'') dflt=none;;
	363	esac
	364	rp="What extensions do you wish to load statically?"
	365	. ./myread
	366	case "$ans" in
	367	?X: Use ' ' so a subsequent Configure will preserve that value.
	368	none) static_ext=' ' ;;
	369	*) static_ext="$ans" ;;
	370	esac
	371	;;
	372	*)
	373	$cat <<EOM
3c64a580 RGS	374	A number of extensions are supplied with $package. Answer "none"
3c64a580 RGS	375	to include no extensions.
959f3c4c JH	376	Note that DynaLoader is always built and need not be mentioned here.
	377
	378	EOM
	379	case "$static_ext" in
	380	'') dflt="$avail_ext" ;;
	381	*) dflt="$static_ext"
	382	# Perhaps we are reusing an old out-of-date config.sh.
	383	case "$hint" in
	384	previous)
	385	if test X"$static_ext" != X"$avail_ext"; then
	386	$cat <<EOM
3c64a580 RGS	387	NOTICE: Your previous config.sh list may be incorrect.
3c64a580 RGS	388	The extensions now available to you are
959f3c4c JH	389	${avail_ext}
959f3c4c JH	390	but the default list from your previous config.sh is
3c64a580	391	${static_ext}
959f3c4c JH	392
	393	EOM
	394	fi
	395	;;
	396	esac
	397	;;
	398	esac
	399	: Exclude those that are not xs extensions
	400	case "$dflt" in
	401	'') dflt=none;;
	402	esac
	403	rp="What extensions do you wish to include?"
	404	. ./myread
	405	case "$ans" in
	406	?X: Use ' ' so a subsequent Configure will preserve that value.
	407	none) static_ext=' ' ;;
	408	*) static_ext="$ans" ;;
	409	esac
	410	;;
	411	esac
3c64a580	412	#
75423307 JH	413	# Encode is a special case. If we are building Encode as a static
	414	# extension, we need to explicitly list its subextensions as well.
	415	# For other nested extensions, this is handled automatically by
	416	# the appropriate Makefile.PL.
	417	case " $static_ext " in
	418	" Encode ") # Add the subextensions of Encode
	419	cd "$rsrc/ext"
	420	for xxx in `ls Encode/*/Makefile.PL\|awk -F/ '{print $2}'`; do
	421	static_ext="$static_ext Encode/$xxx"
	422	done
	423	cd "$tdir"
	424	;;
	425	esac
959f3c4c JH	426
	427	set X $dynamic_ext $static_ext $nonxs_ext
	428	shift
	429	extensions="$*"
	430
9d9aa0de JH	431	# Sanity check: We require an extension suitable for use with
	432	# AnyDBM_File, as well as Fcntl and IO. (Failure to have these
	433	# should show up as failures in the test suite, but it's helpful to
	434	# catch them now.) The 'extensions' list is normally sorted
	435	# alphabetically, so we need to accept either
	436	# DB_File ... Fcntl ... IO ....
	437	# or something like
	438	# Fcntl ... NDBM_File ... IO ....
1af58dcc JH	439	case " $extensions" in
	440	"_File "" Fcntl "" IO ") ;; # DB_File
	441	" Fcntl ""_File "" IO ") ;; # GDBM_File
	442	" Fcntl "" IO ""_File ") ;; # NDBM_File
3ae30915 JH	443	) echo "WARNING: Extensions DB_File or DBM_File, Fcntl, and IO not configured." >&4
	444	echo "WARNING: The Perl you are building will be quite crippled." >& 4
	445	;;
	446	esac
	447