# $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
#
-# Generated on Mon Apr 8 17:56:15 EET DST 2002 [metaconfig 3.0 PL70]
+# Generated on Wed Apr 24 03:05:12 EET DST 2002 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by perlbug@perl.org)
cat >c1$$ <<EOF
set alarm d_alarm
eval $inlibc
+: see if POSIX threads are available
+set pthread.h i_pthread
+eval $inhdr
+
: define a fucntion to check prototypes
$cat > protochk <<EOSH
$startsh
prototype="$prototype"
define="$define"
rm=$rm
+usethreads=$usethreads
+i_pthread=$i_pthread
+pthread_h_first=$pthread_h_first
EOSH
$cat >> protochk <<'EOSH'
*) echo "No, it doesn't." ;;
esac
-: see if POSIX threads are available
-set pthread.h i_pthread
-eval $inhdr
-
: see if asctime_r exists
set asctime_r d_asctime_r
eval $inlibc
case "$d_asctime_r" in
"$define")
- hdrs="$i_systypes sys/types.h define stdio.h $i_time time.h"
- case "time" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
+ hdrs="$i_systypes sys/types.h define stdio.h $i_time time.h $i_systime sys/time.h"
case "$d_asctime_r_proto:$usethreads" in
":define") d_asctime_r_proto=define
set d_asctime_r_proto asctime_r $hdrs
case "$d_crypt_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_crypt crypt.h"
- case "crypt" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_crypt_r_proto:$usethreads" in
":define") d_crypt_r_proto=define
set d_crypt_r_proto crypt_r $hdrs
case "$d_ctermid_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h "
- case "stdio" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_ctermid_r_proto:$usethreads" in
":define") d_ctermid_r_proto=define
set d_ctermid_r_proto ctermid_r $hdrs
eval $inlibc
case "$d_ctime_r" in
"$define")
- hdrs="$i_systypes sys/types.h define stdio.h $i_time time.h"
- case "time" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
+ hdrs="$i_systypes sys/types.h define stdio.h $i_time time.h $i_systime sys/time.h"
case "$d_ctime_r_proto:$usethreads" in
":define") d_ctime_r_proto=define
set d_ctime_r_proto ctime_r $hdrs
case "$d_drand48_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_stdlib stdlib.h"
- case "stdlib" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_drand48_r_proto:$usethreads" in
":define") d_drand48_r_proto=define
set d_drand48_r_proto drand48_r $hdrs
case "$d_endgrent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_grp grp.h"
- case "grp" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_endgrent_r_proto:$usethreads" in
":define") d_endgrent_r_proto=define
set d_endgrent_r_proto endgrent_r $hdrs
case "$d_endhostent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_endhostent_r_proto:$usethreads" in
":define") d_endhostent_r_proto=define
set d_endhostent_r_proto endhostent_r $hdrs
case "$d_endnetent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_endnetent_r_proto:$usethreads" in
":define") d_endnetent_r_proto=define
set d_endnetent_r_proto endnetent_r $hdrs
case "$d_endprotoent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_endprotoent_r_proto:$usethreads" in
":define") d_endprotoent_r_proto=define
set d_endprotoent_r_proto endprotoent_r $hdrs
case "$d_endpwent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_pwd pwd.h"
- case "pwd" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_endpwent_r_proto:$usethreads" in
":define") d_endpwent_r_proto=define
set d_endpwent_r_proto endpwent_r $hdrs
case "$d_endservent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_endservent_r_proto:$usethreads" in
":define") d_endservent_r_proto=define
set d_endservent_r_proto endservent_r $hdrs
case "$d_getgrent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_grp grp.h"
- case "grp" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getgrent_r_proto:$usethreads" in
":define") d_getgrent_r_proto=define
set d_getgrent_r_proto getgrent_r $hdrs
case "$d_getgrgid_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_grp grp.h"
- case "grp" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getgrgid_r_proto:$usethreads" in
":define") d_getgrgid_r_proto=define
set d_getgrgid_r_proto getgrgid_r $hdrs
case "$d_getgrnam_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_grp grp.h"
- case "grp" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getgrnam_r_proto:$usethreads" in
":define") d_getgrnam_r_proto=define
set d_getgrnam_r_proto getgrnam_r $hdrs
case "$d_gethostbyaddr_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_gethostbyaddr_r_proto:$usethreads" in
":define") d_gethostbyaddr_r_proto=define
set d_gethostbyaddr_r_proto gethostbyaddr_r $hdrs
case "$d_gethostbyname_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_gethostbyname_r_proto:$usethreads" in
":define") d_gethostbyname_r_proto=define
set d_gethostbyname_r_proto gethostbyname_r $hdrs
case "$d_gethostent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_gethostent_r_proto:$usethreads" in
":define") d_gethostent_r_proto=define
set d_gethostent_r_proto gethostent_r $hdrs
case "$d_getlogin_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_unistd unistd.h"
- case "unistd" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getlogin_r_proto:$usethreads" in
":define") d_getlogin_r_proto=define
set d_getlogin_r_proto getlogin_r $hdrs
case "$d_getnetbyaddr_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getnetbyaddr_r_proto:$usethreads" in
":define") d_getnetbyaddr_r_proto=define
set d_getnetbyaddr_r_proto getnetbyaddr_r $hdrs
case "$d_getnetbyname_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getnetbyname_r_proto:$usethreads" in
":define") d_getnetbyname_r_proto=define
set d_getnetbyname_r_proto getnetbyname_r $hdrs
case "$d_getnetent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getnetent_r_proto:$usethreads" in
":define") d_getnetent_r_proto=define
set d_getnetent_r_proto getnetent_r $hdrs
case "$d_getprotobyname_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getprotobyname_r_proto:$usethreads" in
":define") d_getprotobyname_r_proto=define
set d_getprotobyname_r_proto getprotobyname_r $hdrs
case "$d_getprotobynumber_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getprotobynumber_r_proto:$usethreads" in
":define") d_getprotobynumber_r_proto=define
set d_getprotobynumber_r_proto getprotobynumber_r $hdrs
case "$d_getprotoent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getprotoent_r_proto:$usethreads" in
":define") d_getprotoent_r_proto=define
set d_getprotoent_r_proto getprotoent_r $hdrs
case "$d_getpwent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_pwd pwd.h"
- case "pwd" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getpwent_r_proto:$usethreads" in
":define") d_getpwent_r_proto=define
set d_getpwent_r_proto getpwent_r $hdrs
case "$d_getpwnam_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_pwd pwd.h"
- case "pwd" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getpwnam_r_proto:$usethreads" in
":define") d_getpwnam_r_proto=define
set d_getpwnam_r_proto getpwnam_r $hdrs
case "$d_getpwuid_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_pwd pwd.h"
- case "pwd" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getpwuid_r_proto:$usethreads" in
":define") d_getpwuid_r_proto=define
set d_getpwuid_r_proto getpwuid_r $hdrs
case "$d_getservbyname_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getservbyname_r_proto:$usethreads" in
":define") d_getservbyname_r_proto=define
set d_getservbyname_r_proto getservbyname_r $hdrs
case "$d_getservbyport_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getservbyport_r_proto:$usethreads" in
":define") d_getservbyport_r_proto=define
set d_getservbyport_r_proto getservbyport_r $hdrs
case "$d_getservent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getservent_r_proto:$usethreads" in
":define") d_getservent_r_proto=define
set d_getservent_r_proto getservent_r $hdrs
case "$d_getspnam_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_shadow shadow.h"
- case "shadow" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_getspnam_r_proto:$usethreads" in
":define") d_getspnam_r_proto=define
set d_getspnam_r_proto getspnam_r $hdrs
eval $inlibc
case "$d_gmtime_r" in
"$define")
- hdrs="$i_systypes sys/types.h define stdio.h $i_time time.h"
- case "time" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
+ hdrs="$i_systypes sys/types.h define stdio.h $i_time time.h $i_systime sys/time.h"
case "$d_gmtime_r_proto:$usethreads" in
":define") d_gmtime_r_proto=define
set d_gmtime_r_proto gmtime_r $hdrs
eval $inlibc
case "$d_localtime_r" in
"$define")
- hdrs="$i_systypes sys/types.h define stdio.h $i_time time.h"
- case "time" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
+ hdrs="$i_systypes sys/types.h define stdio.h $i_time time.h $i_systime sys/time.h"
case "$d_localtime_r_proto:$usethreads" in
":define") d_localtime_r_proto=define
set d_localtime_r_proto localtime_r $hdrs
case "$d_random_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_stdlib stdlib.h"
- case "stdlib" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_random_r_proto:$usethreads" in
":define") d_random_r_proto=define
set d_random_r_proto random_r $hdrs
case "$d_readdir64_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_dirent dirent.h"
- case "dirent" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_readdir64_r_proto:$usethreads" in
":define") d_readdir64_r_proto=define
set d_readdir64_r_proto readdir64_r $hdrs
case "$d_readdir_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_dirent dirent.h"
- case "dirent" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_readdir_r_proto:$usethreads" in
":define") d_readdir_r_proto=define
set d_readdir_r_proto readdir_r $hdrs
case "$d_setgrent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_grp grp.h"
- case "grp" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_setgrent_r_proto:$usethreads" in
":define") d_setgrent_r_proto=define
set d_setgrent_r_proto setgrent_r $hdrs
case "$d_sethostent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_sethostent_r_proto:$usethreads" in
":define") d_sethostent_r_proto=define
set d_sethostent_r_proto sethostent_r $hdrs
case "$d_setlocale_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_locale locale.h"
- case "locale" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_setlocale_r_proto:$usethreads" in
":define") d_setlocale_r_proto=define
set d_setlocale_r_proto setlocale_r $hdrs
case "$d_setnetent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_setnetent_r_proto:$usethreads" in
":define") d_setnetent_r_proto=define
set d_setnetent_r_proto setnetent_r $hdrs
case "$d_setprotoent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_setprotoent_r_proto:$usethreads" in
":define") d_setprotoent_r_proto=define
set d_setprotoent_r_proto setprotoent_r $hdrs
case "$d_setpwent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_pwd pwd.h"
- case "pwd" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_setpwent_r_proto:$usethreads" in
":define") d_setpwent_r_proto=define
set d_setpwent_r_proto setpwent_r $hdrs
case "$d_setservent_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
- case "netdb" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_setservent_r_proto:$usethreads" in
":define") d_setservent_r_proto=define
set d_setservent_r_proto setservent_r $hdrs
case "$d_srand48_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_stdlib stdlib.h"
- case "stdlib" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_srand48_r_proto:$usethreads" in
":define") d_srand48_r_proto=define
set d_srand48_r_proto srand48_r $hdrs
case "$d_srandom_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_stdlib stdlib.h"
- case "stdlib" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_srandom_r_proto:$usethreads" in
":define") d_srandom_r_proto=define
set d_srandom_r_proto srandom_r $hdrs
case "$d_strerror_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_string string.h"
- case "string" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_strerror_r_proto:$usethreads" in
":define") d_strerror_r_proto=define
set d_strerror_r_proto strerror_r $hdrs
case "$d_tmpnam_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h "
- case "stdio" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_tmpnam_r_proto:$usethreads" in
":define") d_tmpnam_r_proto=define
set d_tmpnam_r_proto tmpnam_r $hdrs
case "$d_ttyname_r" in
"$define")
hdrs="$i_systypes sys/types.h define stdio.h $i_unistd unistd.h"
- case "unistd" in
- time)
- hdrs="$hdrs $i_systime sys/time.h"
- ;;
- esac
case "$d_ttyname_r_proto:$usethreads" in
":define") d_ttyname_r_proto=define
set d_ttyname_r_proto ttyname_r $hdrs
''|[nN]*) multiarch="$undef" ;;
esac
-: check for ordering of bytes in a long
+: check for ordering of bytes in a UV
echo " "
case "$usecrosscompile$multiarch" in
*$define*)
probably right.
I'm now running the test program...
EOM
- $cat >try.c <<'EOCP'
+ $cat >try.c <<EOCP
#include <stdio.h>
+#include <sys/types.h>
+typedef $uvtype UV;
int main()
{
int i;
union {
- unsigned long l;
- char c[sizeof(long)];
+ UV l;
+ char c[$uvsize];
} u;
- if (sizeof(long) > 4)
- u.l = (0x08070605L << 32) | 0x04030201L;
+ if ($uvsize > 4)
+ u.l = (((UV)0x08070605) << 32) | (UV)0x04030201;
else
- u.l = 0x04030201L;
- for (i = 0; i < sizeof(long); i++)
+ u.l = (UV)0x04030201;
+ for (i = 0; i < $uvsize; i++)
printf("%c", u.c[i]+'0');
printf("\n");
exit(0);
fi
case "$xxx_prompt" in
y)
- rp="What is the order of bytes in a long?"
+ rp="What is the order of bytes in $uvtype?"
. ./myread
byteorder="$ans"
;;
esac
;;
threads|threads/shared)
- case "$usethreads" in
- true|$define|y)
- case "$useithreads" in
- $define|true|[yY]*) avail_ext="$avail_ext $xxx" ;;
- esac
- esac
+ # 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
: Exclude those that are not xs extensions
case "$dflt" in
'') dflt=none;;
- *) case " $dflt " in
- *" Encode "*) # Add the subextensions of Encode
- cd "$rsrc/ext"
- for xxx in `ls Encode/*/Makefile.PL|awk -F/ '{print $2}'`; do
- dflt="$dflt Encode/$xxx"
- done
- cd "$tdir"
- ;;
- esac
- ;;
esac
rp="What extensions do you wish to include?"
. ./myread
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
projects / p5sagit/p5-mst-13.2.git / blobdiff