CharacterEncoderImplementations__MS_Arabic.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 22 Sep 2015 16:28:42 +0100
branchjv
changeset 18759 c1217211909c
parent 17964 fb0bbcbb6f83
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:#MS_Arabic
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
!MS_Arabic 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
"
8813
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    37
!
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    38
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    39
documentation
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    40
"
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    41
    CP1256 / Microsoft Arabic
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    42
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    43
    [see with:]
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    44
        CharacterEncoderImplementations::MS_Arabic showCharacterSet
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    45
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    46
    [author:]
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    47
        Claus Gittinger
c2908c7fc648 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
!MS_Arabic 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
mapFileURL2_relativePathName
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    ^ 'CP1256'
8813
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    55
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    56
    "
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    57
     self generateCode
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    58
    "
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
mapping
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
# From: http://std.dkuug.dk/i18n/charmaps/CP1256
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
<code_set_name> CP1256
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
<comment_char> %
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
<escape_char> /
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
% version: 1.0
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
% repertoiremap: mnemonic,ds
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
%  source: UNICODE 1.0
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
% alias MS-ARAB
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
CHARMAP
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
<NU>                   /x00   <U0000> NULL (NUL)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
<SH>                   /x01   <U0001> START OF HEADING (SOH)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
<SX>                   /x02   <U0002> START OF TEXT (STX)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
<EX>                   /x03   <U0003> END OF TEXT (ETX)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
<ET>                   /x04   <U0004> END OF TRANSMISSION (EOT)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
<EQ>                   /x05   <U0005> ENQUIRY (ENQ)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
<AK>                   /x06   <U0006> ACKNOWLEDGE (ACK)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
<BL>                   /x07   <U0007> BELL (BEL)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
<BS>                   /x08   <U0008> BACKSPACE (BS)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
<HT>                   /x09   <U0009> CHARACTER TABULATION (HT)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
<LF>                   /x0A   <U000A> LINE FEED (LF)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
<VT>                   /x0B   <U000B> LINE TABULATION (VT)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
<FF>                   /x0C   <U000C> FORM FEED (FF)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
<CR>                   /x0D   <U000D> CARRIAGE RETURN (CR)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
<SO>                   /x0E   <U000E> SHIFT OUT (SO)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
<SI>                   /x0F   <U000F> SHIFT IN (SI)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
<DL>                   /x10   <U0010> DATALINK ESCAPE (DLE)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
<D1>                   /x11   <U0011> DEVICE CONTROL ONE (DC1)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
<D2>                   /x12   <U0012> DEVICE CONTROL TWO (DC2)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
<D3>                   /x13   <U0013> DEVICE CONTROL THREE (DC3)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
<D4>                   /x14   <U0014> DEVICE CONTROL FOUR (DC4)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
<NK>                   /x15   <U0015> NEGATIVE ACKNOWLEDGE (NAK)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
<SY>                   /x16   <U0016> SYNCHRONOUS IDLE (SYN)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
<EB>                   /x17   <U0017> END OF TRANSMISSION BLOCK (ETB)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
<CN>                   /x18   <U0018> CANCEL (CAN)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
<EM>                   /x19   <U0019> END OF MEDIUM (EM)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
<SB>                   /x1A   <U001A> SUBSTITUTE (SUB)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
<EC>                   /x1B   <U001B> ESCAPE (ESC)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
<FS>                   /x1C   <U001C> FILE SEPARATOR (IS4)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
<GS>                   /x1D   <U001D> GROUP SEPARATOR (IS3)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
<RS>                   /x1E   <U001E> RECORD SEPARATOR (IS2)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
<US>                   /x1F   <U001F> UNIT SEPARATOR (IS1)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
<SP>                   /x20   <U0020> SPACE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
<!!>                    /x21   <U0021> EXCLAMATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
<'>                    /x22   <U0022> QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
<Nb>                   /x23   <U0023> NUMBER SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
<DO>                   /x24   <U0024> DOLLAR SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
<%>                    /x25   <U0025> PERCENT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
<&>                    /x26   <U0026> AMPERSAND
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
<'>                    /x27   <U0027> APOSTROPHE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
<(>                    /x28   <U0028> LEFT PARENTHESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
<)>                    /x29   <U0029> RIGHT PARENTHESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
<*>                    /x2A   <U002A> ASTERISK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
<+>                    /x2B   <U002B> PLUS SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
<,>                    /x2C   <U002C> COMMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
<->                    /x2D   <U002D> HYPHEN-MINUS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
<.>                    /x2E   <U002E> FULL STOP
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
<//>                   /x2F   <U002F> SOLIDUS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
<0>                    /x30   <U0030> DIGIT ZERO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
<1>                    /x31   <U0031> DIGIT ONE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
<2>                    /x32   <U0032> DIGIT TWO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
<3>                    /x33   <U0033> DIGIT THREE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
<4>                    /x34   <U0034> DIGIT FOUR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
<5>                    /x35   <U0035> DIGIT FIVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
<6>                    /x36   <U0036> DIGIT SIX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
<7>                    /x37   <U0037> DIGIT SEVEN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
<8>                    /x38   <U0038> DIGIT EIGHT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
<9>                    /x39   <U0039> DIGIT NINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
<:>                    /x3A   <U003A> COLON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
<;>                    /x3B   <U003B> SEMICOLON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
<<>                    /x3C   <U003C> LESS-THAN SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
<=>                    /x3D   <U003D> EQUALS SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
</>>                   /x3E   <U003E> GREATER-THAN SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
<?>                    /x3F   <U003F> QUESTION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
<At>                   /x40   <U0040> COMMERCIAL AT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
<A>                    /x41   <U0041> LATIN CAPITAL LETTER A
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
<B>                    /x42   <U0042> LATIN CAPITAL LETTER B
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
<C>                    /x43   <U0043> LATIN CAPITAL LETTER C
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
<D>                    /x44   <U0044> LATIN CAPITAL LETTER D
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
<E>                    /x45   <U0045> LATIN CAPITAL LETTER E
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
<F>                    /x46   <U0046> LATIN CAPITAL LETTER F
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
<G>                    /x47   <U0047> LATIN CAPITAL LETTER G
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
<H>                    /x48   <U0048> LATIN CAPITAL LETTER H
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
<I>                    /x49   <U0049> LATIN CAPITAL LETTER I
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
<J>                    /x4A   <U004A> LATIN CAPITAL LETTER J
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
<K>                    /x4B   <U004B> LATIN CAPITAL LETTER K
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
<L>                    /x4C   <U004C> LATIN CAPITAL LETTER L
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
<M>                    /x4D   <U004D> LATIN CAPITAL LETTER M
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
<N>                    /x4E   <U004E> LATIN CAPITAL LETTER N
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
<O>                    /x4F   <U004F> LATIN CAPITAL LETTER O
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
<P>                    /x50   <U0050> LATIN CAPITAL LETTER P
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
<Q>                    /x51   <U0051> LATIN CAPITAL LETTER Q
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
<R>                    /x52   <U0052> LATIN CAPITAL LETTER R
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
<S>                    /x53   <U0053> LATIN CAPITAL LETTER S
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
<T>                    /x54   <U0054> LATIN CAPITAL LETTER T
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
<U>                    /x55   <U0055> LATIN CAPITAL LETTER U
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
<V>                    /x56   <U0056> LATIN CAPITAL LETTER V
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
<W>                    /x57   <U0057> LATIN CAPITAL LETTER W
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
<X>                    /x58   <U0058> LATIN CAPITAL LETTER X
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
<Y>                    /x59   <U0059> LATIN CAPITAL LETTER Y
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
<Z>                    /x5A   <U005A> LATIN CAPITAL LETTER Z
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
<<(>                   /x5B   <U005B> LEFT SQUARE BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
<////>                 /x5C   <U005C> REVERSE SOLIDUS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
<)/>>                  /x5D   <U005D> RIGHT SQUARE BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
<'/>>                  /x5E   <U005E> CIRCUMFLEX ACCENT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
<_>                    /x5F   <U005F> LOW LINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
<'!!>                   /x60   <U0060> GRAVE ACCENT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
<a>                    /x61   <U0061> LATIN SMALL LETTER A
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
<b>                    /x62   <U0062> LATIN SMALL LETTER B
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
<c>                    /x63   <U0063> LATIN SMALL LETTER C
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
<d>                    /x64   <U0064> LATIN SMALL LETTER D
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
<e>                    /x65   <U0065> LATIN SMALL LETTER E
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
<f>                    /x66   <U0066> LATIN SMALL LETTER F
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
<g>                    /x67   <U0067> LATIN SMALL LETTER G
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
<h>                    /x68   <U0068> LATIN SMALL LETTER H
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
<i>                    /x69   <U0069> LATIN SMALL LETTER I
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
<j>                    /x6A   <U006A> LATIN SMALL LETTER J
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
<k>                    /x6B   <U006B> LATIN SMALL LETTER K
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
<l>                    /x6C   <U006C> LATIN SMALL LETTER L
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
<m>                    /x6D   <U006D> LATIN SMALL LETTER M
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
<n>                    /x6E   <U006E> LATIN SMALL LETTER N
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
<o>                    /x6F   <U006F> LATIN SMALL LETTER O
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
<p>                    /x70   <U0070> LATIN SMALL LETTER P
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
<q>                    /x71   <U0071> LATIN SMALL LETTER Q
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
<r>                    /x72   <U0072> LATIN SMALL LETTER R
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
<s>                    /x73   <U0073> LATIN SMALL LETTER S
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
<t>                    /x74   <U0074> LATIN SMALL LETTER T
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
<u>                    /x75   <U0075> LATIN SMALL LETTER U
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
<v>                    /x76   <U0076> LATIN SMALL LETTER V
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
<w>                    /x77   <U0077> LATIN SMALL LETTER W
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
<x>                    /x78   <U0078> LATIN SMALL LETTER X
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
<y>                    /x79   <U0079> LATIN SMALL LETTER Y
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
<z>                    /x7A   <U007A> LATIN SMALL LETTER Z
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
<(!!>                   /x7B   <U007B> LEFT CURLY BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
<!!!!>                   /x7C   <U007C> VERTICAL LINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
<!!)>                   /x7D   <U007D> RIGHT CURLY BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
<'?>                   /x7E   <U007E> TILDE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
<DT>                   /x7F   <U007F> DELETE (DEL)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
<,+>                   /x80   <U060C> ARABIC COMMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
<0a>                   /x81   <U0660> ARABIC-INDIC DIGIT ZERO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
<.9>                   /x82   <U201A> SINGLE LOW-9 QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
<1a>                   /x83   <U0661> ARABIC-INDIC DIGIT ONE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
<:9>                   /x84   <U201E> DOUBLE LOW-9 QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
<.3>                   /x85   <U2026> HORIZONTAL ELLIPSIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
<//->                  /x86   <U2020> DAGGER
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
<//=>                  /x87   <U2021> DOUBLE DAGGER
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
<2a>                   /x88   <U0662> ARABIC-INDIC DIGIT TWO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
<3a>                   /x89   <U0663> ARABIC-INDIC DIGIT THREE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
<4a>                   /x8A   <U0664> ARABIC-INDIC DIGIT FOUR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
<<1>                   /x8B   <U2039> SINGLE LEFT-POINTING ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
<5a>                   /x8C   <U0665> ARABIC-INDIC DIGIT FIVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
<6a>                   /x8D   <U0666> ARABIC-INDIC DIGIT SIX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
<7a>                   /x8E   <U0667> ARABIC-INDIC DIGIT SEVEN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
<8a>                   /x8F   <U0668> ARABIC-INDIC DIGIT EIGHT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
<9a>                   /x90   <U0669> ARABIC-INDIC DIGIT NINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
<'6>                   /x91   <U2018> LEFT SINGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
<'9>                   /x92   <U2019> RIGHT SINGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
<'6>                   /x93   <U201C> LEFT DOUBLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
<'9>                   /x94   <U201D> RIGHT DOUBLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
<sb>                   /x95   <U2022> BULLET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
<-N>                   /x96   <U2013> EN DASH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
<-M>                   /x97   <U2014> EM DASH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
<;+>                   /x98   <U061B> ARABIC SEMICOLON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
<TM>                   /x99   <U2122> TRADE MARK SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
<?+>                   /x9A   <U061F> ARABIC QUESTION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
</>1>                  /x9B   <U203A> SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
<H'>                   /x9C   <U0621> ARABIC LETTER HAMZA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
<aM>                   /x9D   <U0622> ARABIC LETTER ALEF WITH MADDA ABOVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
<aH>                   /x9E   <U0623> ARABIC LETTER ALEF WITH HAMZA ABOVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
<Y:>                   /x9F   <U0178> LATIN CAPITAL LETTER Y WITH DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
<NS>                   /xA0   <U00A0> NO-BREAK SPACE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
<wH>                   /xA1   <U0624> ARABIC LETTER WAW WITH HAMZA ABOVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
<ah>                   /xA2   <U0625> ARABIC LETTER ALEF WITH HAMZA BELOW
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
<Pd>                   /xA3   <U00A3> POUND SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
<Cu>                   /xA4   <U00A4> CURRENCY SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
<yH>                   /xA5   <U0626> ARABIC LETTER YEH WITH HAMZA ABOVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
<BB>                   /xA6   <U00A6> BROKEN BAR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
<SE>                   /xA7   <U00A7> SECTION SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
<a+>                   /xA8   <U0627> ARABIC LETTER ALEF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
<Co>                   /xA9   <U00A9> COPYRIGHT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
<b+>                   /xAA   <U0628> ARABIC LETTER BEH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
<<<>                   /xAB   <U00AB> LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
<NO>                   /xAC   <U00AC> NOT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
<-->                   /xAD   <U00AD> SOFT HYPHEN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
<Rg>                   /xAE   <U00AE> REGISTERED SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
<p+>                   /xAF   <U067E> ARABIC LETTER PEH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
<DG>                   /xB0   <U00B0> DEGREE SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
<+->                   /xB1   <U00B1> PLUS-MINUS SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
<tm>                   /xB2   <U0629> ARABIC LETTER TEH MARBUTA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
<t+>                   /xB3   <U062A> ARABIC LETTER TEH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
<tk>                   /xB4   <U062B> ARABIC LETTER THEH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
<My>                   /xB5   <U00B5> MICRO SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
<PI>                   /xB6   <U00B6> PILCROW SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
<.M>                   /xB7   <U00B7> MIDDLE DOT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
<g+>                   /xB8   <U062C> ARABIC LETTER JEEM
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
<tc>                   /xB9   <U0686> ARABIC LETTER TCHEH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
<hk>                   /xBA   <U062D> ARABIC LETTER HAH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
</>/>>                 /xBB   <U00BB> RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
<x+>                   /xBC   <U062E> ARABIC LETTER KHAH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
<d+>                   /xBD   <U062F> ARABIC LETTER DAL
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
<dk>                   /xBE   <U0630> ARABIC LETTER THAL
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
<r+>                   /xBF   <U0631> ARABIC LETTER REH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
<A!!>                   /xC0   <U00C0> LATIN CAPITAL LETTER A WITH GRAVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
<z+>                   /xC1   <U0632> ARABIC LETTER ZAIN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
<A/>>                  /xC2   <U00C2> LATIN CAPITAL LETTER A WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
<zj>                   /xC3   <U0698> ARABIC LETTER JEH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
<s+>                   /xC4   <U0633> ARABIC LETTER SEEN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
<sn>                   /xC5   <U0634> ARABIC LETTER SHEEN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
<c+>                   /xC6   <U0635> ARABIC LETTER SAD
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
<C,>                   /xC7   <U00C7> LATIN CAPITAL LETTER C WITH CEDILLA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
<E!!>                   /xC8   <U00C8> LATIN CAPITAL LETTER E WITH GRAVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
<E'>                   /xC9   <U00C9> LATIN CAPITAL LETTER E WITH ACUTE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
<E/>>                  /xCA   <U00CA> LATIN CAPITAL LETTER E WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
<E:>                   /xCB   <U00CB> LATIN CAPITAL LETTER E WITH DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
<dd>                   /xCC   <U0636> ARABIC LETTER DAD
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
<tj>                   /xCD   <U0637> ARABIC LETTER TAH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
<I/>>                  /xCE   <U00CE> LATIN CAPITAL LETTER I WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
<I:>                   /xCF   <U00CF> LATIN CAPITAL LETTER I WITH DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
<zh>                   /xD0   <U3113> BOPOMOFO LETTER ZH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
<e+>                   /xD1   <U0639> ARABIC LETTER AIN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
<i+>                   /xD2   <U063A> ARABIC LETTER GHAIN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
<++>                   /xD3   <U0640> ARABIC TATWEEL
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
<O/>>                  /xD4   <U00D4> LATIN CAPITAL LETTER O WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
<f+>                   /xD5   <U0641> ARABIC LETTER FEH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
<q+>                   /xD6   <U0642> ARABIC LETTER QAF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
<*X>                   /xD7   <U00D7> MULTIPLICATION SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
<k+>                   /xD8   <U0643> ARABIC LETTER KAF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
<U!!>                   /xD9   <U00D9> LATIN CAPITAL LETTER U WITH GRAVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
<gf>                   /xDA   <U06AF> ARABIC LETTER GAF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
<U/>>                  /xDB   <U00DB> LATIN CAPITAL LETTER U WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
<U:>                   /xDC   <U00DC> LATIN CAPITAL LETTER U WITH DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
<l+>                   /xDD   <U0644> ARABIC LETTER LAM
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
<m+>                   /xDE   <U0645> ARABIC LETTER MEEM
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
<n+>                   /xDF   <U0646> ARABIC LETTER NOON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
<a!!>                   /xE0   <U00E0> LATIN SMALL LETTER A WITH GRAVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
<h+>                   /xE1   <U0647> ARABIC LETTER HEH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
<a/>>                  /xE2   <U00E2> LATIN SMALL LETTER A WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
<hH>                   /xE3   <U0681> ARABIC LETTER HAH WITH HAMZA ABOVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
<w+>                   /xE4   <U0648> ARABIC LETTER WAW
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
<j+>                   /xE5   <U0649> ARABIC LETTER ALEF MAKSURA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
<y+>                   /xE6   <U064A> ARABIC LETTER YEH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
<c,>                   /xE7   <U00E7> LATIN SMALL LETTER C WITH CEDILLA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
<e!!>                   /xE8   <U00E8> LATIN SMALL LETTER E WITH GRAVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
<e'>                   /xE9   <U00E9> LATIN SMALL LETTER E WITH ACUTE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
<e/>>                  /xEA   <U00EA> LATIN SMALL LETTER E WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
<e:>                   /xEB   <U00EB> LATIN SMALL LETTER E WITH DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
<:+>                   /xEC   <U064B> ARABIC FATHATAN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
<'+>                   /xED   <U064C> ARABIC DAMMATAN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
<i/>>                  /xEE   <U00EE> LATIN SMALL LETTER I WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
<i:>                   /xEF   <U00EF> LATIN SMALL LETTER I WITH DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
<=+>                   /xF0   <U064D> ARABIC KASRATAN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
<//+>                  /xF1   <U064E> ARABIC FATHA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
<'+>                   /xF2   <U064F> ARABIC DAMMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
<1+>                   /xF3   <U0650> ARABIC KASRA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
<o/>>                  /xF4   <U00F4> LATIN SMALL LETTER O WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
<3+>                   /xF5   <U0651> ARABIC SHADDA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
<0+>                   /xF6   <U0652> ARABIC SUKUN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
<-:>                   /xF7   <U00F7> DIVISION SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
<u!!>                   /xF9   <U00F9> LATIN SMALL LETTER U WITH GRAVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
<u/>>                  /xFB   <U00FB> LATIN SMALL LETTER U WITH CIRCUMFLEX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
<u:>                   /xFC   <U00FC> LATIN SMALL LETTER U WITH DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
<LR>                   /xFD   <U200E> LEFT-TO-RIGHT MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
<RL>                   /xFE   <U200F> RIGHT-TO-LEFT MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
<y:>                   /xFF   <U00FF> LATIN SMALL LETTER Y WITH DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
END CHARMAP
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
! !
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
!MS_Arabic methodsFor:'encoding & decoding'!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
decode:codeArg
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
    "Automagically generated by generateCode - do not modify.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
     Decode from my encoding into unicode."
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
    |code "{ Class: SmallInteger }"|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
    code := codeArg.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
    code <= 16r7F ifTrue:[ ^ code ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
    code > 16rFF ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
        ^ self decodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
    [
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
        |t|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
        t := #(
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
           "16r0080"    16r060C " ARABIC COMMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
           "16r0081"    16r0660 " ARABIC-INDIC DIGIT ZERO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
           "16r0082"    16r201A " SINGLE LOW-9 QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
           "16r0083"    16r0661 " ARABIC-INDIC DIGIT ONE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
           "16r0084"    16r201E " DOUBLE LOW-9 QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
           "16r0085"    16r2026 " HORIZONTAL ELLIPSIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
           "16r0086"    16r2020 " DAGGER " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
           "16r0087"    16r2021 " DOUBLE DAGGER " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
           "16r0088"    16r0662 " ARABIC-INDIC DIGIT TWO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
           "16r0089"    16r0663 " ARABIC-INDIC DIGIT THREE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
           "16r008A"    16r0664 " ARABIC-INDIC DIGIT FOUR " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
           "16r008B"    16r2039 " SINGLE LEFT-POINTING ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   361
           "16r008C"    16r0665 " ARABIC-INDIC DIGIT FIVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
           "16r008D"    16r0666 " ARABIC-INDIC DIGIT SIX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
           "16r008E"    16r0667 " ARABIC-INDIC DIGIT SEVEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
           "16r008F"    16r0668 " ARABIC-INDIC DIGIT EIGHT " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
           "16r0090"    16r0669 " ARABIC-INDIC DIGIT NINE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
           "16r0091"    16r2018 " LEFT SINGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
           "16r0092"    16r2019 " RIGHT SINGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
           "16r0093"    16r201C " LEFT DOUBLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
           "16r0094"    16r201D " RIGHT DOUBLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
           "16r0095"    16r2022 " BULLET " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
           "16r0096"    16r2013 " EN DASH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
           "16r0097"    16r2014 " EM DASH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
           "16r0098"    16r061B " ARABIC SEMICOLON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
           "16r0099"    16r2122 " TRADE MARK SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
           "16r009A"    16r061F " ARABIC QUESTION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
           "16r009B"    16r203A " SINGLE RIGHT-POINTING ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
           "16r009C"    16r0621 " ARABIC LETTER HAMZA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
           "16r009D"    16r0622 " ARABIC LETTER ALEF WITH MADDA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
           "16r009E"    16r0623 " ARABIC LETTER ALEF WITH HAMZA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
           "16r009F"    16r0178 " LATIN CAPITAL LETTER Y WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
           "16r00A0"    16r00A0 " NO-BREAK SPACE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
           "16r00A1"    16r0624 " ARABIC LETTER WAW WITH HAMZA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
           "16r00A2"    16r0625 " ARABIC LETTER ALEF WITH HAMZA BELOW " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
           "16r00A3"    16r00A3 " POUND SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
           "16r00A4"    16r00A4 " CURRENCY SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
           "16r00A5"    16r0626 " ARABIC LETTER YEH WITH HAMZA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
           "16r00A6"    16r00A6 " BROKEN BAR " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
           "16r00A7"    16r00A7 " SECTION SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
           "16r00A8"    16r0627 " ARABIC LETTER ALEF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
           "16r00A9"    16r00A9 " COPYRIGHT SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
           "16r00AA"    16r0628 " ARABIC LETTER BEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
           "16r00AB"    16r00AB " LEFT-POINTING DOUBLE ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
           "16r00AC"    16r00AC " NOT SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
           "16r00AD"    16r00AD " SOFT HYPHEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
           "16r00AE"    16r00AE " REGISTERED SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
           "16r00AF"    16r067E " ARABIC LETTER PEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
           "16r00B0"    16r00B0 " DEGREE SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
           "16r00B1"    16r00B1 " PLUS-MINUS SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
           "16r00B2"    16r0629 " ARABIC LETTER TEH MARBUTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
           "16r00B3"    16r062A " ARABIC LETTER TEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
           "16r00B4"    16r062B " ARABIC LETTER THEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
           "16r00B5"    16r00B5 " MICRO SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
           "16r00B6"    16r00B6 " PILCROW SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   404
           "16r00B7"    16r00B7 " MIDDLE DOT " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
           "16r00B8"    16r062C " ARABIC LETTER JEEM " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
           "16r00B9"    16r0686 " ARABIC LETTER TCHEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
           "16r00BA"    16r062D " ARABIC LETTER HAH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
           "16r00BB"    16r00BB " RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
           "16r00BC"    16r062E " ARABIC LETTER KHAH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
           "16r00BD"    16r062F " ARABIC LETTER DAL " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
           "16r00BE"    16r0630 " ARABIC LETTER THAL " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
           "16r00BF"    16r0631 " ARABIC LETTER REH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
           "16r00C0"    16r00C0 " LATIN CAPITAL LETTER A WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
           "16r00C1"    16r0632 " ARABIC LETTER ZAIN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
           "16r00C2"    16r00C2 " LATIN CAPITAL LETTER A WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   416
           "16r00C3"    16r0698 " ARABIC LETTER JEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
           "16r00C4"    16r0633 " ARABIC LETTER SEEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
           "16r00C5"    16r0634 " ARABIC LETTER SHEEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
           "16r00C6"    16r0635 " ARABIC LETTER SAD " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
           "16r00C7"    16r00C7 " LATIN CAPITAL LETTER C WITH CEDILLA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
           "16r00C8"    16r00C8 " LATIN CAPITAL LETTER E WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
           "16r00C9"    16r00C9 " LATIN CAPITAL LETTER E WITH ACUTE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
           "16r00CA"    16r00CA " LATIN CAPITAL LETTER E WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   424
           "16r00CB"    16r00CB " LATIN CAPITAL LETTER E WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
           "16r00CC"    16r0636 " ARABIC LETTER DAD " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
           "16r00CD"    16r0637 " ARABIC LETTER TAH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   427
           "16r00CE"    16r00CE " LATIN CAPITAL LETTER I WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   428
           "16r00CF"    16r00CF " LATIN CAPITAL LETTER I WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
           "16r00D0"    16r3113 " BOPOMOFO LETTER ZH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
           "16r00D1"    16r0639 " ARABIC LETTER AIN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
           "16r00D2"    16r063A " ARABIC LETTER GHAIN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
           "16r00D3"    16r0640 " ARABIC TATWEEL " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
           "16r00D4"    16r00D4 " LATIN CAPITAL LETTER O WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
           "16r00D5"    16r0641 " ARABIC LETTER FEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
           "16r00D6"    16r0642 " ARABIC LETTER QAF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
           "16r00D7"    16r00D7 " MULTIPLICATION SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
           "16r00D8"    16r0643 " ARABIC LETTER KAF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
           "16r00D9"    16r00D9 " LATIN CAPITAL LETTER U WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
           "16r00DA"    16r06AF " ARABIC LETTER GAF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
           "16r00DB"    16r00DB " LATIN CAPITAL LETTER U WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
           "16r00DC"    16r00DC " LATIN CAPITAL LETTER U WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
           "16r00DD"    16r0644 " ARABIC LETTER LAM " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
           "16r00DE"    16r0645 " ARABIC LETTER MEEM " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
           "16r00DF"    16r0646 " ARABIC LETTER NOON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
           "16r00E0"    16r00E0 " LATIN SMALL LETTER A WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
           "16r00E1"    16r0647 " ARABIC LETTER HEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
           "16r00E2"    16r00E2 " LATIN SMALL LETTER A WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
           "16r00E3"    16r0681 " ARABIC LETTER HAH WITH HAMZA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
           "16r00E4"    16r0648 " ARABIC LETTER WAW " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
           "16r00E5"    16r0649 " ARABIC LETTER ALEF MAKSURA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
           "16r00E6"    16r064A " ARABIC LETTER YEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
           "16r00E7"    16r00E7 " LATIN SMALL LETTER C WITH CEDILLA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
           "16r00E8"    16r00E8 " LATIN SMALL LETTER E WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
           "16r00E9"    16r00E9 " LATIN SMALL LETTER E WITH ACUTE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
           "16r00EA"    16r00EA " LATIN SMALL LETTER E WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
           "16r00EB"    16r00EB " LATIN SMALL LETTER E WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
           "16r00EC"    16r064B " ARABIC FATHATAN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
           "16r00ED"    16r064C " ARABIC DAMMATAN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
           "16r00EE"    16r00EE " LATIN SMALL LETTER I WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
           "16r00EF"    16r00EF " LATIN SMALL LETTER I WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
           "16r00F0"    16r064D " ARABIC KASRATAN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
           "16r00F1"    16r064E " ARABIC FATHA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
           "16r00F2"    16r064F " ARABIC DAMMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
           "16r00F3"    16r0650 " ARABIC KASRA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
           "16r00F4"    16r00F4 " LATIN SMALL LETTER O WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
           "16r00F5"    16r0651 " ARABIC SHADDA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
           "16r00F6"    16r0652 " ARABIC SUKUN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
           "16r00F7"    16r00F7 " DIVISION SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
           "16r00F8"    16r0000 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
           "16r00F9"    16r00F9 " LATIN SMALL LETTER U WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
           "16r00FA"    16r0000 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
           "16r00FB"    16r00FB " LATIN SMALL LETTER U WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
           "16r00FC"    16r00FC " LATIN SMALL LETTER U WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
           "16r00FD"    16r200E " LEFT-TO-RIGHT MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
           "16r00FE"    16r200F " RIGHT-TO-LEFT MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
           "16r00FF"    16r00FF " LATIN SMALL LETTER Y WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
           ) at:(code - 16r7F).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
        t == 0 ifFalse:[^ t].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
        ^ self decodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
    ] value.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
