diff -r db22e5dcf518 -r b468050174a9 CharacterEncoderImplementations__ISO8859_4.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/CharacterEncoderImplementations__ISO8859_4.st	Fri Mar 05 18:28:27 2004 +0100
@@ -0,0 +1,722 @@
+"{ Encoding: utf8 }"
+
+"{ Package: 'stx:libbasic' }"
+
+"{ NameSpace: CharacterEncoderImplementations }"
+
+SingleByteEncoder subclass:#ISO8859_4
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Collections-Text-Encodings'
+!
+
+
+!ISO8859_4 class methodsFor:'mapping'!
+
+mapFileURL1_relativePathName
+    ^ 'ISO8859/8859-4.TXT'
+!
+
+mapping
+"
+# From: http://www.unicode.org/Public/MAPPINGS/ISO8859/8859-4.TXT
+
+#
+#       Name:             ISO/IEC 8859-4:1998 to Unicode
+#       Unicode version:  3.0
+#       Table version:    1.0
+#       Table format:     Format A
+#       Date:             1999 July 27
+#       Authors:          Ken Whistler <kenw@sybase.com>
+#
+#       Copyright (c) 1991-1999 Unicode, Inc.  All Rights reserved.
+#
+#       This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
+#       No claims are made as to fitness for any particular purpose.  No
+#       warranties of any kind are expressed or implied.  The recipient
+#       agrees to determine applicability of information provided.  If this
+#       file has been provided on optical media by Unicode, Inc., the sole
+#       remedy for any claim will be exchange of defective media within 90
+#       days of receipt.
+#
+#       Unicode, Inc. hereby grants the right to freely use the information
+#       supplied in this file in the creation of products supporting the
+#       Unicode Standard, and to make copies of this file in any form for
+#       internal or external distribution as long as this notice remains
+#       attached.
+#
+#       General notes:
+#
+#       This table contains the data the Unicode Consortium has on how
+#       ISO/IEC 8859-4:1998 characters map into Unicode.
+#
+#       Format:  Three tab-separated columns
+#                Column #1 is the ISO/IEC 8859-4 code (in hex as 0xXX)
+#                Column #2 is the Unicode (in hex as 0xXXXX)
+#                Column #3 the Unicode name (follows a comment sign, '#')
+#
+#       The entries are in ISO/IEC 8859-4 order.
+#
+#       Version history
+#       1.0 version updates 0.1 version by adding mappings for all
+#       control characters.
+#
+#       Updated versions of this file may be found in:
+#               <ftp://ftp.unicode.org/Public/MAPPINGS/>
+#
+#       Any comments or problems, contact <errata@unicode.org>
+#       Please note that <errata@unicode.org> is an archival address;
+#       notices will be checked, but do not expect an immediate response.
+#
+0x00    0x0000  #       NULL
+0x01    0x0001  #       START OF HEADING
+0x02    0x0002  #       START OF TEXT
+0x03    0x0003  #       END OF TEXT
+0x04    0x0004  #       END OF TRANSMISSION
+0x05    0x0005  #       ENQUIRY
+0x06    0x0006  #       ACKNOWLEDGE
+0x07    0x0007  #       BELL
+0x08    0x0008  #       BACKSPACE
+0x09    0x0009  #       HORIZONTAL TABULATION
+0x0A    0x000A  #       LINE FEED
+0x0B    0x000B  #       VERTICAL TABULATION
+0x0C    0x000C  #       FORM FEED
+0x0D    0x000D  #       CARRIAGE RETURN
+0x0E    0x000E  #       SHIFT OUT
+0x0F    0x000F  #       SHIFT IN
+0x10    0x0010  #       DATA LINK ESCAPE
+0x11    0x0011  #       DEVICE CONTROL ONE
+0x12    0x0012  #       DEVICE CONTROL TWO
+0x13    0x0013  #       DEVICE CONTROL THREE
+0x14    0x0014  #       DEVICE CONTROL FOUR
+0x15    0x0015  #       NEGATIVE ACKNOWLEDGE
+0x16    0x0016  #       SYNCHRONOUS IDLE
+0x17    0x0017  #       END OF TRANSMISSION BLOCK
+0x18    0x0018  #       CANCEL
+0x19    0x0019  #       END OF MEDIUM
+0x1A    0x001A  #       SUBSTITUTE
+0x1B    0x001B  #       ESCAPE
+0x1C    0x001C  #       FILE SEPARATOR
+0x1D    0x001D  #       GROUP SEPARATOR
+0x1E    0x001E  #       RECORD SEPARATOR
+0x1F    0x001F  #       UNIT SEPARATOR
+0x20    0x0020  #       SPACE
+0x21    0x0021  #       EXCLAMATION MARK
+0x22    0x0022  #       QUOTATION MARK
+0x23    0x0023  #       NUMBER SIGN
+0x24    0x0024  #       DOLLAR SIGN
+0x25    0x0025  #       PERCENT SIGN
+0x26    0x0026  #       AMPERSAND
+0x27    0x0027  #       APOSTROPHE
+0x28    0x0028  #       LEFT PARENTHESIS
+0x29    0x0029  #       RIGHT PARENTHESIS
+0x2A    0x002A  #       ASTERISK
+0x2B    0x002B  #       PLUS SIGN
+0x2C    0x002C  #       COMMA
+0x2D    0x002D  #       HYPHEN-MINUS
+0x2E    0x002E  #       FULL STOP
+0x2F    0x002F  #       SOLIDUS
+0x30    0x0030  #       DIGIT ZERO
+0x31    0x0031  #       DIGIT ONE
+0x32    0x0032  #       DIGIT TWO
+0x33    0x0033  #       DIGIT THREE
+0x34    0x0034  #       DIGIT FOUR
+0x35    0x0035  #       DIGIT FIVE
+0x36    0x0036  #       DIGIT SIX
+0x37    0x0037  #       DIGIT SEVEN
+0x38    0x0038  #       DIGIT EIGHT
+0x39    0x0039  #       DIGIT NINE
+0x3A    0x003A  #       COLON
+0x3B    0x003B  #       SEMICOLON
+0x3C    0x003C  #       LESS-THAN SIGN
+0x3D    0x003D  #       EQUALS SIGN
+0x3E    0x003E  #       GREATER-THAN SIGN
+0x3F    0x003F  #       QUESTION MARK
+0x40    0x0040  #       COMMERCIAL AT
+0x41    0x0041  #       LATIN CAPITAL LETTER A
+0x42    0x0042  #       LATIN CAPITAL LETTER B
+0x43    0x0043  #       LATIN CAPITAL LETTER C
+0x44    0x0044  #       LATIN CAPITAL LETTER D
+0x45    0x0045  #       LATIN CAPITAL LETTER E
+0x46    0x0046  #       LATIN CAPITAL LETTER F
+0x47    0x0047  #       LATIN CAPITAL LETTER G
+0x48    0x0048  #       LATIN CAPITAL LETTER H
+0x49    0x0049  #       LATIN CAPITAL LETTER I
+0x4A    0x004A  #       LATIN CAPITAL LETTER J
+0x4B    0x004B  #       LATIN CAPITAL LETTER K
+0x4C    0x004C  #       LATIN CAPITAL LETTER L
+0x4D    0x004D  #       LATIN CAPITAL LETTER M
+0x4E    0x004E  #       LATIN CAPITAL LETTER N
+0x4F    0x004F  #       LATIN CAPITAL LETTER O
+0x50    0x0050  #       LATIN CAPITAL LETTER P
+0x51    0x0051  #       LATIN CAPITAL LETTER Q
+0x52    0x0052  #       LATIN CAPITAL LETTER R
+0x53    0x0053  #       LATIN CAPITAL LETTER S
+0x54    0x0054  #       LATIN CAPITAL LETTER T
+0x55    0x0055  #       LATIN CAPITAL LETTER U
+0x56    0x0056  #       LATIN CAPITAL LETTER V
+0x57    0x0057  #       LATIN CAPITAL LETTER W
+0x58    0x0058  #       LATIN CAPITAL LETTER X
+0x59    0x0059  #       LATIN CAPITAL LETTER Y
+0x5A    0x005A  #       LATIN CAPITAL LETTER Z
+0x5B    0x005B  #       LEFT SQUARE BRACKET
+0x5C    0x005C  #       REVERSE SOLIDUS
+0x5D    0x005D  #       RIGHT SQUARE BRACKET
+0x5E    0x005E  #       CIRCUMFLEX ACCENT
+0x5F    0x005F  #       LOW LINE
+0x60    0x0060  #       GRAVE ACCENT
+0x61    0x0061  #       LATIN SMALL LETTER A
+0x62    0x0062  #       LATIN SMALL LETTER B
+0x63    0x0063  #       LATIN SMALL LETTER C
+0x64    0x0064  #       LATIN SMALL LETTER D
+0x65    0x0065  #       LATIN SMALL LETTER E
+0x66    0x0066  #       LATIN SMALL LETTER F
+0x67    0x0067  #       LATIN SMALL LETTER G
+0x68    0x0068  #       LATIN SMALL LETTER H
+0x69    0x0069  #       LATIN SMALL LETTER I
+0x6A    0x006A  #       LATIN SMALL LETTER J
+0x6B    0x006B  #       LATIN SMALL LETTER K
+0x6C    0x006C  #       LATIN SMALL LETTER L
+0x6D    0x006D  #       LATIN SMALL LETTER M
+0x6E    0x006E  #       LATIN SMALL LETTER N
+0x6F    0x006F  #       LATIN SMALL LETTER O
+0x70    0x0070  #       LATIN SMALL LETTER P
+0x71    0x0071  #       LATIN SMALL LETTER Q
+0x72    0x0072  #       LATIN SMALL LETTER R
+0x73    0x0073  #       LATIN SMALL LETTER S
+0x74    0x0074  #       LATIN SMALL LETTER T
+0x75    0x0075  #       LATIN SMALL LETTER U
+0x76    0x0076  #       LATIN SMALL LETTER V
+0x77    0x0077  #       LATIN SMALL LETTER W
+0x78    0x0078  #       LATIN SMALL LETTER X
+0x79    0x0079  #       LATIN SMALL LETTER Y
+0x7A    0x007A  #       LATIN SMALL LETTER Z
+0x7B    0x007B  #       LEFT CURLY BRACKET
+0x7C    0x007C  #       VERTICAL LINE
+0x7D    0x007D  #       RIGHT CURLY BRACKET
+0x7E    0x007E  #       TILDE
+0x7F    0x007F  #       DELETE
+0x80    0x0080  #       <control>
+0x81    0x0081  #       <control>
+0x82    0x0082  #       <control>
+0x83    0x0083  #       <control>
+0x84    0x0084  #       <control>
+0x85    0x0085  #       <control>
+0x86    0x0086  #       <control>
+0x87    0x0087  #       <control>
+0x88    0x0088  #       <control>
+0x89    0x0089  #       <control>
+0x8A    0x008A  #       <control>
+0x8B    0x008B  #       <control>
+0x8C    0x008C  #       <control>
+0x8D    0x008D  #       <control>
+0x8E    0x008E  #       <control>
+0x8F    0x008F  #       <control>
+0x90    0x0090  #       <control>
+0x91    0x0091  #       <control>
+0x92    0x0092  #       <control>
+0x93    0x0093  #       <control>
+0x94    0x0094  #       <control>
+0x95    0x0095  #       <control>
+0x96    0x0096  #       <control>
+0x97    0x0097  #       <control>
+0x98    0x0098  #       <control>
+0x99    0x0099  #       <control>
+0x9A    0x009A  #       <control>
+0x9B    0x009B  #       <control>
+0x9C    0x009C  #       <control>
+0x9D    0x009D  #       <control>
+0x9E    0x009E  #       <control>
+0x9F    0x009F  #       <control>
+0xA0    0x00A0  #       NO-BREAK SPACE
+0xA1    0x0104  #       LATIN CAPITAL LETTER A WITH OGONEK
+0xA2    0x0138  #       LATIN SMALL LETTER KRA
+0xA3    0x0156  #       LATIN CAPITAL LETTER R WITH CEDILLA
+0xA4    0x00A4  #       CURRENCY SIGN
+0xA5    0x0128  #       LATIN CAPITAL LETTER I WITH TILDE
+0xA6    0x013B  #       LATIN CAPITAL LETTER L WITH CEDILLA
+0xA7    0x00A7  #       SECTION SIGN
+0xA8    0x00A8  #       DIAERESIS
+0xA9    0x0160  #       LATIN CAPITAL LETTER S WITH CARON
+0xAA    0x0112  #       LATIN CAPITAL LETTER E WITH MACRON
+0xAB    0x0122  #       LATIN CAPITAL LETTER G WITH CEDILLA
+0xAC    0x0166  #       LATIN CAPITAL LETTER T WITH STROKE
+0xAD    0x00AD  #       SOFT HYPHEN
+0xAE    0x017D  #       LATIN CAPITAL LETTER Z WITH CARON
+0xAF    0x00AF  #       MACRON
+0xB0    0x00B0  #       DEGREE SIGN
+0xB1    0x0105  #       LATIN SMALL LETTER A WITH OGONEK
+0xB2    0x02DB  #       OGONEK
+0xB3    0x0157  #       LATIN SMALL LETTER R WITH CEDILLA
+0xB4    0x00B4  #       ACUTE ACCENT
+0xB5    0x0129  #       LATIN SMALL LETTER I WITH TILDE
+0xB6    0x013C  #       LATIN SMALL LETTER L WITH CEDILLA
+0xB7    0x02C7  #       CARON
+0xB8    0x00B8  #       CEDILLA
+0xB9    0x0161  #       LATIN SMALL LETTER S WITH CARON
+0xBA    0x0113  #       LATIN SMALL LETTER E WITH MACRON
+0xBB    0x0123  #       LATIN SMALL LETTER G WITH CEDILLA
+0xBC    0x0167  #       LATIN SMALL LETTER T WITH STROKE
+0xBD    0x014A  #       LATIN CAPITAL LETTER ENG
+0xBE    0x017E  #       LATIN SMALL LETTER Z WITH CARON
+0xBF    0x014B  #       LATIN SMALL LETTER ENG
+0xC0    0x0100  #       LATIN CAPITAL LETTER A WITH MACRON
+0xC1    0x00C1  #       LATIN CAPITAL LETTER A WITH ACUTE
+0xC2    0x00C2  #       LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0xC3    0x00C3  #       LATIN CAPITAL LETTER A WITH TILDE
+0xC4    0x00C4  #       LATIN CAPITAL LETTER A WITH DIAERESIS
+0xC5    0x00C5  #       LATIN CAPITAL LETTER A WITH RING ABOVE
+0xC6    0x00C6  #       LATIN CAPITAL LETTER AE
+0xC7    0x012E  #       LATIN CAPITAL LETTER I WITH OGONEK
+0xC8    0x010C  #       LATIN CAPITAL LETTER C WITH CARON
+0xC9    0x00C9  #       LATIN CAPITAL LETTER E WITH ACUTE
+0xCA    0x0118  #       LATIN CAPITAL LETTER E WITH OGONEK
+0xCB    0x00CB  #       LATIN CAPITAL LETTER E WITH DIAERESIS
+0xCC    0x0116  #       LATIN CAPITAL LETTER E WITH DOT ABOVE
+0xCD    0x00CD  #       LATIN CAPITAL LETTER I WITH ACUTE
+0xCE    0x00CE  #       LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0xCF    0x012A  #       LATIN CAPITAL LETTER I WITH MACRON
+0xD0    0x0110  #       LATIN CAPITAL LETTER D WITH STROKE
+0xD1    0x0145  #       LATIN CAPITAL LETTER N WITH CEDILLA
+0xD2    0x014C  #       LATIN CAPITAL LETTER O WITH MACRON
+0xD3    0x0136  #       LATIN CAPITAL LETTER K WITH CEDILLA
+0xD4    0x00D4  #       LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0xD5    0x00D5  #       LATIN CAPITAL LETTER O WITH TILDE
+0xD6    0x00D6  #       LATIN CAPITAL LETTER O WITH DIAERESIS
+0xD7    0x00D7  #       MULTIPLICATION SIGN
+0xD8    0x00D8  #       LATIN CAPITAL LETTER O WITH STROKE
+0xD9    0x0172  #       LATIN CAPITAL LETTER U WITH OGONEK
+0xDA    0x00DA  #       LATIN CAPITAL LETTER U WITH ACUTE
+0xDB    0x00DB  #       LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+0xDC    0x00DC  #       LATIN CAPITAL LETTER U WITH DIAERESIS
+0xDD    0x0168  #       LATIN CAPITAL LETTER U WITH TILDE
+0xDE    0x016A  #       LATIN CAPITAL LETTER U WITH MACRON
+0xDF    0x00DF  #       LATIN SMALL LETTER SHARP S
+0xE0    0x0101  #       LATIN SMALL LETTER A WITH MACRON
+0xE1    0x00E1  #       LATIN SMALL LETTER A WITH ACUTE
+0xE2    0x00E2  #       LATIN SMALL LETTER A WITH CIRCUMFLEX
+0xE3    0x00E3  #       LATIN SMALL LETTER A WITH TILDE
+0xE4    0x00E4  #       LATIN SMALL LETTER A WITH DIAERESIS
+0xE5    0x00E5  #       LATIN SMALL LETTER A WITH RING ABOVE
+0xE6    0x00E6  #       LATIN SMALL LETTER AE
+0xE7    0x012F  #       LATIN SMALL LETTER I WITH OGONEK
+0xE8    0x010D  #       LATIN SMALL LETTER C WITH CARON
+0xE9    0x00E9  #       LATIN SMALL LETTER E WITH ACUTE
+0xEA    0x0119  #       LATIN SMALL LETTER E WITH OGONEK
+0xEB    0x00EB  #       LATIN SMALL LETTER E WITH DIAERESIS
+0xEC    0x0117  #       LATIN SMALL LETTER E WITH DOT ABOVE
+0xED    0x00ED  #       LATIN SMALL LETTER I WITH ACUTE
+0xEE    0x00EE  #       LATIN SMALL LETTER I WITH CIRCUMFLEX
+0xEF    0x012B  #       LATIN SMALL LETTER I WITH MACRON
+0xF0    0x0111  #       LATIN SMALL LETTER D WITH STROKE
+0xF1    0x0146  #       LATIN SMALL LETTER N WITH CEDILLA
+0xF2    0x014D  #       LATIN SMALL LETTER O WITH MACRON
+0xF3    0x0137  #       LATIN SMALL LETTER K WITH CEDILLA
+0xF4    0x00F4  #       LATIN SMALL LETTER O WITH CIRCUMFLEX
+0xF5    0x00F5  #       LATIN SMALL LETTER O WITH TILDE
+0xF6    0x00F6  #       LATIN SMALL LETTER O WITH DIAERESIS
+0xF7    0x00F7  #       DIVISION SIGN
+0xF8    0x00F8  #       LATIN SMALL LETTER O WITH STROKE
+0xF9    0x0173  #       LATIN SMALL LETTER U WITH OGONEK
+0xFA    0x00FA  #       LATIN SMALL LETTER U WITH ACUTE
+0xFB    0x00FB  #       LATIN SMALL LETTER U WITH CIRCUMFLEX
+0xFC    0x00FC  #       LATIN SMALL LETTER U WITH DIAERESIS
+0xFD    0x0169  #       LATIN SMALL LETTER U WITH TILDE
+0xFE    0x016B  #       LATIN SMALL LETTER U WITH MACRON
+0xFF    0x02D9  #       DOT ABOVE
+
+"
+! !
+
+!ISO8859_4 class methodsFor:'queries'!
+
+namesOfEncoding
+    ^ #( 'iso8859-4' 'iso-8859-4' 'latin4' 'latin-4' 'iso-ir-110')
+! !
+
+!ISO8859_4 methodsFor:'encoding & decoding'!
+
+decode:codeArg
+    "Automagically generated by generateCode - do not modify.
+     Decode from my encoding into unicode."
+
+    |code "{ Class: SmallInteger }"|
+
+    code := codeArg.
+    code <= 16rA0 ifTrue:[ ^ code ].
+    code > 16rFF ifTrue:[
+	^ self decodingError.
+    ].
+    ^ #(
+       "16r00A1"    16r0104 " LATIN CAPITAL LETTER A WITH OGONEK " 
+       "16r00A2"    16r0138 " LATIN SMALL LETTER KRA " 
+       "16r00A3"    16r0156 " LATIN CAPITAL LETTER R WITH CEDILLA " 
+       "16r00A4"    16r00A4 " CURRENCY SIGN " 
+       "16r00A5"    16r0128 " LATIN CAPITAL LETTER I WITH TILDE " 
+       "16r00A6"    16r013B " LATIN CAPITAL LETTER L WITH CEDILLA " 
+       "16r00A7"    16r00A7 " SECTION SIGN " 
+       "16r00A8"    16r00A8 " DIAERESIS " 
+       "16r00A9"    16r0160 " LATIN CAPITAL LETTER S WITH CARON " 
+       "16r00AA"    16r0112 " LATIN CAPITAL LETTER E WITH MACRON " 
+       "16r00AB"    16r0122 " LATIN CAPITAL LETTER G WITH CEDILLA " 
+       "16r00AC"    16r0166 " LATIN CAPITAL LETTER T WITH STROKE " 
+       "16r00AD"    16r00AD " SOFT HYPHEN " 
+       "16r00AE"    16r017D " LATIN CAPITAL LETTER Z WITH CARON " 
+       "16r00AF"    16r00AF " MACRON " 
+       "16r00B0"    16r00B0 " DEGREE SIGN " 
+       "16r00B1"    16r0105 " LATIN SMALL LETTER A WITH OGONEK " 
+       "16r00B2"    16r02DB " OGONEK " 
+       "16r00B3"    16r0157 " LATIN SMALL LETTER R WITH CEDILLA " 
+       "16r00B4"    16r00B4 " ACUTE ACCENT " 
+       "16r00B5"    16r0129 " LATIN SMALL LETTER I WITH TILDE " 
+       "16r00B6"    16r013C " LATIN SMALL LETTER L WITH CEDILLA " 
+       "16r00B7"    16r02C7 " CARON " 
+       "16r00B8"    16r00B8 " CEDILLA " 
+       "16r00B9"    16r0161 " LATIN SMALL LETTER S WITH CARON " 
+       "16r00BA"    16r0113 " LATIN SMALL LETTER E WITH MACRON " 
+       "16r00BB"    16r0123 " LATIN SMALL LETTER G WITH CEDILLA " 
+       "16r00BC"    16r0167 " LATIN SMALL LETTER T WITH STROKE " 
+       "16r00BD"    16r014A " LATIN CAPITAL LETTER ENG " 
+       "16r00BE"    16r017E " LATIN SMALL LETTER Z WITH CARON " 
+       "16r00BF"    16r014B " LATIN SMALL LETTER ENG " 
+       "16r00C0"    16r0100 " LATIN CAPITAL LETTER A WITH MACRON " 
+       "16r00C1"    16r00C1 " LATIN CAPITAL LETTER A WITH ACUTE " 
+       "16r00C2"    16r00C2 " LATIN CAPITAL LETTER A WITH CIRCUMFLEX " 
+       "16r00C3"    16r00C3 " LATIN CAPITAL LETTER A WITH TILDE " 
+       "16r00C4"    16r00C4 " LATIN CAPITAL LETTER A WITH DIAERESIS " 
+       "16r00C5"    16r00C5 " LATIN CAPITAL LETTER A WITH RING ABOVE " 
+       "16r00C6"    16r00C6 " LATIN CAPITAL LETTER AE " 
+       "16r00C7"    16r012E " LATIN CAPITAL LETTER I WITH OGONEK " 
+       "16r00C8"    16r010C " LATIN CAPITAL LETTER C WITH CARON " 
+       "16r00C9"    16r00C9 " LATIN CAPITAL LETTER E WITH ACUTE " 
+       "16r00CA"    16r0118 " LATIN CAPITAL LETTER E WITH OGONEK " 
+       "16r00CB"    16r00CB " LATIN CAPITAL LETTER E WITH DIAERESIS " 
+       "16r00CC"    16r0116 " LATIN CAPITAL LETTER E WITH DOT ABOVE " 
+       "16r00CD"    16r00CD " LATIN CAPITAL LETTER I WITH ACUTE " 
+       "16r00CE"    16r00CE " LATIN CAPITAL LETTER I WITH CIRCUMFLEX " 
+       "16r00CF"    16r012A " LATIN CAPITAL LETTER I WITH MACRON " 
+       "16r00D0"    16r0110 " LATIN CAPITAL LETTER D WITH STROKE " 
+       "16r00D1"    16r0145 " LATIN CAPITAL LETTER N WITH CEDILLA " 
+       "16r00D2"    16r014C " LATIN CAPITAL LETTER O WITH MACRON " 
+       "16r00D3"    16r0136 " LATIN CAPITAL LETTER K WITH CEDILLA " 
+       "16r00D4"    16r00D4 " LATIN CAPITAL LETTER O WITH CIRCUMFLEX " 
+       "16r00D5"    16r00D5 " LATIN CAPITAL LETTER O WITH TILDE " 
+       "16r00D6"    16r00D6 " LATIN CAPITAL LETTER O WITH DIAERESIS " 
+       "16r00D7"    16r00D7 " MULTIPLICATION SIGN " 
+       "16r00D8"    16r00D8 " LATIN CAPITAL LETTER O WITH STROKE " 
+       "16r00D9"    16r0172 " LATIN CAPITAL LETTER U WITH OGONEK " 
+       "16r00DA"    16r00DA " LATIN CAPITAL LETTER U WITH ACUTE " 
+       "16r00DB"    16r00DB " LATIN CAPITAL LETTER U WITH CIRCUMFLEX " 
+       "16r00DC"    16r00DC " LATIN CAPITAL LETTER U WITH DIAERESIS " 
+       "16r00DD"    16r0168 " LATIN CAPITAL LETTER U WITH TILDE " 
+       "16r00DE"    16r016A " LATIN CAPITAL LETTER U WITH MACRON " 
+       "16r00DF"    16r00DF " LATIN SMALL LETTER SHARP S " 
+       "16r00E0"    16r0101 " LATIN SMALL LETTER A WITH MACRON " 
+       "16r00E1"    16r00E1 " LATIN SMALL LETTER A WITH ACUTE " 
+       "16r00E2"    16r00E2 " LATIN SMALL LETTER A WITH CIRCUMFLEX " 
+       "16r00E3"    16r00E3 " LATIN SMALL LETTER A WITH TILDE " 
+       "16r00E4"    16r00E4 " LATIN SMALL LETTER A WITH DIAERESIS " 
+       "16r00E5"    16r00E5 " LATIN SMALL LETTER A WITH RING ABOVE " 
+       "16r00E6"    16r00E6 " LATIN SMALL LETTER AE " 
+       "16r00E7"    16r012F " LATIN SMALL LETTER I WITH OGONEK " 
+       "16r00E8"    16r010D " LATIN SMALL LETTER C WITH CARON " 
+       "16r00E9"    16r00E9 " LATIN SMALL LETTER E WITH ACUTE " 
+       "16r00EA"    16r0119 " LATIN SMALL LETTER E WITH OGONEK " 
+       "16r00EB"    16r00EB " LATIN SMALL LETTER E WITH DIAERESIS " 
+       "16r00EC"    16r0117 " LATIN SMALL LETTER E WITH DOT ABOVE " 
+       "16r00ED"    16r00ED " LATIN SMALL LETTER I WITH ACUTE " 
+       "16r00EE"    16r00EE " LATIN SMALL LETTER I WITH CIRCUMFLEX " 
+       "16r00EF"    16r012B " LATIN SMALL LETTER I WITH MACRON " 
+       "16r00F0"    16r0111 " LATIN SMALL LETTER D WITH STROKE " 
+       "16r00F1"    16r0146 " LATIN SMALL LETTER N WITH CEDILLA " 
+       "16r00F2"    16r014D " LATIN SMALL LETTER O WITH MACRON " 
+       "16r00F3"    16r0137 " LATIN SMALL LETTER K WITH CEDILLA " 
+       "16r00F4"    16r00F4 " LATIN SMALL LETTER O WITH CIRCUMFLEX " 
+       "16r00F5"    16r00F5 " LATIN SMALL LETTER O WITH TILDE " 
+       "16r00F6"    16r00F6 " LATIN SMALL LETTER O WITH DIAERESIS " 
+       "16r00F7"    16r00F7 " DIVISION SIGN " 
+       "16r00F8"    16r00F8 " LATIN SMALL LETTER O WITH STROKE " 
+       "16r00F9"    16r0173 " LATIN SMALL LETTER U WITH OGONEK " 
+       "16r00FA"    16r00FA " LATIN SMALL LETTER U WITH ACUTE " 
+       "16r00FB"    16r00FB " LATIN SMALL LETTER U WITH CIRCUMFLEX " 
+       "16r00FC"    16r00FC " LATIN SMALL LETTER U WITH DIAERESIS " 
+       "16r00FD"    16r0169 " LATIN SMALL LETTER U WITH TILDE " 
+       "16r00FE"    16r016B " LATIN SMALL LETTER U WITH MACRON " 
+       "16r00FF"    16r02D9 " DOT ABOVE " 
+       ) at:(code - 16rA0).
+!
+
+encode:unicodeArg
+    "Automagically generated by generateCode - do not modify.
+     Encode from unicode into my encoding."
+
+    |unicode "{ Class: SmallInteger }"|
+
+    unicode := unicodeArg.
+    unicode <= 16rA0 ifTrue:[ ^ unicode ].
+    unicode > 16r2DB ifTrue:[
+	^ self encodingError.
+    ].
+    unicode <= 16r17E ifTrue:[
+	unicode <= 16rFF ifTrue:[
+	    (#[
+	       "16r00A1"    0 " invalid " 
+	       "16r00A2"    0 " invalid " 
+	       "16r00A3"    0 " invalid " 
+	       "16r00A4"    1 " CURRENCY SIGN " 
+	       "16r00A5"    0 " invalid " 
+	       "16r00A6"    0 " invalid " 
+	       "16r00A7"    1 " SECTION SIGN " 
+	       "16r00A8"    1 " DIAERESIS " 
+	       "16r00A9"    0 " invalid " 
+	       "16r00AA"    0 " invalid " 
+	       "16r00AB"    0 " invalid " 
+	       "16r00AC"    0 " invalid " 
+	       "16r00AD"    1 " SOFT HYPHEN " 
+	       "16r00AE"    0 " invalid " 
+	       "16r00AF"    1 " MACRON " 
+	       "16r00B0"    1 " DEGREE SIGN " 
+	       "16r00B1"    0 " invalid " 
+	       "16r00B2"    0 " invalid " 
+	       "16r00B3"    0 " invalid " 
+	       "16r00B4"    1 " ACUTE ACCENT " 
+	       "16r00B5"    0 " invalid " 
+	       "16r00B6"    0 " invalid " 
+	       "16r00B7"    0 " invalid " 
+	       "16r00B8"    1 " CEDILLA " 
+	       "16r00B9"    0 " invalid " 
+	       "16r00BA"    0 " invalid " 
+	       "16r00BB"    0 " invalid " 
+	       "16r00BC"    0 " invalid " 
+	       "16r00BD"    0 " invalid " 
+	       "16r00BE"    0 " invalid " 
+	       "16r00BF"    0 " invalid " 
+	       "16r00C0"    0 " invalid " 
+	       "16r00C1"    1 " LATIN CAPITAL LETTER A WITH ACUTE " 
+	       "16r00C2"    1 " LATIN CAPITAL LETTER A WITH CIRCUMFLEX " 
+	       "16r00C3"    1 " LATIN CAPITAL LETTER A WITH TILDE " 
+	       "16r00C4"    1 " LATIN CAPITAL LETTER A WITH DIAERESIS " 
+	       "16r00C5"    1 " LATIN CAPITAL LETTER A WITH RING ABOVE " 
+	       "16r00C6"    1 " LATIN CAPITAL LETTER AE " 
+	       "16r00C7"    0 " invalid " 
+	       "16r00C8"    0 " invalid " 
+	       "16r00C9"    1 " LATIN CAPITAL LETTER E WITH ACUTE " 
+	       "16r00CA"    0 " invalid " 
+	       "16r00CB"    1 " LATIN CAPITAL LETTER E WITH DIAERESIS " 
+	       "16r00CC"    0 " invalid " 
+	       "16r00CD"    1 " LATIN CAPITAL LETTER I WITH ACUTE " 
+	       "16r00CE"    1 " LATIN CAPITAL LETTER I WITH CIRCUMFLEX " 
+	       "16r00CF"    0 " invalid " 
+	       "16r00D0"    0 " invalid " 
+	       "16r00D1"    0 " invalid " 
+	       "16r00D2"    0 " invalid " 
+	       "16r00D3"    0 " invalid " 
+	       "16r00D4"    1 " LATIN CAPITAL LETTER O WITH CIRCUMFLEX " 
+	       "16r00D5"    1 " LATIN CAPITAL LETTER O WITH TILDE " 
+	       "16r00D6"    1 " LATIN CAPITAL LETTER O WITH DIAERESIS " 
+	       "16r00D7"    1 " MULTIPLICATION SIGN " 
+	       "16r00D8"    1 " LATIN CAPITAL LETTER O WITH STROKE " 
+	       "16r00D9"    0 " invalid " 
+	       "16r00DA"    1 " LATIN CAPITAL LETTER U WITH ACUTE " 
+	       "16r00DB"    1 " LATIN CAPITAL LETTER U WITH CIRCUMFLEX " 
+	       "16r00DC"    1 " LATIN CAPITAL LETTER U WITH DIAERESIS " 
+	       "16r00DD"    0 " invalid " 
+	       "16r00DE"    0 " invalid " 
+	       "16r00DF"    1 " LATIN SMALL LETTER SHARP S " 
+	       "16r00E0"    0 " invalid " 
+	       "16r00E1"    1 " LATIN SMALL LETTER A WITH ACUTE " 
+	       "16r00E2"    1 " LATIN SMALL LETTER A WITH CIRCUMFLEX " 
+	       "16r00E3"    1 " LATIN SMALL LETTER A WITH TILDE " 
+	       "16r00E4"    1 " LATIN SMALL LETTER A WITH DIAERESIS " 
+	       "16r00E5"    1 " LATIN SMALL LETTER A WITH RING ABOVE " 
+	       "16r00E6"    1 " LATIN SMALL LETTER AE " 
+	       "16r00E7"    0 " invalid " 
+	       "16r00E8"    0 " invalid " 
+	       "16r00E9"    1 " LATIN SMALL LETTER E WITH ACUTE " 
+	       "16r00EA"    0 " invalid " 
+	       "16r00EB"    1 " LATIN SMALL LETTER E WITH DIAERESIS " 
+	       "16r00EC"    0 " invalid " 
+	       "16r00ED"    1 " LATIN SMALL LETTER I WITH ACUTE " 
+	       "16r00EE"    1 " LATIN SMALL LETTER I WITH CIRCUMFLEX " 
+	       "16r00EF"    0 " invalid " 
+	       "16r00F0"    0 " invalid " 
+	       "16r00F1"    0 " invalid " 
+	       "16r00F2"    0 " invalid " 
+	       "16r00F3"    0 " invalid " 
+	       "16r00F4"    1 " LATIN SMALL LETTER O WITH CIRCUMFLEX " 
+	       "16r00F5"    1 " LATIN SMALL LETTER O WITH TILDE " 
+	       "16r00F6"    1 " LATIN SMALL LETTER O WITH DIAERESIS " 
+	       "16r00F7"    1 " DIVISION SIGN " 
+	       "16r00F8"    1 " LATIN SMALL LETTER O WITH STROKE " 
+	       "16r00F9"    0 " invalid " 
+	       "16r00FA"    1 " LATIN SMALL LETTER U WITH ACUTE " 
+	       "16r00FB"    1 " LATIN SMALL LETTER U WITH CIRCUMFLEX " 
+	       "16r00FC"    1 " LATIN SMALL LETTER U WITH DIAERESIS " 
+	       "16r00FD"    0 " invalid " 
+	       "16r00FE"    0 " invalid " 
+	       "16r00FF"    0 " invalid " 
+	    ] at:(unicode - 160)) ~~ 0 ifTrue:[^ unicode].
+	    ^ self encodingError.
+	].
+	[
+	    |t|
+	    t := #[
+	       "16r0100"    16rC0 " LATIN CAPITAL LETTER A WITH MACRON " 
+	       "16r0101"    16rE0 " LATIN SMALL LETTER A WITH MACRON " 
+	       "16r0102"    16r00 " invalid " 
+	       "16r0103"    16r00 " invalid " 
+	       "16r0104"    16rA1 " LATIN CAPITAL LETTER A WITH OGONEK " 
+	       "16r0105"    16rB1 " LATIN SMALL LETTER A WITH OGONEK " 
+	       "16r0106"    16r00 " invalid " 
+	       "16r0107"    16r00 " invalid " 
+	       "16r0108"    16r00 " invalid " 
+	       "16r0109"    16r00 " invalid " 
+	       "16r010A"    16r00 " invalid " 
+	       "16r010B"    16r00 " invalid " 
+	       "16r010C"    16rC8 " LATIN CAPITAL LETTER C WITH CARON " 
+	       "16r010D"    16rE8 " LATIN SMALL LETTER C WITH CARON " 
+	       "16r010E"    16r00 " invalid " 
+	       "16r010F"    16r00 " invalid " 
+	       "16r0110"    16rD0 " LATIN CAPITAL LETTER D WITH STROKE " 
+	       "16r0111"    16rF0 " LATIN SMALL LETTER D WITH STROKE " 
+	       "16r0112"    16rAA " LATIN CAPITAL LETTER E WITH MACRON " 
+	       "16r0113"    16rBA " LATIN SMALL LETTER E WITH MACRON " 
+	       "16r0114"    16r00 " invalid " 
+	       "16r0115"    16r00 " invalid " 
+	       "16r0116"    16rCC " LATIN CAPITAL LETTER E WITH DOT ABOVE " 
+	       "16r0117"    16rEC " LATIN SMALL LETTER E WITH DOT ABOVE " 
+	       "16r0118"    16rCA " LATIN CAPITAL LETTER E WITH OGONEK " 
+	       "16r0119"    16rEA " LATIN SMALL LETTER E WITH OGONEK " 
+	       "16r011A"    16r00 " invalid " 
+	       "16r011B"    16r00 " invalid " 
+	       "16r011C"    16r00 " invalid " 
+	       "16r011D"    16r00 " invalid " 
+	       "16r011E"    16r00 " invalid " 
+	       "16r011F"    16r00 " invalid " 
+	       "16r0120"    16r00 " invalid " 
+	       "16r0121"    16r00 " invalid " 
+	       "16r0122"    16rAB " LATIN CAPITAL LETTER G WITH CEDILLA " 
+	       "16r0123"    16rBB " LATIN SMALL LETTER G WITH CEDILLA " 
+	       "16r0124"    16r00 " invalid " 
+	       "16r0125"    16r00 " invalid " 
+	       "16r0126"    16r00 " invalid " 
+	       "16r0127"    16r00 " invalid " 
+	       "16r0128"    16rA5 " LATIN CAPITAL LETTER I WITH TILDE " 
+	       "16r0129"    16rB5 " LATIN SMALL LETTER I WITH TILDE " 
+	       "16r012A"    16rCF " LATIN CAPITAL LETTER I WITH MACRON " 
+	       "16r012B"    16rEF " LATIN SMALL LETTER I WITH MACRON " 
+	       "16r012C"    16r00 " invalid " 
+	       "16r012D"    16r00 " invalid " 
+	       "16r012E"    16rC7 " LATIN CAPITAL LETTER I WITH OGONEK " 
+	       "16r012F"    16rE7 " LATIN SMALL LETTER I WITH OGONEK " 
+	       "16r0130"    16r00 " invalid " 
+	       "16r0131"    16r00 " invalid " 
+	       "16r0132"    16r00 " invalid " 
+	       "16r0133"    16r00 " invalid " 
+	       "16r0134"    16r00 " invalid " 
+	       "16r0135"    16r00 " invalid " 
+	       "16r0136"    16rD3 " LATIN CAPITAL LETTER K WITH CEDILLA " 
+	       "16r0137"    16rF3 " LATIN SMALL LETTER K WITH CEDILLA " 
+	       "16r0138"    16rA2 " LATIN SMALL LETTER KRA " 
+	       "16r0139"    16r00 " invalid " 
+	       "16r013A"    16r00 " invalid " 
+	       "16r013B"    16rA6 " LATIN CAPITAL LETTER L WITH CEDILLA " 
+	       "16r013C"    16rB6 " LATIN SMALL LETTER L WITH CEDILLA " 
+	       "16r013D"    16r00 " invalid " 
+	       "16r013E"    16r00 " invalid " 
+	       "16r013F"    16r00 " invalid " 
+	       "16r0140"    16r00 " invalid " 
+	       "16r0141"    16r00 " invalid " 
+	       "16r0142"    16r00 " invalid " 
+	       "16r0143"    16r00 " invalid " 
+	       "16r0144"    16r00 " invalid " 
+	       "16r0145"    16rD1 " LATIN CAPITAL LETTER N WITH CEDILLA " 
+	       "16r0146"    16rF1 " LATIN SMALL LETTER N WITH CEDILLA " 
+	       "16r0147"    16r00 " invalid " 
+	       "16r0148"    16r00 " invalid " 
+	       "16r0149"    16r00 " invalid " 
+	       "16r014A"    16rBD " LATIN CAPITAL LETTER ENG " 
+	       "16r014B"    16rBF " LATIN SMALL LETTER ENG " 
+	       "16r014C"    16rD2 " LATIN CAPITAL LETTER O WITH MACRON " 
+	       "16r014D"    16rF2 " LATIN SMALL LETTER O WITH MACRON " 
+	       "16r014E"    16r00 " invalid " 
+	       "16r014F"    16r00 " invalid " 
+	       "16r0150"    16r00 " invalid " 
+	       "16r0151"    16r00 " invalid " 
+	       "16r0152"    16r00 " invalid " 
+	       "16r0153"    16r00 " invalid " 
+	       "16r0154"    16r00 " invalid " 
+	       "16r0155"    16r00 " invalid " 
+	       "16r0156"    16rA3 " LATIN CAPITAL LETTER R WITH CEDILLA " 
+	       "16r0157"    16rB3 " LATIN SMALL LETTER R WITH CEDILLA " 
+	       "16r0158"    16r00 " invalid " 
+	       "16r0159"    16r00 " invalid " 
+	       "16r015A"    16r00 " invalid " 
+	       "16r015B"    16r00 " invalid " 
+	       "16r015C"    16r00 " invalid " 
+	       "16r015D"    16r00 " invalid " 
+	       "16r015E"    16r00 " invalid " 
+	       "16r015F"    16r00 " invalid " 
+	       "16r0160"    16rA9 " LATIN CAPITAL LETTER S WITH CARON " 
+	       "16r0161"    16rB9 " LATIN SMALL LETTER S WITH CARON " 
+	       "16r0162"    16r00 " invalid " 
+	       "16r0163"    16r00 " invalid " 
+	       "16r0164"    16r00 " invalid " 
+	       "16r0165"    16r00 " invalid " 
+	       "16r0166"    16rAC " LATIN CAPITAL LETTER T WITH STROKE " 
+	       "16r0167"    16rBC " LATIN SMALL LETTER T WITH STROKE " 
+	       "16r0168"    16rDD " LATIN CAPITAL LETTER U WITH TILDE " 
+	       "16r0169"    16rFD " LATIN SMALL LETTER U WITH TILDE " 
+	       "16r016A"    16rDE " LATIN CAPITAL LETTER U WITH MACRON " 
+	       "16r016B"    16rFE " LATIN SMALL LETTER U WITH MACRON " 
+	       "16r016C"    16r00 " invalid " 
+	       "16r016D"    16r00 " invalid " 
+	       "16r016E"    16r00 " invalid " 
+	       "16r016F"    16r00 " invalid " 
+	       "16r0170"    16r00 " invalid " 
+	       "16r0171"    16r00 " invalid " 
+	       "16r0172"    16rD9 " LATIN CAPITAL LETTER U WITH OGONEK " 
+	       "16r0173"    16rF9 " LATIN SMALL LETTER U WITH OGONEK " 
+	       "16r0174"    16r00 " invalid " 
+	       "16r0175"    16r00 " invalid " 
+	       "16r0176"    16r00 " invalid " 
+	       "16r0177"    16r00 " invalid " 
+	       "16r0178"    16r00 " invalid " 
+	       "16r0179"    16r00 " invalid " 
+	       "16r017A"    16r00 " invalid " 
+	       "16r017B"    16r00 " invalid " 
+	       "16r017C"    16r00 " invalid " 
+	       "16r017D"    16rAE " LATIN CAPITAL LETTER Z WITH CARON " 
+	       "16r017E"    16rBE " LATIN SMALL LETTER Z WITH CARON " 
+	       ] at:(unicode - 16rFF).
+	    t == 0 ifFalse:[^ t].
+	    ^ self encodingError
+	] value.
+    ].
+    unicode <= 16r2C6 ifTrue:[
+	^ self encodingError.
+    ].
+    unicode == 16r2C7 ifTrue:[
+	^  "16r02C7" 16r00B7 " CARON " 
+    ].
+    unicode <= 16r2D8 ifTrue:[
+	^ self encodingError.
+    ].
+    [
+	|t|
+	t := #[
+	   "16r02D9"    16rFF " DOT ABOVE " 
+	   "16r02DA"    16r00 " invalid " 
+	   "16r02DB"    16rB2 " OGONEK " 
+	   ] at:(unicode - 16r2D8).
+	t == 0 ifFalse:[^ t].
+	^ self encodingError
+    ] value.
+! !
+
+!ISO8859_4 class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO8859_4.st,v 1.1 2004-03-05 17:21:29 cg Exp $'
+! !