equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1998 by eXept Software AG |
4 COPYRIGHT (c) 1998 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
840 ]. |
842 ]. |
841 self halt:'unexpected return value from state processing' |
843 self halt:'unexpected return value from state processing' |
842 ! |
844 ! |
843 |
845 |
844 nextPut:char |
846 nextPut:char |
845 " process a character (i.e. from the shell's output)" |
847 "process a character (i.e. from the shell's output) |
|
848 Answer char." |
846 |
849 |
847 |processCharacterReturn| |
850 |processCharacterReturn| |
848 |
851 |
849 char isCharacter ifFalse:[self halt]. |
852 char isCharacter ifFalse:[self halt]. |
850 "/ Debug := true. |
853 "/ Debug := true. |