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 case "$onlyextensions" in
 239 '') ;;
 240 *)  keepextensions=''
 241     echo "You have requested that only certains extensions be included..." >&4
 242     for i in $onlyextensions; do
 243         case " $avail_ext " in
 244         *" $i "*)
 245             echo "Keeping extension $i."
 246             keepextensions="$keepextensions $i"
 247             ;;
 248         *) echo "Ignoring extension $i." ;;
 249         esac
 250     done
 251     avail_ext="$keepextensions"
 252     ;;
 253 esac
 254
 255 case "$noextensions" in
 256 '') ;;
 257 *)  keepextensions=''
 258     echo "You have requested that certain extensions be ignored..." >&4
 259     for i in $avail_ext; do
 260         case " $noextensions " in
 261         *" $i "*) echo "Ignoring extension $i." ;;
 262         *) echo "Keeping extension $i.";
 263            keepextensions="$keepextensions $i"
 264            ;;
 265         esac
 266     done
 267     avail_ext="$keepextensions"
 268     ;;
 269 esac
 270
 271 : Now see which nonxs extensions are supported on this system.
 272 : For now assume all are.
 273 nonxs_ext=''
 274 for xxx in $nonxs_extensions ; do
 275         case "$xxx" in
 276         *)      nonxs_ext="$nonxs_ext $xxx"
 277                 ;;
 278         esac
 279 done
 280
 281 set X $nonxs_ext
 282 shift
 283 nonxs_ext="$*"
 284
 285 case $usedl in
 286 $define)
 287         $cat <<EOM
 288 A number of extensions are supplied with $package.  You may choose to
 289 compile these extensions for dynamic loading (the default), compile
 290 them into the $package executable (static loading), or not include
 291 them at all.  Answer "none" to include no extensions.
 292 Note that DynaLoader is always built and need not be mentioned here.
 293
 294 EOM
 295         case "$dynamic_ext" in
 296         '')
 297                 : Exclude those listed in static_ext
 298                 dflt=''
 299                 for xxx in $avail_ext; do
 300                         case " $static_ext " in
 301                         *" $xxx "*) ;;
 302                         *) dflt="$dflt $xxx" ;;
 303                         esac
 304                 done
 305                 set X $dflt
 306                 shift
 307                 dflt="$*"
 308                 ;;
 309         *)      dflt="$dynamic_ext"
 310                 # Perhaps we are reusing an old out-of-date config.sh.
 311                 case "$hint" in
 312                 previous)
 313                         if test X"$dynamic_ext" != X"$avail_ext"; then
 314                                 $cat <<EOM
 315 NOTICE:  Your previous config.sh list may be incorrect.
 316 The extensions now available to you are
 317         ${avail_ext}
 318 but the default list from your previous config.sh is
 319         ${dynamic_ext}
 320
 321 EOM
 322                         fi
 323                         ;;
 324                 esac
 325                 ;;
 326         esac
 327         case "$dflt" in
 328         '')     dflt=none;;
 329         esac
 330         rp="What extensions do you wish to load dynamically?"
 331         . ./myread
 332         case "$ans" in
 333 ?X: Use ' ' so a subsequent Configure will preserve that value.
 334         none) dynamic_ext=' ' ;;
 335         *) dynamic_ext="$ans" ;;
 336         esac
 337
 338         case "$static_ext" in
 339         '')
 340                 : Exclude those already listed in dynamic linking
 341                 dflt=''
 342                 for xxx in $avail_ext; do
 343                         case " $dynamic_ext " in
 344                         *" $xxx "*) ;;
 345                         *) dflt="$dflt $xxx" ;;
 346                         esac
 347                 done
 348                 set X $dflt
 349                 shift
 350                 dflt="$*"
 351                 ;;
 352         *)  dflt="$static_ext"
 353                 ;;
 354         esac
 355
 356         case "$dflt" in
 357         '')     dflt=none;;
 358         esac
 359         rp="What extensions do you wish to load statically?"
 360         . ./myread
 361         case "$ans" in
 362 ?X: Use ' ' so a subsequent Configure will preserve that value.
 363         none) static_ext=' ' ;;
 364         *) static_ext="$ans" ;;
 365         esac
 366         ;;
 367 *)
 368         $cat <<EOM
 369 A number of extensions are supplied with $package.  Answer "none"
 370 to include no extensions.
 371 Note that DynaLoader is always built and need not be mentioned here.
 372
 373 EOM
 374         case "$static_ext" in
 375         '') dflt="$avail_ext" ;;
 376         *)      dflt="$static_ext"
 377                 # Perhaps we are reusing an old out-of-date config.sh.
 378                 case "$hint" in
 379                 previous)
 380                         if test X"$static_ext" != X"$avail_ext"; then
 381                                 $cat <<EOM
 382 NOTICE:  Your previous config.sh list may be incorrect.
 383 The extensions now available to you are
 384         ${avail_ext}
 385 but the default list from your previous config.sh is
 386         ${static_ext}
 387
 388 EOM
 389                         fi
 390                         ;;
 391                 esac
 392                 ;;
 393         esac
 394         : Exclude those that are not xs extensions
 395         case "$dflt" in
 396         '')     dflt=none;;
 397         esac
 398         rp="What extensions do you wish to include?"
 399         . ./myread
 400         case "$ans" in
 401 ?X: Use ' ' so a subsequent Configure will preserve that value.
 402         none) static_ext=' ' ;;
 403         *) static_ext="$ans" ;;
 404         esac
 405         ;;
 406 esac
 407 #
 408 # Encode is a special case.  If we are building Encode as a static
 409 # extension, we need to explicitly list its subextensions as well.
 410 # For other nested extensions, this is handled automatically by
 411 # the appropriate Makefile.PL.
 412 case " $static_ext " in
 413         *" Encode "*) # Add the subextensions of Encode
 414         cd "$rsrc/ext"
 415         for xxx in `ls Encode/*/Makefile.PL|awk -F/ '{print $2}'`; do
 416                 static_ext="$static_ext Encode/$xxx"
 417         done
 418         cd "$tdir"
 419         ;;
 420 esac
 421
 422 set X $dynamic_ext $static_ext $nonxs_ext
 423 shift
 424 extensions="$*"
 425
 426 # Sanity check:  We require an extension suitable for use with
 427 # AnyDBM_File, as well as Fcntl and IO.  (Failure to have these
 428 # should show up as failures in the test suite, but it's helpful to
 429 # catch them now.) The 'extensions' list is normally sorted
 430 # alphabetically, so we need to accept either
 431 #    DB_File ... Fcntl ... IO  ....
 432 # or something like
 433 #    Fcntl ... NDBM_File ... IO  ....
 434 case " $extensions"  in
 435 *"_File "*" Fcntl "*" IO "*) ;; # DB_File
 436 *" Fcntl "*"_File "*" IO "*) ;; # GDBM_File
 437 *" Fcntl "*" IO "*"_File "*) ;; # NDBM_File
 438 *) echo "WARNING: Extensions DB_File or *DBM_File, Fcntl, and IO not configured." >&4
 439    echo "WARNING: The Perl you are building will be quite crippled." >& 4
 440    ;;
 441 esac
 442