|
|
Hi,
I’m playing with compiler with scripts. For instance:
result := OpalCompiler new
source: ‘3 + 1';
evaluate.
result2 := OpalCompiler new
source: 'self + 1';
receiver: 3;
evaluate.
I would eventually (as an exercice) try to log the time before and after the execution of the script.
Its possible to send #logged: true; to the compiler which basically is able to log doIt through SystemPresenter.
logDoIt
self compilationContext logged ifFalse: [ ^self ].
Smalltalk globals
at: #SystemAnnouncer
ifPresent: [ :sysAnn |
sysAnn uniqueInstance evaluated: source contents context: context ].
Right now, it seems the logging mechanism is launched once the evaluation is done.
So my question is would it be possible to log start and ent time execution through the compiler.
OpalCompiler>>evaluate
"Compiles the sourceStream into a parse tree, then generates code into
a method. If aContext is not nil, the text can refer to temporaries in that
context (the Debugger uses this). If aRequestor is not nil, then it will receive
a notify:at: message before the attempt to evaluate is aborted. Finally, the
compiled method is invoked from here via withArgs:executeMethod:, hence
the system no longer creates Doit method litter on errors."
| value |
self noPattern: true.
self getSourceFromRequestorSelection.
self class: (context ifNil: [ receiver class ] ifNotNil: [ context method methodClass ]).
=> here a kind of sell startLog.
"code execution"
value := receiver withArgs: (context ifNil: [ #() ] ifNotNil: [ {context} ]) executeMethod: self compile.
"actual log call…. Only for doIt ?"
self logDoIt.
^ value
I wonder what would be the way of doing it ? Is it only for doIts ?
Start/endLog could be calling log options #(logDoIt, logWhatever, …) ? Maybe doing ScriptEvaluated to differ from ExpressionEvaluated would be the solution ?
I imagine this has impact on performance too...
My toy objective is to log statistic of scripts usage. Again this is just experiments, so happy to hear and learn from others. How would people do ?
Cheers,
Cédrick
|
Locked
