"

 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' }"

JavaCodeLibraryOrBundle subclass:#JavaCodeBundle

	instanceVariableNames:'libraries'

	classVariableNames:'Root'

	poolDictionaries:''

	category:'Languages-Java-Support-Libraries'

!

!JavaCodeBundle 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

"

!

documentation

"

    A container for several JavaCodeLibraries bundled together.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!JavaCodeBundle class methodsFor:'instance creation'!

new

    "return an initialized instance"

    ^ self basicNew initialize.

!

standardPackageBundleFor: packageId

    "Return bundle for packageId. Assumes that that

     package has standard layout, i.e.,

     <package-dir>/java

        bin ..................... compiler .class files

        src ..................... java sources

        libs .................... required .jar files

        libs-src ................ (optional) sources code for .jars

    "

    | bundle lib pkg javadir p libs libssrc |

    pkg := ProjectDefinition definitionClassForPackage: packageId.

    pkg isNil ifTrue:[ ^ nil ].

    javadir := pkg packageDirectory / 'java'.

    (javadir isDirectory not or:[javadir isReadable not]) ifTrue:[ ^ nil ].

    bundle := JavaCodeBundle new name: pkg package.

    (p := javadir / 'bin') isDirectory ifTrue:[

        lib := JavaCodeLibrary new name: 'java'.

        lib classes: p pathName.

        (p := javadir /'src') isDirectory ifTrue:[

            lib sources: p pathName

        ].

        bundle add: lib.

    ].

    libs := javadir / 'libs'.

    libssrc := javadir / 'libs-src'.

    libs isDirectory ifTrue:[

        libs directoryContentsAsFilenamesDo:[:each|

            each suffix = 'jar' ifTrue:[

                lib := JavaCodeLibrary new name: each baseName.

                lib classes: each pathName.

                (p :=  libssrc / (each withoutSuffix baseName , '-sources.jar') ) exists ifTrue:[

                    lib sources: p pathName.

                ] ifFalse:[

                    (p :=  libssrc / (each withoutSuffix baseName , '-sources.zip') ) exists ifTrue:[

                        lib sources: p pathName.            

                    ].

                ].

                bundle add: lib.

            ].

        ].

    ].

    ^bundle

    "

        JavaCodeBundle standardPackageBundleFor: #'stx:libjava'

        JavaCodeBundle standardPackageBundleFor: #'stx:libjava/libs'

    "

    "Created: / 15-01-2013 / 17:05:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundle class methodsFor:'others'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !

!JavaCodeBundle methodsFor:'accessing'!

/ name

    ^libraries detect:[:e|e name = name] ifNone:[self error:'No such library or sub-bundle'].

    "Created: / 12-02-2013 / 15:07:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

libraries

    ^ libraries

    "Modified: / 15-01-2013 / 17:32:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundle methodsFor:'adding & removing'!

add: libraryOrBundle

    libraries add: libraryOrBundle.

    self changed: #libraries.

    "Created: / 12-01-2013 / 16:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 22-02-2013 / 15:18:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

remove: libraryOrBundle

    libraries remove: libraryOrBundle.

    self changed: #libraries.

    "Created: / 12-01-2013 / 16:08:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 22-02-2013 / 15:38:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundle methodsFor:'enumerating'!

allLibrariesDo:aBlock 

    "Enumerate all libraries in the bundle and evaluate

     aBlock on each of them"

    self libraries do:[:each | 

        each allLibrariesDo:aBlock

    ]

    "Modified: / 07-03-2013 / 12:05:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundle methodsFor:'generating'!

classPathOn:aStream

    "superclass JavaCodeLibraryOrBundle says that I am responsible to implement this method"

    ^ self libraries do:[:each|each classPathOn: aStream].

    "Modified: / 15-01-2013 / 17:32:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

sourcePathOn:aStream

    "superclass JavaCodeLibraryOrBundle says that I am responsible to implement this method"

    ^ self libraries do:[:each|each sourcePathOn: aStream].

    "Created: / 12-01-2013 / 16:24:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 15-01-2013 / 17:32:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundle methodsFor:'initialization'!

initialize

    "Invoked when a new instance is created."

    "/ please change as required (and remove this comment)

    libraries := OrderedCollection new.

    "/ super initialize.   -- commented since inherited method does nothing

    "Modified: / 12-01-2013 / 16:07:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundle methodsFor:'testing'!

isBundle

    ^true

    "Created: / 25-01-2013 / 21:44:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundle class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libjava/JavaCodeBundle.st,v 1.3 2013-03-07 15:32:16 +0000 vrany Exp $'

!

version_CVS

    ^ '$Header: /cvs/stx/stx/libjava/JavaCodeBundle.st,v 1.3 2013-03-07 15:32:16 vrany Exp $'

! !