CharacterEncoderImplementations__ISO8859_7.st
author Claus Gittinger <cg@exept.de>
Tue, 09 Jul 2019 20:55:17 +0200
changeset 24417 03b083548da2
parent 14185 fa834a81a55c
child 18011 deb0c3355881
permissions -rw-r--r--
#REFACTORING by exept class: Smalltalk class changed: #recursiveInstallAutoloadedClassesFrom:rememberIn:maxLevels:noAutoload:packageTop:showSplashInLevels: Transcript showCR:(... bindWith:...) -> Transcript showCR:... with:...
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     1
"
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     2
 COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     3
              All Rights Reserved
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     4
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     5
 This software is furnished under a license and may be used
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     6
 only in accordance with the terms of that license and with the
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     8
 be provided or otherwise made available to, or used by, any
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     9
 other person.  No title to or ownership of the software is
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    10
 hereby transferred.
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    11
"
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libbasic' }"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: CharacterEncoderImplementations }"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
SingleByteEncoder subclass:#ISO8859_7
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:''
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Collections-Text-Encodings'
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    23
!ISO8859_7 class methodsFor:'documentation'!
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    24
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    25
copyright
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    26
"
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    27
 COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    28
              All Rights Reserved
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    29
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    30
 This software is furnished under a license and may be used
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    31
 only in accordance with the terms of that license and with the
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    33
 be provided or otherwise made available to, or used by, any
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    34
 other person.  No title to or ownership of the software is
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    35
 hereby transferred.
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    36
"
8811
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    37
!
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    38
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    39
documentation
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    40
"
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    41
    8859-7 - Greek.
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    42
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    43
    [see with:]
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    44
        CharacterEncoderImplementations::ISO8859_7 showCharacterSet
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    45
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    46
    [author:]
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    47
        Claus Gittinger
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    48
"
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    49
! !
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
!ISO8859_7 class methodsFor:'mapping'!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
mapFileURL1_relativePathName
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    ^ 'ISO8859/8859-7.TXT'
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
mapping
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
# From: http://www.unicode.org/Public/MAPPINGS/ISO8859/8859-7.TXT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
#       Name:             ISO 8859-7:2003 to Unicode
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
#       Unicode version:  4.0
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
#       Table version:    2.0
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
#       Table format:     Format A
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
#       Date:             2003-Nov-12
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
#       Authors:          Ken Whistler <kenw@sybase.com>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
#       Copyright (c) 1991-2003 Unicode, Inc.  All Rights reserved.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
#       This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
#       No claims are made as to fitness for any particular purpose.  No
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
#       warranties of any kind are expressed or implied.  The recipient
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
#       agrees to determine applicability of information provided.  If this
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
#       file has been provided on optical media by Unicode, Inc., the sole
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
#       remedy for any claim will be exchange of defective media within 90
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
#       days of receipt.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
#       Unicode, Inc. hereby grants the right to freely use the information
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
#       supplied in this file in the creation of products supporting the
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
#       Unicode Standard, and to make copies of this file in any form for
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
#       internal or external distribution as long as this notice remains
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
#       attached.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
#       General notes:
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
#       This table contains the data the Unicode Consortium has on how
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
#       ISO 8859-7:2003 characters map into Unicode.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
#       ISO 8859-7:1987 is equivalent to ISO-IR-126, ELOT 928,
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
#       and ECMA 118. ISO 8859-7:2003 adds two currency signs 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
#       and one other character not in the earlier standard.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
#       Format:  Three tab-separated columns
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
#                Column #1 is the ISO 8859-7 code (in hex as 0xXX)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
#                Column #2 is the Unicode (in hex as 0xXXXX)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
#                Column #3 the Unicode name (follows a comment sign, '#')
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
#       The entries are in ISO 8859-7 order.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
#       Version history
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
#       1.0 version updates 0.1 version by adding mappings for all
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
#       control characters.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
#       Remap 0xA1 to U+2018 (instead of 0x02BD) to match text of 8859-7
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
#       Remap 0xA2 to U+2019 (instead of 0x02BC) to match text of 8859-7
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
#       2.0 version updates 1.0 version by adding mappings for the
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
#       three newly added characters 0xA4, 0xA5, 0xAA.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
#       Updated versions of this file may be found in:
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
#               <http://www.unicode.org/Public/MAPPINGS/>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
#       Any comments or problems, contact the Unicode Consortium at:
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
#               <http://www.unicode.org/reporting.html>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
#
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
0x00    0x0000  #       NULL
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
0x01    0x0001  #       START OF HEADING
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
0x02    0x0002  #       START OF TEXT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
0x03    0x0003  #       END OF TEXT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
0x04    0x0004  #       END OF TRANSMISSION
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
0x05    0x0005  #       ENQUIRY
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
0x06    0x0006  #       ACKNOWLEDGE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
0x07    0x0007  #       BELL
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
0x08    0x0008  #       BACKSPACE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
0x09    0x0009  #       HORIZONTAL TABULATION
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
0x0A    0x000A  #       LINE FEED
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
0x0B    0x000B  #       VERTICAL TABULATION
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
0x0C    0x000C  #       FORM FEED
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
0x0D    0x000D  #       CARRIAGE RETURN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
0x0E    0x000E  #       SHIFT OUT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
0x0F    0x000F  #       SHIFT IN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
0x10    0x0010  #       DATA LINK ESCAPE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
0x11    0x0011  #       DEVICE CONTROL ONE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
0x12    0x0012  #       DEVICE CONTROL TWO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
0x13    0x0013  #       DEVICE CONTROL THREE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
0x14    0x0014  #       DEVICE CONTROL FOUR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
0x15    0x0015  #       NEGATIVE ACKNOWLEDGE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
0x16    0x0016  #       SYNCHRONOUS IDLE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
0x17    0x0017  #       END OF TRANSMISSION BLOCK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
0x18    0x0018  #       CANCEL
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
0x19    0x0019  #       END OF MEDIUM
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
0x1A    0x001A  #       SUBSTITUTE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
0x1B    0x001B  #       ESCAPE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
0x1C    0x001C  #       FILE SEPARATOR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
0x1D    0x001D  #       GROUP SEPARATOR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
0x1E    0x001E  #       RECORD SEPARATOR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
0x1F    0x001F  #       UNIT SEPARATOR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
0x20    0x0020  #       SPACE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
0x21    0x0021  #       EXCLAMATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
0x22    0x0022  #       QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
0x23    0x0023  #       NUMBER SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
0x24    0x0024  #       DOLLAR SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
0x25    0x0025  #       PERCENT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
0x26    0x0026  #       AMPERSAND
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
0x27    0x0027  #       APOSTROPHE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
0x28    0x0028  #       LEFT PARENTHESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
0x29    0x0029  #       RIGHT PARENTHESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
0x2A    0x002A  #       ASTERISK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
0x2B    0x002B  #       PLUS SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
0x2C    0x002C  #       COMMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
0x2D    0x002D  #       HYPHEN-MINUS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
0x2E    0x002E  #       FULL STOP
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
0x2F    0x002F  #       SOLIDUS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
0x30    0x0030  #       DIGIT ZERO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
0x31    0x0031  #       DIGIT ONE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
0x32    0x0032  #       DIGIT TWO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
0x33    0x0033  #       DIGIT THREE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
0x34    0x0034  #       DIGIT FOUR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
0x35    0x0035  #       DIGIT FIVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
0x36    0x0036  #       DIGIT SIX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
0x37    0x0037  #       DIGIT SEVEN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
0x38    0x0038  #       DIGIT EIGHT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
0x39    0x0039  #       DIGIT NINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
0x3A    0x003A  #       COLON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
0x3B    0x003B  #       SEMICOLON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
0x3C    0x003C  #       LESS-THAN SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
0x3D    0x003D  #       EQUALS SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
0x3E    0x003E  #       GREATER-THAN SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
0x3F    0x003F  #       QUESTION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
0x40    0x0040  #       COMMERCIAL AT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
0x41    0x0041  #       LATIN CAPITAL LETTER A
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
0x42    0x0042  #       LATIN CAPITAL LETTER B
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
0x43    0x0043  #       LATIN CAPITAL LETTER C
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
0x44    0x0044  #       LATIN CAPITAL LETTER D
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
0x45    0x0045  #       LATIN CAPITAL LETTER E
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
0x46    0x0046  #       LATIN CAPITAL LETTER F
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
0x47    0x0047  #       LATIN CAPITAL LETTER G
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
0x48    0x0048  #       LATIN CAPITAL LETTER H
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
0x49    0x0049  #       LATIN CAPITAL LETTER I
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
0x4A    0x004A  #       LATIN CAPITAL LETTER J
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
0x4B    0x004B  #       LATIN CAPITAL LETTER K
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
0x4C    0x004C  #       LATIN CAPITAL LETTER L
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
0x4D    0x004D  #       LATIN CAPITAL LETTER M
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
0x4E    0x004E  #       LATIN CAPITAL LETTER N
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
0x4F    0x004F  #       LATIN CAPITAL LETTER O
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
0x50    0x0050  #       LATIN CAPITAL LETTER P
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
0x51    0x0051  #       LATIN CAPITAL LETTER Q
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
0x52    0x0052  #       LATIN CAPITAL LETTER R
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
0x53    0x0053  #       LATIN CAPITAL LETTER S
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
0x54    0x0054  #       LATIN CAPITAL LETTER T
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
0x55    0x0055  #       LATIN CAPITAL LETTER U
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
0x56    0x0056  #       LATIN CAPITAL LETTER V
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
0x57    0x0057  #       LATIN CAPITAL LETTER W
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
0x58    0x0058  #       LATIN CAPITAL LETTER X
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
0x59    0x0059  #       LATIN CAPITAL LETTER Y
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
0x5A    0x005A  #       LATIN CAPITAL LETTER Z
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
0x5B    0x005B  #       LEFT SQUARE BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
0x5C    0x005C  #       REVERSE SOLIDUS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
0x5D    0x005D  #       RIGHT SQUARE BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
0x5E    0x005E  #       CIRCUMFLEX ACCENT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
0x5F    0x005F  #       LOW LINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
0x60    0x0060  #       GRAVE ACCENT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
0x61    0x0061  #       LATIN SMALL LETTER A
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
0x62    0x0062  #       LATIN SMALL LETTER B
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
0x63    0x0063  #       LATIN SMALL LETTER C
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
0x64    0x0064  #       LATIN SMALL LETTER D
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
0x65    0x0065  #       LATIN SMALL LETTER E
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
0x66    0x0066  #       LATIN SMALL LETTER F
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
0x67    0x0067  #       LATIN SMALL LETTER G
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
0x68    0x0068  #       LATIN SMALL LETTER H
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
0x69    0x0069  #       LATIN SMALL LETTER I
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
0x6A    0x006A  #       LATIN SMALL LETTER J
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
0x6B    0x006B  #       LATIN SMALL LETTER K
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
0x6C    0x006C  #       LATIN SMALL LETTER L
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
0x6D    0x006D  #       LATIN SMALL LETTER M
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
0x6E    0x006E  #       LATIN SMALL LETTER N
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
0x6F    0x006F  #       LATIN SMALL LETTER O
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
0x70    0x0070  #       LATIN SMALL LETTER P
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
0x71    0x0071  #       LATIN SMALL LETTER Q
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
0x72    0x0072  #       LATIN SMALL LETTER R
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
0x73    0x0073  #       LATIN SMALL LETTER S
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
0x74    0x0074  #       LATIN SMALL LETTER T
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
0x75    0x0075  #       LATIN SMALL LETTER U
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
0x76    0x0076  #       LATIN SMALL LETTER V
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
0x77    0x0077  #       LATIN SMALL LETTER W
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
0x78    0x0078  #       LATIN SMALL LETTER X
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
0x79    0x0079  #       LATIN SMALL LETTER Y
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
0x7A    0x007A  #       LATIN SMALL LETTER Z
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
0x7B    0x007B  #       LEFT CURLY BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
0x7C    0x007C  #       VERTICAL LINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
0x7D    0x007D  #       RIGHT CURLY BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
0x7E    0x007E  #       TILDE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
0x7F    0x007F  #       DELETE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
0x80    0x0080  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
0x81    0x0081  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
0x82    0x0082  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
0x83    0x0083  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
0x84    0x0084  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
0x85    0x0085  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
0x86    0x0086  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
0x87    0x0087  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
0x88    0x0088  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
0x89    0x0089  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
0x8A    0x008A  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
0x8B    0x008B  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
0x8C    0x008C  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
0x8D    0x008D  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
0x8E    0x008E  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
0x8F    0x008F  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
0x90    0x0090  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
0x91    0x0091  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
0x92    0x0092  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
0x93    0x0093  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
0x94    0x0094  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
0x95    0x0095  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
0x96    0x0096  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
0x97    0x0097  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
0x98    0x0098  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
0x99    0x0099  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
0x9A    0x009A  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
0x9B    0x009B  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
0x9C    0x009C  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
0x9D    0x009D  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
0x9E    0x009E  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
0x9F    0x009F  #       <control>
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
0xA0    0x00A0  #       NO-BREAK SPACE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
0xA1    0x2018  #       LEFT SINGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
0xA2    0x2019  #       RIGHT SINGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
0xA3    0x00A3  #       POUND SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
0xA4    0x20AC  #       EURO SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
0xA5    0x20AF  #       DRACHMA SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
0xA6    0x00A6  #       BROKEN BAR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
0xA7    0x00A7  #       SECTION SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
0xA8    0x00A8  #       DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
0xA9    0x00A9  #       COPYRIGHT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
0xAA    0x037A  #       GREEK YPOGEGRAMMENI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
0xAB    0x00AB  #       LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
0xAC    0x00AC  #       NOT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
0xAD    0x00AD  #       SOFT HYPHEN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
0xAF    0x2015  #       HORIZONTAL BAR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
0xB0    0x00B0  #       DEGREE SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
0xB1    0x00B1  #       PLUS-MINUS SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
0xB2    0x00B2  #       SUPERSCRIPT TWO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
0xB3    0x00B3  #       SUPERSCRIPT THREE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
0xB4    0x0384  #       GREEK TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
0xB5    0x0385  #       GREEK DIALYTIKA TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
0xB6    0x0386  #       GREEK CAPITAL LETTER ALPHA WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
0xB7    0x00B7  #       MIDDLE DOT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
0xB8    0x0388  #       GREEK CAPITAL LETTER EPSILON WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
0xB9    0x0389  #       GREEK CAPITAL LETTER ETA WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
0xBA    0x038A  #       GREEK CAPITAL LETTER IOTA WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
0xBB    0x00BB  #       RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
0xBC    0x038C  #       GREEK CAPITAL LETTER OMICRON WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
0xBD    0x00BD  #       VULGAR FRACTION ONE HALF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
0xBE    0x038E  #       GREEK CAPITAL LETTER UPSILON WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
0xBF    0x038F  #       GREEK CAPITAL LETTER OMEGA WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
0xC0    0x0390  #       GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
0xC1    0x0391  #       GREEK CAPITAL LETTER ALPHA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
0xC2    0x0392  #       GREEK CAPITAL LETTER BETA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
0xC3    0x0393  #       GREEK CAPITAL LETTER GAMMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
0xC4    0x0394  #       GREEK CAPITAL LETTER DELTA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
0xC5    0x0395  #       GREEK CAPITAL LETTER EPSILON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
0xC6    0x0396  #       GREEK CAPITAL LETTER ZETA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
0xC7    0x0397  #       GREEK CAPITAL LETTER ETA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
0xC8    0x0398  #       GREEK CAPITAL LETTER THETA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
0xC9    0x0399  #       GREEK CAPITAL LETTER IOTA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
0xCA    0x039A  #       GREEK CAPITAL LETTER KAPPA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
0xCB    0x039B  #       GREEK CAPITAL LETTER LAMDA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
0xCC    0x039C  #       GREEK CAPITAL LETTER MU
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
0xCD    0x039D  #       GREEK CAPITAL LETTER NU
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
0xCE    0x039E  #       GREEK CAPITAL LETTER XI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
0xCF    0x039F  #       GREEK CAPITAL LETTER OMICRON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
0xD0    0x03A0  #       GREEK CAPITAL LETTER PI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
0xD1    0x03A1  #       GREEK CAPITAL LETTER RHO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
0xD3    0x03A3  #       GREEK CAPITAL LETTER SIGMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
0xD4    0x03A4  #       GREEK CAPITAL LETTER TAU
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
0xD5    0x03A5  #       GREEK CAPITAL LETTER UPSILON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
0xD6    0x03A6  #       GREEK CAPITAL LETTER PHI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
0xD7    0x03A7  #       GREEK CAPITAL LETTER CHI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
0xD8    0x03A8  #       GREEK CAPITAL LETTER PSI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
0xD9    0x03A9  #       GREEK CAPITAL LETTER OMEGA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
0xDA    0x03AA  #       GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
0xDB    0x03AB  #       GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
0xDC    0x03AC  #       GREEK SMALL LETTER ALPHA WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
0xDD    0x03AD  #       GREEK SMALL LETTER EPSILON WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
0xDE    0x03AE  #       GREEK SMALL LETTER ETA WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
0xDF    0x03AF  #       GREEK SMALL LETTER IOTA WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
0xE0    0x03B0  #       GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
0xE1    0x03B1  #       GREEK SMALL LETTER ALPHA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
0xE2    0x03B2  #       GREEK SMALL LETTER BETA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
0xE3    0x03B3  #       GREEK SMALL LETTER GAMMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
0xE4    0x03B4  #       GREEK SMALL LETTER DELTA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
0xE5    0x03B5  #       GREEK SMALL LETTER EPSILON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
0xE6    0x03B6  #       GREEK SMALL LETTER ZETA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
0xE7    0x03B7  #       GREEK SMALL LETTER ETA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
0xE8    0x03B8  #       GREEK SMALL LETTER THETA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
0xE9    0x03B9  #       GREEK SMALL LETTER IOTA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
0xEA    0x03BA  #       GREEK SMALL LETTER KAPPA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
0xEB    0x03BB  #       GREEK SMALL LETTER LAMDA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
0xEC    0x03BC  #       GREEK SMALL LETTER MU
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
0xED    0x03BD  #       GREEK SMALL LETTER NU
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
0xEE    0x03BE  #       GREEK SMALL LETTER XI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
0xEF    0x03BF  #       GREEK SMALL LETTER OMICRON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
0xF0    0x03C0  #       GREEK SMALL LETTER PI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
0xF1    0x03C1  #       GREEK SMALL LETTER RHO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
0xF2    0x03C2  #       GREEK SMALL LETTER FINAL SIGMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
0xF3    0x03C3  #       GREEK SMALL LETTER SIGMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
0xF4    0x03C4  #       GREEK SMALL LETTER TAU
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
0xF5    0x03C5  #       GREEK SMALL LETTER UPSILON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
0xF6    0x03C6  #       GREEK SMALL LETTER PHI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   361
0xF7    0x03C7  #       GREEK SMALL LETTER CHI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
0xF8    0x03C8  #       GREEK SMALL LETTER PSI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
0xF9    0x03C9  #       GREEK SMALL LETTER OMEGA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
0xFA    0x03CA  #       GREEK SMALL LETTER IOTA WITH DIALYTIKA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
0xFB    0x03CB  #       GREEK SMALL LETTER UPSILON WITH DIALYTIKA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
0xFC    0x03CC  #       GREEK SMALL LETTER OMICRON WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
0xFD    0x03CD  #       GREEK SMALL LETTER UPSILON WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
0xFE    0x03CE  #       GREEK SMALL LETTER OMEGA WITH TONOS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
! !
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
14185
fa834a81a55c #userFriendlyName
Stefan Vogel <sv@exept.de>
parents: 8811
diff changeset
   373
