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