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
  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 ?LINT:extern noextensions
  60 ?LINT:extern onlyextensions
  61 ?T:keepextensions i
  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
  77         case "$xxx" in
  78             DynaLoader|dynaload) ;;
  79             *)
  80             if $test -f $xxx/$xxx.xs -o -f $xxx/$xxx.c; then
  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;
  95     done'
  96 tdir=`pwd`
  97 cd "$rsrc/ext"
  98 set X
  99 shift
 100 eval $find_extensions
 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.
 104 known_extensions="$known_extensions threads/shared"
 105 set X $known_extensions
 106 shift
 107 known_extensions="$*"
 108 set X $nonxs_extensions
 109 shift
 110 nonxs_extensions="$*"
 111 cd "$tdir"
 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)
 125                 case "$i_gdbm" in
 126                 $define) avail_ext="$avail_ext $xxx" ;;
 127                 esac
 128                 ;;
 129         I18N/Langinfo|i18n_lan)
 130                 case "$i_langinfo$d_nl_langinfo" in
 131                 $define$define) avail_ext="$avail_ext $xxx" ;;
 132                 esac
 133                 ;;
 134         IPC/SysV|ipc/sysv)
 135                 : XXX Do we need a useipcsysv variable here
 136                 case "${d_msg}${d_sem}${d_shm}" in
 137                 *"${define}"*) avail_ext="$avail_ext $xxx" ;;
 138                 esac
 139                 ;;
 140         NDBM_File|ndbm_fil)
 141                 case "$i_ndbm" in
 142                 $define)
 143                     case "$osname-$use64bitint" in
 144                     hpux-define)
 145                         case "$libs" in
 146                         *-lndbm*) avail_ext="$avail_ext $xxx" ;;
 147                         esac
 148                         ;;
 149                     *) avail_ext="$avail_ext $xxx" ;;
 150                     esac
 151                     ;;
 152                 esac
 153                 ;;
 154         ODBM_File|odbm_fil)
 155                 case "${i_dbm}${i_rpcsvcdbm}" in
 156                 *"${define}"*)
 157                     case "$d_cplusplus" in
 158                     define) ;; # delete as a function name will not work
 159                     *)  case "$osname-$use64bitint" in
 160                         hpux-define)
 161                             case "$libs" in
 162                             *-ldbm*) avail_ext="$avail_ext $xxx" ;;
 163                             esac
 164                             ;;
 165                         *) avail_ext="$avail_ext $xxx" ;;
 166                         esac
 167                         ;;
 168                     esac
 169                     ;;
 170                 esac
 171                 ;;
 172         Opcode|opcode)
 173                 case "$useopcode" in
 174                 true|define|y) avail_ext="$avail_ext $xxx" ;;
 175                 esac
 176                 ;;
 177         POSIX|posix)
 178                 case "$useposix" in
 179                 true|define|y) avail_ext="$avail_ext $xxx" ;;
 180                 esac
 181                 ;;
 182         Socket|socket)
 183                 case "$d_socket" in
 184                 true|$define|y)
 185                     case "$osname" in
 186                     beos) ;; # not unless BONE
 187                     *) avail_ext="$avail_ext $xxx" ;;
 188                     esac
 189                     ;;
 190                 esac
 191                 ;;
 192         Sys/Syslog|sys/syslog)
 193                 : XXX syslog requires socket
 194                 case "$d_socket" in
 195                 true|$define|y) avail_ext="$avail_ext $xxx" ;;
 196                 esac
 197                 ;;
 198         Thread|thread)
 199                 case "$usethreads" in
 200                 true|$define|y)
 201                         case "$use5005threads" in
 202                         $define|true|[yY]*) avail_ext="$avail_ext $xxx" ;;
 203                         esac
 204                 esac
 205                 ;;
 206         threads|threads/shared)
 207                 # threads and threads::shared are special cases.
 208                 # To stop people from asking "Perl 5.8.0 was supposed
 209                 # to have this new fancy threads implementation but my
 210                 # perl doesn't have it" and from people trying to
 211                 # (re)install the threads module using CPAN.pm and
 212                 # CPAN.pm then offering to reinstall Perl 5.8.0,
 213                 # the threads.pm and threads/shared.pm will always be
 214                 # there, croaking informatively ("you need to rebuild
 215                 # all of Perl with threads, sorry") when threads haven't
 216                 # been compiled in.
 217                 # --jhi
 218                 avail_ext="$avail_ext $xxx"
 219                 ;;
 220         Win32*)
 221                 case "$osname" in
 222                 cygwin) avail_ext="$avail_ext $xxx" ;;
 223                 esac
 224                 ;;
 225         XS/APItest|xs/apitest)
 226                 # This is just for testing.  Skip it unless we have dynamic loading.
 227
 228                 case "$usedl" in
 229                 $define) avail_ext="$avail_ext $xxx" ;;
 230                 esac
 231                 ;;
 232         XS/Typemap|xs/typemap)
 233                 # This is just for testing.  Skip it unless we have dynamic loading.
 234                 case "$usedl" in
 235                 $define) avail_ext="$avail_ext $xxx" ;;
 236                 esac
 237                 ;;
 238         *)      avail_ext="$avail_ext $xxx"
 239                 ;;
 240         esac
 241 done
 242
 243 set X $avail_ext
 244 shift
 245 avail_ext="$*"
 246
 247 case "$onlyextensions" in
 248 '') ;;
 249 *)  keepextensions=''
 250     echo "You have requested that only certains extensions be included..." >&4
 251     for i in $onlyextensions; do
 252         case " $avail_ext " in
 253         *" $i "*)
 254             echo "Keeping extension $i."
 255             keepextensions="$keepextensions $i"
 256             ;;
 257         *) echo "Ignoring extension $i." ;;
 258         esac
 259     done
 260     avail_ext="$keepextensions"
 261     ;;
 262 esac
 263
 264 case "$noextensions" in
 265 '') ;;
 266 *)  keepextensions=''
 267     echo "You have requested that certain extensions be ignored..." >&4
 268     for i in $avail_ext; do
 269         case " $noextensions " in
 270         *" $i "*) echo "Ignoring extension $i." ;;
 271         *) echo "Keeping extension $i.";
 272            keepextensions="$keepextensions $i"
 273            ;;
 274         esac
 275     done
 276     avail_ext="$keepextensions"
 277     ;;
 278 esac
 279
 280 : Now see which nonxs extensions are supported on this system.
 281 : For now assume all are.
 282 nonxs_ext=''
 283 for xxx in $nonxs_extensions ; do
 284         case "$xxx" in
 285         *)      nonxs_ext="$nonxs_ext $xxx"
 286                 ;;
 287         esac
 288 done
 289
 290 set X $nonxs_ext
 291 shift
 292 nonxs_ext="$*"
 293
 294 case $usedl in
 295 $define)
 296         $cat <<EOM
 297 A number of extensions are supplied with $package.  You may choose to
 298 compile these extensions for dynamic loading (the default), compile
 299 them into the $package executable (static loading), or not include
 300 them at all.  Answer "none" to include no extensions.
 301 Note that DynaLoader is always built and need not be mentioned here.
 302
 303 EOM
 304         case "$dynamic_ext" in
 305         '')
 306                 : Exclude those listed in static_ext
 307                 dflt=''
 308                 for xxx in $avail_ext; do
 309                         case " $static_ext " in
 310                         *" $xxx "*) ;;
 311                         *) dflt="$dflt $xxx" ;;
 312                         esac
 313                 done
 314                 set X $dflt
 315                 shift
 316                 dflt="$*"
 317                 ;;
 318         *)      dflt="$dynamic_ext"
 319                 # Perhaps we are reusing an old out-of-date config.sh.
 320                 case "$hint" in
 321                 previous)
 322                         if test X"$dynamic_ext" != X"$avail_ext"; then
 323                                 $cat <<EOM
 324 NOTICE:  Your previous config.sh list may be incorrect.
 325 The extensions now available to you are
 326         ${avail_ext}
 327 but the default list from your previous config.sh is
 328         ${dynamic_ext}
 329
 330 EOM
 331                         fi
 332                         ;;
 333                 esac
 334                 ;;
 335         esac
 336         case "$dflt" in
 337         '')     dflt=none;;
 338         esac
 339         rp="What extensions do you wish to load dynamically?"
 340         . ./myread
 341         case "$ans" in
 342 ?X: Use ' ' so a subsequent Configure will preserve that value.
 343         none) dynamic_ext=' ' ;;
 344         *) dynamic_ext="$ans" ;;
 345         esac
 346
 347         case "$static_ext" in
 348         '')
 349                 : Exclude those already listed in dynamic linking
 350                 dflt=''
 351                 for xxx in $avail_ext; do
 352                         case " $dynamic_ext " in
 353                         *" $xxx "*) ;;
 354                         *) dflt="$dflt $xxx" ;;
 355                         esac
 356                 done
 357                 set X $dflt
 358                 shift
 359                 dflt="$*"
 360                 ;;
 361         *)  dflt="$static_ext"
 362                 ;;
 363         esac
 364
 365         case "$dflt" in
 366         '')     dflt=none;;
 367         esac
 368         rp="What extensions do you wish to load statically?"
 369         . ./myread
 370         case "$ans" in
 371 ?X: Use ' ' so a subsequent Configure will preserve that value.
 372         none) static_ext=' ' ;;
 373         *) static_ext="$ans" ;;
 374         esac
 375         ;;
 376 *)
 377         $cat <<EOM
 378 A number of extensions are supplied with $package.  Answer "none"
 379 to include no extensions.
 380 Note that DynaLoader is always built and need not be mentioned here.
 381
 382 EOM
 383         case "$static_ext" in
 384         '') dflt="$avail_ext" ;;
 385         *)      dflt="$static_ext"
 386                 # Perhaps we are reusing an old out-of-date config.sh.
 387                 case "$hint" in
 388                 previous)
 389                         if test X"$static_ext" != X"$avail_ext"; then
 390                                 $cat <<EOM
 391 NOTICE:  Your previous config.sh list may be incorrect.
 392 The extensions now available to you are
 393         ${avail_ext}
 394 but the default list from your previous config.sh is
 395         ${static_ext}
 396
 397 EOM
 398                         fi
 399                         ;;
 400                 esac
 401                 ;;
 402         esac
 403         : Exclude those that are not xs extensions
 404         case "$dflt" in
 405         '')     dflt=none;;
 406         esac
 407         rp="What extensions do you wish to include?"
 408         . ./myread
 409         case "$ans" in
 410 ?X: Use ' ' so a subsequent Configure will preserve that value.
 411         none) static_ext=' ' ;;
 412         *) static_ext="$ans" ;;
 413         esac
 414         ;;
 415 esac
 416 #
 417 # Encode is a special case.  If we are building Encode as a static
 418 # extension, we need to explicitly list its subextensions as well.
 419 # For other nested extensions, this is handled automatically by
 420 # the appropriate Makefile.PL.
 421 case " $static_ext " in
 422         *" Encode "*) # Add the subextensions of Encode
 423         cd "$rsrc/ext"
 424         for xxx in `ls Encode/*/Makefile.PL|awk -F/ '{print $2}'`; do
 425                 static_ext="$static_ext Encode/$xxx"
 426         done
 427         cd "$tdir"
 428         ;;
 429 esac
 430
 431 set X $dynamic_ext $static_ext $nonxs_ext
 432 shift
 433 extensions="$*"
 434
 435 # Sanity check:  We require an extension suitable for use with
 436 # AnyDBM_File, as well as Fcntl and IO.  (Failure to have these
 437 # should show up as failures in the test suite, but it's helpful to
 438 # catch them now.) The 'extensions' list is normally sorted
 439 # alphabetically, so we need to accept either
 440 #    DB_File ... Fcntl ... IO  ....
 441 # or something like
 442 #    Fcntl ... NDBM_File ... IO  ....
 443 case " $extensions"  in
 444 *"_File "*" Fcntl "*" IO "*) ;; # DB_File
 445 *" Fcntl "*"_File "*" IO "*) ;; # GDBM_File
 446 *" Fcntl "*" IO "*"_File "*) ;; # NDBM_File
 447 *) echo "WARNING: Extensions DB_File or *DBM_File, Fcntl, and IO not configured." >&4
 448    echo "WARNING: The Perl you are building will be quite crippled." >& 4
 449    ;;
 450 esac
 451