From: Peter Prymmer <PPrymmer@factset.com>
Date: Mon, 24 May 1999 11:20:25 +0000 (-0700)
Subject: EBCDIC %HTML_Escapes for Pod::Text, plus sync patch.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5491a30436708c565b94ebb1795def37d8850a56;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC %HTML_Escapes for Pod::Text, plus sync patch.

	Message-Id: <9905241820.AA28071@forte.com>

p4raw-id: //depot/perl@3468
---

diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm
index 3988d46..d62b7a3 100644
--- a/lib/Pod/Text.pm
+++ b/lib/Pod/Text.pm
@@ -474,6 +474,7 @@ sub internal_lrefs {
 
 BEGIN {
 
+if (ord("\t") == 9) {
 %HTML_Escapes = (
     'amp'	=>	'&',	#   ampersand
     'lt'	=>	'<',	#   left chevron, less-than
@@ -546,6 +547,85 @@ BEGIN {
     "lchevron"	=>	"\xAB",	#   left chevron (double less than)
     "rchevron"	=>	"\xBB",	#   right chevron (double greater than)
 );
+
+}
+else {
+
+# This hash assumes code page IBM-1047:
+%HTML_Escapes = (
+    'amp'	=>	'&',    #   ampersand
+    'lt'	=>	'<',    #   left chevron, less-than
+    'gt'	=>	'>',    #   right chevron, greater-than
+    'quot'	=>	'"',    #   double quote
+
+    "Aacute"	=>	"\x65", #   capital A, acute accent
+    "aacute"	=>	"\x45", #   small a, acute accent
+    "Acirc"	=>	"\x62", #   capital A, circumflex accent
+    "acirc"	=>	"\x42", #   small a, circumflex accent
+    "AElig"	=>	"\x9E", #   capital AE diphthong (ligature)
+    "aelig"	=>	"\x9C", #   small ae diphthong (ligature)
+    "Agrave"	=>	"\x64", #   capital A, grave accent
+    "agrave"	=>	"\x44", #   small a, grave accent
+    "Aring"	=>	"\x67", #   capital A, ring
+    "aring"	=>	"\x47", #   small a, ring
+    "Atilde"	=>	"\x66", #   capital A, tilde
+    "atilde"	=>	"\x46", #   small a, tilde
+    "Auml"	=>	"\x63", #   capital A, dieresis or umlaut mark
+    "auml"	=>	"\x43", #   small a, dieresis or umlaut mark
+    "Ccedil"	=>	"\x68", #   capital C, cedilla
+    "ccedil"	=>	"\x48", #   small c, cedilla
+    "Eacute"	=>	"\x71", #   capital E, acute accent
+    "eacute"	=>	"\x51", #   small e, acute accent
+    "Ecirc"	=>	"\x72", #   capital E, circumflex accent
+    "ecirc"	=>	"\x52", #   small e, circumflex accent
+    "Egrave"	=>	"\x74", #   capital E, grave accent
+    "egrave"	=>	"\x54", #   small e, grave accent
+    "ETH"	=>	"\xAC", #   capital Eth, Icelandic
+    "eth"	=>	"\x8C", #   small eth, Icelandic
+    "Euml"	=>	"\x73", #   capital E, dieresis or umlaut mark
+    "euml"	=>	"\x53", #   small e, dieresis or umlaut mark
+    "Iacute"	=>	"\x75", #   capital I, acute accent
+    "iacute"	=>	"\x55", #   small i, acute accent
+    "Icirc"	=>	"\x76", #   capital I, circumflex accent
+    "icirc"	=>	"\x56", #   small i, circumflex accent
+    "Igrave"	=>	"\x75", #   capital I, grave accent
+    "igrave"	=>	"\x55", #   small i, grave accent
+    "Iuml"	=>	"\x77", #   capital I, dieresis or umlaut mark
+    "iuml"	=>	"\x57", #   small i, dieresis or umlaut mark
+    "Ntilde"	=>	"\x69", #   capital N, tilde
+    "ntilde"	=>	"\x49", #   small n, tilde
+    "Oacute"	=>	"\xEE", #   capital O, acute accent
+    "oacute"	=>	"\xCE", #   small o, acute accent
+    "Ocirc"	=>	"\xEB", #   capital O, circumflex accent
+    "ocirc"	=>	"\xCB", #   small o, circumflex accent
+    "Ograve"	=>	"\xED", #   capital O, grave accent
+    "ograve"	=>	"\xCD", #   small o, grave accent
+    "Oslash"	=>	"\x80", #   capital O, slash
+    "oslash"	=>	"\x70", #   small o, slash
+    "Otilde"	=>	"\xEF", #   capital O, tilde
+    "otilde"	=>	"\xCF", #   small o, tilde
+    "Ouml"	=>	"\xEC", #   capital O, dieresis or umlaut mark
+    "ouml"	=>	"\xCC", #   small o, dieresis or umlaut mark
+    "szlig"	=>	"\x59", #   small sharp s, German (sz ligature)
+    "THORN"	=>	"\xAE", #   capital THORN, Icelandic
+    "thorn"	=>	"\x8E", #   small thorn, Icelandic
+    "Uacute"	=>	"\xFE", #   capital U, acute accent
+    "uacute"	=>	"\xDE", #   small u, acute accent
+    "Ucirc"	=>	"\xFB", #   capital U, circumflex accent
+    "ucirc"	=>	"\xDB", #   small u, circumflex accent
+    "Ugrave"	=>	"\xFD", #   capital U, grave accent
+    "ugrave"	=>	"\xDD", #   small u, grave accent
+    "Uuml"	=>	"\xFC", #   capital U, dieresis or umlaut mark
+    "uuml"	=>	"\xDC", #   small u, dieresis or umlaut mark
+    "Yacute"	=>	"\xBA", #   capital Y, acute accent
+    "yacute"	=>	"\x8D", #   small y, acute accent
+    "yuml"	=>	"\xDF", #   small y, dieresis or umlaut mark
+
+    "lchevron"	=>	"\x8A", #   left chevron (double less than)
+    "rchevron"	=>	"\x8B", #   right chevron (double greater than)
+);
+ 
+}
 }
 
 1;