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 ?X: We should really have some explanatory text here, and some
  26 ?X: automatic setting of sensible defaults.
  27 cat <<EOM
  28
  29 Perl can be built so that multiple Perl interpreters can coexist
  30 within the same Perl executable.
  31 EOM
  32
  33 case "$useithreads" in
  34 $define)
  35         cat <<EOM
  36 This multiple interpreter support is required for interpreter-based threads.
  37 EOM
  38         val="$define"
  39         ;;
  40 *)      case "$usemultiplicity" in
  41         $define|true|[yY]*)     dflt='y';;
  42         *) dflt='n';;
  43         esac
  44         echo "If this doesn't make any sense to you, just accept the default '$dflt'."
  45         rp='Build Perl for multiplicity?'
  46         . ./myread
  47         case "$ans" in
  48         y|Y)    val="$define" ;;
  49         *)      val="$undef" ;;
  50         esac
  51         ;;
  52 esac
  53 set usemultiplicity
  54 eval $setvar
  55