CharacterEncoderImplementations__AdobeSymbol.st
author Claus Gittinger <cg@exept.de>
Tue, 09 Jul 2019 20:55:17 +0200
changeset 24417 03b083548da2
parent 21712 bbdbb633670b
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:
21712
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2017 by eXept Software AG
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
              All Rights Reserved
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libbasic' }"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: CharacterEncoderImplementations }"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
SingleByteEncoder subclass:#AdobeSymbol
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:''
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Collections-Text-Encodings'
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!AdobeSymbol class methodsFor:'documentation'!
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
copyright
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
 COPYRIGHT (c) 2017 by eXept Software AG
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
              All Rights Reserved
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 This software is furnished under a license and may be used
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 only in accordance with the terms of that license and with the
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 be provided or otherwise made available to, or used by, any
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 other person.  No title to or ownership of the software is
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 hereby transferred.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
documentation
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
    Adobe Symbol Encoding.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    see http://www.unicode.org/Public/MAPPINGS/VENDORS/ADOBE/symbol.txt
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
    [see with:]
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
        CharacterEncoderImplementations::AdobeSymbol showCharacterSet
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
    [author:]
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
        Claus Gittinger
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
! !
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
!AdobeSymbol class methodsFor:'mapping'!
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
mapFileURL1_relativePathName
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    "self generateCode"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    ^ 'VENDORS/ADOBE/symbol.txt'
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
!
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
mapping
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
# From: http://www.unicode.org/Public/MAPPINGS/VENDORS/ADOBE/stdenc.txt
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
#
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
#  Name:             Adobe Symbol Encoding to Unicode
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
#  Unicode version:  2.0
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
#  Table version:    1.0
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
#  Date:             2011 July 12
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
#  
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
#  Copyright (c) 1991-2011 Unicode, Inc. All Rights reserved.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
#  
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
#  This file is provided as-is by Unicode, Inc. (The Unicode Consortium). No
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
#  claims are made as to fitness for any particular purpose. No warranties of
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
#  any kind are expressed or implied. The recipient agrees to determine
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
#  applicability of information provided. If this file has been provided on
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
#  magnetic media by Unicode, Inc., the sole remedy for any claim will be
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
#  exchange of defective media within 90 days of receipt.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
#  
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
#  Unicode, Inc. hereby grants the right to freely use the information
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
#  supplied in this file in the creation of products supporting the
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
#  Unicode Standard, and to make copies of this file in any form for
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
#  internal or external distribution as long as this notice remains
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
#  attached.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
#  
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
#  Format: 4 tab-delimited fields:
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
#
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
#    (1) The Unicode value (in hexadecimal)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
#    (2) The Symbol Encoding code point (in hexadecimal)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
#    (3) # Unicode name
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
#    (4) # PostScript character name
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
#  
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
#  General Notes:
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
# 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
#    The Unicode values in this table were produced as the result of applying
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
#    the algorithm described in the section 'Populating a Unicode space' in the
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
#    document 'Unicode and Glyph Names,' at
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
#    http://partners.adobe.com/asn/developer/typeforum/unicodegn.html
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
#    to the characters in Symbol. Note that some characters, such as 'space',
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
#    are mapped to 2 Unicode values. 29 characters have assignments in the
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
#    Corporate Use Subarea; these are indicated by '(CUS)' in field 4. Refer to
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
#    the above document for more details.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
#
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
#    2011 July 12: The above link is no longer valid. For comparable,
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
#    more current information, see the document, 'Glyph', at:
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
#    <http://www.adobe.com/devnet/opentype/archives/glyph.html>
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
#
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
#  Revision History:
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
#
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
#    [v1.0, 2011 July 12]
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
#    Updated terms of use to current wording.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
#    Updated contact information and document link.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
#    No changes to the mapping data.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
#
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
#    [v0.2, 30 March 1999]
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
#    Different algorithm to produce Unicode values (see notes above) results in
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
#    some character codes being mapped to 2 Unicode values; use of Corporate
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
#    Use subarea values; addition of the euro character; changed assignments of
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
#    some characters such as the COPYRIGHT SIGNs and RADICAL EXTENDER. Updated
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
#    Unicode names to Unicode 2.0 names.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
#
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
#    [v0.1, 5 May 1995] First release.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
#
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
#  Use the Unicode reporting form <http://www.unicode.org/reporting.html>
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
#    for any questions or comments or to report errors in the data.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
#
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
0020    20      # SPACE # space
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
00A0    20      # NO-BREAK SPACE        # space
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
0021    21      # EXCLAMATION MARK      # exclam
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
2200    22      # FOR ALL       # universal
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
0023    23      # NUMBER SIGN   # numbersign
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
2203    24      # THERE EXISTS  # existential
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
0025    25      # PERCENT SIGN  # percent
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
0026    26      # AMPERSAND     # ampersand
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
220B    27      # CONTAINS AS MEMBER    # suchthat
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
0028    28      # LEFT PARENTHESIS      # parenleft
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
0029    29      # RIGHT PARENTHESIS     # parenright
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
2217    2A      # ASTERISK OPERATOR     # asteriskmath
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
002B    2B      # PLUS SIGN     # plus
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
002C    2C      # COMMA # comma
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
2212    2D      # MINUS SIGN    # minus
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
002E    2E      # FULL STOP     # period
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
002F    2F      # SOLIDUS       # slash
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
0030    30      # DIGIT ZERO    # zero
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
0031    31      # DIGIT ONE     # one
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
0032    32      # DIGIT TWO     # two
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
0033    33      # DIGIT THREE   # three
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
0034    34      # DIGIT FOUR    # four
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
0035    35      # DIGIT FIVE    # five
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
0036    36      # DIGIT SIX     # six
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
0037    37      # DIGIT SEVEN   # seven
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
0038    38      # DIGIT EIGHT   # eight
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
0039    39      # DIGIT NINE    # nine
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
003A    3A      # COLON # colon
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
003B    3B      # SEMICOLON     # semicolon
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
003C    3C      # LESS-THAN SIGN        # less
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
003D    3D      # EQUALS SIGN   # equal
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
003E    3E      # GREATER-THAN SIGN     # greater
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
003F    3F      # QUESTION MARK # question
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
2245    40      # APPROXIMATELY EQUAL TO        # congruent
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
0391    41      # GREEK CAPITAL LETTER ALPHA    # Alpha
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
0392    42      # GREEK CAPITAL LETTER BETA     # Beta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
03A7    43      # GREEK CAPITAL LETTER CHI      # Chi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
0394    44      # GREEK CAPITAL LETTER DELTA    # Delta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
2206    44      # INCREMENT     # Delta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
0395    45      # GREEK CAPITAL LETTER EPSILON  # Epsilon
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
03A6    46      # GREEK CAPITAL LETTER PHI      # Phi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
0393    47      # GREEK CAPITAL LETTER GAMMA    # Gamma
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
0397    48      # GREEK CAPITAL LETTER ETA      # Eta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
0399    49      # GREEK CAPITAL LETTER IOTA     # Iota
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
03D1    4A      # GREEK THETA SYMBOL    # theta1
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
039A    4B      # GREEK CAPITAL LETTER KAPPA    # Kappa
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
039B    4C      # GREEK CAPITAL LETTER LAMDA    # Lambda
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
039C    4D      # GREEK CAPITAL LETTER MU       # Mu
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
039D    4E      # GREEK CAPITAL LETTER NU       # Nu
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
039F    4F      # GREEK CAPITAL LETTER OMICRON  # Omicron
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
03A0    50      # GREEK CAPITAL LETTER PI       # Pi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
0398    51      # GREEK CAPITAL LETTER THETA    # Theta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
03A1    52      # GREEK CAPITAL LETTER RHO      # Rho
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
03A3    53      # GREEK CAPITAL LETTER SIGMA    # Sigma
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
03A4    54      # GREEK CAPITAL LETTER TAU      # Tau
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
03A5    55      # GREEK CAPITAL LETTER UPSILON  # Upsilon
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
03C2    56      # GREEK SMALL LETTER FINAL SIGMA        # sigma1
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
03A9    57      # GREEK CAPITAL LETTER OMEGA    # Omega
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
2126    57      # OHM SIGN      # Omega
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
039E    58      # GREEK CAPITAL LETTER XI       # Xi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
03A8    59      # GREEK CAPITAL LETTER PSI      # Psi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
0396    5A      # GREEK CAPITAL LETTER ZETA     # Zeta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
005B    5B      # LEFT SQUARE BRACKET   # bracketleft
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
2234    5C      # THEREFORE     # therefore
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
005D    5D      # RIGHT SQUARE BRACKET  # bracketright
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
22A5    5E      # UP TACK       # perpendicular
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
005F    5F      # LOW LINE      # underscore
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
F8E5    60      # RADICAL EXTENDER      # radicalex (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
03B1    61      # GREEK SMALL LETTER ALPHA      # alpha
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
03B2    62      # GREEK SMALL LETTER BETA       # beta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
03C7    63      # GREEK SMALL LETTER CHI        # chi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
03B4    64      # GREEK SMALL LETTER DELTA      # delta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
03B5    65      # GREEK SMALL LETTER EPSILON    # epsilon
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
03C6    66      # GREEK SMALL LETTER PHI        # phi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
03B3    67      # GREEK SMALL LETTER GAMMA      # gamma
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
03B7    68      # GREEK SMALL LETTER ETA        # eta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
03B9    69      # GREEK SMALL LETTER IOTA       # iota
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
03D5    6A      # GREEK PHI SYMBOL      # phi1
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
03BA    6B      # GREEK SMALL LETTER KAPPA      # kappa
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
03BB    6C      # GREEK SMALL LETTER LAMDA      # lambda
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
00B5    6D      # MICRO SIGN    # mu
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
03BC    6D      # GREEK SMALL LETTER MU # mu
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
03BD    6E      # GREEK SMALL LETTER NU # nu
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
03BF    6F      # GREEK SMALL LETTER OMICRON    # omicron
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
03C0    70      # GREEK SMALL LETTER PI # pi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
03B8    71      # GREEK SMALL LETTER THETA      # theta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
03C1    72      # GREEK SMALL LETTER RHO        # rho
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
03C3    73      # GREEK SMALL LETTER SIGMA      # sigma
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
03C4    74      # GREEK SMALL LETTER TAU        # tau
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
03C5    75      # GREEK SMALL LETTER UPSILON    # upsilon
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
03D6    76      # GREEK PI SYMBOL       # omega1
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
03C9    77      # GREEK SMALL LETTER OMEGA      # omega
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
03BE    78      # GREEK SMALL LETTER XI # xi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
03C8    79      # GREEK SMALL LETTER PSI        # psi
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
03B6    7A      # GREEK SMALL LETTER ZETA       # zeta
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
007B    7B      # LEFT CURLY BRACKET    # braceleft
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
007C    7C      # VERTICAL LINE # bar
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
007D    7D      # RIGHT CURLY BRACKET   # braceright
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
223C    7E      # TILDE OPERATOR        # similar
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
20AC    A0      # EURO SIGN     # Euro
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
03D2    A1      # GREEK UPSILON WITH HOOK SYMBOL        # Upsilon1
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
2032    A2      # PRIME # minute
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
2264    A3      # LESS-THAN OR EQUAL TO # lessequal
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
2044    A4      # FRACTION SLASH        # fraction
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
2215    A4      # DIVISION SLASH        # fraction
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
221E    A5      # INFINITY      # infinity
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
0192    A6      # LATIN SMALL LETTER F WITH HOOK        # florin
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
2663    A7      # BLACK CLUB SUIT       # club
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
2666    A8      # BLACK DIAMOND SUIT    # diamond
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
2665    A9      # BLACK HEART SUIT      # heart
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
2660    AA      # BLACK SPADE SUIT      # spade
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
2194    AB      # LEFT RIGHT ARROW      # arrowboth
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
2190    AC      # LEFTWARDS ARROW       # arrowleft
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
2191    AD      # UPWARDS ARROW # arrowup
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
2192    AE      # RIGHTWARDS ARROW      # arrowright
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
2193    AF      # DOWNWARDS ARROW       # arrowdown
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
00B0    B0      # DEGREE SIGN   # degree
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
00B1    B1      # PLUS-MINUS SIGN       # plusminus
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
2033    B2      # DOUBLE PRIME  # second
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
2265    B3      # GREATER-THAN OR EQUAL TO      # greaterequal
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
00D7    B4      # MULTIPLICATION SIGN   # multiply
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
221D    B5      # PROPORTIONAL TO       # proportional
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
2202    B6      # PARTIAL DIFFERENTIAL  # partialdiff
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
2022    B7      # BULLET        # bullet
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
00F7    B8      # DIVISION SIGN # divide
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
2260    B9      # NOT EQUAL TO  # notequal
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
2261    BA      # IDENTICAL TO  # equivalence
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
2248    BB      # ALMOST EQUAL TO       # approxequal
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
2026    BC      # HORIZONTAL ELLIPSIS   # ellipsis
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
F8E6    BD      # VERTICAL ARROW EXTENDER       # arrowvertex (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
F8E7    BE      # HORIZONTAL ARROW EXTENDER     # arrowhorizex (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
21B5    BF      # DOWNWARDS ARROW WITH CORNER LEFTWARDS # carriagereturn
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
2135    C0      # ALEF SYMBOL   # aleph
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
2111    C1      # BLACK-LETTER CAPITAL I        # Ifraktur
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
211C    C2      # BLACK-LETTER CAPITAL R        # Rfraktur
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
2118    C3      # SCRIPT CAPITAL P      # weierstrass
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
2297    C4      # CIRCLED TIMES # circlemultiply
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
2295    C5      # CIRCLED PLUS  # circleplus
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
2205    C6      # EMPTY SET     # emptyset
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
2229    C7      # INTERSECTION  # intersection
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
222A    C8      # UNION # union
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
2283    C9      # SUPERSET OF   # propersuperset
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
2287    CA      # SUPERSET OF OR EQUAL TO       # reflexsuperset
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
2284    CB      # NOT A SUBSET OF       # notsubset
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
2282    CC      # SUBSET OF     # propersubset
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
2286    CD      # SUBSET OF OR EQUAL TO # reflexsubset
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
2208    CE      # ELEMENT OF    # element
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
2209    CF      # NOT AN ELEMENT OF     # notelement
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
2220    D0      # ANGLE # angle
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
2207    D1      # NABLA # gradient
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
F6DA    D2      # REGISTERED SIGN SERIF # registerserif (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
F6D9    D3      # COPYRIGHT SIGN SERIF  # copyrightserif (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
F6DB    D4      # TRADE MARK SIGN SERIF # trademarkserif (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
220F    D5      # N-ARY PRODUCT # product
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
221A    D6      # SQUARE ROOT   # radical
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
22C5    D7      # DOT OPERATOR  # dotmath
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
00AC    D8      # NOT SIGN      # logicalnot
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
2227    D9      # LOGICAL AND   # logicaland
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
2228    DA      # LOGICAL OR    # logicalor
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
21D4    DB      # LEFT RIGHT DOUBLE ARROW       # arrowdblboth
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
21D0    DC      # LEFTWARDS DOUBLE ARROW        # arrowdblleft
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
21D1    DD      # UPWARDS DOUBLE ARROW  # arrowdblup
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
21D2    DE      # RIGHTWARDS DOUBLE ARROW       # arrowdblright
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
21D3    DF      # DOWNWARDS DOUBLE ARROW        # arrowdbldown
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
25CA    E0      # LOZENGE       # lozenge
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
2329    E1      # LEFT-POINTING ANGLE BRACKET   # angleleft
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
F8E8    E2      # REGISTERED SIGN SANS SERIF    # registersans (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
F8E9    E3      # COPYRIGHT SIGN SANS SERIF     # copyrightsans (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
F8EA    E4      # TRADE MARK SIGN SANS SERIF    # trademarksans (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
2211    E5      # N-ARY SUMMATION       # summation
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
F8EB    E6      # LEFT PAREN TOP        # parenlefttp (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
F8EC    E7      # LEFT PAREN EXTENDER   # parenleftex (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
F8ED    E8      # LEFT PAREN BOTTOM     # parenleftbt (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
F8EE    E9      # LEFT SQUARE BRACKET TOP       # bracketlefttp (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
F8EF    EA      # LEFT SQUARE BRACKET EXTENDER  # bracketleftex (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
F8F0    EB      # LEFT SQUARE BRACKET BOTTOM    # bracketleftbt (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
F8F1    EC      # LEFT CURLY BRACKET TOP        # bracelefttp (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
F8F2    ED      # LEFT CURLY BRACKET MID        # braceleftmid (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
F8F3    EE      # LEFT CURLY BRACKET BOTTOM     # braceleftbt (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
F8F4    EF      # CURLY BRACKET EXTENDER        # braceex (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
232A    F1      # RIGHT-POINTING ANGLE BRACKET  # angleright
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
222B    F2      # INTEGRAL      # integral
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
2320    F3      # TOP HALF INTEGRAL     # integraltp
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
F8F5    F4      # INTEGRAL EXTENDER     # integralex (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
2321    F5      # BOTTOM HALF INTEGRAL  # integralbt
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
F8F6    F6      # RIGHT PAREN TOP       # parenrighttp (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
F8F7    F7      # RIGHT PAREN EXTENDER  # parenrightex (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
F8F8    F8      # RIGHT PAREN BOTTOM    # parenrightbt (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
F8F9    F9      # RIGHT SQUARE BRACKET TOP      # bracketrighttp (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
F8FA    FA      # RIGHT SQUARE BRACKET EXTENDER # bracketrightex (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
F8FB    FB      # RIGHT SQUARE BRACKET BOTTOM   # bracketrightbt (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
F8FC    FC      # RIGHT CURLY BRACKET TOP       # bracerighttp (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
F8FD    FD      # RIGHT CURLY BRACKET MID       # bracerightmid (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
F8FE    FE      # RIGHT CURLY BRACKET BOTTOM    # bracerightbt (CUS)
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
"
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
! !
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
!AdobeSymbol methodsFor:'encoding & decoding'!
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
decode:codeArg
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
    "Automagically generated by generateCode - do not modify.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
     Decode from my encoding into unicode."
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
    |code "{ Class: SmallInteger }"|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
    code := codeArg.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
    code <= 16r1F ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
        ^ self decodingError.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
    code > 16rFE ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
        ^ self decodingError.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
    [
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
        |t|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
        t := #(
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
           "16r0020"    16r00A0 " NO-BREAK SPACE        # space " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
           "16r0021"    16r0021 " EXCLAMATION MARK      # exclam " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
           "16r0022"    16r2200 " FOR ALL       # universal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
           "16r0023"    16r0023 " NUMBER SIGN   # numbersign " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
           "16r0024"    16r2203 " THERE EXISTS  # existential " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
           "16r0025"    16r0025 " PERCENT SIGN  # percent " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
           "16r0026"    16r0026 " AMPERSAND     # ampersand " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
           "16r0027"    16r220B " CONTAINS AS MEMBER    # suchthat " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
           "16r0028"    16r0028 " LEFT PARENTHESIS      # parenleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
           "16r0029"    16r0029 " RIGHT PARENTHESIS     # parenright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
           "16r002A"    16r2217 " ASTERISK OPERATOR     # asteriskmath " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
           "16r002B"    16r002B " PLUS SIGN     # plus " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
           "16r002C"    16r002C " COMMA # comma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
           "16r002D"    16r2212 " MINUS SIGN    # minus " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
           "16r002E"    16r002E " FULL STOP     # period " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
           "16r002F"    16r002F " SOLIDUS       # slash " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
           "16r0030"    16r0030 " DIGIT ZERO    # zero " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
           "16r0031"    16r0031 " DIGIT ONE     # one " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
           "16r0032"    16r0032 " DIGIT TWO     # two " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
           "16r0033"    16r0033 " DIGIT THREE   # three " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   361
           "16r0034"    16r0034 " DIGIT FOUR    # four " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
           "16r0035"    16r0035 " DIGIT FIVE    # five " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
           "16r0036"    16r0036 " DIGIT SIX     # six " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
           "16r0037"    16r0037 " DIGIT SEVEN   # seven " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
           "16r0038"    16r0038 " DIGIT EIGHT   # eight " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
           "16r0039"    16r0039 " DIGIT NINE    # nine " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
           "16r003A"    16r003A " COLON # colon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
           "16r003B"    16r003B " SEMICOLON     # semicolon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
           "16r003C"    16r003C " LESS-THAN SIGN        # less " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
           "16r003D"    16r003D " EQUALS SIGN   # equal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
           "16r003E"    16r003E " GREATER-THAN SIGN     # greater " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
           "16r003F"    16r003F " QUESTION MARK # question " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
           "16r0040"    16r2245 " APPROXIMATELY EQUAL TO        # congruent " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
           "16r0041"    16r0391 " GREEK CAPITAL LETTER ALPHA    # Alpha " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
           "16r0042"    16r0392 " GREEK CAPITAL LETTER BETA     # Beta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
           "16r0043"    16r03A7 " GREEK CAPITAL LETTER CHI      # Chi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
           "16r0044"    16r2206 " INCREMENT     # Delta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
           "16r0045"    16r0395 " GREEK CAPITAL LETTER EPSILON  # Epsilon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
           "16r0046"    16r03A6 " GREEK CAPITAL LETTER PHI      # Phi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
           "16r0047"    16r0393 " GREEK CAPITAL LETTER GAMMA    # Gamma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
           "16r0048"    16r0397 " GREEK CAPITAL LETTER ETA      # Eta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
           "16r0049"    16r0399 " GREEK CAPITAL LETTER IOTA     # Iota " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
           "16r004A"    16r03D1 " GREEK THETA SYMBOL    # theta1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
           "16r004B"    16r039A " GREEK CAPITAL LETTER KAPPA    # Kappa " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
           "16r004C"    16r039B " GREEK CAPITAL LETTER LAMDA    # Lambda " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
           "16r004D"    16r039C " GREEK CAPITAL LETTER MU       # Mu " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
           "16r004E"    16r039D " GREEK CAPITAL LETTER NU       # Nu " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
           "16r004F"    16r039F " GREEK CAPITAL LETTER OMICRON  # Omicron " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
           "16r0050"    16r03A0 " GREEK CAPITAL LETTER PI       # Pi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
           "16r0051"    16r0398 " GREEK CAPITAL LETTER THETA    # Theta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
           "16r0052"    16r03A1 " GREEK CAPITAL LETTER RHO      # Rho " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
           "16r0053"    16r03A3 " GREEK CAPITAL LETTER SIGMA    # Sigma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
           "16r0054"    16r03A4 " GREEK CAPITAL LETTER TAU      # Tau " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
           "16r0055"    16r03A5 " GREEK CAPITAL LETTER UPSILON  # Upsilon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
           "16r0056"    16r03C2 " GREEK SMALL LETTER FINAL SIGMA        # sigma1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
           "16r0057"    16r2126 " OHM SIGN      # Omega " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
           "16r0058"    16r039E " GREEK CAPITAL LETTER XI       # Xi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
           "16r0059"    16r03A8 " GREEK CAPITAL LETTER PSI      # Psi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
           "16r005A"    16r0396 " GREEK CAPITAL LETTER ZETA     # Zeta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
           "16r005B"    16r005B " LEFT SQUARE BRACKET   # bracketleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
           "16r005C"    16r2234 " THEREFORE     # therefore " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
           "16r005D"    16r005D " RIGHT SQUARE BRACKET  # bracketright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
           "16r005E"    16r22A5 " UP TACK       # perpendicular " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   404
           "16r005F"    16r005F " LOW LINE      # underscore " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
           "16r0060"    16rF8E5 " RADICAL EXTENDER      # radicalex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
           "16r0061"    16r03B1 " GREEK SMALL LETTER ALPHA      # alpha " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
           "16r0062"    16r03B2 " GREEK SMALL LETTER BETA       # beta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
           "16r0063"    16r03C7 " GREEK SMALL LETTER CHI        # chi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
           "16r0064"    16r03B4 " GREEK SMALL LETTER DELTA      # delta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
           "16r0065"    16r03B5 " GREEK SMALL LETTER EPSILON    # epsilon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
           "16r0066"    16r03C6 " GREEK SMALL LETTER PHI        # phi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
           "16r0067"    16r03B3 " GREEK SMALL LETTER GAMMA      # gamma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
           "16r0068"    16r03B7 " GREEK SMALL LETTER ETA        # eta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
           "16r0069"    16r03B9 " GREEK SMALL LETTER IOTA       # iota " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
           "16r006A"    16r03D5 " GREEK PHI SYMBOL      # phi1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   416
           "16r006B"    16r03BA " GREEK SMALL LETTER KAPPA      # kappa " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
           "16r006C"    16r03BB " GREEK SMALL LETTER LAMDA      # lambda " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
           "16r006D"    16r03BC " GREEK SMALL LETTER MU # mu " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
           "16r006E"    16r03BD " GREEK SMALL LETTER NU # nu " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
           "16r006F"    16r03BF " GREEK SMALL LETTER OMICRON    # omicron " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
           "16r0070"    16r03C0 " GREEK SMALL LETTER PI # pi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
           "16r0071"    16r03B8 " GREEK SMALL LETTER THETA      # theta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
           "16r0072"    16r03C1 " GREEK SMALL LETTER RHO        # rho " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   424
           "16r0073"    16r03C3 " GREEK SMALL LETTER SIGMA      # sigma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
           "16r0074"    16r03C4 " GREEK SMALL LETTER TAU        # tau " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
           "16r0075"    16r03C5 " GREEK SMALL LETTER UPSILON    # upsilon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   427
           "16r0076"    16r03D6 " GREEK PI SYMBOL       # omega1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   428
           "16r0077"    16r03C9 " GREEK SMALL LETTER OMEGA      # omega " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
           "16r0078"    16r03BE " GREEK SMALL LETTER XI # xi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
           "16r0079"    16r03C8 " GREEK SMALL LETTER PSI        # psi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
           "16r007A"    16r03B6 " GREEK SMALL LETTER ZETA       # zeta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
           "16r007B"    16r007B " LEFT CURLY BRACKET    # braceleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
           "16r007C"    16r007C " VERTICAL LINE # bar " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
           "16r007D"    16r007D " RIGHT CURLY BRACKET   # braceright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
           "16r007E"    16r223C " TILDE OPERATOR        # similar " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
           "16r007F"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
           "16r0080"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
           "16r0081"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
           "16r0082"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
           "16r0083"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
           "16r0084"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
           "16r0085"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
           "16r0086"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
           "16r0087"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
           "16r0088"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
           "16r0089"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
           "16r008A"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
           "16r008B"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
           "16r008C"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
           "16r008D"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
           "16r008E"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
           "16r008F"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
           "16r0090"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
           "16r0091"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
           "16r0092"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
           "16r0093"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
           "16r0094"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
           "16r0095"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
           "16r0096"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
           "16r0097"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
           "16r0098"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
           "16r0099"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
           "16r009A"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
           "16r009B"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
           "16r009C"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
           "16r009D"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
           "16r009E"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
           "16r009F"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
           "16r00A0"    16r20AC " EURO SIGN     # Euro " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
           "16r00A1"    16r03D2 " GREEK UPSILON WITH HOOK SYMBOL        # Upsilon1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
           "16r00A2"    16r2032 " PRIME # minute " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
           "16r00A3"    16r2264 " LESS-THAN OR EQUAL TO # lessequal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
           "16r00A4"    16r2215 " DIVISION SLASH        # fraction " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
           "16r00A5"    16r221E " INFINITY      # infinity " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
           "16r00A6"    16r0192 " LATIN SMALL LETTER F WITH HOOK        # florin " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
           "16r00A7"    16r2663 " BLACK CLUB SUIT       # club " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
           "16r00A8"    16r2666 " BLACK DIAMOND SUIT    # diamond " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
           "16r00A9"    16r2665 " BLACK HEART SUIT      # heart " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
           "16r00AA"    16r2660 " BLACK SPADE SUIT      # spade " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
           "16r00AB"    16r2194 " LEFT RIGHT ARROW      # arrowboth " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
           "16r00AC"    16r2190 " LEFTWARDS ARROW       # arrowleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
           "16r00AD"    16r2191 " UPWARDS ARROW # arrowup " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
           "16r00AE"    16r2192 " RIGHTWARDS ARROW      # arrowright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
           "16r00AF"    16r2193 " DOWNWARDS ARROW       # arrowdown " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
           "16r00B0"    16r00B0 " DEGREE SIGN   # degree " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
           "16r00B1"    16r00B1 " PLUS-MINUS SIGN       # plusminus " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
           "16r00B2"    16r2033 " DOUBLE PRIME  # second " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
           "16r00B3"    16r2265 " GREATER-THAN OR EQUAL TO      # greaterequal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
           "16r00B4"    16r00D7 " MULTIPLICATION SIGN   # multiply " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   490
           "16r00B5"    16r221D " PROPORTIONAL TO       # proportional " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
           "16r00B6"    16r2202 " PARTIAL DIFFERENTIAL  # partialdiff " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
           "16r00B7"    16r2022 " BULLET        # bullet " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   493
           "16r00B8"    16r00F7 " DIVISION SIGN # divide " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
           "16r00B9"    16r2260 " NOT EQUAL TO  # notequal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
           "16r00BA"    16r2261 " IDENTICAL TO  # equivalence " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
           "16r00BB"    16r2248 " ALMOST EQUAL TO       # approxequal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
           "16r00BC"    16r2026 " HORIZONTAL ELLIPSIS   # ellipsis " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
           "16r00BD"    16rF8E6 " VERTICAL ARROW EXTENDER       # arrowvertex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
           "16r00BE"    16rF8E7 " HORIZONTAL ARROW EXTENDER     # arrowhorizex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
           "16r00BF"    16r21B5 " DOWNWARDS ARROW WITH CORNER LEFTWARDS # carriagereturn " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
           "16r00C0"    16r2135 " ALEF SYMBOL   # aleph " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
           "16r00C1"    16r2111 " BLACK-LETTER CAPITAL I        # Ifraktur " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
           "16r00C2"    16r211C " BLACK-LETTER CAPITAL R        # Rfraktur " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
           "16r00C3"    16r2118 " SCRIPT CAPITAL P      # weierstrass " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
           "16r00C4"    16r2297 " CIRCLED TIMES # circlemultiply " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
           "16r00C5"    16r2295 " CIRCLED PLUS  # circleplus " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
           "16r00C6"    16r2205 " EMPTY SET     # emptyset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
           "16r00C7"    16r2229 " INTERSECTION  # intersection " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
           "16r00C8"    16r222A " UNION # union " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
           "16r00C9"    16r2283 " SUPERSET OF   # propersuperset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
           "16r00CA"    16r2287 " SUPERSET OF OR EQUAL TO       # reflexsuperset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
           "16r00CB"    16r2284 " NOT A SUBSET OF       # notsubset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
           "16r00CC"    16r2282 " SUBSET OF     # propersubset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
           "16r00CD"    16r2286 " SUBSET OF OR EQUAL TO # reflexsubset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
           "16r00CE"    16r2208 " ELEMENT OF    # element " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
           "16r00CF"    16r2209 " NOT AN ELEMENT OF     # notelement " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
           "16r00D0"    16r2220 " ANGLE # angle " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
           "16r00D1"    16r2207 " NABLA # gradient " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
           "16r00D2"    16rF6DA " REGISTERED SIGN SERIF # registerserif (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
           "16r00D3"    16rF6D9 " COPYRIGHT SIGN SERIF  # copyrightserif (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
           "16r00D4"    16rF6DB " TRADE MARK SIGN SERIF # trademarkserif (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
           "16r00D5"    16r220F " N-ARY PRODUCT # product " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
           "16r00D6"    16r221A " SQUARE ROOT   # radical " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
           "16r00D7"    16r22C5 " DOT OPERATOR  # dotmath " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
           "16r00D8"    16r00AC " NOT SIGN      # logicalnot " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
           "16r00D9"    16r2227 " LOGICAL AND   # logicaland " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
           "16r00DA"    16r2228 " LOGICAL OR    # logicalor " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
           "16r00DB"    16r21D4 " LEFT RIGHT DOUBLE ARROW       # arrowdblboth " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
           "16r00DC"    16r21D0 " LEFTWARDS DOUBLE ARROW        # arrowdblleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
           "16r00DD"    16r21D1 " UPWARDS DOUBLE ARROW  # arrowdblup " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
           "16r00DE"    16r21D2 " RIGHTWARDS DOUBLE ARROW       # arrowdblright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
           "16r00DF"    16r21D3 " DOWNWARDS DOUBLE ARROW        # arrowdbldown " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
           "16r00E0"    16r25CA " LOZENGE       # lozenge " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
           "16r00E1"    16r2329 " LEFT-POINTING ANGLE BRACKET   # angleleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
           "16r00E2"    16rF8E8 " REGISTERED SIGN SANS SERIF    # registersans (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
           "16r00E3"    16rF8E9 " COPYRIGHT SIGN SANS SERIF     # copyrightsans (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
           "16r00E4"    16rF8EA " TRADE MARK SIGN SANS SERIF    # trademarksans (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
           "16r00E5"    16r2211 " N-ARY SUMMATION       # summation " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
           "16r00E6"    16rF8EB " LEFT PAREN TOP        # parenlefttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
           "16r00E7"    16rF8EC " LEFT PAREN EXTENDER   # parenleftex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
           "16r00E8"    16rF8ED " LEFT PAREN BOTTOM     # parenleftbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
           "16r00E9"    16rF8EE " LEFT SQUARE BRACKET TOP       # bracketlefttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
           "16r00EA"    16rF8EF " LEFT SQUARE BRACKET EXTENDER  # bracketleftex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
           "16r00EB"    16rF8F0 " LEFT SQUARE BRACKET BOTTOM    # bracketleftbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
           "16r00EC"    16rF8F1 " LEFT CURLY BRACKET TOP        # bracelefttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
           "16r00ED"    16rF8F2 " LEFT CURLY BRACKET MID        # braceleftmid (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
           "16r00EE"    16rF8F3 " LEFT CURLY BRACKET BOTTOM     # braceleftbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
           "16r00EF"    16rF8F4 " CURLY BRACKET EXTENDER        # braceex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
           "16r00F0"    16r0000 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
           "16r00F1"    16r232A " RIGHT-POINTING ANGLE BRACKET  # angleright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
           "16r00F2"    16r222B " INTEGRAL      # integral " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
           "16r00F3"    16r2320 " TOP HALF INTEGRAL     # integraltp " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
           "16r00F4"    16rF8F5 " INTEGRAL EXTENDER     # integralex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
           "16r00F5"    16r2321 " BOTTOM HALF INTEGRAL  # integralbt " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
           "16r00F6"    16rF8F6 " RIGHT PAREN TOP       # parenrighttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
           "16r00F7"    16rF8F7 " RIGHT PAREN EXTENDER  # parenrightex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
           "16r00F8"    16rF8F8 " RIGHT PAREN BOTTOM    # parenrightbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
           "16r00F9"    16rF8F9 " RIGHT SQUARE BRACKET TOP      # bracketrighttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
           "16r00FA"    16rF8FA " RIGHT SQUARE BRACKET EXTENDER # bracketrightex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
           "16r00FB"    16rF8FB " RIGHT SQUARE BRACKET BOTTOM   # bracketrightbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
           "16r00FC"    16rF8FC " RIGHT CURLY BRACKET TOP       # bracerighttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
           "16r00FD"    16rF8FD " RIGHT CURLY BRACKET MID       # bracerightmid (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
           "16r00FE"    16rF8FE " RIGHT CURLY BRACKET BOTTOM    # bracerightbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
           ) at:(code - 16r1F).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
        t == 0 ifFalse:[^ t].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
        ^ self decodingError.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
    ] value.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
