U/perl/usemultiplicity.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 1998 Jarkko Hietaniemi
   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 ?MAKE:usemultiplicity: useithreads Myread Oldconfig Setvar
   9 ?MAKE:  -pick add $@ %<
  10 ?Y:TOP
  11 ?S:usemultiplicity:
  12 ?S:     This variable conditionally defines the MULTIPLICITY symbol,
  13 ?S:     and indicates that Perl should be built to use multiplicity.
  14 ?S:.
  15 ?C:MULTIPLICITY:
  16 ?C:     This symbol, if defined, indicates that Perl should
  17 ?C:     be built to use multiplicity.
  18 ?C:.
  19 ?H:?%<:#ifndef MULTIPLICITY
  20 ?H:?%<:#$usemultiplicity        MULTIPLICITY            /**/
  21 ?H:?%<:#endif
  22 ?H:.
  23 ?LINT:set usemultiplicity
  24 ?INIT:: set usemultiplicity on the Configure command line to enable multiplicity.
  25 : Check if multiplicity is required
  26 ?X: We should really have some explanatory text here, and some
  27 ?X: automatic setting of sensible defaults.
  28 cat <<EOM
  29
  30 Perl can be built so that multiple Perl interpreters can coexist
  31 within the same Perl executable.
  32 EOM
  33
  34 case "$useithreads" in
  35 $define)
  36         cat <<EOM
  37 This multiple interpreter support is required for interpreter-based threads.
  38 EOM
  39         val="$define"
  40         ;;
  41 *)      case "$usemultiplicity" in
  42         $define|true|[yY]*)     dflt='y';;
  43         *) dflt='n';;
  44         esac
  45         echo " "
  46         echo "If this doesn't make any sense to you, just accept the default '$dflt'."
  47         rp='Build Perl for multiplicity?'
  48         . ./myread
  49         case "$ans" in
  50         y|Y)    val="$define" ;;
  51         *)      val="$undef" ;;
  52         esac
  53         ;;
  54 esac
  55 set usemultiplicity
  56 eval $setvar
  57