This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Major *try* cleanup: introduce $rm_try
[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: 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.  Among other things, this
16 ?S:     means that the character ranges are not contiguous.
17 ?S:     See trnl.U
18 ?S:.
19 ?C:EBCDIC:
20 ?C:     This symbol, if defined, indicates that this system uses
21 ?C:     EBCDIC encoding.
22 ?C:.
23 ?H:#$ebcdic     EBCDIC          /**/
24 ?H:.
25 ?LINT:set ebcdic
26 echo " "
27 echo "Determining whether or not we are on an EBCDIC system..." >&4
28 $cat >try.c <<'EOM'
29 int main()
30 {
31   if ('M'==0xd4) return 0;
32   return 1;
33 }
34 EOM
35
36 val=$undef
37 set try
38 if eval $compile_ok; then
39         if $run ./try; then
40                 echo "You seem to speak EBCDIC." >&4
41                 val="$define"
42         else
43                 echo "Nope, no EBCDIC, probably ASCII or some ISO Latin. Or UTF-8." >&4
44         fi
45 else
46         echo "I'm unable to compile the test program." >&4
47         echo "I'll assume ASCII or some ISO Latin. Or UTF8." >&4
48 fi
49 $rm_try
50 set ebcdic
51 eval $setvar
52