U/perl/usecjk.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 2002 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:usecjk: Myread Oldconfig Setvar
   9 ?MAKE:  -pick add $@ %<
  10 ?Y:TOP
  11 ?S:usecjk:
  12 ?S:     This variable conditionally defines the USE_CJK symbol,
  13 ?S:     and indicates that Perl should be built to use CJK.
  14 ?S:.
  15 ?C:USE_CJK:
  16 ?C:     This symbol, if defined, indicates that Perl should
  17 ?C:     be built to use the CJK support of Encode.
  18 ?C:.
  19 ?H:?%<:#ifndef USE_CJK
  20 ?H:?%<:#$usecjk USE_CJK         /**/
  21 ?H:?%<:#endif
  22 ?H:.
  23 ?LINT:set usecjk
  24 ?INIT:: set usecjk on the Configure command line to enable cjk.
  25 ?X: We should really have some explanatory text here, and some
  26 ?X: automatic setting of sensible defaults.
  27 : Check for CJK support
  28 case "$usecjk" in
  29 ''|$define|true|[yY]*)  dflt='y';;
  30 *) dflt='n';;
  31 esac
  32 cat <<EOM
  33
  34 Starting from 5.8.0 Perl comes with encoding support for the CJK languags
  35 (Chinese-Japanese-Korean, CN/JP/KR/TW).  Normally shared libraries are used,
  36 which means that the (relatively large, a few megabytes total) CJK encodings
  37 are loaded on demand (not consuming any memory if the are unused).  However,
  38 if you are building Perl statically, and/or are space-constrained, and
  39 if you are certain you won't be needing CJK support, you may consider
  40 leaving it out.  Note that the CJK support will always be built, but
  41 if you choose not to have it, it will be skipped in the installation phase.
  42
  43 If this doesn't make any sense to you, just accept the default '$dflt'.
  44 EOM
  45 rp='Build Perl for CJK?'
  46 . ./myread
  47 case "$ans" in
  48 y*|Y*)  val="$define" ;;
  49 *)      val="$undef"  ;;
  50 esac
  51 set usecjk
  52 eval $setvar
  53