Cami,
II've tried the following steps:
Steps:
# ${vm} -vm-display-null -vm-sound-null ${path to image} file:/${absolute
script path}
Actual Result:
# quit but i get a PharoDebug.log with a message "no contents to install"
Expected Result:
# To save the settings and quit.
thanks.
On Sat, Jan 14, 2012 at 5:09 AM, Camillo Bruni <[email protected]>wrote:
> There's a bug in the current image (will be integrated soon)
> To avoid any issues make sure to add a full url inclusive a scheme (in
> this case file:/)
>
> ${vm} -vm-display-null -vm-sound-null ${path to image} file:/${absolute
> script path}
>
>
> BTW: you can also specify http:// urls :)
>
> best
> cami
>
> On 2012-01-14, at 08:43, Sven Van Caekenberghe wrote:
> > On 14 Jan 2012, at 03:52, Bernardo Ezequiel Contreras wrote:
> >> Hi,
> >>
> >> I'm trying to execute a simple script in headless mode in order to
> setup some basic settings but it seems not to work right now.
> >> I've used this idea a lot to build my images.
> >>
> >> Do i have to install some package??
> >>
> >> Pharo image: Pharo1.4a#14283
> >> Virtual machine used: CoInterpreter VMMaker.oscog-eem.138 uuid:
> f9a63bdf-7bbc-4ae5-9634-ecd6fd814c9d Nov 17 2011,
> StackToRegisterMappingCogit VMMaker.oscog-eem.139 uuid:
> c2849383-9768-4948-b9b2-a5c22d482b07 Nov 17 2011, r2515
> http://www.squeakvm.org/svn/squeak/branches/Cog
> >> Platform Name: unix
> >> Class browser used (if applicable): Browser
> >>
> >> Steps to reproduce:
> >> #. ${vm} -vm-display-null -vm-sound-null ${path to image} ${path to
> the directory that contains the script}/set-up.st
> >>
> >> Actual Result:
> >> #. it doesn't quit.
> >>
> >> Expected Result:
> >> #. To save the settings and quit.
> >>
> >>
> >> === set-up.st ===
> >> Author fullName: 'BernardoContreras'.
> >>
> >> Smalltalk snapshot: true andQuit: true.
> >> ============
> >>
> >> Thanks
> >
> > Make sure that ${path to the directory that contains the script}/
> set-up.st is absolute. You also need .changes and .sources in the right
> directory. Is a PharoDebug.log written ?
> >
> > You could also try to add this to your script (in 1.4) to get more
> feedback:
> >
> > NonInteractiveTranscript stdout install.
> > Transcript crShow: 'Starting …'.
> >
> > "…"
> >
> > Sven
> >
> >
> >
>
>
>
THERE_BE_DRAGONS_HERE
Error: No content to install
14 January 2012 2:08:26 pm
VM: unix - i686 - linux-gnu - CoInterpreter VMMaker.oscog-eem.138 uuid: f9a63bdf-7bbc-4ae5-9634-ecd6fd814c9d Nov 17 2011, StackToRegisterMappingCogit VMMaker.oscog-eem.139 uuid: c2849383-9768-4948-b9b2-a5c22d482b07 Nov 17 2011, r2515 http://www.squeakvm.org/svn/squeak/branches/Cog
Image: Pharo1.4a [Latest update: #14283]
CodeLoader(Object)>>error:
Receiver: a CodeLoader
Arguments and temporary variables:
aString: 'No content to install'
Receiver's instance variables:
sourceFiles: an Array(an UrlDownloadRequest)
CodeLoader>>installSourceFile:
Receiver: a CodeLoader
Arguments and temporary variables:
aStream: nil
contents: nil
Receiver's instance variables:
sourceFiles: an Array(an UrlDownloadRequest)
[:req |
req startRetrieval.
self installSourceFile: req contentStream] in CodeLoader>>installSourceFiles
Receiver: a CodeLoader
Arguments and temporary variables:
req: an UrlDownloadRequest
Receiver's instance variables:
sourceFiles: an Array(an UrlDownloadRequest)
Array(SequenceableCollection)>>do:
Receiver: an Array(an UrlDownloadRequest)
Arguments and temporary variables:
aBlock: [:req |
req startRetrieval.
self installSourceFile: req contentStream...etc...
index: 1
indexLimiT: 1
Receiver's instance variables:
an Array(an UrlDownloadRequest)
CodeLoader>>installSourceFiles
Receiver: a CodeLoader
Arguments and temporary variables:
Receiver's instance variables:
sourceFiles: an Array(an UrlDownloadRequest)
CodeLoader class>>commandLineHandlerAction:
Receiver: CodeLoader
Arguments and temporary variables:
aCommandLine: a CommandLine
url: file://home/vonbecmann/pharo-projects/trunk/set-up3.st
param: 'file://home/vonbecmann/pharo-projects/trunk/set-up3.st'
loader: a CodeLoader
Receiver's instance variables:
superclass: Object
methodDict: a MethodDictionary(#createRequestFor:in:->(CodeLoader>>#createReque...etc...
format: 132
instanceVariables: #('sourceFiles')
organization: ('installing' installSourceFile: installSourceFiles)
('loading' l...etc...
subclasses: nil
name: #CodeLoader
classPool: a Dictionary()
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'System-Download'
traitComposition: {}
localSelectors: nil
[:t1 | CodeLoader commandLineHandlerAction: t1] in CodeLoader class>>initialize
Receiver: CodeLoader
Arguments and temporary variables:
t1: a CommandLine
Receiver's instance variables:
superclass: Object
methodDict: a MethodDictionary(#createRequestFor:in:->(CodeLoader>>#createReque...etc...
format: 132
instanceVariables: #('sourceFiles')
organization: ('installing' installSourceFile: installSourceFiles)
('loading' l...etc...
subclasses: nil
name: #CodeLoader
classPool: a Dictionary()
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'System-Download'
traitComposition: {}
localSelectors: nil
[:each |
| actionBlock conditionBlock |
conditionBlock := each key.
actionBlock := each value.
(conditionBlock value: anUserInput)
ifTrue: [actionBlock value: anUserInput]] in CommandLine class(AbstractUserInput class)>>dispatch:
Receiver: CommandLine
Arguments and temporary variables:
anUserInput: [:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1 | CodeLoa...etc...
each: a CommandLine
actionBlock: [:t1 | CodeLoader commandLineHandlerAction: t1]
conditionBlock: [:t1 | CodeLoader commandLineHandlerCondition: t1]
Receiver's instance variables:
superclass: AbstractUserInput
methodDict: a MethodDictionary()
format: 136
instanceVariables: nil
organization: ('as yet unclassified')
subclasses: nil
name: #CommandLine
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'System-Support'
traitComposition: {}
localSelectors: nil
registrations: a Dictionary(#CodeLoader->[:t1 | CodeLoader commandLineHandlerCo...etc...
singleton: a CommandLine
[:association | aBlock value: association value] in Dictionary>>valuesDo:
Receiver: a Dictionary(#CodeLoader->[:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1 | CodeL...etc...
Arguments and temporary variables:
aBlock: #CodeLoader->[:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1 |...etc...
association: [:each |
| actionBlock conditionBlock |
conditionBlock := each ke...etc...
Receiver's instance variables:
tally: 1
array: an Array(nil nil nil #CodeLoader->[:t1 | CodeLoader commandLineHandlerCo...etc...
[:each | each
ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo:
Receiver: a Dictionary(#CodeLoader->[:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1 | CodeL...etc...
Arguments and temporary variables:
aBlock: #CodeLoader->[:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1 |...etc...
each: [:association | aBlock value: association value]
Receiver's instance variables:
tally: 1
array: an Array(nil nil nil #CodeLoader->[:t1 | CodeLoader commandLineHandlerCo...etc...
Array(SequenceableCollection)>>do:
Receiver: an Array(nil nil nil #CodeLoader->[:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1...etc...
Arguments and temporary variables:
aBlock: [:each | each
ifNotNil: [aBlock value: each]]
index: 4
indexLimiT: 5
Receiver's instance variables:
an Array(nil nil nil #CodeLoader->[:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1...etc...
Dictionary>>associationsDo:
Receiver: a Dictionary(#CodeLoader->[:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1 | CodeL...etc...
Arguments and temporary variables:
aBlock: [:association | aBlock value: association value]
Receiver's instance variables:
tally: 1
array: an Array(nil nil nil #CodeLoader->[:t1 | CodeLoader commandLineHandlerCo...etc...
Dictionary>>valuesDo:
Receiver: a Dictionary(#CodeLoader->[:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1 | CodeL...etc...
Arguments and temporary variables:
aBlock: [:each |
| actionBlock conditionBlock |
conditionBlock := each key.
a...etc...
Receiver's instance variables:
tally: 1
array: an Array(nil nil nil #CodeLoader->[:t1 | CodeLoader commandLineHandlerCo...etc...
Dictionary>>do:
Receiver: a Dictionary(#CodeLoader->[:t1 | CodeLoader commandLineHandlerCondition: t1]->[:t1 | CodeL...etc...
Arguments and temporary variables:
aBlock: [:each |
| actionBlock conditionBlock |
conditionBlock := each key.
a...etc...
Receiver's instance variables:
tally: 1
array: an Array(nil nil nil #CodeLoader->[:t1 | CodeLoader commandLineHandlerCo...etc...
CommandLine class(AbstractUserInput class)>>dispatch:
Receiver: CommandLine
Arguments and temporary variables:
anUserInput: a CommandLine
Receiver's instance variables:
superclass: AbstractUserInput
methodDict: a MethodDictionary()
format: 136
instanceVariables: nil
organization: ('as yet unclassified')
subclasses: nil
name: #CommandLine
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'System-Support'
traitComposition: {}
localSelectors: nil
registrations: a Dictionary(#CodeLoader->[:t1 | CodeLoader commandLineHandlerCo...etc...
singleton: a CommandLine
[self dispatch: singleton] in CommandLine class>>dispatch
Receiver: CommandLine
Arguments and temporary variables:
Receiver's instance variables:
superclass: AbstractUserInput
methodDict: a MethodDictionary()
format: 136
instanceVariables: nil
organization: ('as yet unclassified')
subclasses: nil
name: #CommandLine
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'System-Support'
traitComposition: {}
localSelectors: nil
registrations: a Dictionary(#CodeLoader->[:t1 | CodeLoader commandLineHandlerCo...etc...
singleton: a CommandLine
BlockClosure>>cull:
Receiver: [self dispatch: singleton]
Arguments and temporary variables:
anArg: true
Receiver's instance variables:
outerContext: CommandLine class>>dispatch
startpc: 30
numArgs: 0
[:each | each cull: resuming] in SmalltalkImage>>executeDeferredStartupActions:
Receiver: Smalltalk
Arguments and temporary variables:
resuming: [self dispatch: singleton]
each: true
Receiver's instance variables:
globals: a SystemDictionary(lots of globals)
deferredStartupActions: an OrderedCollection([self dispatch: singleton])
OrderedCollection>>do:
Receiver: an OrderedCollection([self dispatch: singleton])
Arguments and temporary variables:
aBlock: [:each | each cull: resuming]
index: 1
Receiver's instance variables:
array: an Array([self dispatch: singleton] nil nil nil nil nil nil nil nil nil)...etc...
firstIndex: 1
lastIndex: 1
SmalltalkImage>>executeDeferredStartupActions:
Receiver: Smalltalk
Arguments and temporary variables:
resuming: true
Receiver's instance variables:
globals: a SystemDictionary(lots of globals)
deferredStartupActions: an OrderedCollection([self dispatch: singleton])
SmalltalkImage>>snapshot:andQuit:
Receiver: Smalltalk
Arguments and temporary variables:
save: true
quit: true
snapshotResult: true
resuming: true
Receiver's instance variables:
globals: a SystemDictionary(lots of globals)
deferredStartupActions: an OrderedCollection([self dispatch: singleton])
UndefinedObject>>DoIt
Receiver: nil
Arguments and temporary variables:
Receiver's instance variables:
nil
Compiler>>evaluate:in:to:notifying:ifFail:logged:
Receiver: a Compiler
Arguments and temporary variables:
textOrStream: '"Save and Quit"
SmalltalkImage current snapshot: true andQuit: t...etc...
aContext: nil
receiver: nil
aRequestor: nil
failBlock: [^ nil]
logFlag: true
methodNode: DoIt
"Save and Quit"
^ SmalltalkImage current snapshot: true andQ...etc...
method: (UndefinedObject>>#DoIt "a CompiledMethod(178257920)")
value: nil
toLog: nil
itsSelection: nil
itsSelectionString: nil
Receiver's instance variables:
sourceStream: a ReadStream
requestor: nil
class: UndefinedObject
category: nil
context: nil
parser: a Parser
Compiler class>>evaluate:for:notifying:logged:
Receiver: Compiler
Arguments and temporary variables:
textOrString: '"Save and Quit"
SmalltalkImage current snapshot: true andQuit: t...etc...
anObject: nil
aController: nil
logFlag: true
Receiver's instance variables:
superclass: Object
methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc...
format: 142
instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc...
organization: ('error handling' interactive notify: notify:at:)
('public access...etc...
subclasses: nil
name: #Compiler
classPool: a Dictionary()
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Compiler-Kernel'
traitComposition: nil
localSelectors: nil
Compiler class>>evaluate:for:logged:
Receiver: Compiler
Arguments and temporary variables:
textOrString: '"Save and Quit"
SmalltalkImage current snapshot: true andQuit: t...etc...
anObject: nil
logFlag: true
Receiver's instance variables:
superclass: Object
methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc...
format: 142
instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc...
organization: ('error handling' interactive notify: notify:at:)
('public access...etc...
subclasses: nil
name: #Compiler
classPool: a Dictionary()
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Compiler-Kernel'
traitComposition: nil
localSelectors: nil
Compiler class>>evaluate:logged:
Receiver: Compiler
Arguments and temporary variables:
textOrString: '"Save and Quit"
SmalltalkImage current snapshot: true andQuit: t...etc...
logFlag: true
Receiver's instance variables:
superclass: Object
methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc...
format: 142
instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc...
organization: ('error handling' interactive notify: notify:at:)
('public access...etc...
subclasses: nil
name: #Compiler
classPool: a Dictionary()
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Compiler-Kernel'
traitComposition: nil
localSelectors: nil
[| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
self class evaluatorClass evaluate: chunk logged: true]] in [:bar |
[self atEnd]
whileFalse: [bar value: self position.
self skipSeparators.
[| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
self class evaluatorClass evaluate: chunk logged: true]]
on: InMidstOfFileinNotification
do: [:ex | ex resume: true].
self skipStyleChunk].
self close] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
Receiver: a RWBinaryOrTextStream
Arguments and temporary variables:
val: #('47064 -65 slot(s) reclaimed')
chunk: '"Save and Quit"
SmalltalkImage current snapshot: true andQuit: true.
'
Receiver's instance variables:
collection: '"Preparations"
MCCacheRepository instVarNamed: ''default'' put: ni...etc...
position: 1047
readLimit: 1048
writeLimit: 1048
isBinary: false
BlockClosure>>on:do:
Receiver: [| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: sel...etc...
Arguments and temporary variables:
exception: InMidstOfFileinNotification
handlerAction: [:ex | ex resume: true]
handlerActive: true
Receiver's instance variables:
outerContext: [:bar |
[self atEnd]
whileFalse: [bar value: self position.
...etc...
startpc: 146
numArgs: 0
[:bar |
[self atEnd]
whileFalse: [bar value: self position.
self skipSeparators.
[| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
self class evaluatorClass evaluate: chunk logged: true]]
on: InMidstOfFileinNotification
do: [:ex | ex resume: true].
self skipStyleChunk].
self close] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
Receiver: a RWBinaryOrTextStream
Arguments and temporary variables:
val: [:barVal | nil]
bar: #('47064 -65 slot(s) reclaimed')
Receiver's instance variables:
collection: '"Preparations"
MCCacheRepository instVarNamed: ''default'' put: ni...etc...
position: 1047
readLimit: 1048
writeLimit: 1048
isBinary: false
NonInteractiveUIManager>>progressInitiationExceptionDefaultAction:
Receiver: a NonInteractiveUIManager
Arguments and temporary variables:
anException: ProgressInitiationException
result: nil
Receiver's instance variables:
uiManager: a MorphicUIManager
doNotQuitOnRestart: false
ProgressInitiationException>>defaultAction
Receiver: ProgressInitiationException
Arguments and temporary variables:
Receiver's instance variables:
messageText: nil
tag: nil
signaler: 'Reading a stream'
signalContext: ProgressInitiationException(Exception)>>signal
handlerContext: nil
outerContext: nil
workBlock: [:bar |
[self atEnd]
whileFalse: [bar value: self position.
se...etc...
maxVal: 1048
minVal: 0
aPoint: (488@331)
progressTitle: 'Reading a stream'
UndefinedObject>>handleSignal:
Receiver: nil
Arguments and temporary variables:
exception: ProgressInitiationException
Receiver's instance variables:
nil
MethodContext(ContextPart)>>handleSignal:
Receiver: BlockClosure>>on:do:
Arguments and temporary variables:
exception: ProgressInitiationException
val: nil
Receiver's instance variables:
sender: PasteUpMorph>>becomeActiveDuring:
pc: 17
stackp: 3
method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)")
closureOrNil: nil
receiver: [aBlock value]
MethodContext(ContextPart)>>handleSignal:
Receiver: BlockClosure>>on:do:
Arguments and temporary variables:
exception: ProgressInitiationException
val: nil
Receiver's instance variables:
sender: [:bar |
[self atEnd]
whileFalse: [bar value: self position.
self ...etc...
pc: 17
stackp: 3
method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)")
closureOrNil: nil
receiver: [| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluat...etc...
ProgressInitiationException(Exception)>>signal
Receiver: ProgressInitiationException
Arguments and temporary variables:
Receiver's instance variables:
messageText: nil
tag: nil
signaler: 'Reading a stream'
signalContext: ProgressInitiationException(Exception)>>signal
handlerContext: nil
outerContext: nil
workBlock: [:bar |
[self atEnd]
whileFalse: [bar value: self position.
se...etc...
maxVal: 1048
minVal: 0
aPoint: (488@331)
progressTitle: 'Reading a stream'
ProgressInitiationException>>display:at:from:to:during:
Receiver: ProgressInitiationException
Arguments and temporary variables:
argString: 'Reading a stream'
argPoint: (488@331)
argMinVal: 0
argMaxVal: 1048
argWorkBlock: [:bar |
[self atEnd]
whileFalse: [bar value: self position.
...etc...
Receiver's instance variables:
messageText: nil
tag: nil
signaler: 'Reading a stream'
signalContext: ProgressInitiationException(Exception)>>signal
handlerContext: nil
outerContext: nil
workBlock: [:bar |
[self atEnd]
whileFalse: [bar value: self position.
se...etc...
maxVal: 1048
minVal: 0
aPoint: (488@331)
progressTitle: 'Reading a stream'
ProgressInitiationException class>>display:at:from:to:during:
Receiver: ProgressInitiationException
Arguments and temporary variables:
aString: 'Reading a stream'
aPoint: (488@331)
minVal: 0
maxVal: 1048
workBlock: [:bar |
[self atEnd]
whileFalse: [bar value: self position.
se...etc...
Receiver's instance variables:
superclass: Exception
methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc...
format: 152
instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle')
organization: ('*Morphic' defaultMorphicAction)
('accessing' maxVal minVal poin...etc...
subclasses: nil
name: #ProgressInitiationException
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'UIManager-Support'
traitComposition: nil
localSelectors: nil
ByteString(String)>>displayProgressFrom:to:during:
Receiver: 'Reading a stream'
Arguments and temporary variables:
minVal: 0
maxVal: 1048
workBlock: [:bar |
[self atEnd]
whileFalse: [bar value: self position.
se...etc...
Receiver's instance variables:
'Reading a stream'
RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
Receiver: a RWBinaryOrTextStream
Arguments and temporary variables:
announcement: 'Reading a stream'
val: #('47064 -65 slot(s) reclaimed')
Receiver's instance variables:
collection: '"Preparations"
MCCacheRepository instVarNamed: ''default'' put: ni...etc...
position: 1047
readLimit: 1048
writeLimit: 1048
isBinary: false
--- The full stack ---
CodeLoader(Object)>>error:
CodeLoader>>installSourceFile:
[:req |
req startRetrieval.
self installSourceFile: req contentStream] in CodeLoader>>installSourceFiles
Array(SequenceableCollection)>>do:
CodeLoader>>installSourceFiles
CodeLoader class>>commandLineHandlerAction:
[:t1 | CodeLoader commandLineHandlerAction: t1] in CodeLoader class>>initialize
[:each |
| actionBlock conditionBlock |
conditionBlock := each key.
actionBlock := each value.
(conditionBlock value: anUserInput)
ifTrue: [actionBlock value: anUserInput]] in CommandLine class(AbstractUserInput class)>>dispatch:
[:association | aBlock value: association value] in Dictionary>>valuesDo:
[:each | each
ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo:
Array(SequenceableCollection)>>do:
Dictionary>>associationsDo:
Dictionary>>valuesDo:
Dictionary>>do:
CommandLine class(AbstractUserInput class)>>dispatch:
[self dispatch: singleton] in CommandLine class>>dispatch
BlockClosure>>cull:
[:each | each cull: resuming] in SmalltalkImage>>executeDeferredStartupActions:
OrderedCollection>>do:
SmalltalkImage>>executeDeferredStartupActions:
SmalltalkImage>>snapshot:andQuit:
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
Compiler class>>evaluate:for:notifying:logged:
Compiler class>>evaluate:for:logged:
Compiler class>>evaluate:logged:
[| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
self class evaluatorClass evaluate: chunk logged: true]] in [:bar |
[self atEnd]
whileFalse: [bar value: self position.
self skipSeparators.
[| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
self class evaluatorClass evaluate: chunk logged: true]]
on: InMidstOfFileinNotification
do: [:ex | ex resume: true].
self skipStyleChunk].
self close] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
BlockClosure>>on:do:
[:bar |
[self atEnd]
whileFalse: [bar value: self position.
self skipSeparators.
[| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
self class evaluatorClass evaluate: chunk logged: true]]
on: InMidstOfFileinNotification
do: [:ex | ex resume: true].
self skipStyleChunk].
self close] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
NonInteractiveUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressFrom:to:during:
RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
- - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
RWBinaryOrTextStream(PositionableStream)>>fileIn
CodeLoader>>installSourceFile:
[:req |
req startRetrieval.
self installSourceFile: req contentStream] in CodeLoader>>installSourceFiles
Array(SequenceableCollection)>>do:
CodeLoader>>installSourceFiles
CodeLoader class>>commandLineHandlerAction:
[:t1 | CodeLoader commandLineHandlerAction: t1] in CodeLoader class>>initialize
[:each |
| actionBlock conditionBlock |
conditionBlock := each key.
actionBlock := each value.
(conditionBlock value: anUserInput)
ifTrue: [actionBlock value: anUserInput]] in CommandLine class(AbstractUserInput class)>>dispatch:
[:association | aBlock value: association value] in Dictionary>>valuesDo:
[:each | each
ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo:
Array(SequenceableCollection)>>do:
Dictionary>>associationsDo:
Dictionary>>valuesDo:
Dictionary>>do:
CommandLine class(AbstractUserInput class)>>dispatch:
[self dispatch: singleton] in CommandLine class>>dispatch
BlockClosure>>cull:
[:each | each cull: resuming] in SmalltalkImage>>executeDeferredStartupActions:
OrderedCollection>>do:
SmalltalkImage>>executeDeferredStartupActions:
SmalltalkImage>>snapshot:andQuit:
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
Compiler class>>evaluate:for:notifying:logged:
Compiler class>>evaluate:for:logged:
Compiler class>>evaluate:logged:
[| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
self class evaluatorClass evaluate: chunk logged: true]] in [:bar |
[self atEnd]
whileFalse: [bar value: self position.
self skipSeparators.
[| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
self class evaluatorClass evaluate: chunk logged: true]]
on: InMidstOfFileinNotification
do: [:ex | ex resume: true].
self skipStyleChunk].
self close] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
BlockClosure>>on:do:
[:bar |
[self atEnd]
whileFalse: [bar value: self position.
self skipSeparators.
[| chunk | val := (self peekFor: $!)
ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false)
scanFrom: self]
ifFalse: [chunk := self nextChunk.
self checkForPreamble: chunk.
self class evaluatorClass evaluate: chunk logged: true]]
on: InMidstOfFileinNotification
do: [:ex | ex resume: true].
self skipStyleChunk].
self close] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
NonInteractiveUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressFrom:to:during:
RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
RWBinaryOrTextStream(PositionableStream)>>fileIn
CodeLoader>>installSourceFile:
[:req |
req startRetrieval.
self installSourceFile: req contentStream] in CodeLoader>>installSourceFiles
Array(SequenceableCollection)>>do:
CodeLoader>>installSourceFiles
CodeLoader class>>commandLineHandlerAction:
[:t1 | CodeLoader commandLineHandlerAction: t1] in CodeLoader class>>initialize
[:each |
| actionBlock conditionBlock |
conditionBlock := each key.
actionBlock := each value.
(conditionBlock value: anUserInput)
ifTrue: [actionBlock value: anUserInput]] in CommandLine class(AbstractUserInput class)>>dispatch:
[:association | aBlock value: association value] in Dictionary>>valuesDo:
[:each | each
ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo:
Array(SequenceableCollection)>>do:
Dictionary>>associationsDo:
Dictionary>>valuesDo:
Dictionary>>do:
CommandLine class(AbstractUserInput class)>>dispatch:
[self dispatch: singleton] in CommandLine class>>dispatch
BlockClosure>>cull:
[:each | each cull: resuming] in SmalltalkImage>>executeDeferredStartupActions:
OrderedCollection>>do:
SmalltalkImage>>executeDeferredStartupActions:
SmalltalkImage>>snapshot:andQuit:
WorldState class>>saveAndQuit
[| selArgCount |
(selArgCount := selector numArgs) = 0
ifTrue: [target perform: selector]
ifFalse: [selArgCount = arguments size
ifTrue: [target perform: selector withArguments: arguments]
ifFalse: [target
perform: selector
withArguments: (arguments copyWith: evt)]].
self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
ToggleMenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
ToggleMenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>handleFocusEvent:
[ActiveHand := self.
ActiveEvent := anEvent.
result := focusHolder
handleFocusEvent: (anEvent
transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
[aBlock value] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h |
ActiveHand := h.
h processEvents.
ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
Processor yield.
false] whileFalse.
nil] in MorphicUIManager>>spawnNewProcess
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------------------------------------
Processes and their stacks:
Process: a Process in Delay class>>handleTimerEvent
stack:
Delay class>>handleTimerEvent
Delay class>>runTimerEventLoop
[self runTimerEventLoop] in Delay class>>startTimerEventLoop
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------
Process: a Process in nil
stack:
Array(SequenceableCollection)>>do:
[:logger |
logger nextPutAll: 'Processes and their stacks: ';
cr.
Process allInstances
do: [:each |
| ctx |
logger nextPutAll: 'Process: ';
print: each;
cr;
nextPutAll: ' stack:';
cr;
cr.
ctx := each isActiveProcess
ifTrue: [thisContext sender]
ifFalse: [each suspendedContext].
ctx
ifNotNil: [(ctx stackOfSize: 20)
do: [:s | logger print: s;
cr]].
logger nextPutAll: '------------------------------';
cr;
cr]] in [Smalltalk logError: aString inContext: aContext.
Smalltalk
logDuring: [:logger |
logger nextPutAll: 'Processes and their stacks: ';
cr.
Process allInstances
do: [:each |
| ctx |
logger nextPutAll: 'Process: ';
print: each;
cr;
nextPutAll: ' stack:';
cr;
cr.
ctx := each isActiveProcess
ifTrue: [thisContext sender]
ifFalse: [each suspendedContext].
ctx
ifNotNil: [(ctx stackOfSize: 20)
do: [:s | logger print: s;
cr]].
logger nextPutAll: '------------------------------';
cr;
cr]]] in NonInteractiveUIManager>>quitFrom:withMessage:
[logStream := self openLog.
aMonadicBlock value: logStream] in SmalltalkImage>>logDuring:
BlockClosure>>ensure:
SmalltalkImage>>logDuring:
[Smalltalk logError: aString inContext: aContext.
Smalltalk
logDuring: [:logger |
logger nextPutAll: 'Processes and their stacks: ';
cr.
Process allInstances
do: [:each |
| ctx |
logger nextPutAll: 'Process: ';
print: each;
cr;
nextPutAll: ' stack:';
cr;
cr.
ctx := each isActiveProcess
ifTrue: [thisContext sender]
ifFalse: [each suspendedContext].
ctx
ifNotNil: [(ctx stackOfSize: 20)
do: [:s | logger print: s;
cr]].
logger nextPutAll: '------------------------------';
cr;
cr]]] in NonInteractiveUIManager>>quitFrom:withMessage:
BlockClosure>>ensure:
NonInteractiveUIManager>>quitFrom:withMessage:
NonInteractiveUIManager>>unhandledErrorDefaultAction:
UnhandledError>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
UnhandledError(Exception)>>signal
UnhandledError class>>signalForException:
Error>>defaultAction
UndefinedObject>>handleSignal:
Error(Exception)>>pass
[:ex |
ActiveWorld := priorWorld.
ActiveEvent := priorEvent.
ActiveHand := priorHand.
ex pass] in PasteUpMorph>>becomeActiveDuring:
------------------------------
Process: a Process in [self value.
Processor terminateActive] in BlockClosure>>newProcess
stack:
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------
Process: a Process in [self value.
Processor terminateActive] in BlockClosure>>newProcess
stack:
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------
Process: a Process in [self value.
Processor terminateActive] in BlockClosure>>newProcess
stack:
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------
Process: a Process in [self value.
Processor terminateActive] in BlockClosure>>newProcess
stack:
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------
Process: a Process in [delaySemaphore wait] in Delay>>wait
stack:
[delaySemaphore wait] in Delay>>wait
BlockClosure>>ifCurtailed:
Delay>>wait
InputEventPollingFetcher>>waitForInput
InputEventPollingFetcher(InputEventFetcher)>>eventLoop
[self eventLoop] in InputEventPollingFetcher(InputEventFetcher)>>installEventLoop
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------
Process: a Process in SmalltalkImage>>lowSpaceWatcher
stack:
SmalltalkImage>>lowSpaceWatcher
[self lowSpaceWatcher] in SmalltalkImage>>installLowSpaceWatcher
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------
Process: a Process in ProcessorScheduler class>>idleProcess
stack:
ProcessorScheduler class>>idleProcess
[self idleProcess] in ProcessorScheduler class>>startUp
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------
Process: a Process in WeakArray class>>finalizationProcess
stack:
WeakArray class>>finalizationProcess
[self finalizationProcess] in WeakArray class>>restartFinalizationProcess
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------
Process: a Process in Process>>terminate
stack:
Process>>terminate
------------------------------
Process: a Process in Process>>terminate
stack:
Process>>terminate
------------------------------
