Object subclass:#SystemOrganizer
	instanceVariableNames:'categoryArray categories nameSpace'
	classVariableNames:''
	poolDictionaries:''
	category:'Kernel-Support'
!


!SystemOrganizer class methodsFor:'instance creation'!

for:aNameSpace
    "create & return a new instance of myself, to organize aNameSpace"

    ^ self new nameSpace:aNameSpace

    "Created: / 20.6.1998 / 12:33:52 / cg"
! !

!SystemOrganizer methodsFor:'accessing'!

categories
    "return a collection of my classes class-categories.
     If my nameSpace is nil, all classes' categories are included;
     otherwise, only the categories of that particular namespace."

    |set categorySet searchedNamespace allNames|

    categoryArray isNil ifTrue:[
        categorySet := Set new.

        (searchedNamespace := nameSpace) isNil ifTrue:[
            allNames := true.
            searchedNamespace := Smalltalk.
        ].

        searchedNamespace allBehaviorsDo:[:aClass |
            |cat|

            aClass isMeta ifFalse:[
                (aClass isNamespace not 
                or:[aClass == Namespace 
                or:[aClass == Smalltalk]]) ifTrue:[
                    (allNames or:[aClass nameSpace == nameSpace]) ifTrue:[
                        cat := aClass category.
                        cat isNil ifTrue:[
                            cat := '* no category *'
                        ].
                        cat ~= 'obsolete' ifTrue:[
                            categorySet add:cat
                        ]
                    ]
                ]
            ]
        ].
        categoryArray := categorySet asArray sort.
    ].
    ^ categoryArray

    "
     (SystemOrganizer for:nil) categories 
     (SystemOrganizer for:Smalltalk) categories 
     (SystemOrganizer for:Demos) categories 
    "

    "Modified: / 20.6.1998 / 12:40:42 / cg"
! !

!SystemOrganizer methodsFor:'private access'!

nameSpace:aNameSpace
    "set the nameSpace - nil is allowed and stands for: any"

    nameSpace := aNameSpace.
    Smalltalk addDependent:self.

    "
     (SystemOrganizer for:nil) organization
     (SystemOrganizer for:Demos) organization
    "

    "Modified: / 20.6.1998 / 12:35:34 / cg"
! !

!SystemOrganizer class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.1 1998-06-20 11:22:25 cg Exp $'
! !