CharacterEncoderImplementations__MS_Hebrew.st
author Claus Gittinger <cg@exept.de>
Tue, 09 Jul 2019 20:55:17 +0200
changeset 24417 03b083548da2
parent 8813 c2908c7fc648
child 17711 39faaaf888b4
permissions -rw-r--r--
#REFACTORING by exept class: Smalltalk class changed: #recursiveInstallAutoloadedClassesFrom:rememberIn:maxLevels:noAutoload:packageTop:showSplashInLevels: Transcript showCR:(... bindWith:...) -> Transcript showCR:... with:...
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     1
"
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     2
 COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     3
              All Rights Reserved
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     4
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     5
 This software is furnished under a license and may be used
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     6
 only in accordance with the terms of that license and with the
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     8
 be provided or otherwise made available to, or used by, any
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
     9
 other person.  No title to or ownership of the software is
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    10
 hereby transferred.
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    11
"
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    12
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"{ Package: 'stx:libbasic' }"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
"{ NameSpace: CharacterEncoderImplementations }"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
SingleByteEncoder subclass:#MS_Hebrew
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	instanceVariableNames:''
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	classVariableNames:''
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	poolDictionaries:''
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	category:'Collections-Text-Encodings'
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    24
!MS_Hebrew class methodsFor:'documentation'!
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    25
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    26
copyright
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    27
"
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    28
 COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    29
              All Rights Reserved
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    30
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    31
 This software is furnished under a license and may be used
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    32
 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
    33
 inclusion of the above copyright notice.   This software may not
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    34
 be provided or otherwise made available to, or used by, any
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    35
 other person.  No title to or ownership of the software is
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    36
 hereby transferred.
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    37
"
8813
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    38
!
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    39
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    40
documentation
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    41
"
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    42
    CP1255 / Microsoft Hebrew
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    43
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    44
    [see with:]
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    45
        CharacterEncoderImplementations::MS_Hebrew showCharacterSet
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    46
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    47
    [author:]
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    48
        Claus Gittinger
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    49
"
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    50
! !
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
!MS_Hebrew class methodsFor:'mapping'!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
mapFileURL2_relativePathName
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    ^ 'CP1255'
8813
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    56
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    57
    "
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    58
     self generateCode
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    59
    "
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
mapping
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
# From: http://std.dkuug.dk/i18n/charmaps/CP1255
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
<code_set_name> CP1255
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
<comment_char> %
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
<escape_char> /
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
% version: 1.0
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
% repertoiremap: mnemonic,ds
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
%  source: UNICODE 1.0
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
% alias MS-HEBR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
CHARMAP
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
<NU>                   /x00   <U0000> NULL (NUL)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
<SH>                   /x01   <U0001> START OF HEADING (SOH)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
<SX>                   /x02   <U0002> START OF TEXT (STX)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
<EX>                   /x03   <U0003> END OF TEXT (ETX)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
<ET>                   /x04   <U0004> END OF TRANSMISSION (EOT)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
<EQ>                   /x05   <U0005> ENQUIRY (ENQ)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
<AK>                   /x06   <U0006> ACKNOWLEDGE (ACK)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
<BL>                   /x07   <U0007> BELL (BEL)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
<BS>                   /x08   <U0008> BACKSPACE (BS)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
<HT>                   /x09   <U0009> CHARACTER TABULATION (HT)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
<LF>                   /x0A   <U000A> LINE FEED (LF)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
<VT>                   /x0B   <U000B> LINE TABULATION (VT)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
<FF>                   /x0C   <U000C> FORM FEED (FF)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
<CR>                   /x0D   <U000D> CARRIAGE RETURN (CR)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
<SO>                   /x0E   <U000E> SHIFT OUT (SO)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
<SI>                   /x0F   <U000F> SHIFT IN (SI)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
<DL>                   /x10   <U0010> DATALINK ESCAPE (DLE)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
<D1>                   /x11   <U0011> DEVICE CONTROL ONE (DC1)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
<D2>                   /x12   <U0012> DEVICE CONTROL TWO (DC2)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
<D3>                   /x13   <U0013> DEVICE CONTROL THREE (DC3)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
<D4>                   /x14   <U0014> DEVICE CONTROL FOUR (DC4)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
<NK>                   /x15   <U0015> NEGATIVE ACKNOWLEDGE (NAK)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
<SY>                   /x16   <U0016> SYNCHRONOUS IDLE (SYN)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
<EB>                   /x17   <U0017> END OF TRANSMISSION BLOCK (ETB)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
<CN>                   /x18   <U0018> CANCEL (CAN)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
<EM>                   /x19   <U0019> END OF MEDIUM (EM)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
<SB>                   /x1A   <U001A> SUBSTITUTE (SUB)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
<EC>                   /x1B   <U001B> ESCAPE (ESC)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
<FS>                   /x1C   <U001C> FILE SEPARATOR (IS4)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
<GS>                   /x1D   <U001D> GROUP SEPARATOR (IS3)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
<RS>                   /x1E   <U001E> RECORD SEPARATOR (IS2)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
<US>                   /x1F   <U001F> UNIT SEPARATOR (IS1)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
<SP>                   /x20   <U0020> SPACE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
<!!>                    /x21   <U0021> EXCLAMATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
<'>                    /x22   <U0022> QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
<Nb>                   /x23   <U0023> NUMBER SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
<DO>                   /x24   <U0024> DOLLAR SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
<%>                    /x25   <U0025> PERCENT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
<&>                    /x26   <U0026> AMPERSAND
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
<'>                    /x27   <U0027> APOSTROPHE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
<(>                    /x28   <U0028> LEFT PARENTHESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
<)>                    /x29   <U0029> RIGHT PARENTHESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
<*>                    /x2A   <U002A> ASTERISK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
<+>                    /x2B   <U002B> PLUS SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
<,>                    /x2C   <U002C> COMMA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
<->                    /x2D   <U002D> HYPHEN-MINUS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
<.>                    /x2E   <U002E> FULL STOP
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
<//>                   /x2F   <U002F> SOLIDUS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
<0>                    /x30   <U0030> DIGIT ZERO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
<1>                    /x31   <U0031> DIGIT ONE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
<2>                    /x32   <U0032> DIGIT TWO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
<3>                    /x33   <U0033> DIGIT THREE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
<4>                    /x34   <U0034> DIGIT FOUR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
<5>                    /x35   <U0035> DIGIT FIVE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
<6>                    /x36   <U0036> DIGIT SIX
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
<7>                    /x37   <U0037> DIGIT SEVEN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
<8>                    /x38   <U0038> DIGIT EIGHT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
<9>                    /x39   <U0039> DIGIT NINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
<:>                    /x3A   <U003A> COLON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
<;>                    /x3B   <U003B> SEMICOLON
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
<<>                    /x3C   <U003C> LESS-THAN SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
<=>                    /x3D   <U003D> EQUALS SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
</>>                   /x3E   <U003E> GREATER-THAN SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
<?>                    /x3F   <U003F> QUESTION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
<At>                   /x40   <U0040> COMMERCIAL AT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
<A>                    /x41   <U0041> LATIN CAPITAL LETTER A
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
<B>                    /x42   <U0042> LATIN CAPITAL LETTER B
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
<C>                    /x43   <U0043> LATIN CAPITAL LETTER C
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
<D>                    /x44   <U0044> LATIN CAPITAL LETTER D
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
<E>                    /x45   <U0045> LATIN CAPITAL LETTER E
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
<F>                    /x46   <U0046> LATIN CAPITAL LETTER F
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
<G>                    /x47   <U0047> LATIN CAPITAL LETTER G
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
<H>                    /x48   <U0048> LATIN CAPITAL LETTER H
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
<I>                    /x49   <U0049> LATIN CAPITAL LETTER I
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
<J>                    /x4A   <U004A> LATIN CAPITAL LETTER J
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
<K>                    /x4B   <U004B> LATIN CAPITAL LETTER K
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
<L>                    /x4C   <U004C> LATIN CAPITAL LETTER L
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
<M>                    /x4D   <U004D> LATIN CAPITAL LETTER M
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
<N>                    /x4E   <U004E> LATIN CAPITAL LETTER N
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
<O>                    /x4F   <U004F> LATIN CAPITAL LETTER O
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
<P>                    /x50   <U0050> LATIN CAPITAL LETTER P
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
<Q>                    /x51   <U0051> LATIN CAPITAL LETTER Q
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
<R>                    /x52   <U0052> LATIN CAPITAL LETTER R
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
<S>                    /x53   <U0053> LATIN CAPITAL LETTER S
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
<T>                    /x54   <U0054> LATIN CAPITAL LETTER T
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
<U>                    /x55   <U0055> LATIN CAPITAL LETTER U
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
<V>                    /x56   <U0056> LATIN CAPITAL LETTER V
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
<W>                    /x57   <U0057> LATIN CAPITAL LETTER W
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
<X>                    /x58   <U0058> LATIN CAPITAL LETTER X
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
<Y>                    /x59   <U0059> LATIN CAPITAL LETTER Y
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
<Z>                    /x5A   <U005A> LATIN CAPITAL LETTER Z
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
<<(>                   /x5B   <U005B> LEFT SQUARE BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
<////>                 /x5C   <U005C> REVERSE SOLIDUS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
<)/>>                  /x5D   <U005D> RIGHT SQUARE BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
<'/>>                  /x5E   <U005E> CIRCUMFLEX ACCENT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
<_>                    /x5F   <U005F> LOW LINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
<'!!>                   /x60   <U0060> GRAVE ACCENT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
<a>                    /x61   <U0061> LATIN SMALL LETTER A
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
<b>                    /x62   <U0062> LATIN SMALL LETTER B
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
<c>                    /x63   <U0063> LATIN SMALL LETTER C
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
<d>                    /x64   <U0064> LATIN SMALL LETTER D
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
<e>                    /x65   <U0065> LATIN SMALL LETTER E
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
<f>                    /x66   <U0066> LATIN SMALL LETTER F
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
<g>                    /x67   <U0067> LATIN SMALL LETTER G
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
<h>                    /x68   <U0068> LATIN SMALL LETTER H
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
<i>                    /x69   <U0069> LATIN SMALL LETTER I
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
<j>                    /x6A   <U006A> LATIN SMALL LETTER J
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
<k>                    /x6B   <U006B> LATIN SMALL LETTER K
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
<l>                    /x6C   <U006C> LATIN SMALL LETTER L
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
<m>                    /x6D   <U006D> LATIN SMALL LETTER M
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
<n>                    /x6E   <U006E> LATIN SMALL LETTER N
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
<o>                    /x6F   <U006F> LATIN SMALL LETTER O
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
<p>                    /x70   <U0070> LATIN SMALL LETTER P
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
<q>                    /x71   <U0071> LATIN SMALL LETTER Q
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
<r>                    /x72   <U0072> LATIN SMALL LETTER R
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
<s>                    /x73   <U0073> LATIN SMALL LETTER S
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
<t>                    /x74   <U0074> LATIN SMALL LETTER T
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
<u>                    /x75   <U0075> LATIN SMALL LETTER U
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
<v>                    /x76   <U0076> LATIN SMALL LETTER V
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
<w>                    /x77   <U0077> LATIN SMALL LETTER W
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
<x>                    /x78   <U0078> LATIN SMALL LETTER X
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
<y>                    /x79   <U0079> LATIN SMALL LETTER Y
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
<z>                    /x7A   <U007A> LATIN SMALL LETTER Z
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
<(!!>                   /x7B   <U007B> LEFT CURLY BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
<!!!!>                   /x7C   <U007C> VERTICAL LINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
<!!)>                   /x7D   <U007D> RIGHT CURLY BRACKET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
<'?>                   /x7E   <U007E> TILDE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
<DT>                   /x7F   <U007F> DELETE (DEL)
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
<.9>                   /x82   <U201A> SINGLE LOW-9 QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
<f2>                   /x83   <U0192> LATIN SMALL LETTER F WITH HOOK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
<:9>                   /x84   <U201E> DOUBLE LOW-9 QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
<.3>                   /x85   <U2026> HORIZONTAL ELLIPSIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
<//->                  /x86   <U2020> DAGGER
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
<//=>                  /x87   <U2021> DOUBLE DAGGER
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
<%0>                   /x89   <U2030> PER MILLE SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
<<1>                   /x8B   <U2039> SINGLE LEFT-POINTING ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
<'6>                   /x91   <U2018> LEFT SINGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
<'9>                   /x92   <U2019> RIGHT SINGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
<'6>                   /x93   <U201C> LEFT DOUBLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
<'9>                   /x94   <U201D> RIGHT DOUBLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
<sb>                   /x95   <U2022> BULLET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
<-N>                   /x96   <U2013> EN DASH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
<-M>                   /x97   <U2014> EM DASH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
<TM>                   /x99   <U2122> TRADE MARK SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
</>1>                  /x9B   <U203A> SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
<NS>                   /xA0   <U00A0> NO-BREAK SPACE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
<Ct>                   /xA2   <U00A2> CENT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
<Pd>                   /xA3   <U00A3> POUND SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
<Cu>                   /xA4   <U00A4> CURRENCY SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
<Ye>                   /xA5   <U00A5> YEN SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
<BB>                   /xA6   <U00A6> BROKEN BAR
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
<SE>                   /xA7   <U00A7> SECTION SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
<':>                   /xA8   <U00A8> DIAERESIS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
<Co>                   /xA9   <U00A9> COPYRIGHT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
<*X>                   /xAA   <U00D7> MULTIPLICATION SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
<<<>                   /xAB   <U00AB> LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
<NO>                   /xAC   <U00AC> NOT SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
<-->                   /xAD   <U00AD> SOFT HYPHEN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
<Rg>                   /xAE   <U00AE> REGISTERED SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
<'->                   /xAF   <U203E> OVERLINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
<DG>                   /xB0   <U00B0> DEGREE SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
<+->                   /xB1   <U00B1> PLUS-MINUS SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
<2S>                   /xB2   <U00B2> SUPERSCRIPT TWO
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
<3S>                   /xB3   <U00B3> SUPERSCRIPT THREE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
<''>                   /xB4   <U00B4> ACUTE ACCENT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
<My>                   /xB5   <U00B5> MICRO SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
<PI>                   /xB6   <U00B6> PILCROW SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
<.M>                   /xB7   <U00B7> MIDDLE DOT
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
<',>                   /xB8   <U00B8> CEDILLA
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
<1S>                   /xB9   <U00B9> SUPERSCRIPT ONE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
<-:>                   /xBA   <U00F7> DIVISION SIGN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
</>/>>                 /xBB   <U00BB> RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
<14>                   /xBC   <U00BC> VULGAR FRACTION ONE QUARTER
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
<12>                   /xBD   <U00BD> VULGAR FRACTION ONE HALF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
<34>                   /xBE   <U00BE> VULGAR FRACTION THREE QUARTERS
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
<=2>                   /xDF   <U2017> DOUBLE LOW LINE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
<A+>                   /xE0   <U05D0> HEBREW LETTER ALEF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
<B+>                   /xE1   <U05D1> HEBREW LETTER BET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
<G+>                   /xE2   <U05D2> HEBREW LETTER GIMEL
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
<D+>                   /xE3   <U05D3> HEBREW LETTER DALET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
<H+>                   /xE4   <U05D4> HEBREW LETTER HE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
<W+>                   /xE5   <U05D5> HEBREW LETTER VAV
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
<Z+>                   /xE6   <U05D6> HEBREW LETTER ZAYIN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
<X+>                   /xE7   <U05D7> HEBREW LETTER HET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
<Tj>                   /xE8   <U05D8> HEBREW LETTER TET
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
<J+>                   /xE9   <U05D9> HEBREW LETTER YOD
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
<K%>                   /xEA   <U05DA> HEBREW LETTER FINAL KAF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
<K+>                   /xEB   <U05DB> HEBREW LETTER KAF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
<L+>                   /xEC   <U05DC> HEBREW LETTER LAMED
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
<M%>                   /xED   <U05DD> HEBREW LETTER FINAL MEM
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
<M+>                   /xEE   <U05DE> HEBREW LETTER MEM
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
<N%>                   /xEF   <U05DF> HEBREW LETTER FINAL NUN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
<N+>                   /xF0   <U05E0> HEBREW LETTER NUN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
<S+>                   /xF1   <U05E1> HEBREW LETTER SAMEKH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
<E+>                   /xF2   <U05E2> HEBREW LETTER AYIN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
<P%>                   /xF3   <U05E3> HEBREW LETTER FINAL PE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
<P+>                   /xF4   <U05E4> HEBREW LETTER PE
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
<Zj>                   /xF5   <U05E5> HEBREW LETTER FINAL TSADI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
<ZJ>                   /xF6   <U05E6> HEBREW LETTER TSADI
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
<Q+>                   /xF7   <U05E7> HEBREW LETTER QOF
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
<R+>                   /xF8   <U05E8> HEBREW LETTER RESH
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
<Sh>                   /xF9   <U05E9> HEBREW LETTER SHIN
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
<T+>                   /xFA   <U05EA> HEBREW LETTER TAV
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
<LR>                   /xFD   <U200E> LEFT-TO-RIGHT MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
<RL>                   /xFE   <U200F> RIGHT-TO-LEFT MARK
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
END CHARMAP
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
"
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
! !
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
8813
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   285
!MS_Hebrew methodsFor:'encoding & decoding'!
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   286
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   287
decode:codeArg
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   288
    "Automagically generated by generateCode - do not modify.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   289
     Decode from my encoding into unicode."
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   290
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   291
    |code "{ Class: SmallInteger }"|
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   292
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   293
    code := codeArg.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   294
    code <= 16r7F ifTrue:[ ^ code ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   295
    code > 16rFE ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   296
        ^ self decodingError.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   297
    ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   298
    [
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   299
        |t|
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   300
        t := #(
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   301
           "16r0080"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   302
           "16r0081"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   303
           "16r0082"    16r201A " SINGLE LOW-9 QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   304
           "16r0083"    16r0192 " LATIN SMALL LETTER F WITH HOOK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   305
           "16r0084"    16r201E " DOUBLE LOW-9 QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   306
           "16r0085"    16r2026 " HORIZONTAL ELLIPSIS " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   307
           "16r0086"    16r2020 " DAGGER " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   308
           "16r0087"    16r2021 " DOUBLE DAGGER " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   309
           "16r0088"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   310
           "16r0089"    16r2030 " PER MILLE SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   311
           "16r008A"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   312
           "16r008B"    16r2039 " SINGLE LEFT-POINTING ANGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   313
           "16r008C"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   314
           "16r008D"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   315
           "16r008E"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   316
           "16r008F"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   317
           "16r0090"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   318
           "16r0091"    16r2018 " LEFT SINGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   319
           "16r0092"    16r2019 " RIGHT SINGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   320
           "16r0093"    16r201C " LEFT DOUBLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   321
           "16r0094"    16r201D " RIGHT DOUBLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   322
           "16r0095"    16r2022 " BULLET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   323
           "16r0096"    16r2013 " EN DASH " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   324
           "16r0097"    16r2014 " EM DASH " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   325
           "16r0098"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   326
           "16r0099"    16r2122 " TRADE MARK SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   327
           "16r009A"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   328
           "16r009B"    16r203A " SINGLE RIGHT-POINTING ANGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   329
           "16r009C"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   330
           "16r009D"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   331
           "16r009E"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   332
           "16r009F"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   333
           "16r00A0"    16r00A0 " NO-BREAK SPACE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   334
           "16r00A1"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   335
           "16r00A2"    16r00A2 " CENT SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   336
           "16r00A3"    16r00A3 " POUND SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   337
           "16r00A4"    16r00A4 " CURRENCY SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   338
           "16r00A5"    16r00A5 " YEN SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   339
           "16r00A6"    16r00A6 " BROKEN BAR " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   340
           "16r00A7"    16r00A7 " SECTION SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   341
           "16r00A8"    16r00A8 " DIAERESIS " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   342
           "16r00A9"    16r00A9 " COPYRIGHT SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   343
           "16r00AA"    16r00D7 " MULTIPLICATION SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   344
           "16r00AB"    16r00AB " LEFT-POINTING DOUBLE ANGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   345
           "16r00AC"    16r00AC " NOT SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   346
           "16r00AD"    16r00AD " SOFT HYPHEN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   347
           "16r00AE"    16r00AE " REGISTERED SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   348
           "16r00AF"    16r203E " OVERLINE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   349
           "16r00B0"    16r00B0 " DEGREE SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   350
           "16r00B1"    16r00B1 " PLUS-MINUS SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   351
           "16r00B2"    16r00B2 " SUPERSCRIPT TWO " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   352
           "16r00B3"    16r00B3 " SUPERSCRIPT THREE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   353
           "16r00B4"    16r00B4 " ACUTE ACCENT " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   354
           "16r00B5"    16r00B5 " MICRO SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   355
           "16r00B6"    16r00B6 " PILCROW SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   356
           "16r00B7"    16r00B7 " MIDDLE DOT " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   357
           "16r00B8"    16r00B8 " CEDILLA " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   358
           "16r00B9"    16r00B9 " SUPERSCRIPT ONE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   359
           "16r00BA"    16r00F7 " DIVISION SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   360
           "16r00BB"    16r00BB " RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   361
           "16r00BC"    16r00BC " VULGAR FRACTION ONE QUARTER " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   362
           "16r00BD"    16r00BD " VULGAR FRACTION ONE HALF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   363
           "16r00BE"    16r00BE " VULGAR FRACTION THREE QUARTERS " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   364
           "16r00BF"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   365
           "16r00C0"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   366
           "16r00C1"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   367
           "16r00C2"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   368
           "16r00C3"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   369
           "16r00C4"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   370
           "16r00C5"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   371
           "16r00C6"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   372
           "16r00C7"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   373
           "16r00C8"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   374
           "16r00C9"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   375
           "16r00CA"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   376
           "16r00CB"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   377
           "16r00CC"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   378
           "16r00CD"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   379
           "16r00CE"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   380
           "16r00CF"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   381
           "16r00D0"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   382
           "16r00D1"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   383
           "16r00D2"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   384
           "16r00D3"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   385
           "16r00D4"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   386
           "16r00D5"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   387
           "16r00D6"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   388
           "16r00D7"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   389
           "16r00D8"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   390
           "16r00D9"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   391
           "16r00DA"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   392
           "16r00DB"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   393
           "16r00DC"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   394
           "16r00DD"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   395
           "16r00DE"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   396
           "16r00DF"    16r2017 " DOUBLE LOW LINE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   397
           "16r00E0"    16r05D0 " HEBREW LETTER ALEF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   398
           "16r00E1"    16r05D1 " HEBREW LETTER BET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   399
           "16r00E2"    16r05D2 " HEBREW LETTER GIMEL " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   400
           "16r00E3"    16r05D3 " HEBREW LETTER DALET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   401
           "16r00E4"    16r05D4 " HEBREW LETTER HE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   402
           "16r00E5"    16r05D5 " HEBREW LETTER VAV " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   403
           "16r00E6"    16r05D6 " HEBREW LETTER ZAYIN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   404
           "16r00E7"    16r05D7 " HEBREW LETTER HET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   405
           "16r00E8"    16r05D8 " HEBREW LETTER TET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   406
           "16r00E9"    16r05D9 " HEBREW LETTER YOD " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   407
           "16r00EA"    16r05DA " HEBREW LETTER FINAL KAF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   408
           "16r00EB"    16r05DB " HEBREW LETTER KAF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   409
           "16r00EC"    16r05DC " HEBREW LETTER LAMED " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   410
           "16r00ED"    16r05DD " HEBREW LETTER FINAL MEM " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   411
           "16r00EE"    16r05DE " HEBREW LETTER MEM " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   412
           "16r00EF"    16r05DF " HEBREW LETTER FINAL NUN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   413
           "16r00F0"    16r05E0 " HEBREW LETTER NUN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   414
           "16r00F1"    16r05E1 " HEBREW LETTER SAMEKH " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   415
           "16r00F2"    16r05E2 " HEBREW LETTER AYIN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   416
           "16r00F3"    16r05E3 " HEBREW LETTER FINAL PE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   417
           "16r00F4"    16r05E4 " HEBREW LETTER PE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   418
           "16r00F5"    16r05E5 " HEBREW LETTER FINAL TSADI " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   419
           "16r00F6"    16r05E6 " HEBREW LETTER TSADI " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   420
           "16r00F7"    16r05E7 " HEBREW LETTER QOF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   421
           "16r00F8"    16r05E8 " HEBREW LETTER RESH " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   422
           "16r00F9"    16r05E9 " HEBREW LETTER SHIN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   423
           "16r00FA"    16r05EA " HEBREW LETTER TAV " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   424
           "16r00FB"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   425
           "16r00FC"    16r0000 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   426
           "16r00FD"    16r200E " LEFT-TO-RIGHT MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   427
           "16r00FE"    16r200F " RIGHT-TO-LEFT MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   428
           ) at:(code - 16r7F).
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   429
        t == 0 ifFalse:[^ t].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   430
        ^ self decodingError.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   431
    ] value.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   432
