CharacterEncoderImplementations__MAC_Roman.st
author Claus Gittinger <cg@exept.de>
Tue, 09 Jul 2019 20:55:17 +0200
changeset 24417 03b083548da2
parent 21303 4317984fa5df
child 21387 e3865533e6a6
permissions -rw-r--r--
#REFACTORING by exept class: Smalltalk class changed: #recursiveInstallAutoloadedClassesFrom:rememberIn:maxLevels:noAutoload:packageTop:showSplashInLevels: Transcript showCR:(... bindWith:...) -> Transcript showCR:... with:...
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     1
"
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     2
 COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     3
              All Rights Reserved
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     4
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     5
 This software is furnished under a license and may be used
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     6
 only in accordance with the terms of that license and with the
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     8
 be provided or otherwise made available to, or used by, any
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     9
 other person.  No title to or ownership of the software is
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    10
 hereby transferred.
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    11
"
8082
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libbasic' }"
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: CharacterEncoderImplementations }"
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
SingleByteEncoder subclass:#MAC_Roman
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:''
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Collections-Text-Encodings'
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    23
!MAC_Roman class methodsFor:'documentation'!
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    24
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    25
copyright
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    26
"
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    27
 COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    28
              All Rights Reserved
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    29
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    30
 This software is furnished under a license and may be used
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    31
 only in accordance with the terms of that license and with the
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    33
 be provided or otherwise made available to, or used by, any
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    34
 other person.  No title to or ownership of the software is
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    35
 hereby transferred.
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    36
"
21303
4317984fa5df #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 13255
diff changeset
    37
!
4317984fa5df #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 13255
diff changeset
    38
4317984fa5df #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 13255
diff changeset
    39
documentation
4317984fa5df #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 13255
diff changeset
    40
"
4317984fa5df #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 13255
diff changeset
    41
    I encode/decode MAC roman encoded documents
4317984fa5df #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 13255
diff changeset
    42
"
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    43
! !
8082
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
!MAC_Roman class methodsFor:'mapping'!
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
mapFileURL1_relativePathName
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
    ^ 'VENDORS/APPLE/ROMAN.TXT'
13255
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    49
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    50
    "
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    51
     self generateCode
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    52
    "
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    53
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    54
    "Modified: / 29-01-2011 / 21:32:53 / cg"
