instanceVariableNames:'requestor source'

evaluate: sourceObj in: context receiver: receiver notifying: requestorObj logged: logged ifFail: fail 

    | binding result wsForWorkspace |

    requestor := requestorObj.

    source := sourceObj.

    wsForWorkspace := requestor notNil and: [ requestor application isKindOf: WorkspaceApplication ].

    binding := (Java classForName: 'groovy.lang.Binding') new.

    wsForWorkspace ifTrue: [

    result := self evaluate: source withBinding: binding.

    ^ result class javaUnwrap: result.

evaluate: source withBinding: binding

    "Given a binding, evaluates given a code"

    | shell result |

    [

        shell := (Java classForName: 'groovy.lang.GroovyShell') newCleared.

        shell perform: #'<init>(Lgroovy/lang/Binding;)V' with: binding.

        result := shell 

                    perform: #'evaluate(Ljava/lang/String;Ljava/lang/String;)Ljava/lang/Object;'

                    with: (Java as_String: source string)

                    with: (Java as_String: 'doIt')

    ] on: JAVA org codehaus groovy control CompilationFailedException do:[:ex|

        self syntaxError: ex.    

    ].

    ^ result class javaUnwrap: result.

    "Created: / 21-08-2012 / 14:08:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

!GroovyEvaluator methodsFor:'error reporting'!

syntaxError: exception

    | error cause |

    error := exception getErrorCollector getError: 0.

    cause := error getCause.

    self syntaxError: exception cause: cause.

    "Created: / 21-08-2012 / 14:17:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

syntaxError:message atLine: line from: startCol to:endCol

    "Notify requestor of an error - if there is no requestor

     put it on the transcript. Requestor is typically the CodeView

     in which the accept/doIt was triggered, or the PositionableStream

     which does the fileIn. The requestor may decide how to highlight the

     error (and/or to abort the compile).

     Return the result passed back by the requestor."

    (Smalltalk isInitialized not and:[Smalltalk isStandAloneDebug]) ifTrue:[

        "/ error during startup, but sometimes we expect an error and want to supress it

        Parser parseWarningSignal query ~~ #ignore ifTrue:[

            thisContext fullPrintAll.

        ].

    "/ backward compatibility - will vanish eventually (use a handler, Luke)

    (requestor notNil and:[requestor isTextView]) ifTrue:[

        | sourceStream lineStart |

        sourceStream := source string readStream.

        line - 1 timesRepeat:[ sourceStream nextLine ].

        lineStart := sourceStream position - 1.

        requestor error:message position: lineStart + startCol to: lineStart + endCol from: self.

        ^ self

    ].

    Parser::ParseError isHandled ifTrue:[

        Parser::ParseError new

            errorMessage:message startPosition:startCol endPosition:endCol;

            parameter:self;

            lineNumber:line;

            raiseRequest.

    ].

    "Created: / 21-08-2012 / 16:57:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

syntaxError:message cause: cause

    "Notify requestor of an error - if there is no requestor

     put it on the transcript. Requestor is typically the CodeView

     in which the accept/doIt was triggered, or the PositionableStream

     which does the fileIn. The requestor may decide how to highlight the

     error (and/or to abort the compile).

     Return the result passed back by the requestor."

    | sourceStream startCol endCol |

    (Smalltalk isInitialized not and:[Smalltalk isStandAloneDebug]) ifTrue:[

        "/ error during startup, but sometimes we expect an error and want to supress it

        Parser parseWarningSignal query ~~ #ignore ifTrue:[

            thisContext fullPrintAll.

        ].

    ].

    "/ backward compatibility - will vanish eventually (use a handler, Luke)

    sourceStream := source string readStream.

    cause getLine - 1 timesRepeat:[ sourceStream nextLine ].

    startCol := sourceStream position - 1 + cause getStartColumn.

    endCol := sourceStream position - 1 + cause getEndColumn.

    (requestor notNil and:[requestor isTextView]) ifTrue:[

        requestor error: cause getOriginalMessage position: startCol to: endCol from: self.

        ^ self

    ].

    Parser::ParseError isHandled ifTrue:[

        Parser::ParseError new

            errorMessage: cause getOriginalMessage startPosition:startCol endPosition:endCol;

            parameter:self;

            lineNumber:cause getLine;

            raiseRequest.

    ].

    "Created: / 21-08-2012 / 17:10:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"