CharacterEncoderImplementations__ASCII.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 13 Jun 2018 14:39:23 +0000
branchjv
changeset 23108 77cd6e1625e1
parent 17940 985e22966acb
permissions -rw-r--r--
Merge
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