"

 COPYRIGHT (c) 1996-2011 by Claus Gittinger

 New code and modifications done at SWING Research Group [1]:

 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko

                            SWING Research Group, Czech Technical University in Prague

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

 [1] Code written at SWING Research Group contains a signature

     of one of the above copright owners. For exact set of such code,

     see the differences between this version and version stx:libjava

     as of 1.9.2010

"

"{ Package: 'stx:libjava' }"

Object subclass:#GroovyCompiler

	instanceVariableNames:'requestor'

	classVariableNames:'GroovyClassLoader'

	poolDictionaries:''

	category:'Languages-Groovy-Compiler'

!

!GroovyCompiler class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1996-2011 by Claus Gittinger

 New code and modifications done at SWING Research Group [1]:

 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko

                            SWING Research Group, Czech Technical University in Prague

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

 [1] Code written at SWING Research Group contains a signature

     of one of the above copright owners. For exact set of such code,

     see the differences between this version and version stx:libjava

     as of 1.9.2010

"

! !

!GroovyCompiler class methodsFor:'initialization'!

flushGroovyClassLoader

    GroovyClassLoader := nil

    "Created: / 18-02-2012 / 22:25:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GroovyCompiler class methodsFor:'instance creation'!

new

    "return an initialized instance"

    ^ self basicNew initialize.

! !

!GroovyCompiler class methodsFor:'compiler interface'!

compile: source forClass: class inCategory: category notifying: requestor install: doInstall

    "We allways compile whole class"

    ^self new

        requestor: requestor;

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

! !

!GroovyCompiler methodsFor:'accessing'!

requestor

    ^ requestor

!

requestor:something

    requestor := something.

! !

!GroovyCompiler methodsFor:'compiler interface'!

    "Compiles a new Groovy class given the source code"

    | jclass class |    

    [

        jclass := GroovyClassLoader 

                    perform: #'parseClass(Ljava/lang/String;)Ljava/lang/Class;'

                       with: (Java as_String: source).

    ] on: JavaError do:[:jex|

        self handleException: jex.

    ].

    jclass isNil ifTrue:[ ^ nil ].

    class := JavaVM classForJavaClassObject: jclass.

    class setSource: source.

    ^class.

! !

!GroovyCompiler methodsFor:'error reporting'!

error: message line: line from: start to: end

    "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."

    |err|

    Smalltalk isInitialized ifFalse:[

        Smalltalk isStandAloneDebug ifTrue:[

            "/ error during startup

            thisContext fullPrintAll.

        ]

    ].

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

    requestor notNil ifTrue:[

        requestor error:message position:start to:end from:self.

        ^ self

    ].

    Parser::ParseError isHandled ifTrue:[

        err := Parser::ParseError new.

        err errorMessage: message startPosition: start endPosition: end.

        err parameter:self.

        err lineNumber:line.

        err raiseRequest.

        ^ self

    ].

    "Created: / 27-02-2012 / 21:10:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

handleException: javaError

    | errors cause |

             "Arggghhh...that's Javas' clean OO design, sigh."

    errors := javaError parameter getErrorCollector getErrors.

    cause := errors getFirst getCause.

    self 

        error:  javaError parameter getMessage

         line: cause getLine

         from: cause getStartColumn

           to: cause getEndColumn.

    "Created: / 27-02-2012 / 21:09:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GroovyCompiler methodsFor:'initialization'!

initialize

    self initializeGroovyClassLoader

    "Modified: / 18-02-2012 / 19:18:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

initializeGroovyClassLoader

    | groovy_lang_GroovyClassLoader |

    GroovyClassLoader notNil ifTrue:[ ^ self ].

    JavaVM booted ifFalse:[ JavaVM boot ].

    groovy_lang_GroovyClassLoader := Java classForName:'stx.libjava.groovy.GroovyClassLoader'.

    GroovyClassLoader := groovy_lang_GroovyClassLoader newCleared.

    GroovyClassLoader

            perform: #'<init>(Ljava/lang/ClassLoader;)V'

               with: JavaVM systemClassLoader.

    "

        GroovyClassLoader 

        GroovyCompiler basicNew initializeGroovyClassLoader.

        GroovyClassLoader := nil.

    "

    "Created: / 18-02-2012 / 19:14:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GroovyCompiler class methodsFor:'documentation'!

version_SVN

    ^ '$Id$'

! !