8082
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
!
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
mapping
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
"
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
# From: http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/ROMAN.TXT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
#=======================================================================
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
#   File name:  ROMAN.TXT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
#   Contents:   Map (external version) from Mac OS Roman
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
#               character set to Unicode 2.1 through Unicode 3.2
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
#   Copyright:  (c) 1994-2002 by Apple Computer, Inc., all rights
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
#               reserved.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
#   Contact:    charsets@apple.com
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
#   Changes:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
#      b4,c1 2002-Dec-19    Update URLs, notes. Matches internal
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
#                           utom<b5>.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
#       b03  1999-Sep-22    Update contact e-mail address. Matches
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
#                           internal utom<b4>, ufrm<b3>, and Text
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
#                           Encoding Converter version 1.5.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
#       b02  1998-Aug-18    Encoding changed for Mac OS 8.5; change
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
#                           mapping of 0xDB from CURRENCY SIGN to
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
#                           EURO SIGN. Matches internal utom<b3>,
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
#                           ufrm<b3>.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
#       n08  1998-Feb-05    Minor update to header comments
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
#       n06  1997-Dec-14    Add warning about future changes to 0xDB
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
#                           from CURRENCY SIGN to EURO SIGN. Clarify
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
#                           some header information
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
#       n04  1997-Dec-01    Update to match internal utom<n3>, ufrm<n22>:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
#                           Change standard mapping for 0xBD from U+2126
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
#                           to its canonical decomposition, U+03A9.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
#       n03  1995-Apr-15    First version (after fixing some typos).
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
#                           Matches internal ufrm<n9>.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
# Standard header:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
# ----------------
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
#   Apple, the Apple logo, and Macintosh are trademarks of Apple
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
#   Computer, Inc., registered in the United States and other countries.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
#   Unicode is a trademark of Unicode Inc. For the sake of brevity,
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
#   throughout this document, 'Macintosh' can be used to refer to
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
#   Macintosh computers and 'Unicode' can be used to refer to the
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
#   Unicode standard.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
#   Apple makes no warranty or representation, either express or
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
#   implied, with respect to these tables, their quality, accuracy, or
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
#   fitness for a particular purpose. In no event will Apple be liable
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
#   for direct, indirect, special, incidental, or consequential damages 
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
#   resulting from any defect or inaccuracy in this document or the
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
#   accompanying tables.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
#   These mapping tables and character lists are subject to change.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
#   The latest tables should be available from the following:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
#   <http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/>
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
#   For general information about Mac OS encodings and these mapping
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
#   tables, see the file 'README.TXT'.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
# Format:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
# -------
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
#   Three tab-separated columns;
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
#   '#' begins a comment which continues to the end of the line.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
#     Column #1 is the Mac OS Roman code (in hex as 0xNN)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
#     Column #2 is the corresponding Unicode (in hex as 0xNNNN)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
#     Column #3 is a comment containing the Unicode name
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
#   The entries are in Mac OS Roman code order.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
#   One of these mappings requires the use of a corporate character.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
#   See the file 'CORPCHAR.TXT' and notes below.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
#   Control character mappings are not shown in this table, following
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
#   the conventions of the standard UTC mapping tables. However, the
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
#   Mac OS Roman character set uses the standard control characters at
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
#   0x00-0x1F and 0x7F.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
# Notes on Mac OS Roman:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
# ----------------------
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
#   This character set is used for at least the following Mac OS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
#   localizations: U.S., British, Canadian French, French, Swiss
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
#   French, German, Swiss German, Italian, Swiss Italian, Dutch,
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
#   Swedish, Norwegian, Danish, Finnish, Spanish, Catalan,
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
#   Portuguese, Brazilian, and the default International system.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
#   Variants of Mac OS Roman are used for Croatian, Icelandic,
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
#   Turkish, Romanian, and other encodings. Separate mapping tables
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
#   are available for these encodings.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
#   Before Mac OS 8.5, code point 0xDB was CURRENCY SIGN, and was
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
#   mapped to U+00A4. In Mac OS 8.5 and later versions, code point
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
#   0xDB is changed to EURO SIGN and maps to U+20AC; the standard
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
#   Apple fonts are updated for Mac OS 8.5 to reflect this. There is
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
#   a 'currency sign' variant of the Mac OS Roman encoding that still
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
#   maps 0xDB to U+00A4; this can be used for older fonts.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
#   Before Mac OS 8.5, the ROM bitmap versions of the fonts Chicago,
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
#   New York, Geneva, and Monaco did not implement the full Mac OS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
#   Roman character set; they only supported character codes up to
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
#   0xD8. The TrueType versions of these fonts have always implemented
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
#   the full character set, as with the bitmap and TrueType versions
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
#   of the other standard Roman fonts.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
#   In all Mac OS encodings, fonts such as Chicago which are used
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
#   as 'system' fonts (for menus, dialogs, etc.) have four glyphs
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
#   at code points 0x11-0x14 for transient use by the Menu Manager.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
#   These glyphs are not intended as characters for use in normal
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
#   text, and the associated code points are not generally
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
#   interpreted as associated with these glyphs; they are usually
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
#   interpreted (if at all) as the control codes DC1-DC4.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
# Unicode mapping issues and notes:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
# ---------------------------------
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
#   The following corporate zone Unicode character is used in this
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
#   mapping:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
#     0xF8FF  Apple logo
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
#   NOTE: The graphic image associated with the Apple logo character
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
#   is not authorized for use without permission of Apple, and
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
#   unauthorized use might constitute trademark infringement.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
# Details of mapping changes in each version:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
# -------------------------------------------
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
#   Changes from version n08 to version b02:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
#   - Encoding changed for Mac OS 8.5; change mapping of 0xDB from
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
#   CURRENCY SIGN (U+00A4) to EURO SIGN (U+20AC).
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
#   Changes from version n03 to version n04:
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
#   - Change mapping of 0xBD from U+2126 to its canonical
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
#     decomposition, U+03A9.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
##################
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
0x20    0x0020  # SPACE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
0x21    0x0021  # EXCLAMATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
0x22    0x0022  # QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
0x23    0x0023  # NUMBER SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
0x24    0x0024  # DOLLAR SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
0x25    0x0025  # PERCENT SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
0x26    0x0026  # AMPERSAND
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
0x27    0x0027  # APOSTROPHE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
0x28    0x0028  # LEFT PARENTHESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
0x29    0x0029  # RIGHT PARENTHESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
0x2A    0x002A  # ASTERISK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
0x2B    0x002B  # PLUS SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
0x2C    0x002C  # COMMA
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
0x2D    0x002D  # HYPHEN-MINUS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
0x2E    0x002E  # FULL STOP
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
0x2F    0x002F  # SOLIDUS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
0x30    0x0030  # DIGIT ZERO
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
0x31    0x0031  # DIGIT ONE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
0x32    0x0032  # DIGIT TWO
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
0x33    0x0033  # DIGIT THREE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
0x34    0x0034  # DIGIT FOUR
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
0x35    0x0035  # DIGIT FIVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
0x36    0x0036  # DIGIT SIX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
0x37    0x0037  # DIGIT SEVEN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
0x38    0x0038  # DIGIT EIGHT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
0x39    0x0039  # DIGIT NINE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
0x3A    0x003A  # COLON
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
0x3B    0x003B  # SEMICOLON
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
0x3C    0x003C  # LESS-THAN SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
0x3D    0x003D  # EQUALS SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
0x3E    0x003E  # GREATER-THAN SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
0x3F    0x003F  # QUESTION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
0x40    0x0040  # COMMERCIAL AT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
0x41    0x0041  # LATIN CAPITAL LETTER A
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
0x42    0x0042  # LATIN CAPITAL LETTER B
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
0x43    0x0043  # LATIN CAPITAL LETTER C
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
0x44    0x0044  # LATIN CAPITAL LETTER D
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
0x45    0x0045  # LATIN CAPITAL LETTER E
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
0x46    0x0046  # LATIN CAPITAL LETTER F
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
0x47    0x0047  # LATIN CAPITAL LETTER G
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
0x48    0x0048  # LATIN CAPITAL LETTER H
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
0x49    0x0049  # LATIN CAPITAL LETTER I
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
0x4A    0x004A  # LATIN CAPITAL LETTER J
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
0x4B    0x004B  # LATIN CAPITAL LETTER K
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
0x4C    0x004C  # LATIN CAPITAL LETTER L
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
0x4D    0x004D  # LATIN CAPITAL LETTER M
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
0x4E    0x004E  # LATIN CAPITAL LETTER N
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
0x4F    0x004F  # LATIN CAPITAL LETTER O
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
0x50    0x0050  # LATIN CAPITAL LETTER P
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
0x51    0x0051  # LATIN CAPITAL LETTER Q
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
0x52    0x0052  # LATIN CAPITAL LETTER R
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
0x53    0x0053  # LATIN CAPITAL LETTER S
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
0x54    0x0054  # LATIN CAPITAL LETTER T
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
0x55    0x0055  # LATIN CAPITAL LETTER U
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
0x56    0x0056  # LATIN CAPITAL LETTER V
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
0x57    0x0057  # LATIN CAPITAL LETTER W
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
0x58    0x0058  # LATIN CAPITAL LETTER X
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
0x59    0x0059  # LATIN CAPITAL LETTER Y
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
0x5A    0x005A  # LATIN CAPITAL LETTER Z
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
0x5B    0x005B  # LEFT SQUARE BRACKET
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
0x5C    0x005C  # REVERSE SOLIDUS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
0x5D    0x005D  # RIGHT SQUARE BRACKET
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
0x5E    0x005E  # CIRCUMFLEX ACCENT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
0x5F    0x005F  # LOW LINE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
0x60    0x0060  # GRAVE ACCENT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
0x61    0x0061  # LATIN SMALL LETTER A
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
0x62    0x0062  # LATIN SMALL LETTER B
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
0x63    0x0063  # LATIN SMALL LETTER C
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
0x64    0x0064  # LATIN SMALL LETTER D
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
0x65    0x0065  # LATIN SMALL LETTER E
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
0x66    0x0066  # LATIN SMALL LETTER F
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
0x67    0x0067  # LATIN SMALL LETTER G
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
0x68    0x0068  # LATIN SMALL LETTER H
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
0x69    0x0069  # LATIN SMALL LETTER I
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
0x6A    0x006A  # LATIN SMALL LETTER J
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
0x6B    0x006B  # LATIN SMALL LETTER K
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
0x6C    0x006C  # LATIN SMALL LETTER L
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
0x6D    0x006D  # LATIN SMALL LETTER M
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
0x6E    0x006E  # LATIN SMALL LETTER N
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
0x6F    0x006F  # LATIN SMALL LETTER O
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
0x70    0x0070  # LATIN SMALL LETTER P
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
0x71    0x0071  # LATIN SMALL LETTER Q
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
0x72    0x0072  # LATIN SMALL LETTER R
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
0x73    0x0073  # LATIN SMALL LETTER S
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
0x74    0x0074  # LATIN SMALL LETTER T
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
0x75    0x0075  # LATIN SMALL LETTER U
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
0x76    0x0076  # LATIN SMALL LETTER V
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
0x77    0x0077  # LATIN SMALL LETTER W
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
0x78    0x0078  # LATIN SMALL LETTER X
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
0x79    0x0079  # LATIN SMALL LETTER Y
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
0x7A    0x007A  # LATIN SMALL LETTER Z
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
0x7B    0x007B  # LEFT CURLY BRACKET
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
0x7C    0x007C  # VERTICAL LINE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
0x7D    0x007D  # RIGHT CURLY BRACKET
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
0x7E    0x007E  # TILDE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
#
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
0x80    0x00C4  # LATIN CAPITAL LETTER A WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
0x81    0x00C5  # LATIN CAPITAL LETTER A WITH RING ABOVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
0x82    0x00C7  # LATIN CAPITAL LETTER C WITH CEDILLA
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
0x83    0x00C9  # LATIN CAPITAL LETTER E WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
0x84    0x00D1  # LATIN CAPITAL LETTER N WITH TILDE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
0x85    0x00D6  # LATIN CAPITAL LETTER O WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
0x86    0x00DC  # LATIN CAPITAL LETTER U WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
0x87    0x00E1  # LATIN SMALL LETTER A WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
0x88    0x00E0  # LATIN SMALL LETTER A WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
0x89    0x00E2  # LATIN SMALL LETTER A WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
0x8A    0x00E4  # LATIN SMALL LETTER A WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
0x8B    0x00E3  # LATIN SMALL LETTER A WITH TILDE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
0x8C    0x00E5  # LATIN SMALL LETTER A WITH RING ABOVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
0x8D    0x00E7  # LATIN SMALL LETTER C WITH CEDILLA
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
0x8E    0x00E9  # LATIN SMALL LETTER E WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
0x8F    0x00E8  # LATIN SMALL LETTER E WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
0x90    0x00EA  # LATIN SMALL LETTER E WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
0x91    0x00EB  # LATIN SMALL LETTER E WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
0x92    0x00ED  # LATIN SMALL LETTER I WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
0x93    0x00EC  # LATIN SMALL LETTER I WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
0x94    0x00EE  # LATIN SMALL LETTER I WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
0x95    0x00EF  # LATIN SMALL LETTER I WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
0x96    0x00F1  # LATIN SMALL LETTER N WITH TILDE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
0x97    0x00F3  # LATIN SMALL LETTER O WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
0x98    0x00F2  # LATIN SMALL LETTER O WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
0x99    0x00F4  # LATIN SMALL LETTER O WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
0x9A    0x00F6  # LATIN SMALL LETTER O WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
0x9B    0x00F5  # LATIN SMALL LETTER O WITH TILDE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
0x9C    0x00FA  # LATIN SMALL LETTER U WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
0x9D    0x00F9  # LATIN SMALL LETTER U WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
0x9E    0x00FB  # LATIN SMALL LETTER U WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
0x9F    0x00FC  # LATIN SMALL LETTER U WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
0xA0    0x2020  # DAGGER
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
0xA1    0x00B0  # DEGREE SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
0xA2    0x00A2  # CENT SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
0xA3    0x00A3  # POUND SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
0xA4    0x00A7  # SECTION SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
0xA5    0x2022  # BULLET
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
0xA6    0x00B6  # PILCROW SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
0xA7    0x00DF  # LATIN SMALL LETTER SHARP S
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
0xA8    0x00AE  # REGISTERED SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
0xA9    0x00A9  # COPYRIGHT SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
0xAA    0x2122  # TRADE MARK SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
0xAB    0x00B4  # ACUTE ACCENT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
0xAC    0x00A8  # DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
0xAD    0x2260  # NOT EQUAL TO
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
0xAE    0x00C6  # LATIN CAPITAL LETTER AE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
0xAF    0x00D8  # LATIN CAPITAL LETTER O WITH STROKE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
0xB0    0x221E  # INFINITY
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
0xB1    0x00B1  # PLUS-MINUS SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
0xB2    0x2264  # LESS-THAN OR EQUAL TO
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
0xB3    0x2265  # GREATER-THAN OR EQUAL TO
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
0xB4    0x00A5  # YEN SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
0xB5    0x00B5  # MICRO SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
0xB6    0x2202  # PARTIAL DIFFERENTIAL
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
0xB7    0x2211  # N-ARY SUMMATION
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
0xB8    0x220F  # N-ARY PRODUCT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
0xB9    0x03C0  # GREEK SMALL LETTER PI
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
0xBA    0x222B  # INTEGRAL
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
0xBB    0x00AA  # FEMININE ORDINAL INDICATOR
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
0xBC    0x00BA  # MASCULINE ORDINAL INDICATOR
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
0xBD    0x03A9  # GREEK CAPITAL LETTER OMEGA
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
0xBE    0x00E6  # LATIN SMALL LETTER AE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
0xBF    0x00F8  # LATIN SMALL LETTER O WITH STROKE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
0xC0    0x00BF  # INVERTED QUESTION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
0xC1    0x00A1  # INVERTED EXCLAMATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   361
0xC2    0x00AC  # NOT SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
0xC3    0x221A  # SQUARE ROOT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
0xC4    0x0192  # LATIN SMALL LETTER F WITH HOOK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
0xC5    0x2248  # ALMOST EQUAL TO
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
0xC6    0x2206  # INCREMENT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
0xC7    0x00AB  # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
0xC8    0x00BB  # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
0xC9    0x2026  # HORIZONTAL ELLIPSIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
0xCA    0x00A0  # NO-BREAK SPACE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
0xCB    0x00C0  # LATIN CAPITAL LETTER A WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
0xCC    0x00C3  # LATIN CAPITAL LETTER A WITH TILDE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
0xCD    0x00D5  # LATIN CAPITAL LETTER O WITH TILDE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
0xCE    0x0152  # LATIN CAPITAL LIGATURE OE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
0xCF    0x0153  # LATIN SMALL LIGATURE OE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
0xD0    0x2013  # EN DASH
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
0xD1    0x2014  # EM DASH
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
0xD2    0x201C  # LEFT DOUBLE QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
0xD3    0x201D  # RIGHT DOUBLE QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
0xD4    0x2018  # LEFT SINGLE QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
0xD5    0x2019  # RIGHT SINGLE QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
0xD6    0x00F7  # DIVISION SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
0xD7    0x25CA  # LOZENGE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
0xD8    0x00FF  # LATIN SMALL LETTER Y WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
0xD9    0x0178  # LATIN CAPITAL LETTER Y WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
0xDA    0x2044  # FRACTION SLASH
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
0xDB    0x20AC  # EURO SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
0xDC    0x2039  # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
0xDD    0x203A  # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
0xDE    0xFB01  # LATIN SMALL LIGATURE FI
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
0xDF    0xFB02  # LATIN SMALL LIGATURE FL
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
0xE0    0x2021  # DOUBLE DAGGER
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
0xE1    0x00B7  # MIDDLE DOT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
0xE2    0x201A  # SINGLE LOW-9 QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
0xE3    0x201E  # DOUBLE LOW-9 QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
0xE4    0x2030  # PER MILLE SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
0xE5    0x00C2  # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
0xE6    0x00CA  # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
0xE7    0x00C1  # LATIN CAPITAL LETTER A WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
0xE8    0x00CB  # LATIN CAPITAL LETTER E WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
0xE9    0x00C8  # LATIN CAPITAL LETTER E WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
0xEA    0x00CD  # LATIN CAPITAL LETTER I WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
0xEB    0x00CE  # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
0xEC    0x00CF  # LATIN CAPITAL LETTER I WITH DIAERESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   404
0xED    0x00CC  # LATIN CAPITAL LETTER I WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
0xEE    0x00D3  # LATIN CAPITAL LETTER O WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
0xEF    0x00D4  # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
0xF0    0xF8FF  # Apple logo
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
0xF1    0x00D2  # LATIN CAPITAL LETTER O WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
0xF2    0x00DA  # LATIN CAPITAL LETTER U WITH ACUTE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
0xF3    0x00DB  # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
0xF4    0x00D9  # LATIN CAPITAL LETTER U WITH GRAVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
0xF5    0x0131  # LATIN SMALL LETTER DOTLESS I
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
0xF6    0x02C6  # MODIFIER LETTER CIRCUMFLEX ACCENT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
0xF7    0x02DC  # SMALL TILDE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
0xF8    0x00AF  # MACRON
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   416
0xF9    0x02D8  # BREVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
0xFA    0x02D9  # DOT ABOVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
0xFB    0x02DA  # RING ABOVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
0xFC    0x00B8  # CEDILLA
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
0xFD    0x02DD  # DOUBLE ACUTE ACCENT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
0xFE    0x02DB  # OGONEK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
0xFF    0x02C7  # CARON
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   424
"
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
! !
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
13255
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   427
!MAC_Roman methodsFor:'encoding & decoding'!
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   428
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   429
decode:codeArg
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   430
    "Automagically generated by generateCode - do not modify.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   431
     Decode from my encoding into unicode."
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   432
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   433
    |code "{ Class: SmallInteger }"|
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   434
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   435
    code := codeArg.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   436
    code <= 16r1F ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   437
        ^ self decodingError.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   438
    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   439
    code <= 16r7E ifTrue:[ ^ code ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   440
    code > 16rFF ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   441
        ^ self decodingError.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   442
    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   443
    [
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   444
        |t|
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   445
        t := #(
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   446
           "16r007F"    16r0000 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   447
           "16r0080"    16r00C4 " LATIN CAPITAL LETTER A WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   448
           "16r0081"    16r00C5 " LATIN CAPITAL LETTER A WITH RING ABOVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   449
           "16r0082"    16r00C7 " LATIN CAPITAL LETTER C WITH CEDILLA " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   450
           "16r0083"    16r00C9 " LATIN CAPITAL LETTER E WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   451
           "16r0084"    16r00D1 " LATIN CAPITAL LETTER N WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   452
           "16r0085"    16r00D6 " LATIN CAPITAL LETTER O WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   453
           "16r0086"    16r00DC " LATIN CAPITAL LETTER U WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   454
           "16r0087"    16r00E1 " LATIN SMALL LETTER A WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   455
           "16r0088"    16r00E0 " LATIN SMALL LETTER A WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   456
           "16r0089"    16r00E2 " LATIN SMALL LETTER A WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   457
           "16r008A"    16r00E4 " LATIN SMALL LETTER A WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   458
           "16r008B"    16r00E3 " LATIN SMALL LETTER A WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   459
           "16r008C"    16r00E5 " LATIN SMALL LETTER A WITH RING ABOVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   460
           "16r008D"    16r00E7 " LATIN SMALL LETTER C WITH CEDILLA " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   461
           "16r008E"    16r00E9 " LATIN SMALL LETTER E WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   462
           "16r008F"    16r00E8 " LATIN SMALL LETTER E WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   463
           "16r0090"    16r00EA " LATIN SMALL LETTER E WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   464
           "16r0091"    16r00EB " LATIN SMALL LETTER E WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   465
           "16r0092"    16r00ED " LATIN SMALL LETTER I WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   466
           "16r0093"    16r00EC " LATIN SMALL LETTER I WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   467
           "16r0094"    16r00EE " LATIN SMALL LETTER I WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   468
           "16r0095"    16r00EF " LATIN SMALL LETTER I WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   469
           "16r0096"    16r00F1 " LATIN SMALL LETTER N WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   470
           "16r0097"    16r00F3 " LATIN SMALL LETTER O WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   471
           "16r0098"    16r00F2 " LATIN SMALL LETTER O WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   472
           "16r0099"    16r00F4 " LATIN SMALL LETTER O WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   473
           "16r009A"    16r00F6 " LATIN SMALL LETTER O WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   474
           "16r009B"    16r00F5 " LATIN SMALL LETTER O WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   475
           "16r009C"    16r00FA " LATIN SMALL LETTER U WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   476
           "16r009D"    16r00F9 " LATIN SMALL LETTER U WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   477
           "16r009E"    16r00FB " LATIN SMALL LETTER U WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   478
           "16r009F"    16r00FC " LATIN SMALL LETTER U WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   479
           "16r00A0"    16r2020 " DAGGER " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   480
           "16r00A1"    16r00B0 " DEGREE SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   481
           "16r00A2"    16r00A2 " CENT SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   482
           "16r00A3"    16r00A3 " POUND SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   483
           "16r00A4"    16r00A7 " SECTION SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   484
           "16r00A5"    16r2022 " BULLET " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   485
           "16r00A6"    16r00B6 " PILCROW SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   486
           "16r00A7"    16r00DF " LATIN SMALL LETTER SHARP S " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   487
           "16r00A8"    16r00AE " REGISTERED SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   488
           "16r00A9"    16r00A9 " COPYRIGHT SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   489
           "16r00AA"    16r2122 " TRADE MARK SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   490
           "16r00AB"    16r00B4 " ACUTE ACCENT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   491
           "16r00AC"    16r00A8 " DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   492
           "16r00AD"    16r2260 " NOT EQUAL TO " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   493
           "16r00AE"    16r00C6 " LATIN CAPITAL LETTER AE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   494
           "16r00AF"    16r00D8 " LATIN CAPITAL LETTER O WITH STROKE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   495
           "16r00B0"    16r221E " INFINITY " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   496
           "16r00B1"    16r00B1 " PLUS-MINUS SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   497
           "16r00B2"    16r2264 " LESS-THAN OR EQUAL TO " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   498
           "16r00B3"    16r2265 " GREATER-THAN OR EQUAL TO " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   499
           "16r00B4"    16r00A5 " YEN SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   500
           "16r00B5"    16r00B5 " MICRO SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   501
           "16r00B6"    16r2202 " PARTIAL DIFFERENTIAL " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   502
           "16r00B7"    16r2211 " N-ARY SUMMATION " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   503
           "16r00B8"    16r220F " N-ARY PRODUCT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   504
           "16r00B9"    16r03C0 " GREEK SMALL LETTER PI " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   505
           "16r00BA"    16r222B " INTEGRAL " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   506
           "16r00BB"    16r00AA " FEMININE ORDINAL INDICATOR " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   507
           "16r00BC"    16r00BA " MASCULINE ORDINAL INDICATOR " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   508
           "16r00BD"    16r03A9 " GREEK CAPITAL LETTER OMEGA " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   509
           "16r00BE"    16r00E6 " LATIN SMALL LETTER AE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   510
           "16r00BF"    16r00F8 " LATIN SMALL LETTER O WITH STROKE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   511
           "16r00C0"    16r00BF " INVERTED QUESTION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   512
           "16r00C1"    16r00A1 " INVERTED EXCLAMATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   513
           "16r00C2"    16r00AC " NOT SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   514
           "16r00C3"    16r221A " SQUARE ROOT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   515
           "16r00C4"    16r0192 " LATIN SMALL LETTER F WITH HOOK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   516
           "16r00C5"    16r2248 " ALMOST EQUAL TO " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   517
           "16r00C6"    16r2206 " INCREMENT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   518
           "16r00C7"    16r00AB " LEFT-POINTING DOUBLE ANGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   519
           "16r00C8"    16r00BB " RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   520
           "16r00C9"    16r2026 " HORIZONTAL ELLIPSIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   521
           "16r00CA"    16r00A0 " NO-BREAK SPACE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   522
           "16r00CB"    16r00C0 " LATIN CAPITAL LETTER A WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   523
           "16r00CC"    16r00C3 " LATIN CAPITAL LETTER A WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   524
           "16r00CD"    16r00D5 " LATIN CAPITAL LETTER O WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   525
           "16r00CE"    16r0152 " LATIN CAPITAL LIGATURE OE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   526
           "16r00CF"    16r0153 " LATIN SMALL LIGATURE OE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   527
           "16r00D0"    16r2013 " EN DASH " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   528
           "16r00D1"    16r2014 " EM DASH " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   529
           "16r00D2"    16r201C " LEFT DOUBLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   530
           "16r00D3"    16r201D " RIGHT DOUBLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   531
           "16r00D4"    16r2018 " LEFT SINGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   532
           "16r00D5"    16r2019 " RIGHT SINGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   533
           "16r00D6"    16r00F7 " DIVISION SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   534
           "16r00D7"    16r25CA " LOZENGE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   535
           "16r00D8"    16r00FF " LATIN SMALL LETTER Y WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   536
           "16r00D9"    16r0178 " LATIN CAPITAL LETTER Y WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   537
           "16r00DA"    16r2044 " FRACTION SLASH " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   538
           "16r00DB"    16r20AC " EURO SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   539
           "16r00DC"    16r2039 " SINGLE LEFT-POINTING ANGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   540
           "16r00DD"    16r203A " SINGLE RIGHT-POINTING ANGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   541
           "16r00DE"    16rFB01 " LATIN SMALL LIGATURE FI " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   542
           "16r00DF"    16rFB02 " LATIN SMALL LIGATURE FL " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   543
           "16r00E0"    16r2021 " DOUBLE DAGGER " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   544
           "16r00E1"    16r00B7 " MIDDLE DOT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   545
           "16r00E2"    16r201A " SINGLE LOW-9 QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   546
           "16r00E3"    16r201E " DOUBLE LOW-9 QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   547
           "16r00E4"    16r2030 " PER MILLE SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   548
           "16r00E5"    16r00C2 " LATIN CAPITAL LETTER A WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   549
           "16r00E6"    16r00CA " LATIN CAPITAL LETTER E WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   550
           "16r00E7"    16r00C1 " LATIN CAPITAL LETTER A WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   551
           "16r00E8"    16r00CB " LATIN CAPITAL LETTER E WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   552
           "16r00E9"    16r00C8 " LATIN CAPITAL LETTER E WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   553
           "16r00EA"    16r00CD " LATIN CAPITAL LETTER I WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   554
           "16r00EB"    16r00CE " LATIN CAPITAL LETTER I WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   555
           "16r00EC"    16r00CF " LATIN CAPITAL LETTER I WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   556
           "16r00ED"    16r00CC " LATIN CAPITAL LETTER I WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   557
           "16r00EE"    16r00D3 " LATIN CAPITAL LETTER O WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   558
           "16r00EF"    16r00D4 " LATIN CAPITAL LETTER O WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   559
           "16r00F0"    16rF8FF " Apple logo " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   560
           "16r00F1"    16r00D2 " LATIN CAPITAL LETTER O WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   561
           "16r00F2"    16r00DA " LATIN CAPITAL LETTER U WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   562
           "16r00F3"    16r00DB " LATIN CAPITAL LETTER U WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   563
           "16r00F4"    16r00D9 " LATIN CAPITAL LETTER U WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   564
           "16r00F5"    16r0131 " LATIN SMALL LETTER DOTLESS I " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   565
           "16r00F6"    16r02C6 " MODIFIER LETTER CIRCUMFLEX ACCENT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   566
           "16r00F7"    16r02DC " SMALL TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   567
           "16r00F8"    16r00AF " MACRON " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   568
           "16r00F9"    16r02D8 " BREVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   569
           "16r00FA"    16r02D9 " DOT ABOVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   570
           "16r00FB"    16r02DA " RING ABOVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   571
           "16r00FC"    16r00B8 " CEDILLA " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   572
           "16r00FD"    16r02DD " DOUBLE ACUTE ACCENT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   573
           "16r00FE"    16r02DB " OGONEK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   574
           "16r00FF"    16r02C7 " CARON " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   575
           ) at:(code - 16r7E).
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   576
        t == 0 ifFalse:[^ t].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   577
        ^ self decodingError.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   578
    ] value.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   579