!ISO8859_7 class methodsFor:'queries'!
fa834a81a55c #userFriendlyName
Stefan Vogel <sv@exept.de>
parents: 8811
diff changeset
   374
fa834a81a55c #userFriendlyName
Stefan Vogel <sv@exept.de>
parents: 8811
diff changeset
   375
userFriendlyNameOfEncoding
fa834a81a55c #userFriendlyName
Stefan Vogel <sv@exept.de>
parents: 8811
diff changeset
   376
    ^ 'Greek'
fa834a81a55c #userFriendlyName
Stefan Vogel <sv@exept.de>
parents: 8811
diff changeset
   377
! !
fa834a81a55c #userFriendlyName
Stefan Vogel <sv@exept.de>
parents: 8811
diff changeset
   378
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
!ISO8859_7 methodsFor:'encoding & decoding'!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
decode:codeArg
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
    "Automagically generated by generateCode - do not modify.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
     Decode from my encoding into unicode."
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
    |code "{ Class: SmallInteger }"|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
    code := codeArg.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
    code <= 16rA0 ifTrue:[ ^ code ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
    code > 16rFE ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
	^ self decodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
    [
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
	|t|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
	t := #(
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
	   "16r00A1"    16r2018 " LEFT SINGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
	   "16r00A2"    16r2019 " RIGHT SINGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
	   "16r00A3"    16r00A3 " POUND SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
	   "16r00A4"    16r20AC " EURO SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
	   "16r00A5"    16r20AF " DRACHMA SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
	   "16r00A6"    16r00A6 " BROKEN BAR " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
	   "16r00A7"    16r00A7 " SECTION SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
	   "16r00A8"    16r00A8 " DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
	   "16r00A9"    16r00A9 " COPYRIGHT SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   404
	   "16r00AA"    16r037A " GREEK YPOGEGRAMMENI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
	   "16r00AB"    16r00AB " LEFT-POINTING DOUBLE ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
	   "16r00AC"    16r00AC " NOT SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
	   "16r00AD"    16r00AD " SOFT HYPHEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
	   "16r00AE"    16r0000 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
	   "16r00AF"    16r2015 " HORIZONTAL BAR " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
	   "16r00B0"    16r00B0 " DEGREE SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
	   "16r00B1"    16r00B1 " PLUS-MINUS SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
	   "16r00B2"    16r00B2 " SUPERSCRIPT TWO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
	   "16r00B3"    16r00B3 " SUPERSCRIPT THREE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
	   "16r00B4"    16r0384 " GREEK TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
	   "16r00B5"    16r0385 " GREEK DIALYTIKA TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   416
	   "16r00B6"    16r0386 " GREEK CAPITAL LETTER ALPHA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
	   "16r00B7"    16r00B7 " MIDDLE DOT " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
	   "16r00B8"    16r0388 " GREEK CAPITAL LETTER EPSILON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
	   "16r00B9"    16r0389 " GREEK CAPITAL LETTER ETA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
	   "16r00BA"    16r038A " GREEK CAPITAL LETTER IOTA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
	   "16r00BB"    16r00BB " RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
	   "16r00BC"    16r038C " GREEK CAPITAL LETTER OMICRON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
	   "16r00BD"    16r00BD " VULGAR FRACTION ONE HALF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   424
	   "16r00BE"    16r038E " GREEK CAPITAL LETTER UPSILON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
	   "16r00BF"    16r038F " GREEK CAPITAL LETTER OMEGA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
	   "16r00C0"    16r0390 " GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   427
	   "16r00C1"    16r0391 " GREEK CAPITAL LETTER ALPHA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   428
	   "16r00C2"    16r0392 " GREEK CAPITAL LETTER BETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
	   "16r00C3"    16r0393 " GREEK CAPITAL LETTER GAMMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
	   "16r00C4"    16r0394 " GREEK CAPITAL LETTER DELTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
	   "16r00C5"    16r0395 " GREEK CAPITAL LETTER EPSILON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
	   "16r00C6"    16r0396 " GREEK CAPITAL LETTER ZETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
	   "16r00C7"    16r0397 " GREEK CAPITAL LETTER ETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
	   "16r00C8"    16r0398 " GREEK CAPITAL LETTER THETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
	   "16r00C9"    16r0399 " GREEK CAPITAL LETTER IOTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
	   "16r00CA"    16r039A " GREEK CAPITAL LETTER KAPPA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
	   "16r00CB"    16r039B " GREEK CAPITAL LETTER LAMDA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
	   "16r00CC"    16r039C " GREEK CAPITAL LETTER MU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
	   "16r00CD"    16r039D " GREEK CAPITAL LETTER NU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
	   "16r00CE"    16r039E " GREEK CAPITAL LETTER XI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
	   "16r00CF"    16r039F " GREEK CAPITAL LETTER OMICRON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
	   "16r00D0"    16r03A0 " GREEK CAPITAL LETTER PI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
	   "16r00D1"    16r03A1 " GREEK CAPITAL LETTER RHO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
	   "16r00D2"    16r0000 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
	   "16r00D3"    16r03A3 " GREEK CAPITAL LETTER SIGMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
	   "16r00D4"    16r03A4 " GREEK CAPITAL LETTER TAU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
	   "16r00D5"    16r03A5 " GREEK CAPITAL LETTER UPSILON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
	   "16r00D6"    16r03A6 " GREEK CAPITAL LETTER PHI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
	   "16r00D7"    16r03A7 " GREEK CAPITAL LETTER CHI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
	   "16r00D8"    16r03A8 " GREEK CAPITAL LETTER PSI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
	   "16r00D9"    16r03A9 " GREEK CAPITAL LETTER OMEGA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
	   "16r00DA"    16r03AA " GREEK CAPITAL LETTER IOTA WITH DIALYTIKA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
	   "16r00DB"    16r03AB " GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
	   "16r00DC"    16r03AC " GREEK SMALL LETTER ALPHA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
	   "16r00DD"    16r03AD " GREEK SMALL LETTER EPSILON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
	   "16r00DE"    16r03AE " GREEK SMALL LETTER ETA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
	   "16r00DF"    16r03AF " GREEK SMALL LETTER IOTA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
	   "16r00E0"    16r03B0 " GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
	   "16r00E1"    16r03B1 " GREEK SMALL LETTER ALPHA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
	   "16r00E2"    16r03B2 " GREEK SMALL LETTER BETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
	   "16r00E3"    16r03B3 " GREEK SMALL LETTER GAMMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
	   "16r00E4"    16r03B4 " GREEK SMALL LETTER DELTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
	   "16r00E5"    16r03B5 " GREEK SMALL LETTER EPSILON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
	   "16r00E6"    16r03B6 " GREEK SMALL LETTER ZETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
	   "16r00E7"    16r03B7 " GREEK SMALL LETTER ETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
	   "16r00E8"    16r03B8 " GREEK SMALL LETTER THETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
	   "16r00E9"    16r03B9 " GREEK SMALL LETTER IOTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
	   "16r00EA"    16r03BA " GREEK SMALL LETTER KAPPA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
	   "16r00EB"    16r03BB " GREEK SMALL LETTER LAMDA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
	   "16r00EC"    16r03BC " GREEK SMALL LETTER MU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
	   "16r00ED"    16r03BD " GREEK SMALL LETTER NU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
	   "16r00EE"    16r03BE " GREEK SMALL LETTER XI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
	   "16r00EF"    16r03BF " GREEK SMALL LETTER OMICRON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
	   "16r00F0"    16r03C0 " GREEK SMALL LETTER PI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
	   "16r00F1"    16r03C1 " GREEK SMALL LETTER RHO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
	   "16r00F2"    16r03C2 " GREEK SMALL LETTER FINAL SIGMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
	   "16r00F3"    16r03C3 " GREEK SMALL LETTER SIGMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
	   "16r00F4"    16r03C4 " GREEK SMALL LETTER TAU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
	   "16r00F5"    16r03C5 " GREEK SMALL LETTER UPSILON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
	   "16r00F6"    16r03C6 " GREEK SMALL LETTER PHI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
	   "16r00F7"    16r03C7 " GREEK SMALL LETTER CHI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
	   "16r00F8"    16r03C8 " GREEK SMALL LETTER PSI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
	   "16r00F9"    16r03C9 " GREEK SMALL LETTER OMEGA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
	   "16r00FA"    16r03CA " GREEK SMALL LETTER IOTA WITH DIALYTIKA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
	   "16r00FB"    16r03CB " GREEK SMALL LETTER UPSILON WITH DIALYTIKA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
	   "16r00FC"    16r03CC " GREEK SMALL LETTER OMICRON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
	   "16r00FD"    16r03CD " GREEK SMALL LETTER UPSILON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
	   "16r00FE"    16r03CE " GREEK SMALL LETTER OMEGA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
	   ) at:(code - 16rA0).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   490
	t == 0 ifFalse:[^ t].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
	^ self decodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
    ] value.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   493