!
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   433
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   434
encode:unicodeArg
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   435
    "Automagically generated by generateCode - do not modify.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   436
     Encode from unicode into my encoding."
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   437
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   438
    |unicode "{ Class: SmallInteger }"|
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   439
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   440
    unicode := unicodeArg.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   441
    unicode <= 16r7F ifTrue:[ ^ unicode ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   442
    unicode > 16r2122 ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   443
        ^ self encodingError.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   444
    ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   445
    unicode <= 16r9F ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   446
        ^ self encodingError
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   447
    ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   448
    unicode <= 16r5EA ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   449
        unicode <= 16r192 ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   450
            unicode <= 16rF7 ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   451
                unicode <= 16rD7 ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   452
                    unicode <= 16rBE ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   453
                        [
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   454
                            |t|
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   455
                            t := #[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   456
                               "16r00A0"    16rA0 " NO-BREAK SPACE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   457
                               "16r00A1"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   458
                               "16r00A2"    16rA2 " CENT SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   459
                               "16r00A3"    16rA3 " POUND SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   460
                               "16r00A4"    16rA4 " CURRENCY SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   461
                               "16r00A5"    16rA5 " YEN SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   462
                               "16r00A6"    16rA6 " BROKEN BAR " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   463
                               "16r00A7"    16rA7 " SECTION SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   464
                               "16r00A8"    16rA8 " DIAERESIS " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   465
                               "16r00A9"    16rA9 " COPYRIGHT SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   466
                               "16r00AA"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   467
                               "16r00AB"    16rAB " LEFT-POINTING DOUBLE ANGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   468
                               "16r00AC"    16rAC " NOT SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   469
                               "16r00AD"    16rAD " SOFT HYPHEN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   470
                               "16r00AE"    16rAE " REGISTERED SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   471
                               "16r00AF"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   472
                               "16r00B0"    16rB0 " DEGREE SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   473
                               "16r00B1"    16rB1 " PLUS-MINUS SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   474
                               "16r00B2"    16rB2 " SUPERSCRIPT TWO " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   475
                               "16r00B3"    16rB3 " SUPERSCRIPT THREE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   476
                               "16r00B4"    16rB4 " ACUTE ACCENT " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   477
                               "16r00B5"    16rB5 " MICRO SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   478
                               "16r00B6"    16rB6 " PILCROW SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   479
                               "16r00B7"    16rB7 " MIDDLE DOT " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   480
                               "16r00B8"    16rB8 " CEDILLA " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   481
                               "16r00B9"    16rB9 " SUPERSCRIPT ONE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   482
                               "16r00BA"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   483
                               "16r00BB"    16rBB " RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   484
                               "16r00BC"    16rBC " VULGAR FRACTION ONE QUARTER " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   485
                               "16r00BD"    16rBD " VULGAR FRACTION ONE HALF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   486
                               "16r00BE"    16rBE " VULGAR FRACTION THREE QUARTERS " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   487
                               ] at:(unicode - 16r9F).
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   488
                            t == 0 ifFalse:[^ t].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   489
                            ^ self encodingError
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   490
                        ] value.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   491
                    ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   492
                    unicode <= 16rD6 ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   493
                        ^ self encodingError
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   494
                    ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   495
                    ^  "16r00D7" 16r00AA " MULTIPLICATION SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   496
                ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   497
                unicode <= 16rF6 ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   498
                    ^ self encodingError
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   499
                ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   500
                ^  "16r00F7" 16r00BA " DIVISION SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   501
            ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   502
            unicode <= 16r191 ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   503
                ^ self encodingError
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   504
            ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   505
            ^  "16r0192" 16r0083 " LATIN SMALL LETTER F WITH HOOK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   506
        ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   507
        unicode <= 16r5CF ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   508
            ^ self encodingError
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   509
        ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   510
        ^ #[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   511
           "16r05D0"    16rE0 " HEBREW LETTER ALEF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   512
           "16r05D1"    16rE1 " HEBREW LETTER BET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   513
           "16r05D2"    16rE2 " HEBREW LETTER GIMEL " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   514
           "16r05D3"    16rE3 " HEBREW LETTER DALET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   515
           "16r05D4"    16rE4 " HEBREW LETTER HE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   516
           "16r05D5"    16rE5 " HEBREW LETTER VAV " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   517
           "16r05D6"    16rE6 " HEBREW LETTER ZAYIN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   518
           "16r05D7"    16rE7 " HEBREW LETTER HET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   519
           "16r05D8"    16rE8 " HEBREW LETTER TET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   520
           "16r05D9"    16rE9 " HEBREW LETTER YOD " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   521
           "16r05DA"    16rEA " HEBREW LETTER FINAL KAF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   522
           "16r05DB"    16rEB " HEBREW LETTER KAF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   523
           "16r05DC"    16rEC " HEBREW LETTER LAMED " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   524
           "16r05DD"    16rED " HEBREW LETTER FINAL MEM " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   525
           "16r05DE"    16rEE " HEBREW LETTER MEM " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   526
           "16r05DF"    16rEF " HEBREW LETTER FINAL NUN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   527
           "16r05E0"    16rF0 " HEBREW LETTER NUN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   528
           "16r05E1"    16rF1 " HEBREW LETTER SAMEKH " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   529
           "16r05E2"    16rF2 " HEBREW LETTER AYIN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   530
           "16r05E3"    16rF3 " HEBREW LETTER FINAL PE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   531
           "16r05E4"    16rF4 " HEBREW LETTER PE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   532
           "16r05E5"    16rF5 " HEBREW LETTER FINAL TSADI " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   533
           "16r05E6"    16rF6 " HEBREW LETTER TSADI " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   534
           "16r05E7"    16rF7 " HEBREW LETTER QOF " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   535
           "16r05E8"    16rF8 " HEBREW LETTER RESH " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   536
           "16r05E9"    16rF9 " HEBREW LETTER SHIN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   537
           "16r05EA"    16rFA " HEBREW LETTER TAV " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   538
           ] at:(unicode - 16r5CF).
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   539
    ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   540
    unicode <= 16r200D ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   541
        ^ self encodingError
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   542
    ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   543
    unicode <= 16r203E ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   544
        [
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   545
            |t|
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   546
            t := #[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   547
               "16r200E"    16rFD " LEFT-TO-RIGHT MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   548
               "16r200F"    16rFE " RIGHT-TO-LEFT MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   549
               "16r2010"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   550
               "16r2011"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   551
               "16r2012"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   552
               "16r2013"    16r96 " EN DASH " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   553
               "16r2014"    16r97 " EM DASH " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   554
               "16r2015"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   555
               "16r2016"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   556
               "16r2017"    16rDF " DOUBLE LOW LINE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   557
               "16r2018"    16r91 " LEFT SINGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   558
               "16r2019"    16r92 " RIGHT SINGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   559
               "16r201A"    16r82 " SINGLE LOW-9 QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   560
               "16r201B"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   561
               "16r201C"    16r93 " LEFT DOUBLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   562
               "16r201D"    16r94 " RIGHT DOUBLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   563
               "16r201E"    16r84 " DOUBLE LOW-9 QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   564
               "16r201F"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   565
               "16r2020"    16r86 " DAGGER " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   566
               "16r2021"    16r87 " DOUBLE DAGGER " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   567
               "16r2022"    16r95 " BULLET " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   568
               "16r2023"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   569
               "16r2024"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   570
               "16r2025"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   571
               "16r2026"    16r85 " HORIZONTAL ELLIPSIS " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   572
               "16r2027"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   573
               "16r2028"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   574
               "16r2029"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   575
               "16r202A"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   576
               "16r202B"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   577
               "16r202C"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   578
               "16r202D"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   579
               "16r202E"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   580
               "16r202F"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   581
               "16r2030"    16r89 " PER MILLE SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   582
               "16r2031"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   583
               "16r2032"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   584
               "16r2033"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   585
               "16r2034"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   586
               "16r2035"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   587
               "16r2036"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   588
               "16r2037"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   589
               "16r2038"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   590
               "16r2039"    16r8B " SINGLE LEFT-POINTING ANGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   591
               "16r203A"    16r9B " SINGLE RIGHT-POINTING ANGLE QUOTATION MARK " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   592
               "16r203B"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   593
               "16r203C"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   594
               "16r203D"    16r00 " invalid " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   595
               "16r203E"    16rAF " OVERLINE " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   596
               ] at:(unicode - 16r200D).
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   597
            t == 0 ifFalse:[^ t].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   598
            ^ self encodingError
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   599
        ] value.
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   600
    ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   601
    unicode <= 16r2121 ifTrue:[
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   602
        ^ self encodingError
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   603
    ].
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   604
    ^  "16r2122" 16r0099 " TRADE MARK SIGN " 
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   605
! !
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   606
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
!MS_Hebrew class methodsFor:'documentation'!
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
version
8813
c2908c7fc648 documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
   610
    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Hebrew.st,v 1.4 2005-03-31 18:48:50 cg Exp $'
8081
b468050174a9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
! !