CharacterEncoderImplementations__ASCII.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 22 Sep 2015 16:28:42 +0100
branchjv
changeset 18759 c1217211909c
parent 17940 985e22966acb
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
"
8082
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libbasic' }"
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: CharacterEncoderImplementations }"
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
SingleByteEncoder subclass:#ASCII
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:''
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Collections-Text-Encodings'
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
be629521cbae 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
!ASCII class methodsFor:'documentation'!
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    24
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    25
copyright
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    26
"
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    27
 COPYRIGHT (c) 2004 by eXept Software AG
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    28
              All Rights Reserved
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    29
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    30
 This software is furnished under a license and may be used
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    31
 only in accordance with the terms of that license and with the
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    33
 be provided or otherwise made available to, or used by, any
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    34
 other person.  No title to or ownership of the software is
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    35
 hereby transferred.
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    36
"
8811
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    37
!
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    38
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    39
documentation
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    40
"
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    41
    Ascii - 7bit identity subset of Unicode.
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    42
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    43
    [author:]
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    44
        Claus Gittinger
b2a78fe1d44f documentation
Claus Gittinger <cg@exept.de>
parents: 8148
diff changeset
    45
"
8148
dbf64e3142d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8114
diff changeset
    46
! !
8082
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
!ASCII class methodsFor:'mapping'!
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
mapFileURL2_relativePathName
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    ^ 'ASCII'
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    "
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
     self generateCode
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    "
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
!
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
mapping
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
"
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
# From: http://std.dkuug.dk/i18n/charmaps/ASCII
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
<code_set_name> ANSI_X3.4-1968
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
<comment_char> %
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
<escape_char> /
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
% version: 1.0
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
% repertoiremap: mnemonic,ds
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
%  source: ECMA registry
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
% alias ISO-IR-6
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
% alias ANSI_X3.4-1986
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
% alias ISO_646.IRV:1991
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
% alias ASCII
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
% alias ISO646-US
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
% alias US-ASCII
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
% alias US
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
% alias IBM367
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
% alias CP367
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
CHARMAP
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
<NU>                   /x00   <U0000> NULL (NUL)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
<SH>                   /x01   <U0001> START OF HEADING (SOH)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
<SX>                   /x02   <U0002> START OF TEXT (STX)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
<EX>                   /x03   <U0003> END OF TEXT (ETX)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
<ET>                   /x04   <U0004> END OF TRANSMISSION (EOT)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
<EQ>                   /x05   <U0005> ENQUIRY (ENQ)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
<AK>                   /x06   <U0006> ACKNOWLEDGE (ACK)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
<BL>                   /x07   <U0007> BELL (BEL)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
<BS>                   /x08   <U0008> BACKSPACE (BS)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
<HT>                   /x09   <U0009> CHARACTER TABULATION (HT)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
<LF>                   /x0A   <U000A> LINE FEED (LF)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
<VT>                   /x0B   <U000B> LINE TABULATION (VT)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
<FF>                   /x0C   <U000C> FORM FEED (FF)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
<CR>                   /x0D   <U000D> CARRIAGE RETURN (CR)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
<SO>                   /x0E   <U000E> SHIFT OUT (SO)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
<SI>                   /x0F   <U000F> SHIFT IN (SI)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
<DL>                   /x10   <U0010> DATALINK ESCAPE (DLE)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
<D1>                   /x11   <U0011> DEVICE CONTROL ONE (DC1)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
<D2>                   /x12   <U0012> DEVICE CONTROL TWO (DC2)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
<D3>                   /x13   <U0013> DEVICE CONTROL THREE (DC3)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
<D4>                   /x14   <U0014> DEVICE CONTROL FOUR (DC4)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
<NK>                   /x15   <U0015> NEGATIVE ACKNOWLEDGE (NAK)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
<SY>                   /x16   <U0016> SYNCHRONOUS IDLE (SYN)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
<EB>                   /x17   <U0017> END OF TRANSMISSION BLOCK (ETB)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
<CN>                   /x18   <U0018> CANCEL (CAN)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
<EM>                   /x19   <U0019> END OF MEDIUM (EM)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
<SB>                   /x1A   <U001A> SUBSTITUTE (SUB)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
<EC>                   /x1B   <U001B> ESCAPE (ESC)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
<FS>                   /x1C   <U001C> FILE SEPARATOR (IS4)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
<GS>                   /x1D   <U001D> GROUP SEPARATOR (IS3)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
<RS>                   /x1E   <U001E> RECORD SEPARATOR (IS2)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
<US>                   /x1F   <U001F> UNIT SEPARATOR (IS1)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
<SP>                   /x20   <U0020> SPACE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
<!!>                    /x21   <U0021> EXCLAMATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
<'>                    /x22   <U0022> QUOTATION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
<Nb>                   /x23   <U0023> NUMBER SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
<DO>                   /x24   <U0024> DOLLAR SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
<%>                    /x25   <U0025> PERCENT SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
<&>                    /x26   <U0026> AMPERSAND
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
<'>                    /x27   <U0027> APOSTROPHE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
<(>                    /x28   <U0028> LEFT PARENTHESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
<)>                    /x29   <U0029> RIGHT PARENTHESIS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
<*>                    /x2A   <U002A> ASTERISK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
<+>                    /x2B   <U002B> PLUS SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
<,>                    /x2C   <U002C> COMMA
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
<->                    /x2D   <U002D> HYPHEN-MINUS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
<.>                    /x2E   <U002E> FULL STOP
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
<//>                   /x2F   <U002F> SOLIDUS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
<0>                    /x30   <U0030> DIGIT ZERO
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
<1>                    /x31   <U0031> DIGIT ONE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
<2>                    /x32   <U0032> DIGIT TWO
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
<3>                    /x33   <U0033> DIGIT THREE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
<4>                    /x34   <U0034> DIGIT FOUR
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
<5>                    /x35   <U0035> DIGIT FIVE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
<6>                    /x36   <U0036> DIGIT SIX
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
<7>                    /x37   <U0037> DIGIT SEVEN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
<8>                    /x38   <U0038> DIGIT EIGHT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
<9>                    /x39   <U0039> DIGIT NINE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
<:>                    /x3A   <U003A> COLON
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
<;>                    /x3B   <U003B> SEMICOLON
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
<<>                    /x3C   <U003C> LESS-THAN SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
<=>                    /x3D   <U003D> EQUALS SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
</>>                   /x3E   <U003E> GREATER-THAN SIGN
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
<?>                    /x3F   <U003F> QUESTION MARK
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
<At>                   /x40   <U0040> COMMERCIAL AT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
<A>                    /x41   <U0041> LATIN CAPITAL LETTER A
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
<B>                    /x42   <U0042> LATIN CAPITAL LETTER B
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
<C>                    /x43   <U0043> LATIN CAPITAL LETTER C
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
<D>                    /x44   <U0044> LATIN CAPITAL LETTER D
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
<E>                    /x45   <U0045> LATIN CAPITAL LETTER E
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
<F>                    /x46   <U0046> LATIN CAPITAL LETTER F
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
<G>                    /x47   <U0047> LATIN CAPITAL LETTER G
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
<H>                    /x48   <U0048> LATIN CAPITAL LETTER H
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
<I>                    /x49   <U0049> LATIN CAPITAL LETTER I
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
<J>                    /x4A   <U004A> LATIN CAPITAL LETTER J
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
<K>                    /x4B   <U004B> LATIN CAPITAL LETTER K
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
<L>                    /x4C   <U004C> LATIN CAPITAL LETTER L
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
<M>                    /x4D   <U004D> LATIN CAPITAL LETTER M
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
<N>                    /x4E   <U004E> LATIN CAPITAL LETTER N
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
<O>                    /x4F   <U004F> LATIN CAPITAL LETTER O
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
<P>                    /x50   <U0050> LATIN CAPITAL LETTER P
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
<Q>                    /x51   <U0051> LATIN CAPITAL LETTER Q
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
<R>                    /x52   <U0052> LATIN CAPITAL LETTER R
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
<S>                    /x53   <U0053> LATIN CAPITAL LETTER S
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
<T>                    /x54   <U0054> LATIN CAPITAL LETTER T
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
<U>                    /x55   <U0055> LATIN CAPITAL LETTER U
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
<V>                    /x56   <U0056> LATIN CAPITAL LETTER V
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
<W>                    /x57   <U0057> LATIN CAPITAL LETTER W
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
<X>                    /x58   <U0058> LATIN CAPITAL LETTER X
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
<Y>                    /x59   <U0059> LATIN CAPITAL LETTER Y
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
<Z>                    /x5A   <U005A> LATIN CAPITAL LETTER Z
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
<<(>                   /x5B   <U005B> LEFT SQUARE BRACKET
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
<////>                 /x5C   <U005C> REVERSE SOLIDUS
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
<)/>>                  /x5D   <U005D> RIGHT SQUARE BRACKET
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
<'/>>                  /x5E   <U005E> CIRCUMFLEX ACCENT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
<_>                    /x5F   <U005F> LOW LINE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
<'!!>                   /x60   <U0060> GRAVE ACCENT
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
<a>                    /x61   <U0061> LATIN SMALL LETTER A
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
<b>                    /x62   <U0062> LATIN SMALL LETTER B
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
<c>                    /x63   <U0063> LATIN SMALL LETTER C
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
<d>                    /x64   <U0064> LATIN SMALL LETTER D
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
<e>                    /x65   <U0065> LATIN SMALL LETTER E
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
<f>                    /x66   <U0066> LATIN SMALL LETTER F
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
<g>                    /x67   <U0067> LATIN SMALL LETTER G
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
<h>                    /x68   <U0068> LATIN SMALL LETTER H
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
<i>                    /x69   <U0069> LATIN SMALL LETTER I
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
<j>                    /x6A   <U006A> LATIN SMALL LETTER J
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
<k>                    /x6B   <U006B> LATIN SMALL LETTER K
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
<l>                    /x6C   <U006C> LATIN SMALL LETTER L
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
<m>                    /x6D   <U006D> LATIN SMALL LETTER M
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
<n>                    /x6E   <U006E> LATIN SMALL LETTER N
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
<o>                    /x6F   <U006F> LATIN SMALL LETTER O
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
<p>                    /x70   <U0070> LATIN SMALL LETTER P
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
<q>                    /x71   <U0071> LATIN SMALL LETTER Q
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
<r>                    /x72   <U0072> LATIN SMALL LETTER R
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
<s>                    /x73   <U0073> LATIN SMALL LETTER S
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
<t>                    /x74   <U0074> LATIN SMALL LETTER T
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
<u>                    /x75   <U0075> LATIN SMALL LETTER U
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
<v>                    /x76   <U0076> LATIN SMALL LETTER V
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
<w>                    /x77   <U0077> LATIN SMALL LETTER W
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
<x>                    /x78   <U0078> LATIN SMALL LETTER X
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
<y>                    /x79   <U0079> LATIN SMALL LETTER Y
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
<z>                    /x7A   <U007A> LATIN SMALL LETTER Z
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
<(!!>                   /x7B   <U007B> LEFT CURLY BRACKET
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
<!!!!>                   /x7C   <U007C> VERTICAL LINE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
<!!)>                   /x7D   <U007D> RIGHT CURLY BRACKET
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
<'?>                   /x7E   <U007E> TILDE
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
<DT>                   /x7F   <U007F> DELETE (DEL)
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
END CHARMAP
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
"
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
! !
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
!ASCII methodsFor:'encoding & decoding'!
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
decode:codeArg
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
    "Automagically generated by generateCode - do not modify.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
     Decode from my encoding into unicode."
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
    |code "{ Class: SmallInteger }"|
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
    code := codeArg.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
    code > 16r7F ifTrue:[
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
	^ self decodingError.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
    ].
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
    ^ code.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
