CharacterEncoderImplementations__ISO8859_7.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 22 Sep 2015 16:28:42 +0100
branchjv
changeset 18759 c1217211909c
parent 18011 deb0c3355881
permissions -rw-r--r--
Changed identification strings to contain jv-branch ...to make explicit that this distribution is not the official one used by eXept and therefore that eXept is not to be blamed in case of any problem.
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
! !