!
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   580
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   581
encode:unicodeArg
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   582
    "Automagically generated by generateCode - do not modify.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   583
     Encode from unicode into my encoding."
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   584
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   585
    |unicode "{ Class: SmallInteger }"|
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   586
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   587
    unicode := unicodeArg.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   588
    unicode <= 16r1F ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   589
        ^ self decodingError.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   590
    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   591
    unicode <= 16r7E ifTrue:[ ^ unicode ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   592
    unicode > 16rFB02 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   593
        ^ self encodingError.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   594
    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   595
    unicode <= 16r9F ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   596
        ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   597
    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   598
    unicode <= 16r25CA ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   599
        unicode <= 16r3C0 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   600
            unicode <= 16r192 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   601
                unicode <= 16rFF ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   602
                    [
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   603
                        |t|
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   604
                        t := #[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   605
                           "16r00A0"    16rCA " NO-BREAK SPACE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   606
                           "16r00A1"    16rC1 " INVERTED EXCLAMATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   607
                           "16r00A2"    16rA2 " CENT SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   608
                           "16r00A3"    16rA3 " POUND SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   609
                           "16r00A4"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   610
                           "16r00A5"    16rB4 " YEN SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   611
                           "16r00A6"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   612
                           "16r00A7"    16rA4 " SECTION SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   613
                           "16r00A8"    16rAC " DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   614
                           "16r00A9"    16rA9 " COPYRIGHT SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   615
                           "16r00AA"    16rBB " FEMININE ORDINAL INDICATOR " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   616
                           "16r00AB"    16rC7 " LEFT-POINTING DOUBLE ANGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   617
                           "16r00AC"    16rC2 " NOT SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   618
                           "16r00AD"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   619
                           "16r00AE"    16rA8 " REGISTERED SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   620
                           "16r00AF"    16rF8 " MACRON " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   621
                           "16r00B0"    16rA1 " DEGREE SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   622
                           "16r00B1"    16rB1 " PLUS-MINUS SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   623
                           "16r00B2"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   624
                           "16r00B3"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   625
                           "16r00B4"    16rAB " ACUTE ACCENT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   626
                           "16r00B5"    16rB5 " MICRO SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   627
                           "16r00B6"    16rA6 " PILCROW SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   628
                           "16r00B7"    16rE1 " MIDDLE DOT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   629
                           "16r00B8"    16rFC " CEDILLA " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   630
                           "16r00B9"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   631
                           "16r00BA"    16rBC " MASCULINE ORDINAL INDICATOR " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   632
                           "16r00BB"    16rC8 " RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   633
                           "16r00BC"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   634
                           "16r00BD"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   635
                           "16r00BE"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   636
                           "16r00BF"    16rC0 " INVERTED QUESTION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   637
                           "16r00C0"    16rCB " LATIN CAPITAL LETTER A WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   638
                           "16r00C1"    16rE7 " LATIN CAPITAL LETTER A WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   639
                           "16r00C2"    16rE5 " LATIN CAPITAL LETTER A WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   640
                           "16r00C3"    16rCC " LATIN CAPITAL LETTER A WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   641
                           "16r00C4"    16r80 " LATIN CAPITAL LETTER A WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   642
                           "16r00C5"    16r81 " LATIN CAPITAL LETTER A WITH RING ABOVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   643
                           "16r00C6"    16rAE " LATIN CAPITAL LETTER AE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   644
                           "16r00C7"    16r82 " LATIN CAPITAL LETTER C WITH CEDILLA " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   645
                           "16r00C8"    16rE9 " LATIN CAPITAL LETTER E WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   646
                           "16r00C9"    16r83 " LATIN CAPITAL LETTER E WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   647
                           "16r00CA"    16rE6 " LATIN CAPITAL LETTER E WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   648
                           "16r00CB"    16rE8 " LATIN CAPITAL LETTER E WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   649
                           "16r00CC"    16rED " LATIN CAPITAL LETTER I WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   650
                           "16r00CD"    16rEA " LATIN CAPITAL LETTER I WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   651
                           "16r00CE"    16rEB " LATIN CAPITAL LETTER I WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   652
                           "16r00CF"    16rEC " LATIN CAPITAL LETTER I WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   653
                           "16r00D0"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   654
                           "16r00D1"    16r84 " LATIN CAPITAL LETTER N WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   655
                           "16r00D2"    16rF1 " LATIN CAPITAL LETTER O WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   656
                           "16r00D3"    16rEE " LATIN CAPITAL LETTER O WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   657
                           "16r00D4"    16rEF " LATIN CAPITAL LETTER O WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   658
                           "16r00D5"    16rCD " LATIN CAPITAL LETTER O WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   659
                           "16r00D6"    16r85 " LATIN CAPITAL LETTER O WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   660
                           "16r00D7"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   661
                           "16r00D8"    16rAF " LATIN CAPITAL LETTER O WITH STROKE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   662
                           "16r00D9"    16rF4 " LATIN CAPITAL LETTER U WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   663
                           "16r00DA"    16rF2 " LATIN CAPITAL LETTER U WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   664
                           "16r00DB"    16rF3 " LATIN CAPITAL LETTER U WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   665
                           "16r00DC"    16r86 " LATIN CAPITAL LETTER U WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   666
                           "16r00DD"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   667
                           "16r00DE"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   668
                           "16r00DF"    16rA7 " LATIN SMALL LETTER SHARP S " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   669
                           "16r00E0"    16r88 " LATIN SMALL LETTER A WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   670
                           "16r00E1"    16r87 " LATIN SMALL LETTER A WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   671
                           "16r00E2"    16r89 " LATIN SMALL LETTER A WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   672
                           "16r00E3"    16r8B " LATIN SMALL LETTER A WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   673
                           "16r00E4"    16r8A " LATIN SMALL LETTER A WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   674
                           "16r00E5"    16r8C " LATIN SMALL LETTER A WITH RING ABOVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   675
                           "16r00E6"    16rBE " LATIN SMALL LETTER AE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   676
                           "16r00E7"    16r8D " LATIN SMALL LETTER C WITH CEDILLA " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   677
                           "16r00E8"    16r8F " LATIN SMALL LETTER E WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   678
                           "16r00E9"    16r8E " LATIN SMALL LETTER E WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   679
                           "16r00EA"    16r90 " LATIN SMALL LETTER E WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   680
                           "16r00EB"    16r91 " LATIN SMALL LETTER E WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   681
                           "16r00EC"    16r93 " LATIN SMALL LETTER I WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   682
                           "16r00ED"    16r92 " LATIN SMALL LETTER I WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   683
                           "16r00EE"    16r94 " LATIN SMALL LETTER I WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   684
                           "16r00EF"    16r95 " LATIN SMALL LETTER I WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   685
                           "16r00F0"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   686
                           "16r00F1"    16r96 " LATIN SMALL LETTER N WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   687
                           "16r00F2"    16r98 " LATIN SMALL LETTER O WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   688
                           "16r00F3"    16r97 " LATIN SMALL LETTER O WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   689
                           "16r00F4"    16r99 " LATIN SMALL LETTER O WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   690
                           "16r00F5"    16r9B " LATIN SMALL LETTER O WITH TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   691
                           "16r00F6"    16r9A " LATIN SMALL LETTER O WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   692
                           "16r00F7"    16rD6 " DIVISION SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   693
                           "16r00F8"    16rBF " LATIN SMALL LETTER O WITH STROKE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   694
                           "16r00F9"    16r9D " LATIN SMALL LETTER U WITH GRAVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   695
                           "16r00FA"    16r9C " LATIN SMALL LETTER U WITH ACUTE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   696
                           "16r00FB"    16r9E " LATIN SMALL LETTER U WITH CIRCUMFLEX " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   697
                           "16r00FC"    16r9F " LATIN SMALL LETTER U WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   698
                           "16r00FD"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   699
                           "16r00FE"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   700
                           "16r00FF"    16rD8 " LATIN SMALL LETTER Y WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   701
                           ] at:(unicode - 16r9F).
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   702
                        t == 0 ifFalse:[^ t].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   703
                        ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   704
                    ] value.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   705
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   706
                unicode <= 16r130 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   707
                    ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   708
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   709
                unicode <= 16r153 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   710
                    unicode == 16r131 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   711
                        ^  "16r0131" 16r00F5 " LATIN SMALL LETTER DOTLESS I " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   712
                    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   713
                    unicode <= 16r151 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   714
                        ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   715
                    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   716
                    ^ #[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   717
                       "16r0152"    16rCE " LATIN CAPITAL LIGATURE OE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   718
                       "16r0153"    16rCF " LATIN SMALL LIGATURE OE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   719
                       ] at:(unicode - 16r151).
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   720
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   721
                unicode <= 16r177 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   722
                    ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   723
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   724
                unicode == 16r178 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   725
                    ^  "16r0178" 16r00D9 " LATIN CAPITAL LETTER Y WITH DIAERESIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   726
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   727
                unicode <= 16r191 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   728
                    ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   729
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   730
                ^  "16r0192" 16r00C4 " LATIN SMALL LETTER F WITH HOOK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   731
            ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   732
            unicode <= 16r2C5 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   733
                ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   734
            ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   735
            unicode <= 16r2DD ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   736
                unicode <= 16r2C7 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   737
                    ^ #[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   738
                       "16r02C6"    16rF6 " MODIFIER LETTER CIRCUMFLEX ACCENT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   739
                       "16r02C7"    16rFF " CARON " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   740
                       ] at:(unicode - 16r2C5).
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   741
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   742
                unicode <= 16r2D7 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   743
                    ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   744
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   745
                ^ #[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   746
                   "16r02D8"    16rF9 " BREVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   747
                   "16r02D9"    16rFA " DOT ABOVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   748
                   "16r02DA"    16rFB " RING ABOVE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   749
                   "16r02DB"    16rFE " OGONEK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   750
                   "16r02DC"    16rF7 " SMALL TILDE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   751
                   "16r02DD"    16rFD " DOUBLE ACUTE ACCENT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   752
                   ] at:(unicode - 16r2D7).
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   753
            ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   754
            unicode <= 16r3A8 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   755
                ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   756
            ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   757
            unicode == 16r3A9 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   758
                ^  "16r03A9" 16r00BD " GREEK CAPITAL LETTER OMEGA " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   759
            ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   760
            unicode <= 16r3BF ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   761
                ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   762
            ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   763
            ^  "16r03C0" 16r00B9 " GREEK SMALL LETTER PI " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   764
        ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   765
        unicode <= 16r2012 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   766
            ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   767
        ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   768
        unicode <= 16r2265 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   769
            unicode <= 16r2122 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   770
                unicode <= 16r20AC ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   771
                    unicode <= 16r2044 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   772
                        [
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   773
                            |t|
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   774
                            t := #[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   775
                               "16r2013"    16rD0 " EN DASH " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   776
                               "16r2014"    16rD1 " EM DASH " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   777
                               "16r2015"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   778
                               "16r2016"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   779
                               "16r2017"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   780
                               "16r2018"    16rD4 " LEFT SINGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   781
                               "16r2019"    16rD5 " RIGHT SINGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   782
                               "16r201A"    16rE2 " SINGLE LOW-9 QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   783
                               "16r201B"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   784
                               "16r201C"    16rD2 " LEFT DOUBLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   785
                               "16r201D"    16rD3 " RIGHT DOUBLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   786
                               "16r201E"    16rE3 " DOUBLE LOW-9 QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   787
                               "16r201F"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   788
                               "16r2020"    16rA0 " DAGGER " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   789
                               "16r2021"    16rE0 " DOUBLE DAGGER " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   790
                               "16r2022"    16rA5 " BULLET " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   791
                               "16r2023"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   792
                               "16r2024"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   793
                               "16r2025"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   794
                               "16r2026"    16rC9 " HORIZONTAL ELLIPSIS " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   795
                               "16r2027"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   796
                               "16r2028"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   797
                               "16r2029"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   798
                               "16r202A"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   799
                               "16r202B"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   800
                               "16r202C"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   801
                               "16r202D"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   802
                               "16r202E"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   803
                               "16r202F"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   804
                               "16r2030"    16rE4 " PER MILLE SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   805
                               "16r2031"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   806
                               "16r2032"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   807
                               "16r2033"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   808
                               "16r2034"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   809
                               "16r2035"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   810
                               "16r2036"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   811
                               "16r2037"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   812
                               "16r2038"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   813
                               "16r2039"    16rDC " SINGLE LEFT-POINTING ANGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   814
                               "16r203A"    16rDD " SINGLE RIGHT-POINTING ANGLE QUOTATION MARK " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   815
                               "16r203B"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   816
                               "16r203C"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   817
                               "16r203D"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   818
                               "16r203E"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   819
                               "16r203F"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   820
                               "16r2040"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   821
                               "16r2041"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   822
                               "16r2042"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   823
                               "16r2043"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   824
                               "16r2044"    16rDA " FRACTION SLASH " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   825
                               ] at:(unicode - 16r2012).
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   826
                            t == 0 ifFalse:[^ t].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   827
                            ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   828
                        ] value.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   829
                    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   830
                    unicode <= 16r20AB ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   831
                        ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   832
                    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   833
                    ^  "16r20AC" 16r00DB " EURO SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   834
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   835
                unicode <= 16r2121 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   836
                    ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   837
                ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   838
                ^  "16r2122" 16r00AA " TRADE MARK SIGN " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   839
            ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   840
            unicode <= 16r2201 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   841
                ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   842
            ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   843
            [
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   844
                |t|
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   845
                t := #[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   846
                   "16r2202"    16rB6 " PARTIAL DIFFERENTIAL " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   847
                   "16r2203"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   848
                   "16r2204"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   849
                   "16r2205"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   850
                   "16r2206"    16rC6 " INCREMENT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   851
                   "16r2207"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   852
                   "16r2208"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   853
                   "16r2209"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   854
                   "16r220A"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   855
                   "16r220B"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   856
                   "16r220C"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   857
                   "16r220D"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   858
                   "16r220E"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   859
                   "16r220F"    16rB8 " N-ARY PRODUCT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   860
                   "16r2210"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   861
                   "16r2211"    16rB7 " N-ARY SUMMATION " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   862
                   "16r2212"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   863
                   "16r2213"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   864
                   "16r2214"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   865
                   "16r2215"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   866
                   "16r2216"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   867
                   "16r2217"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   868
                   "16r2218"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   869
                   "16r2219"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   870
                   "16r221A"    16rC3 " SQUARE ROOT " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   871
                   "16r221B"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   872
                   "16r221C"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   873
                   "16r221D"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   874
                   "16r221E"    16rB0 " INFINITY " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   875
                   "16r221F"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   876
                   "16r2220"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   877
                   "16r2221"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   878
                   "16r2222"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   879
                   "16r2223"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   880
                   "16r2224"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   881
                   "16r2225"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   882
                   "16r2226"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   883
                   "16r2227"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   884
                   "16r2228"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   885
                   "16r2229"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   886
                   "16r222A"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   887
                   "16r222B"    16rBA " INTEGRAL " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   888
                   "16r222C"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   889
                   "16r222D"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   890
                   "16r222E"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   891
                   "16r222F"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   892
                   "16r2230"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   893
                   "16r2231"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   894
                   "16r2232"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   895
                   "16r2233"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   896
                   "16r2234"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   897
                   "16r2235"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   898
                   "16r2236"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   899
                   "16r2237"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   900
                   "16r2238"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   901
                   "16r2239"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   902
                   "16r223A"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   903
                   "16r223B"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   904
                   "16r223C"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   905
                   "16r223D"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   906
                   "16r223E"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   907
                   "16r223F"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   908
                   "16r2240"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   909
                   "16r2241"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   910
                   "16r2242"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   911
                   "16r2243"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   912
                   "16r2244"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   913
                   "16r2245"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   914
                   "16r2246"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   915
                   "16r2247"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   916
                   "16r2248"    16rC5 " ALMOST EQUAL TO " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   917
                   "16r2249"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   918
                   "16r224A"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   919
                   "16r224B"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   920
                   "16r224C"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   921
                   "16r224D"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   922
                   "16r224E"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   923
                   "16r224F"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   924
                   "16r2250"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   925
                   "16r2251"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   926
                   "16r2252"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   927
                   "16r2253"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   928
                   "16r2254"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   929
                   "16r2255"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   930
                   "16r2256"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   931
                   "16r2257"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   932
                   "16r2258"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   933
                   "16r2259"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   934
                   "16r225A"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   935
                   "16r225B"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   936
                   "16r225C"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   937
                   "16r225D"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   938
                   "16r225E"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   939
                   "16r225F"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   940
                   "16r2260"    16rAD " NOT EQUAL TO " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   941
                   "16r2261"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   942
                   "16r2262"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   943
                   "16r2263"    16r00 " invalid " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   944
                   "16r2264"    16rB2 " LESS-THAN OR EQUAL TO " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   945
                   "16r2265"    16rB3 " GREATER-THAN OR EQUAL TO " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   946
                   ] at:(unicode - 16r2201).
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   947
                t == 0 ifFalse:[^ t].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   948
                ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   949
            ] value.
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   950
        ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   951
        unicode <= 16r25C9 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   952
            ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   953
        ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   954
        ^  "16r25CA" 16r00D7 " LOZENGE " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   955
    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   956
    unicode <= 16rF8FE ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   957
        ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   958
    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   959
    unicode == 16rF8FF ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   960
        ^  "16rF8FF" 16r00F0 " Apple logo " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   961
    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   962
    unicode <= 16rFB00 ifTrue:[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   963
        ^ self encodingError
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   964
    ].
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   965
    ^ #[
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   966
       "16rFB01"    16rDE " LATIN SMALL LIGATURE FI " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   967
       "16rFB02"    16rDF " LATIN SMALL LIGATURE FL " 
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   968
       ] at:(unicode - 16rFB00).
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   969
! !
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   970
8082
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   971
!MAC_Roman class methodsFor:'documentation'!
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   973
version
21303
4317984fa5df #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 13255
diff changeset
   974
    ^ '$Header$'
13255
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   975
!
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   976
67ccee91d77f encoding
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   977
version_CVS
21303
4317984fa5df #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 13255
diff changeset
   978
    ^ '$Header$'
8082
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
! !
21303
4317984fa5df #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 13255
diff changeset
   980