!
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
encode:unicodeArg
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
    "Automagically generated by generateCode - do not modify.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
     Encode from unicode into my encoding."
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
    |unicode "{ Class: SmallInteger }"|
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
    unicode := unicodeArg.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
    unicode > 16r7F ifTrue:[
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
	^ self encodingError.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
    ].
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
    ^ unicode.
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
! !
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
!ASCII class methodsFor:'documentation'!
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
be629521cbae initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
version
17940
985e22966acb Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17911
diff changeset
   243
    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ASCII.st,v 1.4 2005/03/31 18:12:07 cg Exp $'
17865
598963c6ff8e Recommited from itself
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17846
diff changeset
   244
!
598963c6ff8e Recommited from itself
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17846
diff changeset
   245
598963c6ff8e Recommited from itself
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17846
diff changeset
   246
version_SVN
17940
985e22966acb Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17911
diff changeset
   247
    ^ '$Id: CharacterEncoderImplementations__ASCII.st 10807 2012-05-05 21:58:24Z vranyj1 $'
17846
24edc476ac18 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17845
diff changeset
   248
! !
17892
d86c8bd5ece3 Merged with CVS
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17869
diff changeset
   249
17910
8d796ca8bd1d Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17892
diff changeset
   250
17911
a99f15c5efa5 Updated with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17910
diff changeset
   251