U/perl/Extensions.U

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