encode:unicodeArg
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
    "Automagically generated by generateCode - do not modify.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
     Encode from unicode into my encoding."
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
    |unicode "{ Class: SmallInteger }"|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
    unicode := unicodeArg.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   490
    unicode <= 16r7F ifTrue:[ ^ unicode ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
    unicode > 16r3113 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
        ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   493
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
    unicode <= 16r9F ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
        ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
    unicode <= 16r6AF ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
        unicode <= 16r178 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
            unicode <= 16rFF ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
                    (#[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
                       "16r00A0"    1 " NO-BREAK SPACE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
                       "16r00A1"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
                       "16r00A2"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
                       "16r00A3"    1 " POUND SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
                       "16r00A4"    1 " CURRENCY SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
                       "16r00A5"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
                       "16r00A6"    1 " BROKEN BAR " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
                       "16r00A7"    1 " SECTION SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
                       "16r00A8"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
                       "16r00A9"    1 " COPYRIGHT SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
                       "16r00AA"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
                       "16r00AB"    1 " LEFT-POINTING DOUBLE ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
                       "16r00AC"    1 " NOT SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
                       "16r00AD"    1 " SOFT HYPHEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
                       "16r00AE"    1 " REGISTERED SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
                       "16r00AF"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
                       "16r00B0"    1 " DEGREE SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
                       "16r00B1"    1 " PLUS-MINUS SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
                       "16r00B2"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
                       "16r00B3"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
                       "16r00B4"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
                       "16r00B5"    1 " MICRO SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
                       "16r00B6"    1 " PILCROW SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
                       "16r00B7"    1 " MIDDLE DOT " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
                       "16r00B8"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
                       "16r00B9"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
                       "16r00BA"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
                       "16r00BB"    1 " RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
                       "16r00BC"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
                       "16r00BD"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
                       "16r00BE"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
                       "16r00BF"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
                       "16r00C0"    1 " LATIN CAPITAL LETTER A WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
                       "16r00C1"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
                       "16r00C2"    1 " LATIN CAPITAL LETTER A WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
                       "16r00C3"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
                       "16r00C4"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
                       "16r00C5"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
                       "16r00C6"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
                       "16r00C7"    1 " LATIN CAPITAL LETTER C WITH CEDILLA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
                       "16r00C8"    1 " LATIN CAPITAL LETTER E WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
                       "16r00C9"    1 " LATIN CAPITAL LETTER E WITH ACUTE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
                       "16r00CA"    1 " LATIN CAPITAL LETTER E WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
                       "16r00CB"    1 " LATIN CAPITAL LETTER E WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
                       "16r00CC"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
                       "16r00CD"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
                       "16r00CE"    1 " LATIN CAPITAL LETTER I WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
                       "16r00CF"    1 " LATIN CAPITAL LETTER I WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
                       "16r00D0"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
                       "16r00D1"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
                       "16r00D2"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
                       "16r00D3"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
                       "16r00D4"    1 " LATIN CAPITAL LETTER O WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
                       "16r00D5"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
                       "16r00D6"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
                       "16r00D7"    1 " MULTIPLICATION SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
                       "16r00D8"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
                       "16r00D9"    1 " LATIN CAPITAL LETTER U WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
                       "16r00DA"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
                       "16r00DB"    1 " LATIN CAPITAL LETTER U WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
                       "16r00DC"    1 " LATIN CAPITAL LETTER U WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
                       "16r00DD"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
                       "16r00DE"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
                       "16r00DF"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
                       "16r00E0"    1 " LATIN SMALL LETTER A WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
                       "16r00E1"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
                       "16r00E2"    1 " LATIN SMALL LETTER A WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
                       "16r00E3"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
                       "16r00E4"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
                       "16r00E5"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
                       "16r00E6"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
                       "16r00E7"    1 " LATIN SMALL LETTER C WITH CEDILLA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
                       "16r00E8"    1 " LATIN SMALL LETTER E WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
                       "16r00E9"    1 " LATIN SMALL LETTER E WITH ACUTE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
                       "16r00EA"    1 " LATIN SMALL LETTER E WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
                       "16r00EB"    1 " LATIN SMALL LETTER E WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
                       "16r00EC"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
                       "16r00ED"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
                       "16r00EE"    1 " LATIN SMALL LETTER I WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
                       "16r00EF"    1 " LATIN SMALL LETTER I WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
                       "16r00F0"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
                       "16r00F1"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
                       "16r00F2"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
                       "16r00F3"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
                       "16r00F4"    1 " LATIN SMALL LETTER O WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
                       "16r00F5"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
                       "16r00F6"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
                       "16r00F7"    1 " DIVISION SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
                       "16r00F8"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
                       "16r00F9"    1 " LATIN SMALL LETTER U WITH GRAVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
                       "16r00FA"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
                       "16r00FB"    1 " LATIN SMALL LETTER U WITH CIRCUMFLEX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
                       "16r00FC"    1 " LATIN SMALL LETTER U WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
                       "16r00FD"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
                       "16r00FE"    0 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
                       "16r00FF"    1 " LATIN SMALL LETTER Y WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
                    ] at:(unicode - 159)) ~~ 0 ifTrue:[^ unicode].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
                    ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
            ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
            unicode <= 16r177 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
                ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
            ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
            ^  "16r0178" 16r009F " LATIN CAPITAL LETTER Y WITH DIAERESIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
        ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
        unicode <= 16r60B ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
            ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
        ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
        [
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
            |t|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
            t := #[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
               "16r060C"    16r80 " ARABIC COMMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
               "16r060D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
               "16r060E"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
               "16r060F"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
               "16r0610"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
               "16r0611"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
               "16r0612"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
               "16r0613"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
               "16r0614"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
               "16r0615"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
               "16r0616"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
               "16r0617"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
               "16r0618"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
               "16r0619"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
               "16r061A"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
               "16r061B"    16r98 " ARABIC SEMICOLON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
               "16r061C"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
               "16r061D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
               "16r061E"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
               "16r061F"    16r9A " ARABIC QUESTION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
               "16r0620"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
               "16r0621"    16r9C " ARABIC LETTER HAMZA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
               "16r0622"    16r9D " ARABIC LETTER ALEF WITH MADDA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
               "16r0623"    16r9E " ARABIC LETTER ALEF WITH HAMZA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
               "16r0624"    16rA1 " ARABIC LETTER WAW WITH HAMZA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
               "16r0625"    16rA2 " ARABIC LETTER ALEF WITH HAMZA BELOW " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
               "16r0626"    16rA5 " ARABIC LETTER YEH WITH HAMZA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
               "16r0627"    16rA8 " ARABIC LETTER ALEF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
               "16r0628"    16rAA " ARABIC LETTER BEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
               "16r0629"    16rB2 " ARABIC LETTER TEH MARBUTA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   641
               "16r062A"    16rB3 " ARABIC LETTER TEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
               "16r062B"    16rB4 " ARABIC LETTER THEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
               "16r062C"    16rB8 " ARABIC LETTER JEEM " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
               "16r062D"    16rBA " ARABIC LETTER HAH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
               "16r062E"    16rBC " ARABIC LETTER KHAH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
               "16r062F"    16rBD " ARABIC LETTER DAL " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
               "16r0630"    16rBE " ARABIC LETTER THAL " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
               "16r0631"    16rBF " ARABIC LETTER REH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
               "16r0632"    16rC1 " ARABIC LETTER ZAIN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
               "16r0633"    16rC4 " ARABIC LETTER SEEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
               "16r0634"    16rC5 " ARABIC LETTER SHEEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
               "16r0635"    16rC6 " ARABIC LETTER SAD " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
               "16r0636"    16rCC " ARABIC LETTER DAD " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
               "16r0637"    16rCD " ARABIC LETTER TAH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
               "16r0638"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
               "16r0639"    16rD1 " ARABIC LETTER AIN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
               "16r063A"    16rD2 " ARABIC LETTER GHAIN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
               "16r063B"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
               "16r063C"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
               "16r063D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
               "16r063E"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
               "16r063F"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
               "16r0640"    16rD3 " ARABIC TATWEEL " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
               "16r0641"    16rD5 " ARABIC LETTER FEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
               "16r0642"    16rD6 " ARABIC LETTER QAF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
               "16r0643"    16rD8 " ARABIC LETTER KAF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
               "16r0644"    16rDD " ARABIC LETTER LAM " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
               "16r0645"    16rDE " ARABIC LETTER MEEM " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
               "16r0646"    16rDF " ARABIC LETTER NOON " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
               "16r0647"    16rE1 " ARABIC LETTER HEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
               "16r0648"    16rE4 " ARABIC LETTER WAW " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
               "16r0649"    16rE5 " ARABIC LETTER ALEF MAKSURA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
               "16r064A"    16rE6 " ARABIC LETTER YEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
               "16r064B"    16rEC " ARABIC FATHATAN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
               "16r064C"    16rED " ARABIC DAMMATAN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
               "16r064D"    16rF0 " ARABIC KASRATAN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
               "16r064E"    16rF1 " ARABIC FATHA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
               "16r064F"    16rF2 " ARABIC DAMMA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
               "16r0650"    16rF3 " ARABIC KASRA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
               "16r0651"    16rF5 " ARABIC SHADDA " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
               "16r0652"    16rF6 " ARABIC SUKUN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
               "16r0653"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
               "16r0654"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
               "16r0655"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   685
               "16r0656"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
               "16r0657"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
               "16r0658"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
               "16r0659"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
               "16r065A"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   690
               "16r065B"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   691
               "16r065C"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   692
               "16r065D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   693
               "16r065E"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
               "16r065F"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
               "16r0660"    16r81 " ARABIC-INDIC DIGIT ZERO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   696
               "16r0661"    16r83 " ARABIC-INDIC DIGIT ONE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   697
               "16r0662"    16r88 " ARABIC-INDIC DIGIT TWO " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   698
               "16r0663"    16r89 " ARABIC-INDIC DIGIT THREE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   699
               "16r0664"    16r8A " ARABIC-INDIC DIGIT FOUR " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   700
               "16r0665"    16r8C " ARABIC-INDIC DIGIT FIVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   701
               "16r0666"    16r8D " ARABIC-INDIC DIGIT SIX " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   702
               "16r0667"    16r8E " ARABIC-INDIC DIGIT SEVEN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
               "16r0668"    16r8F " ARABIC-INDIC DIGIT EIGHT " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
               "16r0669"    16r90 " ARABIC-INDIC DIGIT NINE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   705
               "16r066A"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
               "16r066B"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   707
               "16r066C"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   708
               "16r066D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   709
               "16r066E"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   710
               "16r066F"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
               "16r0670"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
               "16r0671"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   713
               "16r0672"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
               "16r0673"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
               "16r0674"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
               "16r0675"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
               "16r0676"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   718
               "16r0677"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   719
               "16r0678"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   720
               "16r0679"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   721
               "16r067A"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   722
               "16r067B"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   723
               "16r067C"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   724
               "16r067D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   725
               "16r067E"    16rAF " ARABIC LETTER PEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   726
               "16r067F"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   727
               "16r0680"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   728
               "16r0681"    16rE3 " ARABIC LETTER HAH WITH HAMZA ABOVE " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   729
               "16r0682"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
               "16r0683"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
               "16r0684"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   732
               "16r0685"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   733
               "16r0686"    16rB9 " ARABIC LETTER TCHEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   734
               "16r0687"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
               "16r0688"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   736
               "16r0689"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   737
               "16r068A"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   738
               "16r068B"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   739
               "16r068C"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   740
               "16r068D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
               "16r068E"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
               "16r068F"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
               "16r0690"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
               "16r0691"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
               "16r0692"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
               "16r0693"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
               "16r0694"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   748
               "16r0695"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
               "16r0696"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
               "16r0697"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
               "16r0698"    16rC3 " ARABIC LETTER JEH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
               "16r0699"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
               "16r069A"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
               "16r069B"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
               "16r069C"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   756
               "16r069D"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
               "16r069E"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
               "16r069F"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
               "16r06A0"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   760
               "16r06A1"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   761
               "16r06A2"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   762
               "16r06A3"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   763
               "16r06A4"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   764
               "16r06A5"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   765
               "16r06A6"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   766
               "16r06A7"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   767
               "16r06A8"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   768
               "16r06A9"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   769
               "16r06AA"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
               "16r06AB"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   771
               "16r06AC"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
               "16r06AD"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
               "16r06AE"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
               "16r06AF"    16rDA " ARABIC LETTER GAF " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
               ] at:(unicode - 16r60B).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
            t == 0 ifFalse:[^ t].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
            ^ self encodingError
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
        ] value.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
    unicode <= 16r200D ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
        ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
    unicode <= 16r2122 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
        unicode <= 16r203A ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
            unicode <= 16r2026 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
                [
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   787
                    |t|
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   788
                    t := #[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
                       "16r200E"    16rFD " LEFT-TO-RIGHT MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
                       "16r200F"    16rFE " RIGHT-TO-LEFT MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
                       "16r2010"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
                       "16r2011"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
                       "16r2012"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
                       "16r2013"    16r96 " EN DASH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
                       "16r2014"    16r97 " EM DASH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
                       "16r2015"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
                       "16r2016"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
                       "16r2017"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
                       "16r2018"    16r91 " LEFT SINGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
                       "16r2019"    16r92 " RIGHT SINGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
                       "16r201A"    16r82 " SINGLE LOW-9 QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
                       "16r201B"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
                       "16r201C"    16r93 " LEFT DOUBLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
                       "16r201D"    16r94 " RIGHT DOUBLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
                       "16r201E"    16r84 " DOUBLE LOW-9 QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
                       "16r201F"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
                       "16r2020"    16r86 " DAGGER " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
                       "16r2021"    16r87 " DOUBLE DAGGER " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
                       "16r2022"    16r95 " BULLET " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
                       "16r2023"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
                       "16r2024"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
                       "16r2025"    16r00 " invalid " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
                       "16r2026"    16r85 " HORIZONTAL ELLIPSIS " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
                       ] at:(unicode - 16r200D).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
                    t == 0 ifFalse:[^ t].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
                    ^ self encodingError
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
                ] value.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
            ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
            unicode <= 16r2038 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
                ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
            ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
            ^ #[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
               "16r2039"    16r8B " SINGLE LEFT-POINTING ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
               "16r203A"    16r9B " SINGLE RIGHT-POINTING ANGLE QUOTATION MARK " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
               ] at:(unicode - 16r2038).
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
        ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
        unicode <= 16r2121 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
            ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
        ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
        ^  "16r2122" 16r0099 " TRADE MARK SIGN " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
    unicode <= 16r3112 ifTrue:[
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
        ^ self encodingError.
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
    ].
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
    ^  "16r3113" 16r00D0 " BOPOMOFO LETTER ZH " 
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
! !
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
!MS_Arabic class methodsFor:'documentation'!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
version
17964
fb0bbcbb6f83 - CharacterEncoderImplementations::ISO8859_13
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17940
diff changeset
   841
    ^ '$Id: CharacterEncoderImplementations__MS_Arabic.st 10842 2012-09-07 10:49:18Z vranyj1 $'
fb0bbcbb6f83 - CharacterEncoderImplementations::ISO8859_13
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17940
diff changeset
   842
!
17892
d86c8bd5ece3 Merged with CVS
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17883
diff changeset
   843
17964
fb0bbcbb6f83 - CharacterEncoderImplementations::ISO8859_13
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17940
diff changeset
   844
version_SVN
fb0bbcbb6f83 - CharacterEncoderImplementations::ISO8859_13
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17940
diff changeset
   845
    ^ '$Id:: CharacterEncoderImplementations__MS_Arabic.st 10842 2012-09-07 10:49:18Z vranyj1                                       $'
fb0bbcbb6f83 - CharacterEncoderImplementations::ISO8859_13
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17940
diff changeset
   846
! !