--- a/MiniDebugger.st Fri Jan 12 21:57:41 2007 +0100
+++ b/MiniDebugger.st Fri Jan 12 21:58:09 2007 +0100
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Object subclass:#MiniDebugger
@@ -669,55 +668,55 @@
"/ ].
Display notNil ifTrue:[
- Display ungrabPointer.
- Display ungrabKeyboard.
+ Display ungrabPointer.
+ Display ungrabKeyboard.
].
(prompt
- ? (nesting == 0 ifTrue:[
- 'MiniDebugger> '
- ] ifFalse:[
- 'MiniDebugger' , nesting printString , '>'
- ])) print.
+ ? (nesting == 0 ifTrue:[
+ 'MiniDebugger> '
+ ] ifFalse:[
+ 'MiniDebugger' , nesting printString , '>'
+ ])) print.
UserInterrupt handle:[:ex |
- ex restart
+ ex restart
] do:[
- |c cmd arg cnt|
+ |c cmd arg cnt|
- cmd := Character fromUser.
- cmd isNil ifTrue:[
- "
- mhmh end-of-file;
- return a 'c' (for continue); hope thats ok.
- "
- cmd := $c
- ].
+ cmd := Character fromUser.
+ cmd isNil ifTrue:[
+ "
+ mhmh end-of-file;
+ return a 'c' (for continue); hope thats ok.
+ "
+ cmd := $c
+ ].
- cnt := nil.
- (cmd isDigit) ifTrue:[
- cnt := 0.
- [cmd isDigit] whileTrue:[
- cnt := cnt * 10 + cmd digitValue.
- cmd := Character fromUser
- ].
- [cmd == Character space] whileTrue:[
- cmd := Character fromUser
- ].
- ].
+ cnt := nil.
+ (cmd isDigit) ifTrue:[
+ cnt := 0.
+ [cmd isDigit] whileTrue:[
+ cnt := (cnt * 10) + cmd digitValue.
+ cmd := Character fromUser
+ ].
+ [cmd == Character space] whileTrue:[
+ cmd := Character fromUser
+ ].
+ ].
- "
- collect to end-of-line in arg
- "
- c := cmd.
- arg := ''.
- [c isNil or:[c isEndOfLineCharacter]] whileFalse: [
- arg := arg copyWith:c.
- c := Character fromUser.
- ].
- commandArg := arg copyFrom:2.
- command := cmd.
- commandCount := cnt.
+ "
+ collect to end-of-line in arg
+ "
+ c := cmd.
+ arg := ''.
+ [c isNil or:[c isEndOfLineCharacter]] whileFalse: [
+ arg := arg copyWith:c.
+ c := Character fromUser.
+ ].
+ commandArg := arg copyFrom:2.
+ command := cmd.
+ commandCount := cnt.
].
^ command
@@ -838,5 +837,5 @@
!MiniDebugger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.68 2006-09-29 11:08:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.69 2007-01-12 20:58:09 cg Exp $'
! !