!
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
encode:unicodeArg
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
    "Automagically generated by generateCode - do not modify.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
     Encode from unicode into my encoding."
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
    |unicode "{ Class: SmallInteger }"|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
    unicode := unicodeArg.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
    unicode <= 16r20 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
        ^ self decodingError.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
    unicode <= 16r21 ifTrue:[ ^ unicode ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
    unicode > 16rF8FE ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
        ^ self encodingError.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
    unicode <= 16r2666 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
        unicode <= 16r3D6 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
            unicode <= 16r192 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
                unicode <= 16rF7 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
                    unicode <= 16r9F ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
                        (#[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
                           "16r0022"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
                           "16r0023"    1 " NUMBER SIGN   # numbersign " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
                           "16r0024"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
                           "16r0025"    1 " PERCENT SIGN  # percent " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
                           "16r0026"    1 " AMPERSAND     # ampersand " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
                           "16r0027"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
                           "16r0028"    1 " LEFT PARENTHESIS      # parenleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
                           "16r0029"    1 " RIGHT PARENTHESIS     # parenright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
                           "16r002A"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
                           "16r002B"    1 " PLUS SIGN     # plus " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
                           "16r002C"    1 " COMMA # comma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
                           "16r002D"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
                           "16r002E"    1 " FULL STOP     # period " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
                           "16r002F"    1 " SOLIDUS       # slash " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
                           "16r0030"    1 " DIGIT ZERO    # zero " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
                           "16r0031"    1 " DIGIT ONE     # one " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
                           "16r0032"    1 " DIGIT TWO     # two " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
                           "16r0033"    1 " DIGIT THREE   # three " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
                           "16r0034"    1 " DIGIT FOUR    # four " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
                           "16r0035"    1 " DIGIT FIVE    # five " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
                           "16r0036"    1 " DIGIT SIX     # six " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
                           "16r0037"    1 " DIGIT SEVEN   # seven " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
                           "16r0038"    1 " DIGIT EIGHT   # eight " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
                           "16r0039"    1 " DIGIT NINE    # nine " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
                           "16r003A"    1 " COLON # colon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
                           "16r003B"    1 " SEMICOLON     # semicolon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
                           "16r003C"    1 " LESS-THAN SIGN        # less " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
                           "16r003D"    1 " EQUALS SIGN   # equal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
                           "16r003E"    1 " GREATER-THAN SIGN     # greater " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
                           "16r003F"    1 " QUESTION MARK # question " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
                           "16r0040"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
                           "16r0041"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
                           "16r0042"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
                           "16r0043"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
                           "16r0044"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
                           "16r0045"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
                           "16r0046"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
                           "16r0047"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
                           "16r0048"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
                           "16r0049"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
                           "16r004A"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
                           "16r004B"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
                           "16r004C"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
                           "16r004D"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
                           "16r004E"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
                           "16r004F"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
                           "16r0050"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
                           "16r0051"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
                           "16r0052"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
                           "16r0053"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
                           "16r0054"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   641
                           "16r0055"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
                           "16r0056"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
                           "16r0057"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
                           "16r0058"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
                           "16r0059"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
                           "16r005A"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
                           "16r005B"    1 " LEFT SQUARE BRACKET   # bracketleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
                           "16r005C"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
                           "16r005D"    1 " RIGHT SQUARE BRACKET  # bracketright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
                           "16r005E"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
                           "16r005F"    1 " LOW LINE      # underscore " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
                           "16r0060"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
                           "16r0061"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
                           "16r0062"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
                           "16r0063"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
                           "16r0064"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
                           "16r0065"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
                           "16r0066"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
                           "16r0067"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
                           "16r0068"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
                           "16r0069"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
                           "16r006A"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
                           "16r006B"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
                           "16r006C"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
                           "16r006D"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
                           "16r006E"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
                           "16r006F"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
                           "16r0070"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
                           "16r0071"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
                           "16r0072"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
                           "16r0073"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
                           "16r0074"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
                           "16r0075"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
                           "16r0076"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
                           "16r0077"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
                           "16r0078"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
                           "16r0079"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
                           "16r007A"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
                           "16r007B"    1 " LEFT CURLY BRACKET    # braceleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
                           "16r007C"    1 " VERTICAL LINE # bar " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
                           "16r007D"    1 " RIGHT CURLY BRACKET   # braceright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
                           "16r007E"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
                           "16r007F"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
                           "16r0080"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   685
                           "16r0081"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
                           "16r0082"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
                           "16r0083"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
                           "16r0084"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
                           "16r0085"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   690
                           "16r0086"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   691
                           "16r0087"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   692
                           "16r0088"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   693
                           "16r0089"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
                           "16r008A"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
                           "16r008B"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   696
                           "16r008C"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   697
                           "16r008D"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   698
                           "16r008E"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   699
                           "16r008F"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   700
                           "16r0090"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   701
                           "16r0091"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   702
                           "16r0092"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
                           "16r0093"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
                           "16r0094"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   705
                           "16r0095"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
                           "16r0096"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   707
                           "16r0097"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   708
                           "16r0098"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   709
                           "16r0099"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   710
                           "16r009A"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
                           "16r009B"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
                           "16r009C"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   713
                           "16r009D"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
                           "16r009E"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
                           "16r009F"    0 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
                        ] at:(unicode - 33)) ~~ 0 ifTrue:[^ unicode].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
                        ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   718
                    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   719
                    unicode <= 16rB1 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   720
                        unicode == 16rA0 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   721
                            (#[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   722
                               "16r00A0"    1 " NO-BREAK SPACE        # space " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   723
                            ] at:(unicode - 159)) ~~ 0 ifTrue:[^ unicode].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   724
                            ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   725
                        ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   726
                        unicode <= 16rAB ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   727
                            ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   728
                        ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   729
                        [
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
                            |t|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
                            t := #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   732
                               "16r00AC"    16rD8 " NOT SIGN      # logicalnot " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   733
                               "16r00AD"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   734
                               "16r00AE"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
                               "16r00AF"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   736
                               "16r00B0"    16rB0 " DEGREE SIGN   # degree " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   737
                               "16r00B1"    16rB1 " PLUS-MINUS SIGN       # plusminus " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   738
                               ] at:(unicode - 16rAB).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   739
                            t == 0 ifFalse:[^ t].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   740
                            ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
                        ] value.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
                    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
                    unicode <= 16rD6 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
                        ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
                    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
                    unicode == 16rD7 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
                        ^  "16r00D7" 16r00B4 " MULTIPLICATION SIGN   # multiply " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   748
                    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
                    unicode <= 16rF6 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
                        ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
                    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
                    ^  "16r00F7" 16r00B8 " DIVISION SIGN # divide " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
                ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
                unicode <= 16r191 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
                    ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   756
                ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
                ^  "16r0192" 16r00A6 " LATIN SMALL LETTER F WITH HOOK        # florin " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
            unicode <= 16r390 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   760
                ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   761
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   762
            [
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   763
                |t|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   764
                t := #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   765
                   "16r0391"    16r41 " GREEK CAPITAL LETTER ALPHA    # Alpha " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   766
                   "16r0392"    16r42 " GREEK CAPITAL LETTER BETA     # Beta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   767
                   "16r0393"    16r47 " GREEK CAPITAL LETTER GAMMA    # Gamma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   768
                   "16r0394"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   769
                   "16r0395"    16r45 " GREEK CAPITAL LETTER EPSILON  # Epsilon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
                   "16r0396"    16r5A " GREEK CAPITAL LETTER ZETA     # Zeta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   771
                   "16r0397"    16r48 " GREEK CAPITAL LETTER ETA      # Eta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
                   "16r0398"    16r51 " GREEK CAPITAL LETTER THETA    # Theta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
                   "16r0399"    16r49 " GREEK CAPITAL LETTER IOTA     # Iota " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
                   "16r039A"    16r4B " GREEK CAPITAL LETTER KAPPA    # Kappa " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
                   "16r039B"    16r4C " GREEK CAPITAL LETTER LAMDA    # Lambda " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
                   "16r039C"    16r4D " GREEK CAPITAL LETTER MU       # Mu " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
                   "16r039D"    16r4E " GREEK CAPITAL LETTER NU       # Nu " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
                   "16r039E"    16r58 " GREEK CAPITAL LETTER XI       # Xi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
                   "16r039F"    16r4F " GREEK CAPITAL LETTER OMICRON  # Omicron " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
                   "16r03A0"    16r50 " GREEK CAPITAL LETTER PI       # Pi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
                   "16r03A1"    16r52 " GREEK CAPITAL LETTER RHO      # Rho " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
                   "16r03A2"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
                   "16r03A3"    16r53 " GREEK CAPITAL LETTER SIGMA    # Sigma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
                   "16r03A4"    16r54 " GREEK CAPITAL LETTER TAU      # Tau " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
                   "16r03A5"    16r55 " GREEK CAPITAL LETTER UPSILON  # Upsilon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
                   "16r03A6"    16r46 " GREEK CAPITAL LETTER PHI      # Phi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   787
                   "16r03A7"    16r43 " GREEK CAPITAL LETTER CHI      # Chi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   788
                   "16r03A8"    16r59 " GREEK CAPITAL LETTER PSI      # Psi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
                   "16r03A9"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
                   "16r03AA"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
                   "16r03AB"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
                   "16r03AC"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
                   "16r03AD"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
                   "16r03AE"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
                   "16r03AF"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
                   "16r03B0"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
                   "16r03B1"    16r61 " GREEK SMALL LETTER ALPHA      # alpha " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
                   "16r03B2"    16r62 " GREEK SMALL LETTER BETA       # beta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
                   "16r03B3"    16r67 " GREEK SMALL LETTER GAMMA      # gamma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
                   "16r03B4"    16r64 " GREEK SMALL LETTER DELTA      # delta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
                   "16r03B5"    16r65 " GREEK SMALL LETTER EPSILON    # epsilon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
                   "16r03B6"    16r7A " GREEK SMALL LETTER ZETA       # zeta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
                   "16r03B7"    16r68 " GREEK SMALL LETTER ETA        # eta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
                   "16r03B8"    16r71 " GREEK SMALL LETTER THETA      # theta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
                   "16r03B9"    16r69 " GREEK SMALL LETTER IOTA       # iota " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
                   "16r03BA"    16r6B " GREEK SMALL LETTER KAPPA      # kappa " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
                   "16r03BB"    16r6C " GREEK SMALL LETTER LAMDA      # lambda " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
                   "16r03BC"    16r6D " GREEK SMALL LETTER MU # mu " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
                   "16r03BD"    16r6E " GREEK SMALL LETTER NU # nu " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
                   "16r03BE"    16r78 " GREEK SMALL LETTER XI # xi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
                   "16r03BF"    16r6F " GREEK SMALL LETTER OMICRON    # omicron " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
                   "16r03C0"    16r70 " GREEK SMALL LETTER PI # pi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
                   "16r03C1"    16r72 " GREEK SMALL LETTER RHO        # rho " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
                   "16r03C2"    16r56 " GREEK SMALL LETTER FINAL SIGMA        # sigma1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
                   "16r03C3"    16r73 " GREEK SMALL LETTER SIGMA      # sigma " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
                   "16r03C4"    16r74 " GREEK SMALL LETTER TAU        # tau " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
                   "16r03C5"    16r75 " GREEK SMALL LETTER UPSILON    # upsilon " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
                   "16r03C6"    16r66 " GREEK SMALL LETTER PHI        # phi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
                   "16r03C7"    16r63 " GREEK SMALL LETTER CHI        # chi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
                   "16r03C8"    16r79 " GREEK SMALL LETTER PSI        # psi " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
                   "16r03C9"    16r77 " GREEK SMALL LETTER OMEGA      # omega " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
                   "16r03CA"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
                   "16r03CB"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
                   "16r03CC"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
                   "16r03CD"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
                   "16r03CE"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
                   "16r03CF"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
                   "16r03D0"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
                   "16r03D1"    16r4A " GREEK THETA SYMBOL    # theta1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
                   "16r03D2"    16rA1 " GREEK UPSILON WITH HOOK SYMBOL        # Upsilon1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
                   "16r03D3"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
                   "16r03D4"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
                   "16r03D5"    16r6A " GREEK PHI SYMBOL      # phi1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
                   "16r03D6"    16r76 " GREEK PI SYMBOL       # omega1 " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
                   ] at:(unicode - 16r390).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
                t == 0 ifFalse:[^ t].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
                ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
            ] value.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
        ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
        unicode <= 16r2021 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
            ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
        ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
        unicode <= 16r232A ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
            unicode <= 16r2033 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
                [
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
                    |t|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
                    t := #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
                       "16r2022"    16rB7 " BULLET        # bullet " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
                       "16r2023"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   850
                       "16r2024"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
                       "16r2025"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   852
                       "16r2026"    16rBC " HORIZONTAL ELLIPSIS   # ellipsis " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
                       "16r2027"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
                       "16r2028"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
                       "16r2029"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   856
                       "16r202A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   857
                       "16r202B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   858
                       "16r202C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
                       "16r202D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
                       "16r202E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
                       "16r202F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
                       "16r2030"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
                       "16r2031"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
                       "16r2032"    16rA2 " PRIME # minute " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
                       "16r2033"    16rB2 " DOUBLE PRIME  # second " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
                       ] at:(unicode - 16r2021).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
                    t == 0 ifFalse:[^ t].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
                    ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
                ] value.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
            unicode <= 16r20AB ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
                ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
            unicode <= 16r20AC ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
                ^  "16r20AC" 16r00A0 " EURO SIGN     # Euro " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
            unicode <= 16r2110 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
                ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
            unicode <= 16r2135 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
                [
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
                    |t|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
                    t := #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
                       "16r2111"    16rC1 " BLACK-LETTER CAPITAL I        # Ifraktur " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
                       "16r2112"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
                       "16r2113"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
                       "16r2114"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
                       "16r2115"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
                       "16r2116"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
                       "16r2117"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
                       "16r2118"    16rC3 " SCRIPT CAPITAL P      # weierstrass " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
                       "16r2119"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   893
                       "16r211A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
                       "16r211B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
                       "16r211C"    16rC2 " BLACK-LETTER CAPITAL R        # Rfraktur " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
                       "16r211D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
                       "16r211E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
                       "16r211F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   899
                       "16r2120"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   900
                       "16r2121"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
                       "16r2122"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
                       "16r2123"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
                       "16r2124"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
                       "16r2125"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
                       "16r2126"    16r57 " OHM SIGN      # Omega " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
                       "16r2127"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
                       "16r2128"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
                       "16r2129"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
                       "16r212A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   910
                       "16r212B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
                       "16r212C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   912
                       "16r212D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   913
                       "16r212E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   914
                       "16r212F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   915
                       "16r2130"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   916
                       "16r2131"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   917
                       "16r2132"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   918
                       "16r2133"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   919
                       "16r2134"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   920
                       "16r2135"    16rC0 " ALEF SYMBOL   # aleph " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   921
                       ] at:(unicode - 16r2110).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   922
                    t == 0 ifFalse:[^ t].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   923
                    ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   924
                ] value.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   925
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
            unicode <= 16r218F ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   927
                ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   928
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   929
            unicode <= 16r22C5 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   930
                unicode <= 16r21D4 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   931
                    unicode <= 16r2194 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   932
                        ^ #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   933
                           "16r2190"    16rAC " LEFTWARDS ARROW       # arrowleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
                           "16r2191"    16rAD " UPWARDS ARROW # arrowup " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
                           "16r2192"    16rAE " RIGHTWARDS ARROW      # arrowright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   936
                           "16r2193"    16rAF " DOWNWARDS ARROW       # arrowdown " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
                           "16r2194"    16rAB " LEFT RIGHT ARROW      # arrowboth " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   938
                           ] at:(unicode - 16r218F).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
                    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
                    unicode <= 16r21B4 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   941
                        ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   942
                    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   943
                    unicode == 16r21B5 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   944
                        ^  "16r21B5" 16r00BF " DOWNWARDS ARROW WITH CORNER LEFTWARDS # carriagereturn " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   945
                    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
                    unicode <= 16r21CF ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   947
                        ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   948
                    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   949
                    ^ #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   950
                       "16r21D0"    16rDC " LEFTWARDS DOUBLE ARROW        # arrowdblleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   951
                       "16r21D1"    16rDD " UPWARDS DOUBLE ARROW  # arrowdblup " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   952
                       "16r21D2"    16rDE " RIGHTWARDS DOUBLE ARROW       # arrowdblright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   953
                       "16r21D3"    16rDF " DOWNWARDS DOUBLE ARROW        # arrowdbldown " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   954
                       "16r21D4"    16rDB " LEFT RIGHT DOUBLE ARROW       # arrowdblboth " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   955
                       ] at:(unicode - 16r21CF).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   956
                ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   957
                unicode <= 16r21FF ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   958
                    ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   959
                ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   960
                [
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   961
                    |t|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   962
                    t := #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   963
                       "16r2200"    16r22 " FOR ALL       # universal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   964
                       "16r2201"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   965
                       "16r2202"    16rB6 " PARTIAL DIFFERENTIAL  # partialdiff " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   966
                       "16r2203"    16r24 " THERE EXISTS  # existential " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   967
                       "16r2204"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   968
                       "16r2205"    16rC6 " EMPTY SET     # emptyset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   969
                       "16r2206"    16r44 " INCREMENT     # Delta " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   970
                       "16r2207"    16rD1 " NABLA # gradient " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   971
                       "16r2208"    16rCE " ELEMENT OF    # element " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
                       "16r2209"    16rCF " NOT AN ELEMENT OF     # notelement " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   973
                       "16r220A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   974
                       "16r220B"    16r27 " CONTAINS AS MEMBER    # suchthat " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   975
                       "16r220C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   976
                       "16r220D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   977
                       "16r220E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   978
                       "16r220F"    16rD5 " N-ARY PRODUCT # product " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
                       "16r2210"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
                       "16r2211"    16rE5 " N-ARY SUMMATION       # summation " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   981
                       "16r2212"    16r2D " MINUS SIGN    # minus " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   982
                       "16r2213"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   983
                       "16r2214"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   984
                       "16r2215"    16rA4 " DIVISION SLASH        # fraction " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   985
                       "16r2216"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   986
                       "16r2217"    16r2A " ASTERISK OPERATOR     # asteriskmath " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
                       "16r2218"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   988
                       "16r2219"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
                       "16r221A"    16rD6 " SQUARE ROOT   # radical " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   990
                       "16r221B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   991
                       "16r221C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   992
                       "16r221D"    16rB5 " PROPORTIONAL TO       # proportional " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   993
                       "16r221E"    16rA5 " INFINITY      # infinity " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
                       "16r221F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   995
                       "16r2220"    16rD0 " ANGLE # angle " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   996
                       "16r2221"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   997
                       "16r2222"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
                       "16r2223"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
                       "16r2224"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
                       "16r2225"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1001
                       "16r2226"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1002
                       "16r2227"    16rD9 " LOGICAL AND   # logicaland " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1003
                       "16r2228"    16rDA " LOGICAL OR    # logicalor " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1004
                       "16r2229"    16rC7 " INTERSECTION  # intersection " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
                       "16r222A"    16rC8 " UNION # union " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1006
                       "16r222B"    16rF2 " INTEGRAL      # integral " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
                       "16r222C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1008
                       "16r222D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1009
                       "16r222E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1010
                       "16r222F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1011
                       "16r2230"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
                       "16r2231"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
                       "16r2232"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
                       "16r2233"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1015
                       "16r2234"    16r5C " THEREFORE     # therefore " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
                       "16r2235"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
                       "16r2236"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1018
                       "16r2237"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1019
                       "16r2238"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1020
                       "16r2239"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1021
                       "16r223A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
                       "16r223B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
                       "16r223C"    16r7E " TILDE OPERATOR        # similar " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
                       "16r223D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1025
                       "16r223E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
                       "16r223F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1027
                       "16r2240"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
                       "16r2241"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
                       "16r2242"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1030
                       "16r2243"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1031
                       "16r2244"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1032
                       "16r2245"    16r40 " APPROXIMATELY EQUAL TO        # congruent " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
                       "16r2246"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1034
                       "16r2247"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
                       "16r2248"    16rBB " ALMOST EQUAL TO       # approxequal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1036
                       "16r2249"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1037
                       "16r224A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1038
                       "16r224B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1039
                       "16r224C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1040
                       "16r224D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
                       "16r224E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1042
                       "16r224F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1043
                       "16r2250"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1044
                       "16r2251"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
                       "16r2252"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
                       "16r2253"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
                       "16r2254"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
                       "16r2255"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
                       "16r2256"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1050
                       "16r2257"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
                       "16r2258"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
                       "16r2259"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
                       "16r225A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
                       "16r225B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
                       "16r225C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
                       "16r225D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
                       "16r225E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
                       "16r225F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
                       "16r2260"    16rB9 " NOT EQUAL TO  # notequal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
                       "16r2261"    16rBA " IDENTICAL TO  # equivalence " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
                       "16r2262"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
                       "16r2263"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
                       "16r2264"    16rA3 " LESS-THAN OR EQUAL TO # lessequal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
                       "16r2265"    16rB3 " GREATER-THAN OR EQUAL TO      # greaterequal " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
                       "16r2266"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
                       "16r2267"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
                       "16r2268"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
                       "16r2269"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
                       "16r226A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
                       "16r226B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1071
                       "16r226C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
                       "16r226D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
                       "16r226E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
                       "16r226F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
                       "16r2270"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
                       "16r2271"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
                       "16r2272"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
                       "16r2273"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
                       "16r2274"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
                       "16r2275"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
                       "16r2276"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
                       "16r2277"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1083
                       "16r2278"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1084
                       "16r2279"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1085
                       "16r227A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1086
                       "16r227B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1087
                       "16r227C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
                       "16r227D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1089
                       "16r227E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
                       "16r227F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1091
                       "16r2280"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1092
                       "16r2281"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1093
                       "16r2282"    16rCC " SUBSET OF     # propersubset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1094
                       "16r2283"    16rC9 " SUPERSET OF   # propersuperset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1095
                       "16r2284"    16rCB " NOT A SUBSET OF       # notsubset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1096
                       "16r2285"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1097
                       "16r2286"    16rCD " SUBSET OF OR EQUAL TO # reflexsubset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1098
                       "16r2287"    16rCA " SUPERSET OF OR EQUAL TO       # reflexsuperset " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1099
                       "16r2288"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
                       "16r2289"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
                       "16r228A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
                       "16r228B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1103
                       "16r228C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1104
                       "16r228D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1105
                       "16r228E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1106
                       "16r228F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1107
                       "16r2290"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1108
                       "16r2291"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1109
                       "16r2292"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
                       "16r2293"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
                       "16r2294"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
                       "16r2295"    16rC5 " CIRCLED PLUS  # circleplus " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
                       "16r2296"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
                       "16r2297"    16rC4 " CIRCLED TIMES # circlemultiply " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
                       "16r2298"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
                       "16r2299"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
                       "16r229A"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1118
                       "16r229B"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
                       "16r229C"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
                       "16r229D"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
                       "16r229E"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
                       "16r229F"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
                       "16r22A0"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
                       "16r22A1"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
                       "16r22A2"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
                       "16r22A3"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
                       "16r22A4"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
                       "16r22A5"    16r5E " UP TACK       # perpendicular " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1129
                       "16r22A6"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
                       "16r22A7"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
                       "16r22A8"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1132
                       "16r22A9"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
                       "16r22AA"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
                       "16r22AB"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
                       "16r22AC"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
                       "16r22AD"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
                       "16r22AE"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
                       "16r22AF"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
                       "16r22B0"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
                       "16r22B1"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
                       "16r22B2"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
                       "16r22B3"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
                       "16r22B4"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
                       "16r22B5"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
                       "16r22B6"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
                       "16r22B7"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
                       "16r22B8"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
                       "16r22B9"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
                       "16r22BA"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
                       "16r22BB"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
                       "16r22BC"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
                       "16r22BD"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
                       "16r22BE"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
                       "16r22BF"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
                       "16r22C0"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
                       "16r22C1"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1157
                       "16r22C2"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
                       "16r22C3"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
                       "16r22C4"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
                       "16r22C5"    16rD7 " DOT OPERATOR  # dotmath " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
                       ] at:(unicode - 16r21FF).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
                    t == 0 ifFalse:[^ t].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
                    ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1164
                ] value.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1165
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
            unicode <= 16r231F ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
                ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
            ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
            [
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
                |t|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1171
                t := #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1172
                   "16r2320"    16rF3 " TOP HALF INTEGRAL     # integraltp " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
                   "16r2321"    16rF5 " BOTTOM HALF INTEGRAL  # integralbt " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
                   "16r2322"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
                   "16r2323"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
                   "16r2324"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
                   "16r2325"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1178
                   "16r2326"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1179
                   "16r2327"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1180
                   "16r2328"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1181
                   "16r2329"    16rE1 " LEFT-POINTING ANGLE BRACKET   # angleleft " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1182
                   "16r232A"    16rF1 " RIGHT-POINTING ANGLE BRACKET  # angleright " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1183
                   ] at:(unicode - 16r231F).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1184
                t == 0 ifFalse:[^ t].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1185
                ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1186
            ] value.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
        ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
        unicode <= 16r25C9 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1189
            ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
        ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1191
        unicode == 16r25CA ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1192
            ^  "16r25CA" 16r00E0 " LOZENGE       # lozenge " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
        ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
        unicode <= 16r265F ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
            ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1196
        ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1197
        [
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1198
            |t|
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1199
            t := #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1200
               "16r2660"    16rAA " BLACK SPADE SUIT      # spade " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1201
               "16r2661"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1202
               "16r2662"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1203
               "16r2663"    16rA7 " BLACK CLUB SUIT       # club " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1204
               "16r2664"    16r00 " invalid " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1205
               "16r2665"    16rA9 " BLACK HEART SUIT      # heart " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1206
               "16r2666"    16rA8 " BLACK DIAMOND SUIT    # diamond " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1207
               ] at:(unicode - 16r265F).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1208
            t == 0 ifFalse:[^ t].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1209
            ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1210
        ] value.
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1211
    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1212
    unicode <= 16rF6D8 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1213
        ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1214
    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1215
    unicode <= 16rF6DB ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1216
        ^ #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1217
           "16rF6D9"    16rD3 " COPYRIGHT SIGN SERIF  # copyrightserif (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1218
           "16rF6DA"    16rD2 " REGISTERED SIGN SERIF # registerserif (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1219
           "16rF6DB"    16rD4 " TRADE MARK SIGN SERIF # trademarkserif (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1220
           ] at:(unicode - 16rF6D8).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1221
    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1222
    unicode <= 16rF8E4 ifTrue:[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1223
        ^ self encodingError
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1224
    ].
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1225
    ^ #[
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1226
       "16rF8E5"    16r60 " RADICAL EXTENDER      # radicalex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1227
       "16rF8E6"    16rBD " VERTICAL ARROW EXTENDER       # arrowvertex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1228
       "16rF8E7"    16rBE " HORIZONTAL ARROW EXTENDER     # arrowhorizex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1229
       "16rF8E8"    16rE2 " REGISTERED SIGN SANS SERIF    # registersans (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1230
       "16rF8E9"    16rE3 " COPYRIGHT SIGN SANS SERIF     # copyrightsans (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1231
       "16rF8EA"    16rE4 " TRADE MARK SIGN SANS SERIF    # trademarksans (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1232
       "16rF8EB"    16rE6 " LEFT PAREN TOP        # parenlefttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1233
       "16rF8EC"    16rE7 " LEFT PAREN EXTENDER   # parenleftex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1234
       "16rF8ED"    16rE8 " LEFT PAREN BOTTOM     # parenleftbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1235
       "16rF8EE"    16rE9 " LEFT SQUARE BRACKET TOP       # bracketlefttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
       "16rF8EF"    16rEA " LEFT SQUARE BRACKET EXTENDER  # bracketleftex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1237
       "16rF8F0"    16rEB " LEFT SQUARE BRACKET BOTTOM    # bracketleftbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1238
       "16rF8F1"    16rEC " LEFT CURLY BRACKET TOP        # bracelefttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1239
       "16rF8F2"    16rED " LEFT CURLY BRACKET MID        # braceleftmid (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1240
       "16rF8F3"    16rEE " LEFT CURLY BRACKET BOTTOM     # braceleftbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1241
       "16rF8F4"    16rEF " CURLY BRACKET EXTENDER        # braceex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1242
       "16rF8F5"    16rF4 " INTEGRAL EXTENDER     # integralex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1243
       "16rF8F6"    16rF6 " RIGHT PAREN TOP       # parenrighttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1244
       "16rF8F7"    16rF7 " RIGHT PAREN EXTENDER  # parenrightex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1245
       "16rF8F8"    16rF8 " RIGHT PAREN BOTTOM    # parenrightbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1246
       "16rF8F9"    16rF9 " RIGHT SQUARE BRACKET TOP      # bracketrighttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1247
       "16rF8FA"    16rFA " RIGHT SQUARE BRACKET EXTENDER # bracketrightex (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1248
       "16rF8FB"    16rFB " RIGHT SQUARE BRACKET BOTTOM   # bracketrightbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1249
       "16rF8FC"    16rFC " RIGHT CURLY BRACKET TOP       # bracerighttp (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1250
       "16rF8FD"    16rFD " RIGHT CURLY BRACKET MID       # bracerightmid (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1251
       "16rF8FE"    16rFE " RIGHT CURLY BRACKET BOTTOM    # bracerightbt (CUS) " 
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1252
       ] at:(unicode - 16rF8E4).
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1253
! !
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1254
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1255
!AdobeSymbol class methodsFor:'documentation'!
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1256
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1257
version
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1258
    ^ '$Header$'
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1259
!
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1260
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1261
version_CVS
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1262
    ^ '$Header$'
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1263
! !
bbdbb633670b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1264