U/perl/mad.U

   1 ?RCS: $Id: mad.U,v $
   2 ?RCS:
   3 ?RCS: Copyright (c) 2006 H.Merijn Brand, Nicholas Clark
   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: mad.U,v $
   9 ?RCS:
  10 ?MAKE:mad: Myread Setvar
  11 ?MAKE:  -pick add $@ %<
  12 ?S:mad:
  13 ?S:     This variable indicates that the Misc Attribute Definition code is to
  14 ?S:     be compiled.
  15 ?S:.
  16 ?C:PERL_MAD:
  17 ?C:     This symbol, if defined, indicates that the Misc Attribution
  18 ?C:     Declaration code should be conditionally compiled.
  19 ?C:.
  20 ?H:#$mad        PERL_MAD                /**/
  21 ?H:.
  22 ?LINT:set mad
  23
  24 case "$mad" in
  25 $define|true|[yY]*)     dflt='y' ;;
  26 *)                      dflt='n' ;;
  27 esac
  28 cat <<EOM
  29
  30 Would you like to build with Misc Attribute Decoration? This is development
  31 work leading to a Perl 5 to Perl 6 convertor, which imposes a space and speed
  32 overhead on the interpreter.
  33
  34 If this doesn't make any sense to you, just accept the default '$dflt'.
  35 EOM
  36 rp='Build Perl with MAD?'
  37 . ./myread
  38 case "$ans" in
  39 y|Y)    val="$define" ;;
  40 *)      val="$undef"  ;;
  41 esac
  42 set mad
  43 eval $setvar
  44