"{ Package: 'stx:libjava/tools' }"!

!ConfigurableFeatures class methodsFor:'queries-features'!

hasGroovySupport

    "Actually, same as hasJavaToolingSupport, byt maybe

     we'll separate later"

    ^self hasJavaToolingSupport

    "

     ConfigurableFeatures hasGroovySupport

     ConfigurableFeatures includesFeature:#GroovySupport

    "

    "Created: / 18-02-2012 / 16:57:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ConfigurableFeatures class methodsFor:'queries-features'!

hasJavaToolingSupport

    "/ use Smalltalk-at to trick the dependency/prerequisite generator

    ^self hasJavaSupport

	and:[(Smalltalk at:#'stx_libjava_tools') notNil]

    "

     ConfigurableFeatures hasJavaToolingSupport

     ConfigurableFeatures includesFeature:#JavaToolingSupport

    "

    "Created: / 18-02-2012 / 16:44:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeLibrary methodsFor:'validating'!

validate

    "Validate this Java library and raise validation warning for each

     problem. A caller may give up upon first problem of proceed to collect

     all warnings."

    classes isNil ifTrue:[ 

        JavaCodeLibraryValidationError classesNotSpecified newException

            messageText: 'No classes specified';

            parameter: self;

            raiseRequest

    ] ifFalse:[ 

        | classesFile |

        classesFile := classes asFilename.

        classesFile exists ifTrue:[ 

            (classesFile isRegularFile and:[(ZipArchive isZipArchive: classes) not]) ifTrue:[

                JavaCodeLibraryValidationWarning classesArchiveInvalid newException

                    messageText: 'Classes archive is not a valid .jar / .zip archive: ', classes;

                    parameter: self;

                    raiseRequest

            ]

        ] ifFalse:[ 

            JavaCodeLibraryValidationWarning classesDontExist newException

                messageText: ('Classes doesn''t exist: ' , classes);

                parameter: self;

                raiseRequest

        ].

    ].

    sources notNil ifTrue:[

        | sourcesFile |

        sourcesFile := sources asFilename.

        sourcesFile exists ifTrue:[ 

            (sourcesFile isRegularFile and:[(ZipArchive isZipArchive: sources) not]) ifTrue:[

                JavaCodeLibraryValidationWarning sourcesArchiveInvalid newException

                    messageText: 'Sources archive is not a valid .jar / .zip archive: ' , sources;

                    parameter: self;

                    raiseRequest

            ]

        ] ifFalse:[ 

            JavaCodeLibraryValidationWarning sourcesDontExist newException

                messageText: ('Sources dont exist: ' , sources);

                parameter: self;

                raiseRequest

        ].

    ].         

    javadoc notNil ifTrue:[

        | javadocFile |

        javadocFile := javadoc asFilename.

        javadocFile exists ifTrue:[ 

            (javadocFile isRegularFile and:[(ZipArchive isZipArchive: sources) not]) ifTrue:[

                JavaCodeLibraryValidationWarning sourcesArchiveInvalid newException

                    messageText: 'JavaDoc archive is not a valid .zip archive: ' , javadoc;

                    parameter: self;

                    raiseRequest

            ]

        ] ifFalse:[ 

            JavaCodeLibraryValidationWarning sourcesDontExist newException

                messageText: ('JavaDoc doesnt exist: ' , javadoc);

                parameter: self;

                raiseRequest

        ].

    ].

    "Created: / 19-03-2015 / 11:58:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 19-03-2015 / 14:53:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaObject methodsFor:'inspecting'!

inspectorClass

    "Return an inspector class for the receiver.

     Bit ugly, but reasonably fast :-)"

    | cls nm ifaces |

    nm := (cls := self class) binaryName.

    (nm == #'java/util/ArrayList') ifTrue:[

        ^JavaListInspectorView

    ].

    (nm == #'java/util/LinkedList') ifTrue:[

        ^JavaListInspectorView

    ].

    (nm == #'java/util/HashMap') ifTrue:[

        ^JavaMapInspectorView

    ].

    (nm == #'java/util/TreeMap') ifTrue:[

        ^JavaMapInspectorView

    ].

    (nm == #'java/util/HashSet') ifTrue:[

        ^JavaSetInspectorView

    ].

    ifaces := self class allInterfaces.

    ifaces do:[:i|

        i name == #'java/util/List' ifTrue:[

            ^JavaListInspectorView

        ].

        i name == #'java/util/Map' ifTrue:[

            ^JavaMapInspectorView

        ].

        i name == #'java/util/Set' ifTrue:[

            ^JavaSetInspectorView

        ].

    ].

    ^super inspectorClass

    "Created: / 04-12-2011 / 16:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 08-10-2013 / 22:47:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Tools::NewSystemBrowser methodsFor:'menu actions-class'!

classMenuNewGroovyClass

    | currentClass superClass code category |

    currentClass := self theSingleSelectedClass.

    currentClass notNil ifTrue:[

	superClass := currentClass theNonMetaclass superclass.

	superClass notNil ifTrue:[

	    superClass isJavaClass ifFalse:[

		superClass := Java classForName:'java.lang.Object'.

	    ]

	]

    ] ifFalse:[

	superClass := Java classForName:'java.lang.Object'.

    ].

    category := self hasCategorySelected

		    ifTrue:[self selectedCategoriesValue first]

		    ifFalse:[Compiler defaultMethodCategory]. "/ '* As yet uncategorized *'

    code := GroovyLanguage instance

		    classTemplateFor: superClass

		    in: category

		    asNamespace: false

		    private: false.

    self showCode: code.

    self setAcceptAction: [:theCode | self doAcceptGroovyClassDefinition: theCode asString ].

    self codeAspect:#newClassDefinition.

    "Created: / 18-02-2012 / 17:16:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!stx_libjava_tools class methodsFor:'documentation'!

extensionsVersion_HG

    ^ '$Changeset: <not expanded> $'

! !