25 May
2012
25 May
'12
11:57 a.m.
Hi,
Here is how to install Athens (I also added this comment to the ConfigurationOfAthens):
1. Install Cairo on your machine
For example, for Mac, you open the terminal and run:
sudo port install -f cairo +universal
More information can be found here:
http://cairographics.org/download/
2. Download the NativeBoost enabled Cog VM from:
https://ci.lille.inria.fr/pharo/view/NativeBoost/
3. Get a Pharo image and run:
Gofer new
squeaksource: 'Athens';
package: 'ConfigurationOfAthens';
load.
(Smalltalk at: #ConfigurationOfAthens) loadDevelopment
4. Play with it. For example:
VGTigerDemo runDemo
Thanks Igor!
Cheers,
Doru
--
www.tudorgirba.com
"Live like you mean it."
25 May
25 May
12:39 p.m.
New subject: [Pharo-project] loading athens - a user perspective
On Fri, May 25, 2012 at 4:57 PM, Tudor Girba <tudor(a)tudorgirba.com> wrote:
Hi,
Here is how to install Athens (I also added this comment to the ConfigurationOfAthens):
1. Install Cairo on your machine
For example, for Mac, you open the terminal and run:
sudo port install -f cairo +universal
More information can be found here:
http://cairographics.org/download/
2. Download the NativeBoost enabled Cog VM from:
https://ci.lille.inria.fr/pharo/view/NativeBoost/
3. Get a Pharo image and run:
Gofer new
squeaksource: 'Athens';
package: 'ConfigurationOfAthens';
load.
(Smalltalk at: #ConfigurationOfAthens) loadDevelopment
4. Play with it. For example:
VGTigerDemo runDemo
I install Cairo with brew on mac os x:
brew install cairo
And I got the following stack trace:
25 May 2012 5:37:03 pm
VM: Mac OS - intel - 1074 - NBCoInterpreter
NativeBoost-CogPlugin-IgorStasenko.9 uuid:
801decd2-0b42-fa49-bcea-d7564d516a1b May 1 2012,
StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.158 uuid:
82eded98-68af-4c80-a472-4f6de293adcf May 1 2012,
https://git.gitorious.org/cogvm/blessed.git Commit:
6aa3fd0f1188078d3167dec1a53031a61b97b688 Date: Tue May 1 20:28:14 2012
+0200 By: Esteban Lorenzano <estebanlm(a)gmail.com>
Image: Pharo1.4a [Latest update: #14418]
NBFFICallout(Object)>>error:
Receiver: a NBFFICallout
Arguments and temporary variables:
aString: 'function unavailable'
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
[:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module:
aModuleNameOrHandle.
fnAddress
ifNil: [self error: 'function unavailable'].
self mayCallback
ifTrue: [asm push: fnAddress asUImm32;
mov: NativeBoost callgateFunctionAddress asUImm32 to: EAX;
call: EAX]
ifFalse: [asm mov: fnAddress asUImm32 to: EAX;
call: EAX]] in NBFFICallout>>generateCall:module:
Receiver: a NBFFICallout
Arguments and temporary variables:
aModuleNameOrHandle: a NBFFICallout
fnAddress: '/opt/local/lib/libcairo.2.dylib'
gen: #(nil)
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
BlockClosure>>valueWithPossibleArgs:
Receiver: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module:
aModuleNam...etc...
Arguments and temporary variables:
anArray: an Array(a NBFFICallout a NBInterpreterProxy an AJx86Assembler)
Receiver's instance variables:
outerContext: NBFFICallout>>generateCall:module:
startpc: 91
numArgs: 1
[aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]] in [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self pushArguments.
coercionMayFail
ifTrue: [proxy ifFailedJumpTo: self failedLabel].
asm
decorateWith: 'FFI: performing a call'
while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions:
Receiver: a NBFFICallout
Arguments and temporary variables:
aFunctionBodyBlock: an AJCdeclCallInfo
call: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc...
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
BlockClosure>>ensure:
Receiver: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [...etc...
Arguments and temporary variables:
aBlock: [level := level - 1.
self
addInstruction: (AJInstructionDecoration n...etc...
complete: nil
returnValue: nil
Receiver's instance variables:
outerContext: [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
sel...etc...
startpc: 151
numArgs: 0
AJx86Assembler>>decorateWith:while:
Receiver: an AJx86Assembler
Arguments and temporary variables:
annotation: 'FFI: performing a call'
aBlock: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self o...etc...
Receiver's instance variables:
instructions: <<error during printing>>
[:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self pushArguments.
coercionMayFail
ifTrue: [proxy ifFailedJumpTo: self failedLabel].
asm
decorateWith: 'FFI: performing a call'
while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions:
Receiver: a NBFFICallout
Arguments and temporary variables:
aFunctionBodyBlock: an AJCdeclCallInfo
call: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc...
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
AJx86Assembler>>performingCall:in:
Receiver: an AJx86Assembler
Arguments and temporary variables:
ci: an AJCdeclCallInfo
aBlock: [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self push...etc...
Receiver's instance variables:
instructions: <<error during printing>>
NBFFICallout>>foreignCall:
Receiver: a NBFFICallout
Arguments and temporary variables:
aBlock: [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self push...etc...
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
NBFFICallout>>generateInstructions:
Receiver: a NBFFICallout
Arguments and temporary variables:
aFunctionBodyBlock: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc...
instructions: nil
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
NBFFICallout>>generate:
Receiver: a NBFFICallout
Arguments and temporary variables:
aFunctionBodyBlock: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc...
generatedCode: nil
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
NBFFICallout>>generateCall:module:
Receiver: a NBFFICallout
Arguments and temporary variables:
functionSpec: #(#AthensCairoSurface #cairo_image_surface_create
#(#int #aFormat...etc...
aModuleNameOrHandle: '/opt/local/lib/libcairo.2.dylib'
fnAddress: #(nil)
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
[:gen | gen sender: sender;
callType: self nbCallingConvention;
generateCall: fnSpec module: self nbLibraryNameOrHandle] in
AthensCairoSurface class(Object)>>nbCall:
Receiver: AthensCairoSurface
Arguments and temporary variables:
fnSpec: a NBFFICallout
sender: #(#AthensCairoSurface #cairo_image_surface_create #(#int
#aFormat #, #i...etc...
gen: AthensCairoSurface class>>primImage:width:height:
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context' 'builder'
'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry:
Receiver: NBFFICallout
Arguments and temporary variables:
aBlock: [:gen | gen sender: sender;
callType: self nbCallingConvention;
g...etc...
retryCtx: AthensCairoSurface class>>primImage:width:height:
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
code: nil
newMethod: nil
args: nil
i: nil
iLimiT: nil
Receiver's instance variables:
superclass: NBNativeCodeGen
methodDict: a
MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType:
"a...etc...
format: 148
instanceVariables: #('fnSpec' 'requestor' 'methodArgs'
'coercionMayFail' 'callI...etc...
organization: ('type aliases' aliasForType:)
('accessing' anonSpec: callType: c...etc...
subclasses: {NBNativeFunctionGen}
name: #NBFFICallout
classPool: a Dictionary(#CustomErrorCodes->nil
#CustomErrorMessages->nil #TypeA...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'NativeBoost-Core'
traitComposition: {}
localSelectors: nil
NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode:
Receiver: NBFFICallout
Arguments and temporary variables:
aContext: AthensCairoSurface class>>primImage:width:height:
aBlock: [:gen | gen sender: sender;
callType: self nbCallingConvention;
g...etc...
method: (AthensCairoSurface class>>#primImage:width:height: "a
CompiledMethod(4...etc...
lastError: 502
Receiver's instance variables:
superclass: NBNativeCodeGen
methodDict: a
MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType:
"a...etc...
format: 148
instanceVariables: #('fnSpec' 'requestor' 'methodArgs'
'coercionMayFail' 'callI...etc...
organization: ('type aliases' aliasForType:)
('accessing' anonSpec: callType: c...etc...
subclasses: {NBNativeFunctionGen}
name: #NBFFICallout
classPool: a Dictionary(#CustomErrorCodes->nil
#CustomErrorMessages->nil #TypeA...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'NativeBoost-Core'
traitComposition: {}
localSelectors: nil
AthensCairoSurface class(Object)>>nbCall:
Receiver: AthensCairoSurface
Arguments and temporary variables:
fnSpec: #(#AthensCairoSurface #cairo_image_surface_create #(#int
#aFormat #, #i...etc...
sender: AthensCairoSurface class>>primImage:width:height:
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context' 'builder'
'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
AthensCairoSurface class>>primImage:width:height:
Receiver: AthensCairoSurface
Arguments and temporary variables:
aFormat: 0
aWidth: 800
aHeight: 800
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context' 'builder'
'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
AthensCairoSurface class>>extent:format:
Receiver: AthensCairoSurface
Arguments and temporary variables:
anExtent: (800@800)
aFormat: 0
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context' 'builder'
'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
AthensCairoSurface class>>extent:
Receiver: AthensCairoSurface
Arguments and temporary variables:
anExtent: (800@800)
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context' 'builder'
'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
VGTigerDemo>>initialize
Receiver: a VGTigerDemo
Arguments and temporary variables:
Receiver's instance variables:
surface: nil
VGTigerDemo class(Behavior)>>new
Receiver: VGTigerDemo
Arguments and temporary variables:
Receiver's instance variables:
superclass: Object
methodDict: a
MethodDictionary(#convertPathData2->(VGTigerDemo>>#convertPathDat...etc...
format: 132
instanceVariables: #('surface')
organization: ('as yet unclassified' convertPathData2 initialize runDemo)
subclasses: nil
name: #VGTigerDemo
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Athens-Examples'
traitComposition: {}
localSelectors: nil
VGTigerDemo class>>runDemo
Receiver: VGTigerDemo
Arguments and temporary variables:
Receiver's instance variables:
superclass: Object
methodDict: a
MethodDictionary(#convertPathData2->(VGTigerDemo>>#convertPathDat...etc...
format: 132
instanceVariables: #('surface')
organization: ('as yet unclassified' convertPathData2 initialize runDemo)
subclasses: nil
name: #VGTigerDemo
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Athens-Examples'
traitComposition: {}
localSelectors: nil
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: a ReadWriteStream
aContext: nil
receiver: nil
aRequestor: a TextMorphForEditView(741605376)
failBlock: [self morph flash.
^ nil]
logFlag: true
methodNode: DoIt
^ VGTigerDemo runDemo
method: (UndefinedObject>>#DoIt "a CompiledMethod(926679040)")
value: nil
toLog: nil
itsSelection: nil
itsSelectionString: nil
Receiver's instance variables:
sourceStream: a ReadWriteStream
requestor: a TextMorphForEditView(741605376)
class: UndefinedObject
category: nil
context: nil
parser: a Parser
[rcvr class evaluatorClass new
evaluate: self selectionForDoitAsStream
in: ctxt
to: rcvr
notifying: self morph
ifFail: [self morph flash.
^ nil]
logged: true] in SmalltalkEditor>>evaluateSelectionAndDo:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
rcvr: nil
ctxt: nil
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
BlockClosure>>on:do:
Receiver: [rcvr class evaluatorClass new
evaluate: self selectionForDoitAsStream
in: ctxt
to: ...etc...
Arguments and temporary variables:
exception: OutOfScopeNotification
handlerAction: [:ex | ex resume: true]
handlerActive: true
Receiver's instance variables:
outerContext: SmalltalkEditor>>evaluateSelectionAndDo:
startpc: 110
numArgs: 0
SmalltalkEditor>>evaluateSelectionAndDo:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aBlock: [:result | result]
result: nil
rcvr: nil
ctxt: nil
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor>>evaluateSelection
Receiver: a SmalltalkEditor
Arguments and temporary variables:
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor>>doIt
Receiver: a SmalltalkEditor
Arguments and temporary variables:
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor>>doIt:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>performCmdActionsWith:shifted:return:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
aBoolean: false
return: [:val | ^ val]
asciiValue: 101
actions: #(#noop: #cursorHome: #noop: #noop: #cursorEnd: #noop:
#noop: #noop: #...etc...
action: #doIt:
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>dispatchCommandOn:return:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
return: [:val | ^ val]
asciiValue: 100
honorCommandKeys: true
char: nil
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>dispatchOn:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
char: nil
return: [:val | ^ val]
keyEvents: nil
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
[self dispatchOn: aKeyboardEvent] in SmalltalkEditor(TextEditor)>>keystroke:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>handleKeystrokeAction:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aBlock: [self dispatchOn: aKeyboardEvent]
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
anAction: [self dispatchOn: aKeyboardEvent]
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>keystroke:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
[editor keystroke: evt] in [| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
Receiver: a TextMorphForEditView(741605376)
Arguments and temporary variables:
evt: [keystroke '<Cmd-d>']
Receiver's instance variables:
bounds: (0@0) corner: (473@18)
owner: a TransformMorph(38535168)
submorphs: #()
fullBounds: (0@0) corner: (473@18)
color: Color black
extension: a MorphExtension (824180736) [other: (blinkStart ->
1085881) (myDep...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'VGTigerDemo runDemo'
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(838860800)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
TextMorphForEditView(TextMorph)>>handleInteraction:
Receiver: a TextMorphForEditView(741605376)
Arguments and temporary variables:
interactionBlock: [editor keystroke: evt]
oldEditor: a SmalltalkEditor
oldParagraph: a Paragraph
oldText: a Text for 'VGTigerDemo runDemo'
Receiver's instance variables:
bounds: (0@0) corner: (473@18)
owner: a TransformMorph(38535168)
submorphs: #()
fullBounds: (0@0) corner: (473@18)
color: Color black
extension: a MorphExtension (824180736) [other: (blinkStart ->
1085881) (myDep...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'VGTigerDemo runDemo'
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(838860800)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
--- The full stack ---
NBFFICallout(Object)>>error:
[:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module:
aModuleNameOrHandle.
fnAddress
ifNil: [self error: 'function unavailable'].
self mayCallback
ifTrue: [asm push: fnAddress asUImm32;
mov: NativeBoost callgateFunctionAddress asUImm32 to: EAX;
call: EAX]
ifFalse: [asm mov: fnAddress asUImm32 to: EAX;
call: EAX]] in NBFFICallout>>generateCall:module:
BlockClosure>>valueWithPossibleArgs:
[aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]] in [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self pushArguments.
coercionMayFail
ifTrue: [proxy ifFailedJumpTo: self failedLabel].
asm
decorateWith: 'FFI: performing a call'
while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions:
BlockClosure>>ensure:
AJx86Assembler>>decorateWith:while:
[:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self pushArguments.
coercionMayFail
ifTrue: [proxy ifFailedJumpTo: self failedLabel].
asm
decorateWith: 'FFI: performing a call'
while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions:
AJx86Assembler>>performingCall:in:
NBFFICallout>>foreignCall:
NBFFICallout>>generateInstructions:
NBFFICallout>>generate:
NBFFICallout>>generateCall:module:
[:gen | gen sender: sender;
callType: self nbCallingConvention;
generateCall: fnSpec module: self nbLibraryNameOrHandle] in
AthensCairoSurface class(Object)>>nbCall:
NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry:
NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode:
AthensCairoSurface class(Object)>>nbCall:
AthensCairoSurface class>>primImage:width:height:
AthensCairoSurface class>>extent:format:
AthensCairoSurface class>>extent:
VGTigerDemo>>initialize
VGTigerDemo class(Behavior)>>new
VGTigerDemo class>>runDemo
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
[rcvr class evaluatorClass new
evaluate: self selectionForDoitAsStream
in: ctxt
to: rcvr
notifying: self morph
ifFail: [self morph flash.
^ nil]
logged: true] in SmalltalkEditor>>evaluateSelectionAndDo:
BlockClosure>>on:do:
SmalltalkEditor>>evaluateSelectionAndDo:
SmalltalkEditor>>evaluateSelection
SmalltalkEditor>>doIt
SmalltalkEditor>>doIt:
SmalltalkEditor(TextEditor)>>performCmdActionsWith:shifted:return:
SmalltalkEditor(TextEditor)>>dispatchCommandOn:return:
SmalltalkEditor(TextEditor)>>dispatchOn:
[self dispatchOn: aKeyboardEvent] in SmalltalkEditor(TextEditor)>>keystroke:
SmalltalkEditor(TextEditor)>>handleKeystrokeAction:
SmalltalkEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent:
SmalltalkEditor(TextEditor)>>keystroke:
[editor keystroke: evt] in [| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView(TextMorph)>>handleInteraction:
- - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
TextMorphForEditView>>handleInteraction:
[| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
ECToolSet class>>codeCompletionAround:textMorph:keyStroke:
ToolRegistry>>codeCompletionAround:textMorph:keyStroke:
SmalltalkEditor>>codeCompletionAround:textMorph:keyStroke:
TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView>>keyStroke:
TextMorphForEditView(TextMorph)>>handleKeystroke:
KeyboardEvent>>sentTo:
TextMorphForEditView(Morph)>>handleEvent:
TextMorphForEditView(Morph)>>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>>sendKeyboardEvent:
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
--
Serge Stinckwich
UMI UMMISCO 209 (IRD/UPMC), Hanoi, Vietnam
Every DSL ends up being Smalltalk
http://doesnotunderstand.org/
3:23 p.m.
New subject: [Pharo-project] loading athens - a user perspective
Should i put more elaborate error message?
A 'function unavailable' is exception which you get when... function
is not available.
I just thinking how to prevent receiving a huge and worthless stack traces. :)
One way is of course write documentation.. :)
On 25 May 2012 12:39, Serge Stinckwich <serge.stinckwich(a)gmail.com> wrote:
On Fri, May 25, 2012 at 4:57 PM, Tudor Girba
<tudor(a)tudorgirba.com> wrote:
--
Best regards,
Igor Stasenko.
Hi,
Here is how to install Athens (I also added this comment to the ConfigurationOfAthens):
1. Install Cairo on your machine
For example, for Mac, you open the terminal and run:
sudo port install -f cairo +universal
More information can be found here:
http://cairographics.org/download/
2. Download the NativeBoost enabled Cog VM from:
https://ci.lille.inria.fr/pharo/view/NativeBoost/
3. Get a Pharo image and run:
Gofer new
squeaksource: 'Athens';
package: 'ConfigurationOfAthens';
load.
(Smalltalk at: #ConfigurationOfAthens) loadDevelopment
4. Play with it. For example:
VGTigerDemo runDemo
I install Cairo with brew on mac os x:
brew install cairo
And I got the following stack trace:
25 May 2012 5:37:03 pm
VM: Mac OS - intel - 1074 - NBCoInterpreter
NativeBoost-CogPlugin-IgorStasenko.9 uuid:
801decd2-0b42-fa49-bcea-d7564d516a1b May 1 2012,
StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.158 uuid:
82eded98-68af-4c80-a472-4f6de293adcf May 1 2012,
https://git.gitorious.org/cogvm/blessed.git Commit:
6aa3fd0f1188078d3167dec1a53031a61b97b688 Date: Tue May 1 20:28:14 2012
+0200 By: Esteban Lorenzano <estebanlm(a)gmail.com>
Image: Pharo1.4a [Latest update: #14418]
NBFFICallout(Object)>>error:
Receiver: a NBFFICallout
Arguments and temporary variables:
aString: 'function unavailable'
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr
#optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth'
'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
[:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module:
aModuleNameOrHandle.
fnAddress
ifNil: [self error: 'function unavailable'].
self mayCallback
ifTrue: [asm push: fnAddress asUImm32;
mov: NativeBoost callgateFunctionAddress asUImm32 to:
EAX;
call: EAX]
ifFalse: [asm mov: fnAddress asUImm32 to: EAX;
call: EAX]] in NBFFICallout>>generateCall:module:
Receiver: a NBFFICallout
Arguments and temporary variables:
aModuleNameOrHandle: a NBFFICallout
fnAddress: '/opt/local/lib/libcairo.2.dylib'
gen: #(nil)
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr
#optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth'
'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
BlockClosure>>valueWithPossibleArgs:
Receiver: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module:
aModuleNam...etc...
Arguments and temporary variables:
anArray: an Array(a NBFFICallout a NBInterpreterProxy an
AJx86Assembler)
Receiver's instance variables:
outerContext: NBFFICallout>>generateCall:module:
startpc: 91
numArgs: 1
[aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]] in [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self pushArguments.
coercionMayFail
ifTrue: [proxy ifFailedJumpTo: self failedLabel].
asm
decorateWith: 'FFI: performing a call'
while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]]] in
NBFFICallout>>generateInstructions:
Receiver: a NBFFICallout
Arguments and temporary variables:
aFunctionBodyBlock: an AJCdeclCallInfo
call: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc...
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr
#optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth'
'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
BlockClosure>>ensure:
Receiver: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [...etc...
Arguments and temporary variables:
aBlock: [level := level - 1.
self
addInstruction: (AJInstructionDecoration n...etc...
complete: nil
returnValue: nil
Receiver's instance variables:
outerContext: [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
sel...etc...
startpc: 151
numArgs: 0
AJx86Assembler>>decorateWith:while:
Receiver: an AJx86Assembler
Arguments and temporary variables:
annotation: 'FFI: performing a call'
aBlock: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy.
asm}.
(self o...etc...
Receiver's instance variables:
instructions: <<error during printing>>
[:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self pushArguments.
coercionMayFail
ifTrue: [proxy ifFailedJumpTo: self failedLabel].
asm
decorateWith: 'FFI: performing a call'
while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]]] in
NBFFICallout>>generateInstructions:
Receiver: a NBFFICallout
Arguments and temporary variables:
aFunctionBodyBlock: an AJCdeclCallInfo
call: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc...
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr
#optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth'
'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
AJx86Assembler>>performingCall:in:
Receiver: an AJx86Assembler
Arguments and temporary variables:
ci: an AJCdeclCallInfo
aBlock: [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self push...etc...
Receiver's instance variables:
instructions: <<error during printing>>
NBFFICallout>>foreignCall:
Receiver: a NBFFICallout
Arguments and temporary variables:
aBlock: [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self push...etc...
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr
#optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth'
'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
NBFFICallout>>generateInstructions:
Receiver: a NBFFICallout
Arguments and temporary variables:
aFunctionBodyBlock: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc...
instructions: nil
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr
#optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth'
'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
NBFFICallout>>generate:
Receiver: a NBFFICallout
Arguments and temporary variables:
aFunctionBodyBlock: [:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc...
generatedCode: nil
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr
#optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth'
'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
NBFFICallout>>generateCall:module:
Receiver: a NBFFICallout
Arguments and temporary variables:
functionSpec: #(#AthensCairoSurface #cairo_image_surface_create
#(#int #aFormat...etc...
aModuleNameOrHandle: '/opt/local/lib/libcairo.2.dylib'
fnAddress: #(nil)
Receiver's instance variables:
asm: an AJx86Assembler
proxy: a NBInterpreterProxy
options: a Set(#optCdecl #optAllowByteArraysPtr
#optUseStackPointer
#optReturnP...etc...
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
fnSpec: a NBFnSpec
requestor: AthensCairoSurface class
methodArgs: an OrderedCollection('aFormat' 'aWidth'
'aHeight')
coercionMayFail: true
callInfo: an AJCdeclCallInfo
[:gen | gen sender: sender;
callType: self nbCallingConvention;
generateCall: fnSpec module: self nbLibraryNameOrHandle] in
AthensCairoSurface class(Object)>>nbCall:
Receiver: AthensCairoSurface
Arguments and temporary variables:
fnSpec: a NBFFICallout
sender: #(#AthensCairoSurface #cairo_image_surface_create #(#int
#aFormat #, #i...etc...
gen: AthensCairoSurface class>>primImage:width:height:
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context'
'builder' 'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry:
Receiver: NBFFICallout
Arguments and temporary variables:
aBlock: [:gen | gen sender: sender;
callType: self nbCallingConvention;
g...etc...
retryCtx: AthensCairoSurface class>>primImage:width:height:
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
code: nil
newMethod: nil
args: nil
i: nil
iLimiT: nil
Receiver's instance variables:
superclass: NBNativeCodeGen
methodDict: a
MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType:
"a...etc...
format: 148
instanceVariables: #('fnSpec' 'requestor'
'methodArgs'
'coercionMayFail' 'callI...etc...
organization: ('type aliases' aliasForType:)
('accessing' anonSpec: callType: c...etc...
subclasses: {NBNativeFunctionGen}
name: #NBFFICallout
classPool: a Dictionary(#CustomErrorCodes->nil
#CustomErrorMessages->nil #TypeA...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'NativeBoost-Core'
traitComposition: {}
localSelectors: nil
NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode:
Receiver: NBFFICallout
Arguments and temporary variables:
aContext: AthensCairoSurface class>>primImage:width:height:
aBlock: [:gen | gen sender: sender;
callType: self nbCallingConvention;
g...etc...
method: (AthensCairoSurface class>>#primImage:width:height:
"a
CompiledMethod(4...etc...
lastError: 502
Receiver's instance variables:
superclass: NBNativeCodeGen
methodDict: a
MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType:
"a...etc...
format: 148
instanceVariables: #('fnSpec' 'requestor'
'methodArgs'
'coercionMayFail' 'callI...etc...
organization: ('type aliases' aliasForType:)
('accessing' anonSpec: callType: c...etc...
subclasses: {NBNativeFunctionGen}
name: #NBFFICallout
classPool: a Dictionary(#CustomErrorCodes->nil
#CustomErrorMessages->nil #TypeA...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'NativeBoost-Core'
traitComposition: {}
localSelectors: nil
AthensCairoSurface class(Object)>>nbCall:
Receiver: AthensCairoSurface
Arguments and temporary variables:
fnSpec: #(#AthensCairoSurface #cairo_image_surface_create #(#int
#aFormat #, #i...etc...
sender: AthensCairoSurface class>>primImage:width:height:
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context'
'builder' 'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
AthensCairoSurface class>>primImage:width:height:
Receiver: AthensCairoSurface
Arguments and temporary variables:
aFormat: 0
aWidth: 800
aHeight: 800
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context'
'builder' 'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
AthensCairoSurface class>>extent:format:
Receiver: AthensCairoSurface
Arguments and temporary variables:
anExtent: (800@800)
aFormat: 0
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context'
'builder' 'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
AthensCairoSurface class>>extent:
Receiver: AthensCairoSurface
Arguments and temporary variables:
anExtent: (800@800)
Receiver's instance variables:
superclass: AthensSurface
methodDict: a
MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc...
format: 140
instanceVariables: #('handle' 'context'
'builder' 'id')
organization: ('converting' asAthensPaintOn: writeToPng:)
('as yet unclassified...etc...
subclasses: {AthensCairoPDFSurface}
name: #AthensCairoSurface
classPool: nil
sharedPools: an OrderedCollection(AthensCairoDefs)
environment: a SystemDictionary(lots of globals)
category: #'Athens-Cairo'
traitComposition: TCairoLibrary
localSelectors: a Set(#asForm #createFormPaint: #stride
#setOperator: #writeToP...etc...
uniqueSession: nil
dispatch: nil
dispatchStruct: nil
VGTigerDemo>>initialize
Receiver: a VGTigerDemo
Arguments and temporary variables:
Receiver's instance variables:
surface: nil
VGTigerDemo class(Behavior)>>new
Receiver: VGTigerDemo
Arguments and temporary variables:
Receiver's instance variables:
superclass: Object
methodDict: a
MethodDictionary(#convertPathData2->(VGTigerDemo>>#convertPathDat...etc...
format: 132
instanceVariables: #('surface')
organization: ('as yet unclassified' convertPathData2 initialize
runDemo)
subclasses: nil
name: #VGTigerDemo
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Athens-Examples'
traitComposition: {}
localSelectors: nil
VGTigerDemo class>>runDemo
Receiver: VGTigerDemo
Arguments and temporary variables:
Receiver's instance variables:
superclass: Object
methodDict: a
MethodDictionary(#convertPathData2->(VGTigerDemo>>#convertPathDat...etc...
format: 132
instanceVariables: #('surface')
organization: ('as yet unclassified' convertPathData2 initialize
runDemo)
subclasses: nil
name: #VGTigerDemo
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Athens-Examples'
traitComposition: {}
localSelectors: nil
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: a ReadWriteStream
aContext: nil
receiver: nil
aRequestor: a TextMorphForEditView(741605376)
failBlock: [self morph flash.
^ nil]
logFlag: true
methodNode: DoIt
^ VGTigerDemo runDemo
method: (UndefinedObject>>#DoIt "a
CompiledMethod(926679040)")
value: nil
toLog: nil
itsSelection: nil
itsSelectionString: nil
Receiver's instance variables:
sourceStream: a ReadWriteStream
requestor: a TextMorphForEditView(741605376)
class: UndefinedObject
category: nil
context: nil
parser: a Parser
[rcvr class evaluatorClass new
evaluate: self selectionForDoitAsStream
in: ctxt
to: rcvr
notifying: self morph
ifFail: [self morph flash.
^ nil]
logged: true] in SmalltalkEditor>>evaluateSelectionAndDo:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
rcvr: nil
ctxt: nil
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
BlockClosure>>on:do:
Receiver: [rcvr class evaluatorClass new
evaluate: self selectionForDoitAsStream
in: ctxt
to: ...etc...
Arguments and temporary variables:
exception: OutOfScopeNotification
handlerAction: [:ex | ex resume: true]
handlerActive: true
Receiver's instance variables:
outerContext: SmalltalkEditor>>evaluateSelectionAndDo:
startpc: 110
numArgs: 0
SmalltalkEditor>>evaluateSelectionAndDo:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aBlock: [:result | result]
result: nil
rcvr: nil
ctxt: nil
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor>>evaluateSelection
Receiver: a SmalltalkEditor
Arguments and temporary variables:
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor>>doIt
Receiver: a SmalltalkEditor
Arguments and temporary variables:
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor>>doIt:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>performCmdActionsWith:shifted:return:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
aBoolean: false
return: [:val | ^ val]
asciiValue: 101
actions: #(#noop: #cursorHome: #noop: #noop: #cursorEnd: #noop:
#noop: #noop: #...etc...
action: #doIt:
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>dispatchCommandOn:return:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
return: [:val | ^ val]
asciiValue: 100
honorCommandKeys: true
char: nil
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>dispatchOn:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
char: nil
return: [:val | ^ val]
keyEvents: nil
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
[self dispatchOn: aKeyboardEvent] in SmalltalkEditor(TextEditor)>>keystroke:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>handleKeystrokeAction:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aBlock: [self dispatchOn: aKeyboardEvent]
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
anAction: [self dispatchOn: aKeyboardEvent]
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>keystroke:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(741605376)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
[editor keystroke: evt] in [| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
Receiver: a TextMorphForEditView(741605376)
Arguments and temporary variables:
evt: [keystroke '<Cmd-d>']
Receiver's instance variables:
bounds: (0@0) corner: (473@18)
owner: a TransformMorph(38535168)
submorphs: #()
fullBounds: (0@0) corner: (473@18)
color: Color black
extension: a MorphExtension (824180736) [other: (blinkStart ->
1085881) (myDep...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'VGTigerDemo runDemo'
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(838860800)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
TextMorphForEditView(TextMorph)>>handleInteraction:
Receiver: a TextMorphForEditView(741605376)
Arguments and temporary variables:
interactionBlock: [editor keystroke: evt]
oldEditor: a SmalltalkEditor
oldParagraph: a Paragraph
oldText: a Text for 'VGTigerDemo runDemo'
Receiver's instance variables:
bounds: (0@0) corner: (473@18)
owner: a TransformMorph(38535168)
submorphs: #()
fullBounds: (0@0) corner: (473@18)
color: Color black
extension: a MorphExtension (824180736) [other: (blinkStart ->
1085881) (myDep...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'VGTigerDemo runDemo'
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(838860800)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
--- The full stack ---
NBFFICallout(Object)>>error:
[:gen |
fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module:
aModuleNameOrHandle.
fnAddress
ifNil: [self error: 'function unavailable'].
self mayCallback
ifTrue: [asm push: fnAddress asUImm32;
mov: NativeBoost callgateFunctionAddress asUImm32 to:
EAX;
call: EAX]
ifFalse: [asm mov: fnAddress asUImm32 to: EAX;
call: EAX]] in NBFFICallout>>generateCall:module:
BlockClosure>>valueWithPossibleArgs:
[aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]] in [:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self pushArguments.
coercionMayFail
ifTrue: [proxy ifFailedJumpTo: self failedLabel].
asm
decorateWith: 'FFI: performing a call'
while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]]] in
NBFFICallout>>generateInstructions:
BlockClosure>>ensure:
AJx86Assembler>>decorateWith:while:
[:call |
self optNoAlignment
ifTrue: [call alignment: 1].
self pushArguments.
coercionMayFail
ifTrue: [proxy ifFailedJumpTo: self failedLabel].
asm
decorateWith: 'FFI: performing a call'
while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}.
(self optEmitCall
or: [self optNoCleanup])
ifTrue: [call disableCleanup]]] in
NBFFICallout>>generateInstructions:
AJx86Assembler>>performingCall:in:
NBFFICallout>>foreignCall:
NBFFICallout>>generateInstructions:
NBFFICallout>>generate:
NBFFICallout>>generateCall:module:
[:gen | gen sender: sender;
callType: self nbCallingConvention;
generateCall: fnSpec module: self nbLibraryNameOrHandle] in
AthensCairoSurface class(Object)>>nbCall:
NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry:
NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode:
AthensCairoSurface class(Object)>>nbCall:
AthensCairoSurface class>>primImage:width:height:
AthensCairoSurface class>>extent:format:
AthensCairoSurface class>>extent:
VGTigerDemo>>initialize
VGTigerDemo class(Behavior)>>new
VGTigerDemo class>>runDemo
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
[rcvr class evaluatorClass new
evaluate: self selectionForDoitAsStream
in: ctxt
to: rcvr
notifying: self morph
ifFail: [self morph flash.
^ nil]
logged: true] in SmalltalkEditor>>evaluateSelectionAndDo:
BlockClosure>>on:do:
SmalltalkEditor>>evaluateSelectionAndDo:
SmalltalkEditor>>evaluateSelection
SmalltalkEditor>>doIt
SmalltalkEditor>>doIt:
SmalltalkEditor(TextEditor)>>performCmdActionsWith:shifted:return:
SmalltalkEditor(TextEditor)>>dispatchCommandOn:return:
SmalltalkEditor(TextEditor)>>dispatchOn:
[self dispatchOn: aKeyboardEvent] in SmalltalkEditor(TextEditor)>>keystroke:
SmalltalkEditor(TextEditor)>>handleKeystrokeAction:
SmalltalkEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent:
SmalltalkEditor(TextEditor)>>keystroke:
[editor keystroke: evt] in [| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView(TextMorph)>>handleInteraction:
- - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
TextMorphForEditView>>handleInteraction:
[| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
ECToolSet class>>codeCompletionAround:textMorph:keyStroke:
ToolRegistry>>codeCompletionAround:textMorph:keyStroke:
SmalltalkEditor>>codeCompletionAround:textMorph:keyStroke:
TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView>>keyStroke:
TextMorphForEditView(TextMorph)>>handleKeystroke:
KeyboardEvent>>sentTo:
TextMorphForEditView(Morph)>>handleEvent:
TextMorphForEditView(Morph)>>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>>sendKeyboardEvent:
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
--
Serge Stinckwich
UMI UMMISCO 209 (IRD/UPMC), Hanoi, Vietnam
Every DSL ends up being Smalltalk
http://doesnotunderstand.org/
4674
days inactive
4674
days old
2 comments
3 participants
participants (3)
-
Igor Stasenko -
Serge Stinckwich -
Tudor Girba