equal
deleted
inserted
replaced
304 |
304 |
305 ^ self codePoint:anInteger |
305 ^ self codePoint:anInteger |
306 ! ! |
306 ! ! |
307 |
307 |
308 !Character class methodsFor:'accessing untypeable characters'! |
308 !Character class methodsFor:'accessing untypeable characters'! |
|
309 |
|
310 controlCharacter:char |
|
311 "Answer the Character representing ctrl-char. |
|
312 ctrl-a -> 1; ctrl-@ -> 0" |
|
313 |
|
314 char == $@ ifTrue:[^ self codePoint:0]. |
|
315 self assert:char isLetter. |
|
316 ^ self codePoint:(char asLowercase - $a + 1) |
|
317 |
|
318 " |
|
319 self controlCharacter:$@ |
|
320 self controlCharacter:$d |
|
321 " |
|
322 ! |
309 |
323 |
310 endOfInput |
324 endOfInput |
311 "Answer the Character representing ctrl-d (Unix-EOF)." |
325 "Answer the Character representing ctrl-d (Unix-EOF)." |
312 |
326 |
313 ^ self codePoint:4 |
327 ^ self codePoint:4 |
2813 ! ! |
2827 ! ! |
2814 |
2828 |
2815 !Character class methodsFor:'documentation'! |
2829 !Character class methodsFor:'documentation'! |
2816 |
2830 |
2817 version |
2831 version |
2818 ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.146 2013-05-21 20:44:47 cg Exp $' |
2832 ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.147 2013-08-23 14:39:09 cg Exp $' |
2819 ! |
2833 ! |
2820 |
2834 |
2821 version_CVS |
2835 version_CVS |
2822 ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.146 2013-05-21 20:44:47 cg Exp $' |
2836 ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.147 2013-08-23 14:39:09 cg Exp $' |
2823 ! ! |
2837 ! ! |
|
2838 |