From: H.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Date: Sat, 9 Mar 2013 17:52:33 +0000 (+0100)
Subject: Add bootstrap_charset/BOOTSTRAP_CHARSET for non-ASCII architectures
X-Git-Tag: 5.26.1~173
X-Git-Url: https://perl5.git.perl.org/metaconfig.git/commitdiff_plain/6d41512cec5feb97e6f254aef3161445f44c0653

Add bootstrap_charset/BOOTSTRAP_CHARSET for non-ASCII architectures
---

diff --git a/U/ebcdic/ebcdic.U b/U/ebcdic/ebcdic.U
index 6326938..506c205 100644
--- a/U/ebcdic/ebcdic.U
+++ b/U/ebcdic/ebcdic.U
@@ -8,19 +8,30 @@
 ?RCS:	Original author Jarkko Hietaniemi <jhi@iki.fi>
 ?RCS:	Merged into dist by Andy Dougherty  July 13, 1998
 ?RCS:
-?MAKE:ebcdic: Compile Setvar cat rm_try run
+?MAKE:ebcdic bootstrap_charset: Compile Setvar cat rm_try run
 ?MAKE:	-pick add $@ %<
 ?S:ebcdic:
 ?S:	This variable conditionally defines EBCDIC if this
-?S:	system uses EBCDIC encoding.  Among other things, this
-?S:	means that the character ranges are not contiguous.
-?S:	See trnl.U
+?S:	system uses EBCDIC encoding.
+?S:.
+?S:bootstrap_charset:
+?S:	This variable conditionally defines BOOTSTRAP_CHARSET if
+?S:	this system uses non-ASCII encoding.
 ?S:.
 ?C:EBCDIC:
-?C:     This symbol, if defined, indicates that this system uses
+?C:	This symbol, if defined, indicates that this system uses
 ?C:	EBCDIC encoding.
 ?C:.
+?C:BOOTSTRAP_CHARSET:
+?C:	This symbol, if defined, indicates that this system needs
+?C:	converting various files to the native character set before
+?C:	bringing up perl on a system that has a non-ASCII character
+?C:	set and no working perl.
+?C:.
+?LINT:extern BOOTSTRAP_CHARSET
+?D:bootstrap_charset=undef
 ?H:#$ebcdic	EBCDIC 		/**/
+?H:#$bootstrap_charset	BOOTSTRAP_CHARSET	/**/
 ?H:.
 ?F:!try
 ?LINT:set ebcdic
@@ -35,6 +46,11 @@ int main()
 }
 EOM
 
+case "$BOOTSTRAP_CHARSET" in
+    Y|y|define) bootstrap_charset=$define	;;
+    *)		bootstrap_charset=$undef	;;
+esac
+
 val=$undef
 set try
 if eval $compile_ok; then