This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add bootstrap_charset/BOOTSTRAP_CHARSET for non-ASCII architectures
[metaconfig.git] / U / ebcdic / ebcdic.U
1 ?RCS: $Id: ebcdic.U,v 3.0.1.3 1994/05/06 15:11:49 doughera Exp $
2 ?RCS:
3 ?RCS: Copyright (c) 1998 Andy Dougherty
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:   Original author Jarkko Hietaniemi <jhi@iki.fi>
9 ?RCS:   Merged into dist by Andy Dougherty  July 13, 1998
10 ?RCS:
11 ?MAKE:ebcdic bootstrap_charset: Compile Setvar cat rm_try run
12 ?MAKE:  -pick add $@ %<
13 ?S:ebcdic:
14 ?S:     This variable conditionally defines EBCDIC if this
15 ?S:     system uses EBCDIC encoding.
16 ?S:.
17 ?S:bootstrap_charset:
18 ?S:     This variable conditionally defines BOOTSTRAP_CHARSET if
19 ?S:     this system uses non-ASCII encoding.
20 ?S:.
21 ?C:EBCDIC:
22 ?C:     This symbol, if defined, indicates that this system uses
23 ?C:     EBCDIC encoding.
24 ?C:.
25 ?C:BOOTSTRAP_CHARSET:
26 ?C:     This symbol, if defined, indicates that this system needs
27 ?C:     converting various files to the native character set before
28 ?C:     bringing up perl on a system that has a non-ASCII character
29 ?C:     set and no working perl.
30 ?C:.
31 ?LINT:extern BOOTSTRAP_CHARSET
32 ?D:bootstrap_charset=undef
33 ?H:#$ebcdic     EBCDIC          /**/
34 ?H:#$bootstrap_charset  BOOTSTRAP_CHARSET       /**/
35 ?H:.
36 ?F:!try
37 ?LINT:set ebcdic
38 : Determine if this is an EBCDIC system
39 echo " "
40 echo "Determining whether or not we are on an EBCDIC system..." >&4
41 $cat >try.c <<'EOM'
42 int main()
43 {
44   if ('M'==0xd4) return 0;
45   return 1;
46 }
47 EOM
48
49 case "$BOOTSTRAP_CHARSET" in
50     Y|y|define) bootstrap_charset=$define       ;;
51     *)          bootstrap_charset=$undef        ;;
52 esac
53
54 val=$undef
55 set try
56 if eval $compile_ok; then
57         if $run ./try; then
58                 echo "You seem to speak EBCDIC." >&4
59                 val="$define"
60         else
61                 echo "Nope, no EBCDIC, probably ASCII or some ISO Latin. Or UTF-8." >&4
62         fi
63 else
64         echo "I'm unable to compile the test program." >&4
65         echo "I'll assume ASCII or some ISO Latin. Or UTF8." >&4
66 fi
67 $rm_try
68 set ebcdic
69 eval $setvar
70