This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Backport of bd2aeadfa5cb8ea8dbfc9c3060728594d8452bc6
[metaconfig.git] / U / perl / usecjk.U
CommitLineData
6950efea
JH
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
6950efea 24?LINT:extern useperlio
6950efea
JH
25?INIT:: set usecjk on the Configure command line to enable cjk.
26?X: We should really have some explanatory text here, and some
27?X: automatic setting of sensible defaults.
2f125bce 28: Check for CJK support
6950efea
JH
29case "$usecjk" in
30''|$define|true|[yY]*) dflt='y';;
31*) dflt='n';;
32esac
33cat <<EOM
34
35Starting from 5.8.0 Perl comes with encoding support for the CJK languags
36(Chinese-Japanese-Korean, CN/JP/KR/TW). Normally shared libraries are used,
37which means that the (relatively large, a few megabytes total) CJK encodings
38are loaded on demand (not consuming any memory if the are unused). However,
39if you are building Perl statically, and/or are space-constrained, and
40if you are certain you won't be needing CJK support, you may consider
41leaving it out. Note that the CJK support will always be built, but
42if you choose not to have it, it will be skipped in the installation phase.
43
44If this doesn't make any sense to you, just accept the default '$dflt'.
45EOM
46rp='Build Perl for CJK?'
47. ./myread
48case "$ans" in
4c42341b 49y*|Y*) val="$define" ;;
6950efea
JH
50*) val="$undef" ;;
51esac
52set usecjk
53eval $setvar
54