hg/stx-libbasic: comparison MiniDebugger.st

equal deleted inserted replaced

-:57ae16d01413
+:e144b279147d
 Error handle:[:ex |
 ex return
 ] do:[
 thisContext isRecursive ifTrue:[
-"/ 'recursive lowLevelError in debugger ignored' lowLevelErrorPrintCR.
+"/ 'recursive _error in debugger ignored' _errorPrintCR.
 ^ self
 ].
-aString lowLevelErrorPrintCR.
+aString _errorPrintCR.
 Processor notNil ifTrue:[
 active := Processor activeProcess.
-'process: id=' lowLevelErrorPrint. active id lowLevelErrorPrint.
+'process: id=' _errorPrint. active id _errorPrint.
-' name=' lowLevelErrorPrint. active name lowLevelErrorPrintCR.
+' name=' _errorPrint. active name _errorPrintCR.
-'context: ' lowLevelErrorPrint. aContext printString lowLevelErrorPrintCR.
+'context: ' _errorPrint. aContext printString _errorPrintCR.
 (con := aContext) notNil ifTrue:[
 con := con sender.
-' ......: ' lowLevelErrorPrint. con printString lowLevelErrorPrintCR.
+' ......: ' _errorPrint. con printString _errorPrintCR.
 [con notNil] whileTrue:[
 sender := con sender.
 (sender notNil and:[sender selector == con selector]) ifTrue:[
-' ......: ' lowLevelErrorPrint. sender printString lowLevelErrorPrintCR.
+' ......: ' _errorPrint. sender printString _errorPrintCR.
-' ......:  [** intermediate recursive contexts skipped **]' lowLevelErrorPrintCR.
+' ......:  [** intermediate recursive contexts skipped **]' _errorPrintCR.
 [sender notNil
 and:[sender selector == con selector
 and:[sender method == con method]]] whileTrue:[
 con := sender.
 sender := con sender.
 ].
 ].
 con := sender.
-' ......: ' lowLevelErrorPrint. con printString lowLevelErrorPrintCR.
+' ......: ' _errorPrint. con printString _errorPrintCR.
 ]
 ]
 ].
 NotFirstTimeEntered ~~ true ifTrue:[
 NotFirstTimeEntered := true.
-'Type "c" to proceed, "?" for help' lowLevelErrorPrintCR.
+'Type "c" to proceed, "?" for help' _errorPrintCR.
 ].
 ].
 OperatingSystem hasConsole ifFalse:[
 Error handle:[:ex |
 ex return
 ] do:[
-self warn:('Unexpected lowLevelError:\' , aString , '\\No MiniDebugger functionality available') withCRs .
+self warn:('Unexpected _error:\' , aString , '\\No MiniDebugger functionality available') withCRs .
 ].
 Error handle:[:ex |
-'cannot raise Abort - exiting ...' lowLevelErrorPrintCR.
+'cannot raise Abort - exiting ...' _errorPrintCR.
 OperatingSystem exit:10.
 ] do:[
 AbortOperationRequest raise.
 ]
 ] ifTrue:[
 StepInterruptPending := nil.
 ObjectMemory stepInterruptHandler:nil
 !
 trace:aBlock
-self trace:aBlock with:[:where | where lowLevelErrorPrintCR]
+self trace:aBlock with:[:where | where _errorPrintCR]
 "Modified: 20.5.1996 / 10:27:37 / cg"
 !
 trace:aBlock on:aStream
 ].
 stillHere := true.
 [stillHere] whileTrue:[
 AbortOperationRequest handle:[:ex |
-'** Abort caught - back in previous debugLevel' lowLevelErrorPrintCR.
+'** Abort caught - back in previous debugLevel' _errorPrintCR.
 ] do:[
 Error handle:[:ex |
 StreamError handle:[:ex|
 "You won't see this probably - but you will see it when doing a syscall trace"
-'Error while processing lowLevelError in MiniDebugger (Stdout closed?):' lowLevelErrorPrintCR.
+'Error while processing _error in MiniDebugger (Stdout closed?):' _errorPrintCR.
-ex description lowLevelErrorPrintCR.
+ex description _errorPrintCR.
 OperatingSystem exit:10.
 ] do:[
-'Error while executing MiniDebugger command: ' lowLevelErrorPrint.
+'Error while executing MiniDebugger command: ' _errorPrint.
-ex description lowLevelErrorPrintCR.
+ex description _errorPrintCR.
 yesNo := self getCommand:'- (i)gnore / (p)roceed / (d)ebug / b(acktrace) ? '.
 yesNo == $d ifTrue:[
 MiniDebugger enterWithMessage:'Debugging debugger' mayProceed:true.
 ex proceed
 ].
 ].
 stepping ifTrue:[
 where notNil ifTrue:[
 self printContext:where
 ] ifFalse:[
-'stepInterrupt: no context' lowLevelErrorPrintCR
+'stepInterrupt: no context' _errorPrintCR
 ].
 self enter:where mayProceed:true
 ] ifFalse:[
 where notNil ifTrue:[
 traceBlock notNil ifTrue:[
 traceBlock value:where
 ]
 ] ifFalse:[
-'traceInterrupt: no context' lowLevelErrorPrintCR
+'traceInterrupt: no context' _errorPrintCR
 ].
 ObjectMemory flushInlineCaches.
 StepInterruptPending := 1.
 InterruptPending := 1
 ]
 ].
 c notNil ifTrue:[
 dot := c.
 "/ dot fullPrint.
 ] ifFalse:[
-'** dot is the bottom of the calling chain' lowLevelErrorPrintCR.
+'** dot is the bottom of the calling chain' _errorPrintCR.
 ].
 !
 moveDotUp
 dot sender notNil ifTrue:[
 dot := dot sender.
 "/ dot fullPrint.
 ] ifFalse:[
-'** dot is the top of the calling chain' lowLevelErrorPrintCR.
+'** dot is the top of the calling chain' _errorPrintCR.
 ].
 !
 printBacktraceFrom:aContext
 |context n|
 aContext isNil ifTrue:[
-'no context' lowLevelErrorPrintCR.
+'no context' _errorPrintCR.
 ^ self
 ].
 context := aContext.
 n := commandCount.
 printContext:aContext
 "print the receiver, selector and args of the context"
 "/ aContext fullPrint.
-aContext receiverPrintString lowLevelErrorPrint. ' ' lowLevelErrorPrint.
+aContext receiverPrintString _errorPrint. ' ' _errorPrint.
-aContext selector asString lowLevelErrorPrint.
+aContext selector asString _errorPrint.
 aContext argumentCount ~~ 0 ifTrue: [
-' ' lowLevelErrorPrint. aContext argsDisplayString lowLevelErrorPrint
+' ' _errorPrint. aContext argsDisplayString _errorPrint
 ].
-' [' lowLevelErrorPrint.
+' [' _errorPrint.
-aContext lineNumber asString lowLevelErrorPrint.
+aContext lineNumber asString _errorPrint.
-']' lowLevelErrorPrintCR
+']' _errorPrintCR
 !
 printDot
 self printContext:dot.
-'  receiver: ' lowLevelErrorPrint. dot receiver printString lowLevelErrorPrintCR.
+'  receiver: ' _errorPrint. dot receiver printString _errorPrintCR.
-'  selector: ' lowLevelErrorPrint. dot selector lowLevelErrorPrintCR.
+'  selector: ' _errorPrint. dot selector _errorPrintCR.
-'  args: ' lowLevelErrorPrintCR.
+'  args: ' _errorPrintCR.
 dot args keysAndValuesDo:[:idx :eachArg |
-'    ' lowLevelErrorPrint. idx  printString lowLevelErrorPrint.
+'    ' _errorPrint. idx  printString _errorPrint.
-': ' lowLevelErrorPrint. eachArg printString lowLevelErrorPrintCR.
+': ' _errorPrint. eachArg printString _errorPrintCR.
 ].
-'  vars: ' lowLevelErrorPrintCR.
+'  vars: ' _errorPrintCR.
 dot vars keysAndValuesDo:[:idx :eachVar |
-'    ' lowLevelErrorPrint. idx  printString lowLevelErrorPrint.
+'    ' _errorPrint. idx  printString _errorPrint.
-': ' lowLevelErrorPrint. eachVar printString lowLevelErrorPrintCR.
+': ' _errorPrint. eachVar printString _errorPrintCR.
 ].
 !
 printDotsMethodSource
 self printDotsMethodSource:false
 |home mthd src pcLineNr startLnr stopLnr|
 home := dot methodHome.
 mthd := home method.
 mthd isNil ifTrue:[
-'** no source **' lowLevelErrorPrintCR.
+'** no source **' _errorPrintCR.
 ^ self.
 ].
 src := mthd source.
 src isNil ifTrue:[
-'** no source **' lowLevelErrorPrintCR.
+'** no source **' _errorPrintCR.
 ^ self.
 ].
 pcLineNr := dot lineNumber.
 src := src asCollectionOfLines.
 startLnr := pcLineNr-10 max:1.
 stopLnr := pcLineNr+10 min:src size.
 ].
 startLnr to:stopLnr do:[:lNr |
 lNr == pcLineNr ifTrue:[
-'>> ' lowLevelErrorPrint.
+'>> ' _errorPrint.
 ] ifFalse:[
-'   ' lowLevelErrorPrint.
+'   ' _errorPrint.
 ].
-(lNr printStringLeftPaddedTo:3) lowLevelErrorPrint. ' ' lowLevelErrorPrint.
+(lNr printStringLeftPaddedTo:3) _errorPrint. ' ' _errorPrint.
-(src at:lNr) asString lowLevelErrorPrintCR.
+(src at:lNr) asString _errorPrintCR.
 ]
 !
 stepping
 traceBlock := nil.
 doAbort
 |con sig|
 (sig := AbortOperationRequest) isHandled ifTrue:[
 sig raise.
-'abort raise failed' lowLevelErrorPrintCR.
+'abort raise failed' _errorPrintCR.
 ].
 "TEMPORARY kludge - find event handler context
 this will be removed, once real debugging is possible
 "
 con := self findContext:#dispatch.
 ].
 con notNil ifTrue:[
 "got it"
 con return.
-'return failed' lowLevelErrorPrintCR.
+'return failed' _errorPrintCR.
 ].
-'found no context to resume' lowLevelErrorPrintCR.
+'found no context to resume' _errorPrintCR.
 "Modified: / 16.11.2001 / 17:39:14 / cg"
 !
 doCommand:cmd
 ]
 ].
 (cmd == $w) ifTrue:[
 proc notNil ifTrue:[
-'-------- walkback of process ' lowLevelErrorPrint. id lowLevelErrorPrint. ' -------' lowLevelErrorPrintCR.
+'-------- walkback of process ' _errorPrint. id _errorPrint. ' -------' _errorPrintCR.
 self printBacktraceFrom:(proc suspendedContext)
 ] ifFalse:[
 id notNil ifTrue:[
-'no process with id: ' lowLevelErrorPrint. id lowLevelErrorPrintCR.
+'no process with id: ' _errorPrint. id _errorPrintCR.
 ] ifFalse:[
-'-------- walkback of current process -------' lowLevelErrorPrintCR.
+'-------- walkback of current process -------' _errorPrintCR.
 self printBacktraceFrom:(self getContext)
 ]
 ].
 ^ false
 ].
 (cmd == $b) ifTrue:[
 proc notNil ifTrue:[
-'-------- VM walkback of process ' lowLevelErrorPrint. id lowLevelErrorPrint. ' -------' lowLevelErrorPrintCR.
+'-------- VM walkback of process ' _errorPrint. id _errorPrint. ' -------' _errorPrintCR.
 (Processor activeProcess environmentAt:#Stderr ifAbsent:Stderr) == Stderr ifTrue:[
 ObjectMemory printStackBacktraceFrom:(proc suspendedContext)
 ] ifFalse:[
 self printBacktraceFrom:(proc suspendedContext)
 "/ proc suspendedContext fullPrintAllOn:(Processor activeProcess environmentAt:#Stderr)
 ].
 ] ifFalse:[
 id notNil ifTrue:[
-'no process with id: ' lowLevelErrorPrint. id lowLevelErrorPrintCR.
+'no process with id: ' _errorPrint. id _errorPrintCR.
 ] ifFalse:[
-'-------- VM walkback of current process -------' lowLevelErrorPrintCR.
+'-------- VM walkback of current process -------' _errorPrintCR.
 (Processor activeProcess environmentAt:#Stderr ifAbsent:Stderr) == Stderr ifTrue:[
 ObjectMemory printStackBacktrace
 ] ifFalse:[
 "/ self printBacktraceFrom:(self getContext)
 thisContext fullPrintAllOn:(Processor activeProcess environmentAt:#Stderr)
 ].
 ^ false
 ].
 (cmd == $S) ifTrue:[
-'saving "crash.img"...' lowLevelErrorPrint.
+'saving "crash.img"...' _errorPrint.
 ObjectMemory writeCrashImage.
-'done.' lowLevelErrorPrintCR.
+'done.' _errorPrintCR.
 ^ false
 ].
 (cmd == $C) ifTrue:[
 |changesFilename|
 changesFilename := Timestamp now
 printStringFormat:'changes_%(year)-%(month)-%(day)__%h:%m:%s.chg'.
 OperatingSystem isMSWINDOWSlike ifTrue:[ changesFilename replaceAll:$: with:$_ ].
 ChangeSet current fileOutAs: changesFilename.
-('saved session changes to "',changesFilename,'".') lowLevelErrorPrintCR.
+('saved session changes to "',changesFilename,'".') _errorPrintCR.
 ^ false
 ].
 (cmd == $B) ifTrue:[
 self printAllBacktraces.
 self showProcesses:#live.
 ^ false
 ].
 (cmd == $r) ifTrue:[
-dot receiver lowLevelErrorPrintCR.
+dot receiver _errorPrintCR.
 ^ false
 ].
 (cmd == $i) ifTrue:[
 |inspectedObject|
 (cmd == $E) ifTrue:[
 Parser evaluate:commandArg.
 ^ false
 ].
 (cmd == $e) ifTrue:[
-(Parser evaluate:commandArg) lowLevelErrorPrintCR.
+(Parser evaluate:commandArg) _errorPrintCR.
 ^ false
 ].
 (cmd == $c) ifTrue:[^ true].
 (cmd == $s) ifTrue:[^ true].
 (cmd == $h) ifTrue:[
 (bool notNil) ifTrue:[
 Smalltalk ignoreHalt:bool not.
 ].
-'halts are ' lowLevelErrorPrint. (Smalltalk ignoreHalt ifTrue:['disabled'] ifFalse:['enabled']) lowLevelErrorPrintCR.
+'halts are ' _errorPrint. (Smalltalk ignoreHalt ifTrue:['disabled'] ifFalse:['enabled']) _errorPrintCR.
 ^ false
 ].
 (cmd == $R) ifTrue:[
 proc notNil ifTrue:[
 (cmd == $T) ifTrue:[
 proc notNil ifTrue:[
 proc terminate.
 ] ifFalse:[
 id notNil ifTrue:[
-'no process with id: ' lowLevelErrorPrint. id lowLevelErrorPrintCR.
+'no process with id: ' _errorPrint. id _errorPrintCR.
 ] ifFalse:[
 Processor terminateActive
 ]
 ].
 ^ false
 ].
 (cmd == $W) ifTrue:[
 proc notNil ifTrue:[
-'stopping process id: ' lowLevelErrorPrint. id lowLevelErrorPrintCR.
+'stopping process id: ' _errorPrint. id _errorPrintCR.
 proc stop.
 ] ifFalse:[
-'invalid process id: ' lowLevelErrorPrint. id lowLevelErrorPrintCR.
+'invalid process id: ' _errorPrint. id _errorPrintCR.
 ].
 ^ false
 ].
 (cmd == $a) ifTrue:[
 "without id-arg, this is handled by caller"
 proc notNil ifTrue:[
-'aborting process id: ' lowLevelErrorPrint. id lowLevelErrorPrintCR.
+'aborting process id: ' _errorPrint. id _errorPrintCR.
 proc interruptWith:[AbortOperationRequest raise]
 ] ifFalse:[
-'aborting' lowLevelErrorPrintCR.
+'aborting' _errorPrintCR.
 ].
 ^ false
 ].
 (cmd == $Q) ifTrue:[
 proc notNil ifTrue:[
 proc terminateNoSignal.
 ] ifFalse:[
 id notNil ifTrue:[
-'no process with id: ' lowLevelErrorPrint. id lowLevelErrorPrintCR.
+'no process with id: ' _errorPrint. id _errorPrintCR.
 ] ifFalse:[
 Processor terminateActiveNoSignal
 ]
 ].
 ^ false
 (prompt
 ? (nesting == 0 ifTrue:[
 'MiniDebugger> '
 ] ifFalse:[
 'MiniDebugger' , nesting printString , '>'
-])) lowLevelErrorPrint.
+])) _errorPrint.
 UserInterrupt handle:[:ex |
 ex restart
 ] do:[
 |c cmd arg cnt|
 cmd := self getCharacter.
 cmd isNil ifTrue:[
-'<EOF>' lowLevelErrorPrintCR.
+'<EOF>' _errorPrintCR.
 "
 mhmh end-of-file;
 return a 'c' (for continue); hope that's ok.
 "
 cmd := $c
 cmd := self getCharacter
 ] doWhile:[cmd notNil and:[cmd isDigit]].
 [cmd notNil and:[cmd == Character space]] whileTrue:[
 cmd := self getCharacter
 ].
-cmd isNil ifTrue:[ '<EOF>' lowLevelErrorPrintCR ].
+cmd isNil ifTrue:[ '<EOF>' _errorPrintCR ].
 ].
 "
 collect to end-of-line in arg
 "
 c := cmd.
 arg := ''.
 [c isNil or:[c isEndOfLineCharacter]] whileFalse: [
 arg := arg copyWith:c.
 c := self getCharacter.
-c isNil ifTrue:[ '<EOF>' lowLevelErrorPrintCR ].
+c isNil ifTrue:[ '<EOF>' _errorPrintCR ].
 ].
 commandArg := (arg copyFrom:2) withoutSeparators.
 command := cmd.
 commandCount := cnt.
 ].
 helpOn:commandArg
 |args className sym val match showMethod|
 commandArg withoutSeparators isEmpty ifTrue:[
-'usage: H className [methodPattern]' lowLevelErrorPrintCR.
+'usage: H className [methodPattern]' _errorPrintCR.
 ^self
 ].
 args := commandArg asCollectionOfWords.
 className := args first.
 (sym := className asSymbolIfInterned) isNil ifTrue:[
-'no such class' lowLevelErrorPrintCR.
+'no such class' _errorPrintCR.
 ^ self.
 ].
-val := Smalltalk at:sym ifAbsent:['no such class' lowLevelErrorPrintCR. ^ self.].
+val := Smalltalk at:sym ifAbsent:['no such class' _errorPrintCR. ^ self.].
 val isBehavior ifFalse:[
-'not a class: ' lowLevelErrorPrint. className lowLevelErrorPrintCR.
+'not a class: ' _errorPrint. className _errorPrintCR.
 val := val class.
-'showing help for ' lowLevelErrorPrint. val name lowLevelErrorPrintCR.
+'showing help for ' _errorPrint. val name _errorPrintCR.
 ].
 args size > 1 ifTrue:[
 match := args at:2
 ] ifFalse:[
 match := '*'
 ((match includesMatchCharacters and:[ sel matches:match caseSensitive:false])
 or:[ sel asLowercase startsWith:match asLowercase ]) ifTrue:[
 mthd := cls compiledMethodAt:sel.
 mthd category ~= 'documentation' ifTrue:[
-sel lowLevelErrorPrintCR.
+sel _errorPrintCR.
 (mthd comment ? '') asStringCollection do:[:l |
-'    ' lowLevelErrorPrint. l withoutSeparators lowLevelErrorPrintCR.
+'    ' _errorPrint. l withoutSeparators _errorPrintCR.
 ].
-'' lowLevelErrorPrintCR
+'' _errorPrintCR
 ].
 ].
 ].
 val theMetaclass selectors copy sort do:[:sel |
 printAllBacktraces
 Process allInstancesDo:[:p |
 (p isActive not
 and:[p isDead not]) ifTrue:[
-'---------------------------------------------------------' lowLevelErrorPrintCR.
+'---------------------------------------------------------' _errorPrintCR.
-'  proc id=' lowLevelErrorPrint. p id asString lowLevelErrorPrint.
+'  proc id=' _errorPrint. p id asString _errorPrint.
-' name=''' lowLevelErrorPrint. p name asString lowLevelErrorPrint.
+' name=''' _errorPrint. p name asString _errorPrint.
-''' createdBy: ' lowLevelErrorPrint. p creatorId asString lowLevelErrorPrint.
+''' createdBy: ' _errorPrint. p creatorId asString _errorPrint.
-' state=' lowLevelErrorPrint.  p state asString lowLevelErrorPrint.
+' state=' _errorPrint.  p state asString _errorPrint.
-' prio=' lowLevelErrorPrint. p priority asString lowLevelErrorPrintCR.
+' prio=' _errorPrint. p priority asString _errorPrintCR.
-'' lowLevelErrorPrintCR. '' lowLevelErrorPrintCR.
+'' _errorPrintCR. '' _errorPrintCR.
 self printBacktraceFrom:(p suspendedContext)
 ]
 ]
 !
 showProcesses:how
 |active|
 active := Processor activeProcess.
-'current id=' lowLevelErrorPrint.
+'current id=' _errorPrint.
-active id printString lowLevelErrorPrint.
+active id printString _errorPrint.
-' name=''' lowLevelErrorPrint. active name lowLevelErrorPrint. '''' lowLevelErrorPrintCR.
+' name=''' _errorPrint. active name _errorPrint. '''' _errorPrintCR.
 (Process allSubInstances sort:[:a :b | (a id ? -1)<(b id ? -1)]) do:[:p |
 |doShow|
 doShow := (how == #all).
 doShow := doShow or:[ (how == #dead) and:[ p isDead ]].
 doShow := doShow or:[ (how ~~ #dead) and:[ p isDead not ]].
 doShow ifTrue:[
-'proc id=' lowLevelErrorPrint. (p id printStringPaddedTo:6) lowLevelErrorPrint.
+'proc id=' _errorPrint. (p id printStringPaddedTo:6) _errorPrint.
-(p state printStringPaddedTo:10) lowLevelErrorPrint.
+(p state printStringPaddedTo:10) _errorPrint.
-' pri=' lowLevelErrorPrint. (p priority printStringPaddedTo:2) lowLevelErrorPrint.
+' pri=' _errorPrint. (p priority printStringPaddedTo:2) _errorPrint.
-' creator:' lowLevelErrorPrint. (p creatorId printStringPaddedTo:5) lowLevelErrorPrint.
+' creator:' _errorPrint. (p creatorId printStringPaddedTo:5) _errorPrint.
-' group:' lowLevelErrorPrint. (p processGroupId printStringPaddedTo:5) lowLevelErrorPrint.
+' group:' _errorPrint. (p processGroupId printStringPaddedTo:5) _errorPrint.
-' sys:' lowLevelErrorPrint. (p isSystemProcess ifTrue:'y' ifFalse:'n') lowLevelErrorPrint.
+' sys:' _errorPrint. (p isSystemProcess ifTrue:'y' ifFalse:'n') _errorPrint.
-' ui:' lowLevelErrorPrint. (p isGUIProcess ifTrue:'y' ifFalse:'n') lowLevelErrorPrint.
+' ui:' _errorPrint. (p isGUIProcess ifTrue:'y' ifFalse:'n') _errorPrint.
-' name=''' lowLevelErrorPrint. p name lowLevelErrorPrint.
+' name=''' _errorPrint. p name _errorPrint.
-'''' lowLevelErrorPrintCR.
+'''' _errorPrintCR.
 ]
 ]
 "Modified: / 31.7.1998 / 16:30:19 / cg"
 !
 r ........ receiver (in dot) printString
 i [expr] . inspect expression (or receiver in dot)
 I ........ interpreter (expression evaluator)
 e expr ... evaluate expression & print result ("E" to not print)
 ? c [p] .. help on class c (selectors matching p)
-'  lowLevelErrorPrintCR.
+'  _errorPrintCR.
 (XWorkstation notNil and:[ Screen default isKindOf:XWorkstation ]) ifTrue:[
 '   To repair a broken X-Connection, enter an interpreter (enter "I") and evaluate:
 Display := XWorkstation new.
 Display initializeFor:''localhost:0''.
 Display startDispatch.
 NewLauncher openOnDevice:Display.
 #exit
 then enter "c" to continue; a NewLauncher should pop up soon.
-'  lowLevelErrorPrintCR
+'  _errorPrintCR
 ]
 "Modified: / 03-02-2014 / 10:38:36 / cg"
 ! !

changeset 20843	e144b279147d
parent 20826	1d49eb5d790f
child 20846	69db65101d7e