equal
deleted
inserted
replaced
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 |
|
12 |
|
13 " |
11 " |
14 |
|
15 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
16 |
13 |
17 TwoByteString variableWordSubclass:#Unicode16String |
14 TwoByteString variableWordSubclass:#Unicode16String |
18 instanceVariableNames:'' |
15 instanceVariableNames:'' |
19 classVariableNames:'' |
16 classVariableNames:'' |
60 |
57 |
61 "Created: 30.6.1997 / 15:35:52 / cg" |
58 "Created: 30.6.1997 / 15:35:52 / cg" |
62 "Modified: 30.6.1997 / 15:39:21 / cg" |
59 "Modified: 30.6.1997 / 15:39:21 / cg" |
63 ! ! |
60 ! ! |
64 |
61 |
65 |
|
66 !Unicode16String methodsFor:'conversion'! |
62 !Unicode16String methodsFor:'conversion'! |
67 |
63 |
68 asSymbolIfInterned |
64 asSymbolIfInterned |
69 "If a symbol with the receivers characters is already known, return it. Otherwise, return nil. |
65 "If a symbol with the receivers characters is already known, return it. Otherwise, return nil. |
70 Because ST/X does not support non-8-bit symbols, this method |
66 Because ST/X does not support non-8-bit symbols, this method |
91 |
87 |
92 ^ self |
88 ^ self |
93 ! |
89 ! |
94 |
90 |
95 printOn:aStream |
91 printOn:aStream |
96 "print the receiver utf-8 encoded on aStream" |
92 "print the receiver utf-8 encoded on aStream. |
|
93 cg: is this a good idea ? |
|
94 No !! |
|
95 Who decided to do this ????" |
97 |
96 |
98 self utf8EncodedOn:aStream |
97 self utf8EncodedOn:aStream |
99 ! ! |
98 ! ! |
100 |
99 |
101 !Unicode16String methodsFor:'printing & storing'! |
100 !Unicode16String methodsFor:'printing & storing'! |
107 ! ! |
106 ! ! |
108 |
107 |
109 !Unicode16String class methodsFor:'documentation'! |
108 !Unicode16String class methodsFor:'documentation'! |
110 |
109 |
111 version |
110 version |
112 ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.10 2006-12-06 14:12:10 cg Exp $' |
111 ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.11 2008-10-30 15:54:13 cg Exp $' |
113 ! ! |
112 ! ! |
114 |
113 |
115 Unicode16String initialize! |
114 Unicode16String initialize! |