!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
encode:unicodeArg
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
    "Automagically generated by generateCode - do not modify.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
     Encode from unicode into my encoding."
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
    |unicode "{ Class: SmallInteger }"|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
    unicode := unicodeArg.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
    unicode <= 16rA0 ifTrue:[ ^ unicode ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
    unicode > 16r20AF ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
	^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
    unicode <= 16r3CE ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
	unicode <= 16rBD ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
	    [
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
		|t|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
		t := #[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
		   "16r00A1"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
		   "16r00A2"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
		   "16r00A3"    16rA3 " POUND SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
		   "16r00A4"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
		   "16r00A5"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
		   "16r00A6"    16rA6 " BROKEN BAR " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
		   "16r00A7"    16rA7 " SECTION SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
		   "16r00A8"    16rA8 " DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
		   "16r00A9"    16rA9 " COPYRIGHT SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
		   "16r00AA"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
		   "16r00AB"    16rAB " LEFT-POINTING DOUBLE ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
		   "16r00AC"    16rAC " NOT SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
		   "16r00AD"    16rAD " SOFT HYPHEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
		   "16r00AE"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
		   "16r00AF"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
		   "16r00B0"    16rB0 " DEGREE SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
		   "16r00B1"    16rB1 " PLUS-MINUS SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
		   "16r00B2"    16rB2 " SUPERSCRIPT TWO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
		   "16r00B3"    16rB3 " SUPERSCRIPT THREE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
		   "16r00B4"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
		   "16r00B5"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
		   "16r00B6"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
		   "16r00B7"    16rB7 " MIDDLE DOT " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
		   "16r00B8"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
		   "16r00B9"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
		   "16r00BA"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
		   "16r00BB"    16rBB " RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
		   "16r00BC"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
		   "16r00BD"    16rBD " VULGAR FRACTION ONE HALF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
		   ] at:(unicode - 16rA0).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
		t == 0 ifFalse:[^ t].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
		^ self encodingError
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
	    ] value.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
	].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
	unicode <= 16r379 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
	    ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
	].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
	[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
	    |t|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
	    t := #[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
	       "16r037A"    16rAA " GREEK YPOGEGRAMMENI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
	       "16r037B"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
	       "16r037C"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
	       "16r037D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
	       "16r037E"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
	       "16r037F"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
	       "16r0380"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
	       "16r0381"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
	       "16r0382"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
	       "16r0383"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
	       "16r0384"    16rB4 " GREEK TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
	       "16r0385"    16rB5 " GREEK DIALYTIKA TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
	       "16r0386"    16rB6 " GREEK CAPITAL LETTER ALPHA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
	       "16r0387"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
	       "16r0388"    16rB8 " GREEK CAPITAL LETTER EPSILON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
	       "16r0389"    16rB9 " GREEK CAPITAL LETTER ETA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
	       "16r038A"    16rBA " GREEK CAPITAL LETTER IOTA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
	       "16r038B"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
	       "16r038C"    16rBC " GREEK CAPITAL LETTER OMICRON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
	       "16r038D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
	       "16r038E"    16rBE " GREEK CAPITAL LETTER UPSILON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
	       "16r038F"    16rBF " GREEK CAPITAL LETTER OMEGA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
	       "16r0390"    16rC0 " GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
	       "16r0391"    16rC1 " GREEK CAPITAL LETTER ALPHA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
	       "16r0392"    16rC2 " GREEK CAPITAL LETTER BETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
	       "16r0393"    16rC3 " GREEK CAPITAL LETTER GAMMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
	       "16r0394"    16rC4 " GREEK CAPITAL LETTER DELTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
	       "16r0395"    16rC5 " GREEK CAPITAL LETTER EPSILON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
	       "16r0396"    16rC6 " GREEK CAPITAL LETTER ZETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
	       "16r0397"    16rC7 " GREEK CAPITAL LETTER ETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
	       "16r0398"    16rC8 " GREEK CAPITAL LETTER THETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
	       "16r0399"    16rC9 " GREEK CAPITAL LETTER IOTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
	       "16r039A"    16rCA " GREEK CAPITAL LETTER KAPPA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
	       "16r039B"    16rCB " GREEK CAPITAL LETTER LAMDA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
	       "16r039C"    16rCC " GREEK CAPITAL LETTER MU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
	       "16r039D"    16rCD " GREEK CAPITAL LETTER NU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
	       "16r039E"    16rCE " GREEK CAPITAL LETTER XI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
	       "16r039F"    16rCF " GREEK CAPITAL LETTER OMICRON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
	       "16r03A0"    16rD0 " GREEK CAPITAL LETTER PI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
	       "16r03A1"    16rD1 " GREEK CAPITAL LETTER RHO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
	       "16r03A2"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
	       "16r03A3"    16rD3 " GREEK CAPITAL LETTER SIGMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
	       "16r03A4"    16rD4 " GREEK CAPITAL LETTER TAU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
	       "16r03A5"    16rD5 " GREEK CAPITAL LETTER UPSILON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
	       "16r03A6"    16rD6 " GREEK CAPITAL LETTER PHI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
	       "16r03A7"    16rD7 " GREEK CAPITAL LETTER CHI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
	       "16r03A8"    16rD8 " GREEK CAPITAL LETTER PSI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
	       "16r03A9"    16rD9 " GREEK CAPITAL LETTER OMEGA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
	       "16r03AA"    16rDA " GREEK CAPITAL LETTER IOTA WITH DIALYTIKA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
	       "16r03AB"    16rDB " GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
	       "16r03AC"    16rDC " GREEK SMALL LETTER ALPHA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
	       "16r03AD"    16rDD " GREEK SMALL LETTER EPSILON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
	       "16r03AE"    16rDE " GREEK SMALL LETTER ETA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
	       "16r03AF"    16rDF " GREEK SMALL LETTER IOTA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
	       "16r03B0"    16rE0 " GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
	       "16r03B1"    16rE1 " GREEK SMALL LETTER ALPHA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
	       "16r03B2"    16rE2 " GREEK SMALL LETTER BETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
	       "16r03B3"    16rE3 " GREEK SMALL LETTER GAMMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
	       "16r03B4"    16rE4 " GREEK SMALL LETTER DELTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
	       "16r03B5"    16rE5 " GREEK SMALL LETTER EPSILON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
	       "16r03B6"    16rE6 " GREEK SMALL LETTER ZETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
	       "16r03B7"    16rE7 " GREEK SMALL LETTER ETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
	       "16r03B8"    16rE8 " GREEK SMALL LETTER THETA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
	       "16r03B9"    16rE9 " GREEK SMALL LETTER IOTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
	       "16r03BA"    16rEA " GREEK SMALL LETTER KAPPA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
	       "16r03BB"    16rEB " GREEK SMALL LETTER LAMDA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
	       "16r03BC"    16rEC " GREEK SMALL LETTER MU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
	       "16r03BD"    16rED " GREEK SMALL LETTER NU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
	       "16r03BE"    16rEE " GREEK SMALL LETTER XI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
	       "16r03BF"    16rEF " GREEK SMALL LETTER OMICRON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
	       "16r03C0"    16rF0 " GREEK SMALL LETTER PI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
	       "16r03C1"    16rF1 " GREEK SMALL LETTER RHO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
	       "16r03C2"    16rF2 " GREEK SMALL LETTER FINAL SIGMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
	       "16r03C3"    16rF3 " GREEK SMALL LETTER SIGMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
	       "16r03C4"    16rF4 " GREEK SMALL LETTER TAU " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
	       "16r03C5"    16rF5 " GREEK SMALL LETTER UPSILON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
	       "16r03C6"    16rF6 " GREEK SMALL LETTER PHI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
	       "16r03C7"    16rF7 " GREEK SMALL LETTER CHI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
	       "16r03C8"    16rF8 " GREEK SMALL LETTER PSI " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
	       "16r03C9"    16rF9 " GREEK SMALL LETTER OMEGA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
	       "16r03CA"    16rFA " GREEK SMALL LETTER IOTA WITH DIALYTIKA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
	       "16r03CB"    16rFB " GREEK SMALL LETTER UPSILON WITH DIALYTIKA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
	       "16r03CC"    16rFC " GREEK SMALL LETTER OMICRON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
	       "16r03CD"    16rFD " GREEK SMALL LETTER UPSILON WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
	       "16r03CE"    16rFE " GREEK SMALL LETTER OMEGA WITH TONOS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
	       ] at:(unicode - 16r379).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
	    t == 0 ifFalse:[^ t].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
	    ^ self encodingError
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
	] value.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   641
    unicode <= 16r2014 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
	^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
    unicode <= 16r2019 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
	[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
	    |t|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
	    t := #[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
	       "16r2015"    16rAF " HORIZONTAL BAR " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
	       "16r2016"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
	       "16r2017"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
	       "16r2018"    16rA1 " LEFT SINGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
	       "16r2019"    16rA2 " RIGHT SINGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
	       ] at:(unicode - 16r2014).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
	    t == 0 ifFalse:[^ t].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
	    ^ self encodingError
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
	] value.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
    unicode <= 16r20AB ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
	^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
    [
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
	|t|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
	t := #[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
	   "16r20AC"    16rA4 " EURO SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
	   "16r20AD"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
	   "16r20AE"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
	   "16r20AF"    16rA5 " DRACHMA SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
	   ] at:(unicode - 16r20AB).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
	t == 0 ifFalse:[^ t].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
	^ self encodingError
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
    ] value.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
! !
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
!ISO8859_7 class methodsFor:'documentation'!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
version
14185
fa834a81a55c #userFriendlyName
Stefan Vogel <sv@exept.de>
parents: 8811
diff changeset
   677
    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO8859_7.st,v 1.5 2012-07-11 16:42:54 stefan Exp $'
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
! !