--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.hgignore	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,16 @@
+
+syntax: glob
+*Init.c   
+makefile
+*.so
+*.H
+*.o
+*.STH
+*.sc
+objbc
+objvc
+*.class
+java/libs/*.jar
+java/libs-src/*.jar
+*-Test.xml
+st.chg

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Make.proto	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,159 @@
+# $Header$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: stx_goodies_ring.
+#
+# Warning: once you modify this file, do not rerun
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
+#
+# The Makefile as generated by this Make.proto supports the following targets:
+#    make         - compile all st-files to a classLib
+#    make clean   - clean all temp files
+#    make clobber - clean all
+#
+# This file contains definitions for Unix based platforms.
+# It shares common definitions with the win32-make in Make.spec.
+
+#
+# position (of this package) in directory hierarchy:
+# (must point to ST/X top directory, for tools and includes)
+TOP=../..
+INCLUDE_TOP=$(TOP)/..
+
+# subdirectories where targets are to be made:
+SUBDIRS=
+
+
+# subdirectories where Makefiles are to be made:
+# (only define if different from SUBDIRS)
+# ALLSUBDIRS=
+
+REQUIRED_SUPPORT_DIRS=
+
+# if your embedded C code requires any system includes,
+# add the path(es) here:,
+# ********** OPTIONAL: MODIFY the next lines ***
+# LOCALINCLUDES=-Ifoo -Ibar
+LOCALINCLUDES= -I$(INCLUDE_TOP)/jv/tea/compiler -I$(INCLUDE_TOP)/stx/goodies/refactoryBrowser/helpers -I$(INCLUDE_TOP)/stx/libbasic -I$(INCLUDE_TOP)/stx/libcompat
+
+
+# if you need any additional defines for embedded C code,
+# add them here:,
+# ********** OPTIONAL: MODIFY the next lines ***
+# LOCALDEFINES=-Dfoo -Dbar -DDEBUG
+LOCALDEFINES=
+
+LIBNAME=libstx_goodies_ring
+STCLOCALOPT='-package=$(PACKAGE)' -I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) -headerDir=.  -varPrefix=$(LIBNAME)
+
+
+# ********** OPTIONAL: MODIFY the next line ***
+# additional C-libraries that should be pre-linked with the class-objects
+LD_OBJ_LIBS=
+LOCAL_SHARED_LIBS=
+
+
+# ********** OPTIONAL: MODIFY the next line ***
+# additional C targets or libraries should be added below
+LOCAL_EXTRA_TARGETS=
+
+OBJS= $(COMMON_OBJS) $(UNIX_OBJS)
+
+
+
+all:: preMake classLibRule postMake
+
+pre_objs::  
+
+
+
+
+
+
+# Enforce recompilation of package definition class if Mercurial working
+# copy state changes. Together with --guessVersion it ensures that package
+# definition class always contains correct binary revision string.
+ifneq (**NOHG**, $(shell hg root 2> /dev/null || echo -n '**NOHG**'))
+stx_goodies_ring.$(O): $(shell hg root)/.hg/dirstate
+endif
+
+
+
+
+# run default testsuite for this package
+test: $(TOP)/goodies/builder/reports
+	$(MAKE) -C $(TOP)/goodies/builder/reports -f Makefile.init
+	$(TOP)/goodies/builder/reports/report-runner.sh -D . -r Builder::TestReport -p $(PACKAGE)
+
+
+
+# add more install actions here
+install::
+
+# add more install actions for aux-files (resources) here
+installAux::
+
+# add more preMake actions here
+preMake::
+
+# add more postMake actions here
+postMake:: cleanjunk
+
+# build all mandatory prerequisite packages (containing superclasses) for this package
+prereq:
+	cd ../../libbasic && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../refactoryBrowser/helpers && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../refactoryBrowser/parser && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../../libbasic2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../../libview && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../../libview2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../sunit && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd $(TOP)/../jv/tea/compiler && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+
+
+
+# build all packages containing referenced classes for this package
+# they are not needed to compile the package (but later, to load it)
+references:
+
+
+cleanjunk::
+	-rm -f *.s *.s2
+
+clean::
+	-rm -f *.o *.H
+
+clobber:: clean
+	-rm -f *.so *.dll
+
+
+# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
+$(OUTDIR)RGDefinition.$(O) RGDefinition.$(H): RGDefinition.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)stx_goodies_ring.$(O) stx_goodies_ring.$(H): stx_goodies_ring.st $(INCLUDE_TOP)/stx/libbasic/LibraryDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/ProjectDefinition.$(H) $(STCHDR)
+$(OUTDIR)RGAbstractContainer.$(O) RGAbstractContainer.$(H): RGAbstractContainer.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGElementDefinition.$(O) RGElementDefinition.$(H): RGElementDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGGlobalDefinition.$(O) RGGlobalDefinition.$(H): RGGlobalDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGBehaviorDefinition.$(O) RGBehaviorDefinition.$(H): RGBehaviorDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGGlobalDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGCommentDefinition.$(O) RGCommentDefinition.$(H): RGCommentDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGElementDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGContainer.$(O) RGContainer.$(H): RGContainer.st $(INCLUDE_TOP)/stx/goodies/ring/RGAbstractContainer.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGGlobalVariableDefinition.$(O) RGGlobalVariableDefinition.$(H): RGGlobalVariableDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGGlobalDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGMethodDefinition.$(O) RGMethodDefinition.$(H): RGMethodDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGElementDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGOrganization.$(O) RGOrganization.$(H): RGOrganization.st $(INCLUDE_TOP)/stx/goodies/ring/RGAbstractContainer.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGVariableDefinition.$(O) RGVariableDefinition.$(H): RGVariableDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGElementDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGClassDescriptionDefinition.$(O) RGClassDescriptionDefinition.$(H): RGClassDescriptionDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGBehaviorDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGGlobalDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGClassInstanceVariableDefinition.$(O) RGClassInstanceVariableDefinition.$(H): RGClassInstanceVariableDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGElementDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGVariableDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGClassVariableDefinition.$(O) RGClassVariableDefinition.$(H): RGClassVariableDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGElementDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGVariableDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGInstanceVariableDefinition.$(O) RGInstanceVariableDefinition.$(H): RGInstanceVariableDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGElementDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGVariableDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGNamespace.$(O) RGNamespace.$(H): RGNamespace.st $(INCLUDE_TOP)/stx/goodies/ring/RGAbstractContainer.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGContainer.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGPackage.$(O) RGPackage.$(H): RGPackage.st $(INCLUDE_TOP)/stx/goodies/ring/RGAbstractContainer.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGContainer.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGPoolVariableDefinition.$(O) RGPoolVariableDefinition.$(H): RGPoolVariableDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGElementDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGVariableDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGSlice.$(O) RGSlice.$(H): RGSlice.st $(INCLUDE_TOP)/stx/goodies/ring/RGAbstractContainer.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGContainer.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGTraitDescriptionDefinition.$(O) RGTraitDescriptionDefinition.$(H): RGTraitDescriptionDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGBehaviorDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGGlobalDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGClassDefinition.$(O) RGClassDefinition.$(H): RGClassDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGBehaviorDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGClassDescriptionDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGGlobalDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGMetaclassDefinition.$(O) RGMetaclassDefinition.$(H): RGMetaclassDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGBehaviorDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGClassDescriptionDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGGlobalDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGMetatraitDefinition.$(O) RGMetatraitDefinition.$(H): RGMetatraitDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGBehaviorDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGGlobalDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGTraitDescriptionDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)RGTraitDefinition.$(O) RGTraitDefinition.$(H): RGTraitDefinition.st $(INCLUDE_TOP)/stx/goodies/ring/RGBehaviorDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGGlobalDefinition.$(H) $(INCLUDE_TOP)/stx/goodies/ring/RGTraitDescriptionDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)extensions.$(O): extensions.st $(INCLUDE_TOP)/jv/tea/compiler/TClass.$(H) $(INCLUDE_TOP)/stx/goodies/refactoryBrowser/helpers/RBAbstractClass.$(H) $(INCLUDE_TOP)/stx/goodies/refactoryBrowser/helpers/RBClass.$(H) $(INCLUDE_TOP)/stx/libbasic/Behavior.$(H) $(INCLUDE_TOP)/stx/libbasic/Class.$(H) $(INCLUDE_TOP)/stx/libbasic/ClassDescription.$(H) $(INCLUDE_TOP)/stx/libbasic/CompiledCode.$(H) $(INCLUDE_TOP)/stx/libbasic/ExecutableFunction.$(H) $(INCLUDE_TOP)/stx/libbasic/Method.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+
+# ENDMAKEDEPEND --- do not remove this line
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Make.spec	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,112 @@
+# $Header$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: stx_goodies_ring.
+#
+# Warning: once you modify this file, do not rerun
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
+#
+# This file contains specifications which are common to all platforms.
+#
+
+# Do NOT CHANGE THESE DEFINITIONS
+# (otherwise, ST/X will have a hard time to find out the packages location from its packageID,
+#  to find the source code of a class and to find the library for a package)
+MODULE=stx
+MODULE_DIR=goodies/ring
+PACKAGE=$(MODULE):$(MODULE_DIR)
+
+
+# Argument(s) to the stc compiler (stc --usage).
+#  -headerDir=. : create header files locally
+#                (if removed, they will be created as common
+#  -Pxxx       : defines the package
+#  -Zxxx       : a prefix for variables within the classLib
+#  -Dxxx       : defines passed to to CC for inline C-code
+#  -Ixxx       : include path passed to CC for inline C-code
+#  +optspace   : optimized for space
+#  +optspace2  : optimized more for space
+#  +optspace3  : optimized even more for space
+#  +optinline  : generate inline code for some ST constructs
+#  +inlineNew  : additionally inline new
+#  +inlineMath : additionally inline some floatPnt math stuff
+#
+# ********** OPTIONAL: MODIFY the next line(s) ***
+# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
+# STCLOCALOPTIMIZATIONS=+optspace3
+STCLOCALOPTIMIZATIONS=+optspace3
+
+
+# Argument(s) to the stc compiler (stc --usage).
+#  -warn            : no warnings
+#  -warnNonStandard : no warnings about ST/X extensions
+#  -warnEOLComments : no warnings about EOL comment extension
+#  -warnPrivacy     : no warnings about privateClass extension
+#  -warnUnused      : no warnings about unused variables
+#
+# ********** OPTIONAL: MODIFY the next line(s) ***
+# STCWARNINGS=-warn
+# STCWARNINGS=-warnNonStandard
+# STCWARNINGS=-warnEOLComments
+STCWARNINGS=-warnNonStandard
+
+COMMON_CLASSES= \
+	RGDefinition \
+	stx_goodies_ring \
+	RGAbstractContainer \
+	RGElementDefinition \
+	RGGlobalDefinition \
+	RGBehaviorDefinition \
+	RGCommentDefinition \
+	RGContainer \
+	RGGlobalVariableDefinition \
+	RGMethodDefinition \
+	RGOrganization \
+	RGVariableDefinition \
+	RGClassDescriptionDefinition \
+	RGClassInstanceVariableDefinition \
+	RGClassVariableDefinition \
+	RGInstanceVariableDefinition \
+	RGNamespace \
+	RGPackage \
+	RGPoolVariableDefinition \
+	RGSlice \
+	RGTraitDescriptionDefinition \
+	RGClassDefinition \
+	RGMetaclassDefinition \
+	RGMetatraitDefinition \
+	RGTraitDefinition \
+
+
+
+
+COMMON_OBJS= \
+    $(OUTDIR_SLASH)RGDefinition.$(O) \
+    $(OUTDIR_SLASH)stx_goodies_ring.$(O) \
+    $(OUTDIR_SLASH)RGAbstractContainer.$(O) \
+    $(OUTDIR_SLASH)RGElementDefinition.$(O) \
+    $(OUTDIR_SLASH)RGGlobalDefinition.$(O) \
+    $(OUTDIR_SLASH)RGBehaviorDefinition.$(O) \
+    $(OUTDIR_SLASH)RGCommentDefinition.$(O) \
+    $(OUTDIR_SLASH)RGContainer.$(O) \
+    $(OUTDIR_SLASH)RGGlobalVariableDefinition.$(O) \
+    $(OUTDIR_SLASH)RGMethodDefinition.$(O) \
+    $(OUTDIR_SLASH)RGOrganization.$(O) \
+    $(OUTDIR_SLASH)RGVariableDefinition.$(O) \
+    $(OUTDIR_SLASH)RGClassDescriptionDefinition.$(O) \
+    $(OUTDIR_SLASH)RGClassInstanceVariableDefinition.$(O) \
+    $(OUTDIR_SLASH)RGClassVariableDefinition.$(O) \
+    $(OUTDIR_SLASH)RGInstanceVariableDefinition.$(O) \
+    $(OUTDIR_SLASH)RGNamespace.$(O) \
+    $(OUTDIR_SLASH)RGPackage.$(O) \
+    $(OUTDIR_SLASH)RGPoolVariableDefinition.$(O) \
+    $(OUTDIR_SLASH)RGSlice.$(O) \
+    $(OUTDIR_SLASH)RGTraitDescriptionDefinition.$(O) \
+    $(OUTDIR_SLASH)RGClassDefinition.$(O) \
+    $(OUTDIR_SLASH)RGMetaclassDefinition.$(O) \
+    $(OUTDIR_SLASH)RGMetatraitDefinition.$(O) \
+    $(OUTDIR_SLASH)RGTraitDefinition.$(O) \
+    $(OUTDIR_SLASH)extensions.$(O) \
+
+
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Makefile.init	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,27 @@
+#
+# DO NOT EDIT
+#
+# make uses this file (Makefile) only, if there is no
+# file named "makefile" (lower-case m) in the same directory.
+# My only task is to generate the real makefile and call make again.
+# Thereafter, I am no longer used and needed.
+#
+# MACOSX caveat:
+#   as filenames are not case sensitive (in a default setup),
+#   we cannot use the above trick. Therefore, this file is now named
+#   "Makefile.init", and you have to execute "make -f Makefile.init" to
+#   get the initial makefile.  This is now also done by the toplevel CONFIG
+#   script.
+
+.PHONY: run
+
+run: makefile
+	$(MAKE) -f makefile
+
+#only needed for the definition of $(TOP)
+include Make.proto
+
+makefile: mf
+
+mf:
+	$(TOP)/rules/stmkmf

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGAbstractContainer.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,129 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGDefinition subclass:#RGAbstractContainer
+	instanceVariableNames:'elements'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Containers'
+!
+
+RGAbstractContainer comment:'This is the abstract class for container-based elements.
Elements are separated in groups by kind (e.g classes, methods, pools, etc.)
Subclasses have to define the kind of collection for a particular group of entities.
For a container the use of a dictionary or another collection (e.g. SortedCollection) to store group of elements is independent.

'
+!
+
+!RGAbstractContainer methodsFor:'accessing'!
+
+elements
+    "Retrieves the elements"
+    
+    ^elements
+! !
+
+!RGAbstractContainer methodsFor:'adding/removing'!
+
+addElement: anObject
+
+    anObject addInContainer: self
+!
+
+addElement: anObject in: aCollection
+
+    aCollection isDictionary
+        ifTrue: [ aCollection at: anObject fullName put: anObject ]
+        ifFalse:[ aCollection add: anObject ]
+!
+
+removeElement: anObject
+
+    anObject removeFromContainer: self
+!
+
+removeElement: anObject from: aCollection
+
+    aCollection isDictionary
+        ifTrue: [ aCollection removeKey: anObject fullName ifAbsent:[ ] ]
+        ifFalse:[ aCollection remove: anObject ifAbsent:[ ] ]
+! !
+
+!RGAbstractContainer methodsFor:'initialization'!
+
+initialize
+
+    super initialize.
+    elements:= IdentityDictionary new.
+! !
+
+!RGAbstractContainer methodsFor:'initialize-release'!
+
+flushElements
+
+    elements:= IdentityDictionary new
+! !
+
+!RGAbstractContainer methodsFor:'iterating elements'!
+
+elementsDo: aBlock
+    elements valuesDo: [ :collection | collection do: [ :each | aBlock value: each ] ]
+! !
+
+!RGAbstractContainer methodsFor:'lookup elements'!
+
+elementNamed: elementName
+    | aSymbol found |
+    
+    aSymbol:= elementName asSymbol.
+    elements do:[ :collection| 		
+        (found:= self elementNamed: aSymbol in: collection) notNil ifTrue:[ ^found ] ].
+    ^nil
+!
+
+elementNamed: elementName in: aCollection
+    | aSymbol |
+    
+    aSymbol:= elementName asSymbol.
+    ^aCollection isDictionary
+        ifTrue: [ aCollection at: aSymbol ifAbsent: [ nil ] ]
+        ifFalse:[ aCollection detect:[ :each| each fullName = aSymbol ] ifNone:[ nil ] ]
+! !
+
+!RGAbstractContainer methodsFor:'managing elements groups'!
+
+elementsCategorized: aSymbol
+    "Retrieves a group of elements.
+    If does not exist set an Set"
+    
+    ^elements at: aSymbol ifAbsentPut:[ Set ]
+!
+
+elementsCategorized: aSymbol with: aCollection
+    "Allows to define other groups of elements with a particular kind of collection"
+    
+    elements at: aSymbol put: aCollection
+!
+
+removeElementsCategorized: aSymbol
+    "Deletes a group of elements"
+    
+    elements removeKey: aSymbol ifAbsent:[ ]
+! !
+
+!RGAbstractContainer methodsFor:'testing'!
+
+includesElement: anRGDefinition
+
+    ^anRGDefinition isIncludedInContainer: self
+!
+
+includesElementNamed: elementName
+
+    ^ elements anySatisfy: [ :collection | self includesElementNamed: elementName asSymbol in: collection ]
+!
+
+includesElementNamed: elementName in: aCollection
+
+    ^aCollection isDictionary
+        ifTrue: [ aCollection includesKey:  elementName asSymbol ]
+        ifFalse:[ aCollection anySatisfy: [ :each| each name = elementName asSymbol ] ]
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGBehaviorDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,512 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGGlobalDefinition subclass:#RGBehaviorDefinition
+	instanceVariableNames:'superclass methods protocols'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGBehaviorDefinition comment:'An RGBehaviorDefinition is an abstract definition for class-alike entities (e.g. classes, traits)

Instance Variables
	methods:		<Collection>
	protocols:		<Collection>
	superclass:		<Object>'
+!
+
+!RGBehaviorDefinition class methodsFor:'class-annotations'!
+
+allSubclassesKey
+
+    ^#allSubclasses
+!
+
+allSuperclassesKey
+
+    ^#allSuperclasses
+!
+
+definitionSourceKey
+
+    ^#definitionSource
+!
+
+isPoolKey
+
+    ^#isPool
+!
+
+subclassesKey
+
+    ^#subclasses
+!
+
+superclassNameKey
+    
+    ^#superclassName
+!
+
+superclassesKey
+
+    ^#superclasses
+!
+
+traitCompositionSourceKey
+
+    ^#traitCompositionSource
+!
+
+usersKey
+
+    ^#users
+! !
+
+!RGBehaviorDefinition methodsFor:'accessing'!
+
+methods
+
+    ^methods
+!
+
+methods: aDictionary
+
+    methods:= aDictionary
+!
+
+package
+    
+    self subclassResponsibility
+!
+
+protocols
+    "retrieves the protocols of the class"
+
+    ^protocols
+!
+
+protocols: aCollection
+    "set the protocols of the class"
+
+    protocols:= aCollection
+!
+
+realClass
+    "Retrieves the current class existing in the runtime environment"
+
+    ^self rootEnvironment classNamed: self name 
+!
+
+superclass
+
+    ^superclass
+!
+
+superclass: aRGBehaviorDefinition
+    "The superclass is assigned.
+    If aRGBehaviorDefinition is not nil the receiver is added as a subclass and the superclass assignment also happens for theMetaClass"
+
+    superclass := aRGBehaviorDefinition.
+    superclass notNil
+        ifFalse: [ ^ self ].
+    self superclassName: aRGBehaviorDefinition name.
+    aRGBehaviorDefinition addSubclass: self.
+    self hasMetaclass
+        ifTrue: [ self theMetaClass superclass: aRGBehaviorDefinition theMetaClass ]
+!
+
+theMetaClass
+
+    self subclassResponsibility
+!
+
+theNonMetaClass
+
+    self subclassResponsibility
+!
+
+traitNames
+    "Assuming that traits in a composition can be identified by
+    testing for the first character being an uppercase character
+    (and thus not a special character such as {, # etc.)"
+    | tokens |
+    
+    tokens := self traitCompositionSource parseLiterals flattened.
+    ^tokens select: [:each | each first isUppercase].
+!
+
+traits
+    "Retrieves ring traits based on the names in the traitComposition and from the environment if it is a ring object"
+    
+    ^ self environment isRingObject 	
+        ifTrue: [ self traitNames collect:[ :each| self environment traitNamed: each ] ]
+        ifFalse:[ #() ]
+! !
+
+!RGBehaviorDefinition methodsFor:'accessing class hierarchy'!
+
+allSubclasses
+    "Retrieves all the subclasses of the receiver in the chan hiearchy - value is kept as an annotation"
+    "is a good idea storing this?"
+    
+    ^self annotationNamed: self class allSubclassesKey
+        ifAbsentPut:[ | collection index |
+            index := 1.
+            collection := OrderedCollection withAll: self subclasses.
+            [index <= collection size] whileTrue: 
+                [collection addAll: (collection at: index) subclasses.
+                index := index + 1].
+            collection ]
+!
+
+allSubclasses: aCollection
+    "Stores all the subclasses (direct and indirect) as an annotation"
+    
+    self annotationNamed: self class allSubclassesKey
+        ifAbsentPut:[ aCollection ]
+!
+
+allSuperclasses
+    "Answer an OrderedCollection of the receiver's and the receiver's  
+    ancestor's superclasses"
+    "Is implementation of Behavior more efficient?"
+    
+    ^self annotationNamed: self class allSuperclassesKey
+        ifAbsentPut:[ | supers sprClass |
+            supers := OrderedCollection new.
+            sprClass := self superclass.
+            [sprClass notNil] whileTrue: 
+                [supers add: sprClass.
+                sprClass := sprClass superclass].
+            supers ]
+!
+
+allSuperclasses: aCollection
+    "Stores all the superclasses (direct and indirect) as an annotation"
+    
+    self annotationNamed: self class allSuperclassesKey
+        ifAbsentPut:[ aCollection ]
+!
+
+allSuperclassesDo: aBlock
+    "Evaluate the argument, aBlock, for each of the receiver's superclasses."
+
+    self superclass isNil
+        ifTrue: [ ^ self ].
+    aBlock value: superclass.
+    superclass allSuperclassesDo: aBlock
+!
+
+methodDict
+    ^ methods
+!
+
+withAllSubclasses
+    "if allSubclasses is stored should not affect the collection"
+
+    ^self allSubclasses, {self}
+!
+
+withAllSuperclasses
+    "if allSuperclasses is stored should not affect the collection"
+
+    ^self allSuperclasses, {self}
+! !
+
+!RGBehaviorDefinition methodsFor:'accessing methods'!
+
+allSelectors
+    "Retrieves all the selectos of the receiver in the chain hierarchy"
+    | class selectors |
+    
+    class:= self.
+    selectors := Set new.
+    [class notNil] whileTrue: 
+            [selectors addAll: class selectors.
+            class := class superclass ].
+    ^selectors
+!
+
+compiledMethodNamed: selector
+    "Retrieves the compiled method from aRGMethodDefinition"
+    | method |
+
+    ^(method:= self methodNamed: selector) notNil
+    ifTrue: [ method compiledMethod ]
+    ifFalse:[ nil ]
+!
+
+extensionMethods
+
+    ^self methods select:[ :each | each isExtension ]
+!
+
+includesSelector: selector
+    "Looks if selector is a key in the methods dictionary"
+    
+    ^methods includesKey: selector asSymbol
+!
+
+methodNamed: selector
+    "Retrieves aRGMethodDefinition that matches the selector given as argument"
+    "RB defines methodFor:"
+
+    ^methods at: selector asSymbol ifAbsent:[ nil ]
+!
+
+methodsInProtocol: aString
+    "Retrieves the methods classified in protocol named aString"
+
+    ^methods select: [ :each | each protocol = aString ]
+!
+
+selectors
+    "Retrieves the method selectors"
+
+    ^methods keys
+! !
+
+!RGBehaviorDefinition methodsFor:'adding/removing methods'!
+
+addMethod: aRGMethodDefinition
+    "Adds aRGMethodDefinition in the methods dictionary.
+     Adds the protocol of such method too"
+
+    self addMethod: aRGMethodDefinition in: methods.
+    self addProtocol: aRGMethodDefinition protocol
+!
+
+addSelector: selectorName classified: protocolName sourced: source
+
+    self addMethod: ((RGMethodDefinition named: selectorName) 
+                            parent: self;
+                            protocol: protocolName;
+                            sourceCode: source;
+                            yourself)
+!
+
+removeMethod: aRGMethodDefinition
+    "Removes aRGMethodDefinition from the methods dictionary"
+
+    self removeMethod: aRGMethodDefinition from: methods
+!
+
+removeSelector: selector
+    "Removes a method named as selector"
+
+    methods removeKey: selector ifAbsent:[]
+! !
+
+!RGBehaviorDefinition methodsFor:'adding/removing protocols'!
+
+addProtocol: anObject
+    "Adds a protocol named anObject.
+    Protocols are not repeated"
+    
+    anObject ifNil:[ ^self ].
+    protocols add: anObject
+!
+
+removeProtocol: aString
+    "Removes a protocol named aString (if exists)"
+
+    protocols remove: aString ifAbsent:[]
+! !
+
+!RGBehaviorDefinition methodsFor:'annotations'!
+
+definitionSource
+    "Retrieves the definition template of the receiver -> aString.
+    This value is kept as an annotation"
+    
+    ^self annotationNamed: self class definitionSourceKey
+!
+
+definitionSource: aString
+    "Sets the definition template of the receiver -> aString.
+    It's stored as an annotation"
+    
+    self annotationNamed: self class definitionSourceKey
+        put: aString
+!
+
+hasDefinitionSource
+    "Tests whether the receiver has a source definition."
+    
+    ^ self definitionSource notNil
+!
+
+subclasses
+    "Retrieves the direct subclasses of the receiver.
+    This value is kept as an annotation"
+
+    ^self annotationNamed: self class subclassesKey
+        ifAbsentPut:[ OrderedCollection new ]
+!
+
+subclasses: aCollection
+    "Stores direct subclasses of the receiver as an annotation"
+
+    self annotationNamed: self class subclassesKey
+        ifAbsentPut:[ aCollection ]
+!
+
+superclassName
+    "Retrieves the name of the superclass if exists"
+
+    ^self annotationNamed: self class superclassNameKey
+!
+
+superclassName: aSymbol
+
+    self annotationNamed: self class superclassNameKey 
+        put: aSymbol
+!
+
+traitCompositionSource
+    "Retrieves aString representing the used traits"
+
+    ^self annotationNamed: self class traitCompositionSourceKey
+        ifAbsentPut:[  '{}'  ]
+!
+
+traitCompositionSource: anString
+    "Stores aString representing the traits used by the receiver "
+
+    self annotationNamed: self class traitCompositionSourceKey
+        put: anString 
+! !
+
+!RGBehaviorDefinition methodsFor:'compatibility'!
+
+soleInstance
+    "to be depracated in the future"
+    
+    ^self theNonMetaClass
+! !
+
+!RGBehaviorDefinition methodsFor:'initialization'!
+
+initialize
+
+    super initialize.
+    methods:= IdentityDictionary new.
+    protocols:= Set new.
+! !
+
+!RGBehaviorDefinition methodsFor:'managing container'!
+
+addInContainer: aRGContainer
+
+    aRGContainer addClass: self
+!
+
+isIncludedInContainer: aRGContainer
+
+    ^aRGContainer includesClass: self
+!
+
+removeFromContainer: aRGContainer
+
+    aRGContainer removeClass: self
+! !
+
+!RGBehaviorDefinition methodsFor:'printing'!
+
+printOn: aStream 
+    aStream nextPutAll: self name
+!
+
+storeOn: aStream 
+    self name storeOn: aStream
+! !
+
+!RGBehaviorDefinition methodsFor:'private'!
+
+addMethod: aRGMethodDefinition in: aCollection
+    "Adds aRGMethodDefinition in the collection received"
+
+    aRGMethodDefinition parent ifNil:[ aRGMethodDefinition parent: self ].
+    aCollection at: aRGMethodDefinition selector
+        put: aRGMethodDefinition
+!
+
+removeMethod: aRGMethodDefinition from: aCollection
+    "Removes aRGMethodDefinition from the collection received"
+
+    aCollection removeKey: aRGMethodDefinition selector ifAbsent:[]
+! !
+
+!RGBehaviorDefinition methodsFor:'subclassing'!
+
+addSubclass: aRGBehaviorDefinition
+    "Adds a direct subclass of the receiver"
+
+    (self subclasses includes: aRGBehaviorDefinition)
+        ifFalse:[ self subclasses add: aRGBehaviorDefinition ]
+!
+
+removeSubclass: aRGBehaviorDefinition 
+    "Removes aRGAbstractClassDefinition from the direct subclasses - without failing if does not exist"
+    
+    self subclasses remove: aRGBehaviorDefinition ifAbsent: []
+! !
+
+!RGBehaviorDefinition methodsFor:'testing'!
+
+hasMetaclass
+
+    ^ false
+!
+
+hasMethods
+    "validates the existance of methods"
+
+    ^methods notEmpty
+!
+
+hasProtocols
+    "Validates the existance of protocols"
+
+    ^protocols notEmpty
+!
+
+hasSuperclass
+
+    ^superclass notNil
+!
+
+hasTraitComposition
+
+    ^self traitCompositionSource ~= '{}'
+!
+
+includesProtocol: aString
+        "Looks for a protocols named = aString"
+    
+        ^protocols includes: aString
+!
+
+isDefined
+    "If the class exists in the environment"
+    
+    ^self realClass notNil
+    
+!
+
+isMeta
+    "By default is considered a non-meta class"
+
+    ^false
+!
+
+isSameRevisionAs: aRGBehaviorDefinition
+    "This method look for equality of the properties of the receiver"
+
+    ^self class = aRGBehaviorDefinition class
+        and:[ self name == aRGBehaviorDefinition name ]
+! !
+
+!RGBehaviorDefinition methodsFor:'testing class hierarchy'!
+
+includesBehavior: aClass
+    ^self == aClass or: [self inheritsFrom: aClass]
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGClassDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,320 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGClassDescriptionDefinition subclass:#RGClassDefinition
+	instanceVariableNames:'metaClass comment classVariables category package sharedPools'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGClassDefinition comment:'RGClassDefinition is the concrete representation of a class (no trait)'
+!
+
+!RGClassDefinition class methodsFor:'instance creation'!
+
+createSharedPoolNamed: aSymbol
+    "A shared pool is a class inheriting from #SharedPool"
+
+    ^(RGClassDefinition named: aSymbol)
+            superclassName: #SharedPool;
+            isPool: true;
+            yourself
+! !
+
+!RGClassDefinition methodsFor:'accessing'!
+
+category
+    "retrieves a tag for its package"
+    
+    ^category
+!
+
+category: aSymbol
+    "stores a tag for its package"
+
+    category := aSymbol
+!
+
+classVariables
+
+    ^classVariables
+!
+
+classVariables: aCollection
+
+    classVariables:= aCollection
+!
+
+comment
+    "Retrieves the comment definition object"
+
+    ^comment
+!
+
+comment: anObject
+    "Sets a RGCommentDefinition object based on the argument"
+    
+    comment := anObject isRingObject 
+        ifFalse: [ 
+            RGCommentDefinition new
+                parent: self;
+                content: anObject; 
+                yourself ]
+        ifTrue: [anObject ]
+    
+     
+!
+
+package
+    "Retrieves the package in which this class is contained, if exists"
+    
+    ^package
+!
+
+package: aRGPackage
+    "Sets the package in which this class is contained"
+    
+    package:= aRGPackage
+!
+
+sharedPools
+    "Keeps the pool variable relationship of the receiver"
+
+    ^ sharedPools
+!
+
+sharedPools: aCollection
+    sharedPools := aCollection
+!
+
+stamp
+
+    ^self hasComment ifTrue:[ self comment stamp ] ifFalse:[ nil ]
+!
+
+stamp: aString
+
+    self hasComment
+    ifTrue: [ self comment stamp: aString ]
+    ifFalse:[ RGCommentDefinition new
+                         parent: self; 
+                         stamp: aString ]
+!
+
+theMetaClass
+    
+    ^metaClass
+!
+
+theNonMetaClass
+
+    ^self
+! !
+
+!RGClassDefinition methodsFor:'behavior'!
+
+withMetaclass
+    "Registers explicitly the metaclass of a class"
+
+    metaClass:= RGMetaclassDefinition class: self
+!
+
+withMetaclass: aRGMetaclassDefinition
+    "Registers explicitly the metaclass of a class"
+
+    metaClass:= aRGMetaclassDefinition.
+    metaClass baseClass: self.  
+! !
+
+!RGClassDefinition methodsFor:'class variables'!
+
+addClassVarNamed: aString
+    | var |
+    var := (RGClassVariableDefinition named: aString) parent: self.
+    self addVariable: var in: classVariables.
+    ^var
+!
+
+addClassVariable: aRCClassVariable
+
+    self addVariable: (aRCClassVariable parent: self) 
+        in: classVariables
+!
+
+addClassVariables: aCollection
+    
+    aCollection do: [:var | self addClassVarNamed: var ]
+!
+
+allClassVarNames
+
+    ^self allClassVariables collect:[ :cvar| cvar name ]
+!
+
+allClassVariables
+    "Answer a collection of the receiver's classVariables, including those defined its superclasses"
+
+    ^self hasSuperclass 
+        ifFalse:[ classVariables ]
+        ifTrue:[ self superclass allClassVariables, classVariables ]
+!
+
+classVarNamed: aString
+
+    ^classVariables detect:[ :v| v name = aString asSymbol ] ifNone:[ nil ]
+!
+
+classVarNames
+    "Answer a collection of the names of the class variables defined in the receiver."
+    
+    ^classVariables collect:[ :cvar| cvar name ]
+!
+
+removeClassVarNamed: aString
+
+    self removeVariable: (self classVarNamed: aString) from: classVariables
+!
+
+removeClassVariable: aRGClassVariableDefinition
+
+    self removeVariable: aRGClassVariableDefinition from: classVariables
+! !
+
+!RGClassDefinition methodsFor:'initialization'!
+
+initialize
+
+    super initialize.
+    classVariables:= OrderedCollection new.
+    sharedPools:= OrderedCollection new.
+! !
+
+!RGClassDefinition methodsFor:'managing pool users'!
+
+addUser: aRGClassDefinition
+    "The receiver registers the aRGClassDefinition as an user.  An reinforces its status as a shared pool."
+    
+    aRGClassDefinition isClass ifFalse:[ ^self ].
+    (aRGClassDefinition theNonMetaClass sharedPoolNamed: self name) isNil
+        ifTrue: [ aRGClassDefinition theNonMetaClass addSharedPoolNamed: self name ].
+    self isPool: true.
+    self users add: aRGClassDefinition theNonMetaClass
+!
+
+includesUser: aRGBehaviorDefinition
+
+    ^self users includes: aRGBehaviorDefinition
+!
+
+isPool
+    "The receiver is a shared pool if it inherits from SharedPool"
+    
+    ^self annotationNamed: self class isPoolKey 
+        ifAbsent: [ self superclassName == #SharedPool ]
+!
+
+isPool: aBoolean
+    
+    ^self annotationNamed: self class isPoolKey put: aBoolean
+!
+
+removeUser: aRGClassDefinition
+    "Removes this RGClassDefinition from the users of the receiver"
+    
+    aRGClassDefinition isClass ifFalse:[ ^self ].
+    aRGClassDefinition theNonMetaClass removeSharedPoolNamed: self name.
+    self users remove: aRGClassDefinition theNonMetaClass ifAbsent:[ ]
+!
+
+users
+    "If the reciever is a SharedPool then retrieves its users"
+    
+    ^self isPool
+        ifTrue: [ self annotationNamed: self class usersKey ifAbsentPut: [ OrderedCollection new ] ]
+        ifFalse:[ #() ]
+! !
+
+!RGClassDefinition methodsFor:'shared pools'!
+
+addSharedPool: aRGPoolVariableDefinition
+    self 
+        addVariable: (aRGPoolVariableDefinition parent: self) 
+        in: sharedPools
+!
+
+addSharedPoolNamed: poolName
+    | pool |
+    pool:= (RGPoolVariableDefinition named:  poolName) parent: self.
+    self addVariable: pool in: sharedPools.
+    ^pool
+!
+
+addSharedPools: aCollection
+    aCollection do: [ :pool | self addSharedPoolNamed: pool ]
+!
+
+allSharedPoolNames
+    ^ self allSharedPools collect: [ :pool | pool name ]
+!
+
+allSharedPools
+    "Answer a collection of the pools the receiver shares, including those defined  
+    in the superclasses of the receiver."
+
+    ^ self hasSuperclass
+        ifFalse: [ sharedPools ]
+        ifTrue: [ self superclass allSharedPools , sharedPools ]
+!
+
+removeSharedPool: aRGPoolVariableDefinition
+
+    self removeVariable: aRGPoolVariableDefinition from: sharedPools
+!
+
+removeSharedPoolNamed: poolName
+
+    self removeVariable: (self sharedPoolNamed: poolName) from: sharedPools
+!
+
+sharedPoolNamed: poolName
+
+    ^sharedPools detect:[ :v| v name = poolName asSymbol ] ifNone:[ nil ]
+!
+
+sharedPoolNames
+    
+    ^sharedPools collect:[ :pool| pool name ]
+! !
+
+!RGClassDefinition methodsFor:'testing'!
+
+hasComment
+
+    ^comment isEmptyOrNil not
+!
+
+hasMetaclass
+
+    ^metaClass notNil
+!
+
+hasStamp
+
+    ^self stamp isEmptyOrNil not
+!
+
+isSameRevisionAs: aRGClassDefinition
+    "This method look for equality of the properties of the receiver"
+
+    ^(super isSameRevisionAs: aRGClassDefinition)
+        and:[ self superclassName == aRGClassDefinition superclassName
+        and:[ self category = aRGClassDefinition category 
+        and:[ self classVarNames sorted = aRGClassDefinition classVarNames sorted 
+        and:[ self sharedPoolNames sorted = aRGClassDefinition sharedPoolNames sorted  
+        and:[ self traitCompositionSource = aRGClassDefinition traitCompositionSource 
+        and:[ ((self hasComment and:[ self comment isSameRevisionAs: aRGClassDefinition comment ]) or:[ self hasComment not ])
+        and:[ (self theMetaClass isSameRevisionAs: aRGClassDefinition theMetaClass) ] ] ] ] ] ] ]
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGClassDescriptionDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,168 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGBehaviorDefinition subclass:#RGClassDescriptionDefinition
+	instanceVariableNames:'instanceVariables organization'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGClassDescriptionDefinition comment:'RGClassDescriptionDefinition is the common parent for classes and metaclasses defining instance variables'
+!
+
+!RGClassDescriptionDefinition methodsFor:'accessing'!
+
+instanceVariables
+
+    ^instanceVariables
+!
+
+instanceVariables: aCollection
+
+    instanceVariables:= aCollection
+!
+
+organization: aClassOrg
+    "Install an instance of ClassOrganizer that represents the organization of the messages of the receiver."
+
+    aClassOrg ifNotNil: [aClassOrg setSubject: self].
+    organization := aClassOrg
+! !
+
+!RGClassDescriptionDefinition methodsFor:'comparing'!
+
+= aRGClassDefinition
+
+    ^self class = aRGClassDefinition class 
+        and: [ self name = aRGClassDefinition name 
+            and: [ self environment = aRGClassDefinition environment ] ]
+!
+
+hash
+
+    ^self name hash bitXor: self class hash
+! !
+
+!RGClassDescriptionDefinition methodsFor:'initialization'!
+
+initialize
+
+    super initialize.
+    instanceVariables:= OrderedCollection new.
+! !
+
+!RGClassDescriptionDefinition methodsFor:'instance variables'!
+
+addInstVarNamed: aString
+    | var |
+    var := ((self isMeta 
+                ifTrue: [ RGClassInstanceVariableDefinition ]
+                ifFalse:[  RGInstanceVariableDefinition ])
+        named: aString) parent: self.
+    self addVariable: var in: instanceVariables.
+    ^var
+!
+
+addInstanceVariable: aRGVariableDefinition
+    "aRGVariableDefinition is a instance variable or class instance variable"
+
+    self addVariable: (aRGVariableDefinition parent: self)
+        in: instanceVariables
+!
+
+addInstanceVariables: aCollection
+    
+    aCollection do: [:var | self addInstVarNamed: var ]
+!
+
+allInstVarNames
+
+    ^self allInstanceVariables collect:[ :ivar| ivar name ]
+!
+
+allInstanceVariables
+    "Answer a collection of the receiver's instanceVariables, including those defined in its superclass"
+
+    ^self hasSuperclass 
+        ifFalse:[ instanceVariables ]
+        ifTrue:[ self superclass allInstanceVariables, instanceVariables ]
+!
+
+instVarNames
+    "Answer a collection of the names of the instance variables defined in the receiver."
+    
+    ^instanceVariables collect:[ :ivar| ivar name ]
+!
+
+instanceVariableNamed: aString
+    ^ instanceVariables 
+        detect: [ :v | v name = aString asSymbol ] 
+        ifNone: [ nil ]
+!
+
+removeInstVarNamed: aString
+
+    self removeVariable: (self instanceVariableNamed: aString) from: instanceVariables
+!
+
+removeInstanceVariable: aRGVariableDefinition
+    "aRGVariableDefinition is a instance variable or class instance variable"
+
+    self removeVariable: aRGVariableDefinition from: instanceVariables
+! !
+
+!RGClassDescriptionDefinition methodsFor:'organization'!
+
+organization
+    "Answer the instance of ClassOrganizer that represents the organization 
+    of the messages of the receiver."
+
+    organization ifNil: [
+        self organization: (ClassOrganization forClass: self) ].
+    "Making sure that subject is set correctly. It should not be necessary."
+    organization ifNotNil: [ organization setSubject: self ].
+    ^ organization
+! !
+
+!RGClassDescriptionDefinition methodsFor:'printing'!
+
+storeOn: aStream
+    aStream
+        nextPutAll: '(';
+        nextPutAll: self class name;
+        nextPutAll: ' named: '.
+    name storeOn: aStream.
+    aStream nextPut: $)
+! !
+
+!RGClassDescriptionDefinition methodsFor:'private'!
+
+addVariable: aRGVariableDefinition in: aCollection
+    "Adds a RGVariableDefinition in the collection received" 
+
+    aCollection add: aRGVariableDefinition
+!
+
+removeVariable: aRGVariableDefinition from: aCollection
+    "Removes a variable from a particular collection.
+    This behavior is the same for any kind of variable"
+    aCollection remove: aRGVariableDefinition ifAbsent:[]
+! !
+
+!RGClassDescriptionDefinition methodsFor:'testing'!
+
+isClass
+
+    ^true
+!
+
+isSameRevisionAs: aRGClassDescriptionDefinition
+    "This method look for equality of the properties of the receiver"
+    "Instances variables are compared at the level of names but without any sorting"
+
+    ^(super isSameRevisionAs: aRGClassDescriptionDefinition)
+        and:[ self instVarNames sort = aRGClassDescriptionDefinition instVarNames sort ]
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGClassInstanceVariableDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,29 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGVariableDefinition subclass:#RGClassInstanceVariableDefinition
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGClassInstanceVariableDefinition comment:'A class instance variable definition'
+!
+
+!RGClassInstanceVariableDefinition methodsFor:'initialization'!
+
+initialize 
+
+    super initialize.
+    self isMetaSide: true.
+! !
+
+!RGClassInstanceVariableDefinition methodsFor:'testing'!
+
+isClassInstanceVariable
+
+    ^true
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGClassVariableDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,21 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGVariableDefinition subclass:#RGClassVariableDefinition
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGClassVariableDefinition comment:'A class variable definition'
+!
+
+!RGClassVariableDefinition methodsFor:'testing'!
+
+isClassVariable
+
+    ^true
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGCommentDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,282 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGElementDefinition subclass:#RGCommentDefinition
+	instanceVariableNames:'content stamp'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGCommentDefinition comment:'RGCommentDefinition is a first-class representation of class''s comments'
+!
+
+!RGCommentDefinition class methodsFor:'instance creation'!
+
+realClass: aClass
+    "Creates a ring comment definition from a Smalltalk class"
+    ^(super realClass: aClass)
+        asActive;
+        yourself
+! !
+
+!RGCommentDefinition methodsFor:'accessing'!
+
+content
+
+    self isActive 
+        ifTrue: [ ^ self realClass organization classComment ].
+    self isHistorical
+        ifTrue: [ ^ self contentAtPointer ifNil:[ self realClass ifNil:[ content ] ifNotNil:[ :rc| rc organization classComment ] ] ].	
+    ^ content
+!
+
+content: anObject
+
+    content:= anObject
+!
+
+fullName
+    "Keeps a unique description for the receiver. As annotation to avoid converting each time is invoked"
+    
+    ^self annotationNamed: self class fullNameKey
+        ifAbsentPut:[ (self parentName, ' ', self name) asSymbol ]
+!
+
+name
+
+    ^name ifNil:[ name := #Comment ]
+!
+
+stamp
+    "Retrieves the user-alias + timestamp associated to the receiver (if exists)"
+    
+    self isActive 
+        ifTrue: [ ^ self realClass organization commentStamp ].
+    self isHistorical
+        ifTrue: [ ^ self stampAtPointer ifNil:[ self realClass ifNil:[ stamp ] ifNotNil:[ :rc| rc organization commentStamp ] ] ].	
+    ^ stamp
+!
+
+stamp: anObject
+
+    stamp:= anObject
+! !
+
+!RGCommentDefinition methodsFor:'backward compatibility'!
+
+sourceCode
+
+    ^ self content   
+! !
+
+!RGCommentDefinition methodsFor:'comparing'!
+
+<= aRGCommentDefinition
+    "Sort comment definition according to: 1) name of the class"
+    
+    ^(self parentName <= aRGCommentDefinition parentName)
+! !
+
+!RGCommentDefinition methodsFor:'printing'!
+
+printOn: aStream 
+
+    self parentName ifNotNil: [
+        aStream nextPutAll: self parentName;
+                  nextPutAll: ' ' ].
+    aStream nextPutAll: self name
+! !
+
+!RGCommentDefinition methodsFor:'source pointers'!
+
+commentDataPointers
+    "Retrieves the combination key to look for information of the receiver in the source file"
+    ^'commentStamp:' -> #commentStamp:
+!
+
+contentAtPointer
+    "A RGCommentDefinition may be created to point the sourceFile in which case it retrieves the class comment"
+
+    ^ self sourcePointer notNil
+        ifTrue: [ SourceFiles sourceCodeAt: self sourcePointer ]
+        ifFalse:[ '' ]
+!
+
+sourcePointer
+    "Retrieves the sourcePointer for this definition if exists"
+    
+    ^self annotationNamed:  self class sourcePointerKey   
+!
+
+sourcePointer: aNumber
+
+    self annotationNamed:  self class sourcePointerKey put: aNumber 
+!
+
+stampAtPointer
+    "A RGMethodDefinition may be created to point the sourceFile in which case it retrieves the stamp"
+
+    ^ self sourcePointer notNil
+        ifTrue: [ SourceFiles timeStampAt: self sourcePointer for: self commentDataPointers ]
+        ifFalse:[ nil ]	
+! !
+
+!RGCommentDefinition methodsFor:'stamp values'!
+
+author 
+
+    ^self annotationNamed: self class authorKey
+        ifAbsentPut:[ self class parseAuthorAliasFrom: stamp ]
+!
+
+author: aString 
+
+    self annotationNamed: self class authorKey
+            put: aString 
+!
+
+timeStamp 
+
+    ^ self annotationNamed: self class timeStampKey 
+        ifAbsentPut: [ self class 
+                            parseTimestampFrom: self stamp 
+                            default: (DateAndTime epoch) ]
+!
+
+timeStamp: aTimestamp 
+
+    self annotationNamed: self class timeStampKey
+            put: aTimestamp 
+! !
+
+!RGCommentDefinition methodsFor:'testing'!
+
+hasAuthor
+
+    ^self hasStamp and:[ self author isEmptyOrNil not ]
+!
+
+hasStamp
+
+    ^stamp isEmptyOrNil not
+
+    
+!
+
+isComment
+
+    ^true
+!
+
+isEmptyOrNil
+
+    ^content isEmptyOrNil 
+!
+
+isFromTrait
+    ^false
+!
+
+isSameRevisionAs: aRGCommentDefinition
+    "This method look for equality of the properties of the receiver"
+    "A comment validates only its contents and not its stamp"
+    
+    ^(super isSameRevisionAs: aRGCommentDefinition)
+        and:[ self content = aRGCommentDefinition content ]
+! !
+
+!RGCommentDefinition methodsFor:'to remove as soon as possible'!
+
+category
+    ^self realClass category
+!
+
+isValid
+    "for compatibility with method definition"
+
+    ^ true
+!
+
+methodClass
+    self flag: 'if comments are mixed with methods use #realClass instead'.
+    ^self realClass
+!
+
+selector
+    self flag: 'if comments are mixed with methods use #name instead'.
+    ^self name
+! !
+
+!RGCommentDefinition methodsFor:'type of comments'!
+
+asActive
+
+    "Sets the receiver as active object, which will allow itself to retrieve its data from the class organization"
+    self annotationNamed: self class statusKey put: #active.
+!
+
+asHistorical
+
+    "Sets the receiver as historical object, which will allow itself to retrieve its data using the sourcePointer"
+    | realClass |
+    self annotationNamed: self class statusKey put: #historical.
+    self sourcePointer ifNil:[
+        realClass := self realClass.
+        realClass notNil ifTrue: [ 
+            realClass organization commentRemoteString
+                ifNotNil: [:str | self sourcePointer: str sourcePointer ] ] ]
+!
+
+asPassive
+
+    "Sets the receiver as passive object, which will allow itself to retrieve its data that was assigned in its creation"
+    self annotationNamed: self class statusKey put: #passive
+!
+
+fromActiveToHistorical
+    "If the receiver was generated as an active comment, it can be converted to a historical one by reading the data of the real class (if exists)"
+    
+    self isActive ifTrue: [
+        self asHistorical ]
+!
+
+fromActiveToPassive
+    "If the receiver was generated as an active comment, it can be converted to a passive one by reading the data of the real class organization"
+
+    | realClass |
+    self isActive
+        ifFalse: [ ^ self ].
+    realClass := self realClass.
+    realClass notNil
+        ifTrue: [ 
+            self content: realClass organization classComment.
+            self stamp: realClass organization commentStamp ].
+    self asPassive
+!
+
+isActive
+
+    "A ring comment isActive when it needs to access the class organization for retrieving its data"
+    ^(self annotationNamed: self class statusKey) 
+        ifNil:[ false ] 
+        ifNotNil:[ :status| status == #active ]
+!
+
+isHistorical
+
+    "A ring comment can be used to point an old version of the receiver, in this case it will use the sourcePointer to retrieve its information"
+    ^(self annotationNamed: self class statusKey) 
+        ifNil:[ false ] 
+        ifNotNil:[ :status| status == #historical ]
+!
+
+isPassive
+
+    "A ring comment isPassive by default.  In this case it will retrieve the data that was assigned in its creation"
+    ^(self annotationNamed: self class statusKey) 
+        ifNil:[ true ] 
+        ifNotNil:[ :status| status == #passive ]
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGContainer.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,537 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGAbstractContainer subclass:#RGContainer
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Containers'
+!
+
+RGContainer comment:'A concrete container already knows how to treat classes, methods and packages. '
+!
+
+!RGContainer class methodsFor:'image package loading'!
+
+allManagers
+
+    ^ Smalltalk globals at: #MCWorkingCopy 
+        ifPresent: [:mcwc | mcwc allManagers ] 
+        ifAbsent: [OrderedCollection new ]
+!
+
+category: categoryName matches: prefix
+
+    | prefixSize catSize |
+    categoryName ifNil: [ ^false ].
+    catSize := categoryName size.
+    prefixSize := prefix size.
+    catSize < prefixSize ifTrue: [ ^false ].
+    (categoryName findString: prefix startingAt: 1 caseSensitive: true) = 1
+        ifFalse: [ ^false ].
+    ^(categoryName at: prefix size + 1 ifAbsent: [ ^true ]) = $-
+!
+
+packageKeys
+
+    ^ self allManagers collect: [ :pck | pck package name asSymbol -> ('*', pck package name asLowercase) ]
+!
+
+packageNames
+
+    ^ self allManagers collect: [ :pck | pck package name asSymbol ]
+!
+
+packageOfClass: aRGBehaviorDefinition
+
+    ^ self packageOfClass: aRGBehaviorDefinition using: self packageNames.
+!
+
+packageOfClass: aRGBehaviorDefinition using: packageNames
+
+    "Looks for the package of aRGBehaviorDefinition from the image"
+    | pName |
+    aRGBehaviorDefinition ifNil:[ ^nil ].
+    pName := (packageNames 
+                detect: [ :each| each = aRGBehaviorDefinition category ]
+                ifNone: [ packageNames detect:[ :each| self category: aRGBehaviorDefinition category matches: each ] ifNone:[ nil ] ]).
+    ^ pName ifNotNil:[ RGPackage named: pName ]
+!
+
+packageOfMethod: aRGMethodDefinition
+
+    ^ self packageOfMethod: aRGMethodDefinition using: self packageKeys
+!
+
+packageOfMethod: aRGMethodDefinition using: packageKeys
+
+    "Looks for the package of aRGMethodDefinition from the image"
+    | pName parentPackage |
+    (aRGMethodDefinition protocol notNil and:[ aRGMethodDefinition protocol beginsWith: '*' ]) ifFalse:[
+        parentPackage := (aRGMethodDefinition parent ifNotNil:[ aRGMethodDefinition parent package ]).	
+        ^ parentPackage ifNil:[ self packageOfClass: aRGMethodDefinition parent ] ].
+
+    aRGMethodDefinition protocol ifNil: [ ^ nil ].
+    pName := (packageKeys 
+                detect: [ :each| self category: aRGMethodDefinition protocol asLowercase matches: each value ] ifNone:[ nil ]).
+    ^ pName ifNotNil:[ RGPackage named: pName key ]
+! !
+
+!RGContainer methodsFor:'accessing'!
+
+definedClasses
+    "Retrieves classes (traits are included)"
+
+    ^self elements at: #definedClasses ifAbsentPut:[ IdentityDictionary new ]
+!
+
+definedClasses: aCollection
+    "Set the classes collection"
+
+    self elements at: #definedClasses put: aCollection
+!
+
+methods
+    "Retrieves methods defined in the container"
+    
+    ^self elements at: #methods ifAbsentPut:[ IdentityDictionary new ]
+!
+
+methods: aCollection
+    "Set the methods collection"
+    
+    self elements at: #methods put: aCollection
+!
+
+packages
+    "Retrieves the children packages defined in the receiver"
+
+    ^self elements at: #packages ifAbsentPut:[ IdentityDictionary new ]
+!
+
+packages: aCollection
+
+    self elementsCategorized: #packages with: aCollection
+! !
+
+!RGContainer methodsFor:'adding/removing'!
+
+addClass: aRGBehaviorDefinition
+    "aRGBehaviorDefinition has to be a class, trait or metaclass"
+    self flag: 'when i am adding a metaclass? check this?'.
+
+    (aRGBehaviorDefinition isClass
+        or:[ aRGBehaviorDefinition isTrait ]) ifFalse:[ ^self ].
+    self addElement: aRGBehaviorDefinition in: self definedClasses
+!
+
+addClassNamed: className 
+    "Creates a class with the given name"
+    self addClass: (RGClassDefinition named: className)
+!
+
+addMethod: aRGMethodDefinition
+    "aRGMethodDefinition needs to satisfy the status isMethod"
+
+    aRGMethodDefinition isMethod ifFalse:[ ^self ].
+    self addElement: aRGMethodDefinition in: self methods
+!
+
+addPackage: aRGPackage
+    "adds a child package"
+
+    aRGPackage isPackage ifFalse:[ ^self ].
+    self addElement: aRGPackage in: self packages
+!
+
+addPackageNamed: packageName
+    "adds a child package with the given name"
+
+    (self includesPackageNamed: packageName) ifTrue: [ ^self ].
+    self addPackage: (RGPackage named: packageName)
+!
+
+addTrait: aRGTraitDefinition
+    "convenient method"
+
+    self addClass: aRGTraitDefinition
+!
+
+addTraitNamed: traitName 
+    "Creates a trait with the given name"
+    self addClass:  (RGTraitDefinition named: traitName)
+!
+
+removeClass: aRGAbstractClassDefinition
+
+    self removeElement: aRGAbstractClassDefinition from: self definedClasses
+!
+
+removeMethod: aRGMethodDefinition
+
+    self removeElement: aRGMethodDefinition from: self methods
+!
+
+removePackage: aRGPackage
+    "removes a child aRGPackage"
+
+    aRGPackage isPackage ifFalse:[ ^self ].
+    self removeElement: aRGPackage from: self packages
+!
+
+removeTrait: aRGTraitDefinition
+    "convenient method"
+
+    self removeClass: aRGTraitDefinition
+!
+
+withoutClasses
+
+    self removeElementsCategorized: #definedClasses
+!
+
+withoutMethods
+    
+    self removeElementsCategorized: #methods
+!
+
+withoutPackages
+    
+    self removeElementsCategorized: #packages
+! !
+
+!RGContainer methodsFor:'convenient accesses'!
+
+allClasses
+    "convenient method"
+
+    ^self classes
+!
+
+allMethods
+    "convenient method"
+
+    ^self methods
+!
+
+allTraits
+    "convenient method"
+    
+    ^self allClasses select:[ :each | each isTrait ]
+!
+
+classNames
+    "Retrieves class names (including traits)"
+    
+    ^ self definedClasses isDictionary
+        ifTrue: [ self definedClasses keys ]
+        ifFalse:[ self definedClasses collect:[ :class|  class name ] ]
+!
+
+classes
+    "convenient method"
+
+    ^self definedClasses
+!
+
+classes: aCollection
+    "convenient method"
+
+    self definedClasses: aCollection
+!
+
+extensionMethods
+    "Retrieves a collection (by default a dictionary) with the extensions methods of the receiver"
+
+    ^self methods values select:[ :mth| mth isExtension ]
+!
+
+traitNames
+    "Retrieves the names of defined traits"
+
+    ^ self traits isDictionary
+        ifTrue: [ self traits keys ]
+        ifFalse:[ self traits collect:[ :trait| trait name ] ]
+!
+
+traits
+    "Retrieves a collection (by default a dictionary) containing only defined traits"
+
+    ^self definedClasses select:[ :each| each isTrait ]
+! !
+
+!RGContainer methodsFor:'image class and method loading'!
+
+loadClass: aRGBehaviorDefinition using: packageKeys
+
+    self setPackageOfClass: aRGBehaviorDefinition using: packageKeys.
+    self addClass: aRGBehaviorDefinition
+!
+
+loadMethod: aRGMethodDefinition inClass: aRGBehaviorDefinition using: packageKeys
+
+    self addMethod: aRGMethodDefinition.
+    aRGBehaviorDefinition addMethod: aRGMethodDefinition.
+    self setPackageOfMethod: aRGMethodDefinition ofClass: aRGBehaviorDefinition using: packageKeys
+!
+
+loadTraitUsers
+    "Set the users of a trait"
+    | users |
+    
+    users := self classes select: [ :cls | cls hasTraitComposition ].
+    users do:[ :each |  | rgTrait |
+        each traitNames do:[ :tname|
+            rgTrait := self traitNamed: tname.
+            rgTrait notNil ifTrue: [
+                rgTrait addUser: each.
+                rgTrait theMetaClass addUser: each theMetaClass ] ] ]
+! !
+
+!RGContainer methodsFor:'image package loading'!
+
+cleanEmptyPackages
+
+    (self packages select:[ :pck| pck classes size isZero and:[ pck methods size isZero ] ])
+        do:[ :pck| self removePackage: pck ]
+!
+
+findPackageOfClass: aRGBehaviorDefinition using: packageKeys
+
+    "Look for the package of a class. It is nil when there is not a package created for a category in MC"
+    | pair |
+    self packages isEmpty ifTrue: [ ^ nil ].
+    ^ self packages at: aRGBehaviorDefinition category ifAbsent:[
+        pair := packageKeys detect:[ :each| self class category: aRGBehaviorDefinition category matches: each key ] ifNone:[ nil ].
+        pair ifNotNil:[ self packages at: pair key ] ]
+!
+
+findPackageOfMethod: aRGMethodDefinition using: packageKeys
+
+    "Look for the package of an extension method. nil otherwise"
+    | pair lname |	
+    self packages isEmpty ifTrue: [ ^nil ].
+    (aRGMethodDefinition protocol beginsWith: '*') ifFalse:[ ^ nil ].
+    lname := aRGMethodDefinition protocol asLowercase.
+ 	pair := packageKeys detect:[ :assoc| self class category: lname matches: assoc value ] ifNone:[ nil ].
+    ^ pair ifNotNil:[ self packages at: pair key ]
+!
+
+loadPackagesFromImage
+
+    | rgPackage rgPackageKeys |
+    rgPackageKeys := OrderedCollection new.
+    self class allManagers do: [ :pck | 
+        rgPackage := RGPackage named: pck package name asSymbol.
+        rgPackageKeys add: (rgPackage name -> ('*', rgPackage name asLowercase)).
+        self addPackage: rgPackage ].
+    ^ rgPackageKeys
+!
+
+setPackageOfClass: rgClass using: packageKeys
+    "Set the package to aRGBehaviorDefinition"
+
+    (self findPackageOfClass: rgClass using: packageKeys) 
+        ifNotNil:[ :pck| pck addClass: rgClass ]
+    
+!
+
+setPackageOfMethod: rgMethod ofClass: rgClass using: packageKeys
+    "Set the package to aRGMethodDefinition and its value isExtension"
+
+    (self findPackageOfMethod: rgMethod using: packageKeys) 
+        ifNil:[ rgClass package ifNotNil:[ :pck| 
+                pck addMethod: rgMethod.
+                rgMethod isExtension: false ] ]
+        ifNotNil:[ :pck| 
+            pck addMethod: rgMethod.
+            rgMethod isExtension: (rgMethod package ~= rgClass package) ]
+! !
+
+!RGContainer methodsFor:'initialization'!
+
+initialize
+
+    super initialize.
+    self definedClasses: IdentityDictionary new.
+    self methods: IdentityDictionary new.
+    self packages: IdentityDictionary new.
+! !
+
+!RGContainer methodsFor:'iterating'!
+
+allClassesDo: aBlock
+    "Evaluate the argument, aBlock, for each class and its metaclass"
+
+    self allClasses do: [ :each|
+        aBlock value: each.
+        each hasMetaclass
+            ifTrue:[ aBlock value: each theMetaClass ] ]
+!
+
+allTraitsDo: aBlock
+    "Evaluate the argument, aBlock, for each trait"
+
+    self allTraits do: [ :each|
+        aBlock value: each.
+        each hasMetaclass
+            ifTrue:[ aBlock value: each theMetaClass ] ]
+!
+
+classesDo: aBlock
+
+    self classes do: [ :each|
+        aBlock value: each.
+        each hasMetaclass
+            ifTrue:[ aBlock value: each theMetaClass ] ]
+!
+
+definedClassesDo: aBlock
+
+    self definedClasses do: [ :each|
+        aBlock value: each.
+        each hasMetaclass
+            ifTrue:[ aBlock value: each theMetaClass ] ]
+!
+
+methodsDo: aBlock
+
+    self methods
+        do:[ :each| aBlock value: each ]
+!
+
+traitsDo: aBlock
+
+    self traits do: [ :each|
+        aBlock value: each.
+        each hasMetaclass
+            ifTrue:[ aBlock value: each theMetaClass ] ]
+! !
+
+!RGContainer methodsFor:'lookup by name'!
+
+classNamed: className
+    "Retrieves an RGBehaviorDefinition object.
+    className could be theMetaClass name"
+    
+    ^self classOrTraitNamed: className
+!
+
+classOrTraitNamed: className
+    "A class or metaclass can be reached by its name"
+    | theClass |
+
+    className ifNil: [^nil ].
+    theClass:= self elementNamed: (self theNonMetaClassNameOf: className) in: self definedClasses.
+    theClass ifNil:[ ^nil ].
+    
+    ^(self isMetaclassName: className)
+        ifTrue: [ theClass theMetaClass ]
+        ifFalse:[ theClass ] 
+!
+
+metaclassNamed: metaclassName
+    | theClass |
+    
+    theClass:= (self classOrTraitNamed: metaclassName).
+    theClass notNil
+    ifTrue:[ ^theClass isMeta 
+              ifTrue: [ theClass ]
+              ifFalse:[ theClass theMetaClass ] ].
+    
+    ^nil
+!
+
+methodNamed: fullSelectorName
+
+    ^self elementNamed: fullSelectorName in: self methods
+!
+
+packageNamed: packageName
+    "Look for a child package named packageName"
+    
+    ^self elementNamed: packageName in: self packages
+!
+
+traitNamed: traitName
+    "Retrieves an RGTraitDefinition object.
+    traitName could be theMetaClass name"
+    | trait |
+    
+    ^(trait:= self classOrTraitNamed: traitName) isTrait
+    ifTrue:[ trait ]
+    ifFalse:[ nil ]
+! !
+
+!RGContainer methodsFor:'testing'!
+
+hasClasses
+
+    ^self definedClasses notEmpty
+!
+
+hasMethods
+
+    ^self methods notEmpty
+!
+
+includesClass: aRGBehaviorDefinition
+    "Returns true if the receiver includes aRGBehaviorDefinition in the defined classes"
+
+    ^self definedClasses includes: aRGBehaviorDefinition
+!
+
+includesClassNamed: className
+    "Returns true if the receiver includes the className in the defined classes"
+
+    self flag: 'can a metaclass be stored without its nonMetaClass? Check this'.
+    ^self includesElementNamed: (self theNonMetaClassNameOf: className) in: self definedClasses.
+!
+
+includesMethod: aRGMethodDefinition
+
+    ^self methods includes: aRGMethodDefinition
+!
+
+includesMethodNamed: fullSelectorName
+    
+    ^self includesElementNamed: fullSelectorName in: self methods
+!
+
+includesPackage: aRGPackage
+    "Verifies if a child package == aRGPackage exists"
+    
+    ^self packages includes: aRGPackage
+!
+
+includesPackageNamed: packageName
+    "Verifies if a child package with name = packageName exists"
+    
+    ^self includesElementNamed: packageName in: self packages
+! !
+
+!RGContainer methodsFor:'utilities'!
+
+isMetaclassName: aSymbol
+    "Validates if the arguments corresponds to a nonMetaClass"
+    
+    ^(aSymbol
+        indexOfSubCollection: ' class'
+        startingAt: 1) > 0
+!
+
+theNonMetaClassNameOf: aSymbol
+    "Rejects the prefix ' class' or ' classTrait' of the argument"
+    | index |
+    
+    index := aSymbol
+                indexOfSubCollection: ' class'
+                startingAt: 1
+                ifAbsent: [ ^aSymbol asSymbol ].
+
+    ^(aSymbol 
+        copyFrom: 1
+        to: index - 1) asSymbol
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,240 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+Object subclass:#RGDefinition
+	instanceVariableNames:'annotations name'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGDefinition comment:'I am the root class of the Ring meta-model.
A Ring definition has a name, can be annotated and knows its environment'
+!
+
+!RGDefinition class methodsFor:'instance creation'!
+
+new
+    "return an initialized instance"
+
+    ^ self basicNew initialize.
+! !
+
+!RGDefinition class methodsFor:'annotations'!
+
+authorKey
+
+    ^#author
+!
+
+fullNameKey
+
+    ^#fullName
+!
+
+timeStampKey
+
+    ^#timestamp
+! !
+
+!RGDefinition class methodsFor:'class initialization'!
+
+named: aName
+
+    ^self new
+        name: aName asSymbol;
+        yourself
+! !
+
+!RGDefinition methodsFor:'accessing'!
+
+environment
+    "If the receiver has not namespace assigned the default is used"
+    "self class environment = Smalltalk globals"
+
+    ^ self annotationNamed: #environment ifAbsent: [ self class environment ]
+!
+
+environment: namespace
+
+    namespace = self class environment
+        ifFalse:[ self annotationNamed: #environment put: namespace ]
+!
+
+fullName
+
+    ^self name
+!
+
+name
+
+    ^name
+!
+
+name: anObject
+    "a symbol or a string should be expected"
+    
+    name:= anObject
+!
+
+rootEnvironment
+    "Retrieves the runtime environment of an RGObject"
+    "If the receiver is defined in an RGContainer the runtime environment is the one associated to its container"
+    | parent |
+    
+    parent:= self environment.
+    [ parent isRingObject ]
+        whileTrue:[ parent:= parent environment ].
+
+    ^parent
+! !
+
+!RGDefinition methodsFor:'annotations'!
+
+annotationNamed: annotationName 
+    "Answer the value of the annotation named <annotationName>, or 
+    nil if the annotation is not defined for the receiver."
+    
+    ^ self
+        annotationNamed: annotationName
+        ifAbsent: [ nil ]
+!
+
+annotationNamed: annotationName ifAbsent: exceptionBlock 
+    "Answer the value of the annotation named <annotationName>. If the 
+    annotation is not defined for the receiver, answer the result of 
+    evaluating the <exceptionBlock>."
+
+    self hasAnnotations
+        ifFalse: [ ^exceptionBlock value ].
+
+    ^self annotations
+            at: annotationName
+            ifAbsent: [ exceptionBlock value ]
+!
+
+annotationNamed: annotationName ifAbsentPut: blockValue 
+
+    ^self annotations
+        at: annotationName
+        ifAbsentPut: blockValue
+!
+
+annotationNamed: annotationName put: value 
+
+    self annotations
+        at: annotationName
+        put: value
+!
+
+annotationNames
+    
+    self hasAnnotations
+        ifFalse:[ ^OrderedCollection new ].
+    ^annotations keys
+!
+
+annotations
+
+    ^annotations ifNil:[ annotations:= IdentityDictionary new ]
+!
+
+hasAnnotationNamed: annotationName
+    "Answer <true> if the receiver contains the annotation named <annotationName>. "
+    
+    self hasAnnotations	
+        ifFalse:[ ^false ].
+    ^annotations includesKey: annotationName
+!
+
+hasAnnotations
+
+    ^annotations notNil
+!
+
+removeAnnotationNamed: annotationName 
+    "Remove the annotation named <annotationName>. Fails quietly if there 
+    is no annotation with the given name."
+    
+    (self hasAnnotationNamed: annotationName)
+        ifTrue:[ annotations removeKey: annotationName ]
+! !
+
+!RGDefinition methodsFor:'converting'!
+
+asRingDefinition
+    ^ self
+! !
+
+!RGDefinition methodsFor:'testing types'!
+
+isAccess 
+
+    ^false
+!
+
+isComment
+
+    ^false
+!
+
+isGlobalVariable
+
+    ^false
+!
+
+isInheritance
+
+    ^false
+!
+
+isInvocation
+
+    ^false
+!
+
+isMethod
+
+    ^false
+!
+
+isNamespace
+
+    ^false
+!
+
+isOrganization 
+
+    ^false
+!
+
+isPackage
+
+    ^false
+!
+
+isPool
+
+    ^false
+!
+
+isReference 
+
+    ^false
+!
+
+isRingObject
+
+    ^true
+!
+
+isSlice
+
+    ^false
+!
+
+isVariable
+
+    ^false
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGElementDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,286 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGDefinition subclass:#RGElementDefinition
+	instanceVariableNames:'parent'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGElementDefinition comment:'RGElementDefinition is the abstract class for representing elements of a class-alike definition (i.e., methods, variables, comment).

parent holds the RGClassDefinition or RGMetaclassDefinition defining this element.
	
	
Now a RingEntityDefinition offers two APIs: one that is generic and works for all the source code entities and this is the one we just 
presented: parent, parentName and realParent. Having such interface is important to build generic tools that could manipulate 
any entities in a polymorphic way (yes no isKindOf: everywhere).

In addition, a ring method definition offers a specific interface that should only be used when you know that you are solely manipulate
specific entity such as class element: method definition, class comment, and variables. 

Here is the equivalence table

	realParent 				realClass
	parent					ringClass
	parentName			className
	
For example for a methodDefinition we will have the following:

GENERIC API
------------------
* To access the ring class definition name, use parentName
	aRGMethodDefinition parentName
	
Example:
	(Point>>#dist:) asRingDefinition parentName
		->  #Point
		
* If you have a complete model where classes and methods are ring definition, to access the ring class definition , use parent
	aRGMethodDefinition parent
	
Example:
	aRGMethodDefinition(Point>>#dist:) parent
		->  aRGClassDefinition(Point)
		
* If you want to access the smalltalk class that contains the compiledMethod that is represented by a ringMethodDefinition, use realParent
	aRGMethodDefinition realParent
	
Example:
	(Point>>#dist:) asRingDefinition realParent
		->  Point
		


CLASS Element specific API
------------------------------------------
* The message class returns the class of the object :). Yes as you see we could not use class and className because class is already used to refer to the class of the object.

Example:
	(Point>>#dist:) asRingDefinition class
		->  RingMethodDefinition
		
* The message className returns the name of the ring class defining the reingMethodDefinition.

Example:
	(Point>>#dist:) asRingDefinition className
		->  #Point		
		
* If you have a complete model where classes and methods are ring definition, to access the ring class definition , use parent
	aRGMethodDefinition ringClass
	
Example:
	aRGMethodDefinition(Point>>#dist:) ringClass
		->  aRGClassDefinition(Point)
		
		
* If you want to access the smalltalk class that contains the compiledMethod that is represented by a ringMethodDefinition, use realClass
	aRGMethodDefinition realClass
	
Example:
	(Point>>#dist:) asRingDefinition realClass
		->  Point

'
+!
+
+!RGElementDefinition class methodsFor:'class initialization'!
+
+class: aRGBehaviorDefinition
+    "The argument is a ring object and serves as the parent of a method, variable or class comment"
+
+    ^self new
+        parent: aRGBehaviorDefinition;
+        yourself
+!
+
+realClass: aClass
+    "The argument is a Smalltalk class and the parent of a method, variable, class comment.
+    However it is not set as parent but only its name and scope (instance/class)"
+
+    ^self new
+        parent: aClass asRingDefinition;
+        yourself
+! !
+
+!RGElementDefinition class methodsFor:'elements-annotations'!
+
+classNameKey
+
+    ^#className
+!
+
+isMetaSideKey
+
+    ^#isMetaSide
+!
+
+sourcePointerKey 
+
+    ^#sourcePointer
+!
+
+statusKey
+
+    ^#statusKey
+! !
+
+!RGElementDefinition class methodsFor:'parsing stamp'!
+
+basicParseAuthorAliasFrom: aString
+    "Parse an alias/name of the author from a string that is extracted from a source file. If there is no alias/name we return emtpy string."
+
+    | tokens dateStartIndex unknown |
+    "The following timestamp strings are supported (source: squeak sources archeological survey):
+        <authorname><date><time>. 
+        <authorname><date>
+        <date><time>
+        <date><time><authorname>
+        <date><authorname>
+        <historical>
+    All fields can be separated by spaces or line ends but a separator between author alias/name and date can be missing as well"
+    "unknown:= 'unknown'."
+    unknown := nil.
+    aString isEmptyOrNil
+        ifTrue: [ ^ unknown ].
+    dateStartIndex := (aString indexOf: $/) - 1.	"If there is no / character in the timestamp, no author alias/name exists"
+    dateStartIndex = -1
+        ifTrue: [ ^ unknown ].
+    ^ [ 
+    "Go the start of the date string (there can be 1 or 2 digits and a space separator can be missing at the front!!!!)"
+    (dateStartIndex >= 2 and: [ (aString at: dateStartIndex - 1) isDigit ])
+        ifTrue: [ dateStartIndex := dateStartIndex - 1 ].	"Extract only those tokens that do not possible represent date or time - meaning that authorname may be at the end"
+    tokens := (aString copyFrom: dateStartIndex to: aString size) substrings
+        reject: [ :token | (token occurrencesOf: $/) = 2 or: [ (token occurrencesOf: $:) = 1 ] ].	"only one token should be left if author name/alias exists"
+    ^ tokens isEmpty
+        ifTrue: [ 
+            "if dateStartIndex is not 1 then the authorname may be at the beginning"
+            dateStartIndex > 1
+                ifTrue: [ (aString copyFrom: 1 to: dateStartIndex - 1) trimBoth ]
+                ifFalse: [ unknown ] ]
+        ifFalse: [ tokens first ] ]
+        on: Exception
+        do: [ :e | unknown ]
+!
+
+parseAuthorAliasFrom: aString
+    "Allows other applications  to treat a different empty alias by overriding this method"
+    
+    ^self basicParseAuthorAliasFrom: aString
+!
+
+parseTimestampFrom: aString
+    
+    ^self parseTimestampFrom: aString default: nil
+!
+
+parseTimestampFrom: aString default: anObject
+    "Parse a date-time from a timestamp-string that is extracted from a source file. If there is no timestamp, or we cannot make sense of it, we return the default value."
+
+    | tokens dateStartIndex unknown |
+    "The following timestamp strings are supported (source: squeak sources archeological survey):
+        <authorname><date><time>. 
+        <authorname><date>
+        <date><time>
+        <date><time><authorname>
+        <date><authorname>
+        <historical>
+    All fields can be separated by spaces or line ends but a separator between authorname and date can be missing as well"
+    unknown := anObject.
+    aString isEmptyOrNil
+        ifTrue: [ ^ unknown ].
+    dateStartIndex := (aString indexOf: $/) - 1.	"If there is no / character in the timestamp, we cannot parse a date and return the epoch"
+    dateStartIndex = -1
+        ifTrue: [ ^ unknown ].
+    ^ [ 
+    "Go the start of the date string (there can be 1 or 2 digits and a space separator can be missing at the front!!!!)"
+    (dateStartIndex >= 2 and: [ (aString at: dateStartIndex - 1) isDigit ])
+        ifTrue: [ dateStartIndex := dateStartIndex - 1 ].	"Extract only those tokens that possibly represent date or time"
+    tokens := (aString copyFrom: dateStartIndex to: aString size) substrings
+        select: [ :token | (token occurrencesOf: $/) = 2 or: [ (token occurrencesOf: $:) = 1 ] ].	"2 tokens is a datetime"
+    tokens size = 2
+        ifTrue: [ (tokens joinUsing: Character space) asDateAndTime ]
+        ifFalse: [ tokens first asDate asDateAndTime ] ]
+        on: Exception
+        do: [ :e | unknown ]
+! !
+
+!RGElementDefinition methodsFor:'accessing'!
+
+fullName: aString
+
+    ^ self annotationNamed: self class fullNameKey put: aString asSymbol
+!
+
+isMetaSide
+    "Even thought several class elements do not define this property (ie. class variables, pool variables) they understand it"
+    "This is a derived property from the class definining the receiver and thus its value is kept as an annotation"
+    "Default value is false"
+
+    ^self annotationNamed: self class isMetaSideKey ifAbsentPut: [ false ]
+!
+
+isMetaSide: aBoolean
+
+    self annotationNamed: self class isMetaSideKey put: aBoolean
+!
+
+package
+    ^self parent package 
+! !
+
+!RGElementDefinition methodsFor:'backward compatibility'!
+
+actualClass
+    "returns the Smalltalk class of the receiver"
+    
+    ^ self realClass
+! !
+
+!RGElementDefinition methodsFor:'class element specific api'!
+
+className
+    
+    ^ self parentName
+!
+
+className: aName
+    
+    ^ self parentName: aName
+!
+
+realClass
+    "Retrieves the Class/Trait/.. object in the System corresponding to the class of the this element."
+    
+    ^ self realParent
+!
+
+ringClass
+    "Return the ring definition of the class containing the receiver."
+    
+    ^ self parent
+!
+
+theNonMetaClassName
+
+    ^self theNonMetaParentName 
+! !
+
+!RGElementDefinition methodsFor:'comparing'!
+
+= aRGElementDefinition
+    "This method look for equality of the properties of the receiver"
+    "Verifies the class and the parentName of the receiver"
+
+    ^self class = aRGElementDefinition class
+        and:[ self parentName == aRGElementDefinition parentName 
+            and:[ self isMetaSide = aRGElementDefinition isMetaSide ] ]
+!
+
+hash
+    "Hash is re-implemented because #= is re-implemented"
+    
+    ^self class hash bitXor: (self parentName hash bitXor: self isMetaSide hash)
+! !
+
+!RGElementDefinition methodsFor:'generic parent api'!
+
+parent
+    "The parent of a class definition element: method, comment and variable is the class definition. This method retrieves the class that defines such element"
+    
+    ^ parent
+!
+
+parent: aRGBehaviorDefinition
+    "Set the class associated to the receiver"
+
+    parent := aRGBehaviorDefinition.
+    self setParentInfo: aRGBehaviorDefinition.
+!
+
+parentName
+    "Retrieves the name of the class defining the receiver. Its value is kept as an annotation"
+
+    ^ self annotationNamed: self class classNameKey
+!
+
+parentName: aString
+
+    self annotationNamed: self class classNameKey put: aString asSymbol
+!
+
+realParent
+    "Retrieves the Class/Trait/.. object in the System corresponding to the class of the this element."
+    
+    ^self parent notNil
+        ifTrue: [ self parent realClass ]
+        ifFalse: [ self rootEnvironment classNamed: self parentName ]
+!
+
+theNonMetaParentName
+    "Rejects the prefix ' class' or ' classTrait' of the parentName"
+    | index |
+    
+    index := self parentName
+                indexOfSubCollection: ' class'
+                startingAt: 1
+                ifAbsent: [ ^self parentName ].
+
+    ^(self parentName 
+        copyFrom: 1
+        to: index - 1) asSymbol
+! !
+
+!RGElementDefinition methodsFor:'private'!
+
+setParentInfo: anObject
+    "anObject is aRGBehaviorDefinition or aClass/aTrait"
+
+    self parentName: anObject name. 
+    self isMetaSide: anObject isMeta
+! !
+
+!RGElementDefinition methodsFor:'testing'!
+
+isDefined
+    "isDefined when the receiver has its realClass defined in the system"
+
+    ^self realClass notNil
+!
+
+isSameRevisionAs: aRGElementDefinition
+    "This method look for equality of the properties of the receiver"
+    "Verifies the class and the parentName of the receiver"
+
+    ^self class = aRGElementDefinition class
+        and:[ self parentName == aRGElementDefinition parentName ]
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGGlobalDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,38 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGDefinition subclass:#RGGlobalDefinition
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGGlobalDefinition comment:'An RGGlobalDefinition is an abstract superclass for representing classes, global variables and shared pools
'
+!
+
+!RGGlobalDefinition methodsFor:'accessing'!
+
+parent
+    "Retrieves the namespace in which the receiver is known"
+    
+    ^self environment
+! !
+
+!RGGlobalDefinition methodsFor:'comparing'!
+
+= aRGGlobalDefinition
+    "This method look for equality of the properties of the receiver"
+    "Verifies the class and the name of the receiver"
+
+    ^self class = aRGGlobalDefinition class
+        and:[ self name == aRGGlobalDefinition name ]
+!
+
+hash
+    "Hash is re-implemented because #= is re-implemented"
+    
+    ^self class hash bitXor: (self name hash)
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGGlobalVariableDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,56 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGGlobalDefinition subclass:#RGGlobalVariableDefinition
+	instanceVariableNames:'value'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGGlobalVariableDefinition comment:'A global variable definition'
+!
+
+!RGGlobalVariableDefinition methodsFor:'accessing'!
+
+value
+    "Retrieves the current value of the global variable"
+
+    ^ value
+!
+
+value: anObject
+
+    value := anObject
+! !
+
+!RGGlobalVariableDefinition methodsFor:'managing container'!
+
+addInContainer: aRGContainer
+
+    aRGContainer addGlobalVariable: self
+!
+
+isIncludedInContainer: aRGContainer
+
+    ^aRGContainer includesGlobalVariable: self
+!
+
+removeFromContainer: aRGContainer
+
+    aRGContainer removeGlobalVariable: self
+! !
+
+!RGGlobalVariableDefinition methodsFor:'testing'!
+
+isGlobalVariable
+
+    ^true
+!
+
+isVariable
+
+    ^true
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGInstanceVariableDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,21 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGVariableDefinition subclass:#RGInstanceVariableDefinition
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGInstanceVariableDefinition comment:'An instance variable definition'
+!
+
+!RGInstanceVariableDefinition methodsFor:'testing'!
+
+isInstanceVariable
+
+    ^true
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGMetaclassDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,98 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGClassDescriptionDefinition subclass:#RGMetaclassDefinition
+	instanceVariableNames:'baseClass'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGMetaclassDefinition comment:'RGMetaclassDefinition is a concrete representation of metaclasses of classes (traits are excluded)'
+!
+
+!RGMetaclassDefinition class methodsFor:'class initialization'!
+
+class: anORClassDefinition
+
+    ^self new
+        baseClass: anORClassDefinition;
+        yourself
+! !
+
+!RGMetaclassDefinition methodsFor:'accessing'!
+
+baseClass: aRGClassDefinition
+
+    baseClass:= aRGClassDefinition.
+    self name: (baseClass name, ' class') asSymbol
+!
+
+category
+    ^ self theNonMetaClass category
+!
+
+environment
+
+    ^baseClass environment
+!
+
+package
+
+    ^baseClass package
+!
+
+realClass
+
+    ^baseClass realClass theMetaClass
+!
+
+theMetaClass
+
+    ^self
+!
+
+theNonMetaClass
+
+    ^baseClass
+! !
+
+!RGMetaclassDefinition methodsFor:'printing'!
+
+storeOn: aStream
+    
+    aStream nextPut: $(. 
+    super storeOn: aStream.
+    aStream nextPutAll: ' baseClass:'.
+    self theNonMetaClass storeOn: aStream.
+    aStream nextPut: $).
+    
+! !
+
+!RGMetaclassDefinition methodsFor:'testing'!
+
+isMeta
+
+    ^true
+!
+
+isSameRevisionAs: aRGMetaclassDefinition
+    "This method look for equality of the properties of the receiver"
+
+    ^(super isSameRevisionAs: aRGMetaclassDefinition)
+        and:[ self traitCompositionSource = aRGMetaclassDefinition traitCompositionSource ]
+! !
+
+!RGMetaclassDefinition methodsFor:'variables'!
+
+allClassVarNames
+
+    ^self theNonMetaClass allClassVarNames
+!
+
+allSharedPoolNames
+
+    ^self theNonMetaClass allSharedPoolNames
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGMetatraitDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,74 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGTraitDescriptionDefinition subclass:#RGMetatraitDefinition
+	instanceVariableNames:'baseClass'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGMetatraitDefinition comment:'RGMetatraitDefinition is a concrete representation of metaclasses of traits'
+!
+
+!RGMetatraitDefinition class methodsFor:'class initialization'!
+
+class: anORTraitDefinition
+
+    ^self new
+        baseClass: anORTraitDefinition;
+        yourself
+! !
+
+!RGMetatraitDefinition methodsFor:'accessing'!
+
+baseClass: anRGTraitDefinition
+
+    baseClass:= anRGTraitDefinition.
+    self name: (baseClass name, ' classTrait') asSymbol
+!
+
+category
+    ^ self theNonMetaClass category
+!
+
+environment
+
+    ^baseClass environment
+!
+
+package
+
+    ^baseClass package
+!
+
+realClass
+
+    ^baseClass realClass theMetaClass
+!
+
+theMetaClass
+
+    ^self
+!
+
+theNonMetaClass
+
+    ^baseClass
+! !
+
+!RGMetatraitDefinition methodsFor:'testing'!
+
+isMeta
+
+    ^true
+!
+
+isSameRevisionAs: aRGMetatraitDefinition
+    "This method look for equality of the properties of the receiver"
+
+    ^(super isSameRevisionAs: aRGMetatraitDefinition)
+        and: [ self traitCompositionSource = aRGMetatraitDefinition traitCompositionSource ]
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RGMethodDefinition.st	Fri Aug 28 12:21:13 2015 +0100
@@ -0,0 +1,492 @@
+"{ Package: 'stx:goodies/ring' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGElementDefinition subclass:#RGMethodDefinition
+	instanceVariableNames:'protocol sourceCode stamp package'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Ring-Core-Kernel'
+!
+
+RGMethodDefinition comment:'RGMethodDefinition is a concrete representation of methods. It can be used to build browser for methods that are not in the image. It is polymorphic with CompiledMethod. 

* We can ask a RGMethodDefinition for its selector using the selector message.
Example:
	(Point>>#dist:) asRingDefinition selector
		-> #dist

We can also ask the ring object representation of its class or the Smalltalk class actually implementing the corresponding compiledMethod. 

* To access the ring class definition name, use parentName
	aRGMethodDefinition parentName
	
Example:
	(Point>>#dist:) asRingDefinition parentName
		->  #Point
		
* If you have a complete model where classes and methods are ring definition, to access the ring class definition , use parent
	aRGMethodDefinition parent
	
Example:
	aRGMethodDefinition(Point>>#dist:) parent
		->  aRGClassDefinition(Point)
		
* If you want to access the smalltalk class that contains the compiledMethod that is represented by a ringMethodDefinition, use realParent
	aRGMethodDefinition realParent
	
Example:
	(Point>>#dist:) asRingDefinition realParent
		->  Point
		

Now a RingEntityDefinition offers two APIs: one that is generic and works for all the source code entities and this is the one we just 
presented: parent, parentName and realParent. Having such interface is important to build generic tools that could manipulate 
any entities in a polymorphic way (yes no isKindOf: everywhere).

In addition, a ring method definition offers a specific interface that should only be used when you know that you are solely manipulate
specific entity such as class element: method definition, class comment, and variables. 

Here is the equivalence table

	realParent 				realClass
	parent					ringClass
	parentName			className


* The message class returns the class of the object :).

Example:
	(Point>>#dist:) asRingDefinition class
		->  RingMethodDefinition
		
* The message className returns the name of the ring class defining the reingMethodDefinition.

Example:
	(Point>>#dist:) asRingDefinition className
		->  #Point		
		
* If you have a complete model where classes and methods are ring definition, to access the ring class definition , use parent
	aRGMethodDefinition ringClass
	
Example:
	aRGMethodDefinition(Point>>#dist:) ringClass
		->  aRGClassDefinition(Point)
		
		
* If you want to access the smalltalk class that contains the compiledMethod that is represented by a ringMethodDefinition, use realClass
	aRGMethodDefinition realClass
	
Example:
	(Point>>#dist:) asRingDefinition realClass
		->  Point

'
+!
+
+!RGMethodDefinition class methodsFor:'instance creation'!
+
+class: aRGBehaviorDefinition selector: aString
+    "Create a ring method definition from a ring class and a selector"
+
+    ^(self class: aRGBehaviorDefinition)
+        selector: aString asSymbol;
+        yourself
+!
+
+className: aString selector: aSelector isMetaSide: aBoolean
+
+    ^ (self class: (RGClassDefinition named: aString) selector: aSelector) isMetaSide: aBoolean; yourself
+!
+
+realClass: aClass selector: aString
+    "Creates a ring method definition from a Smalltalk class and a selector <compiledMethod>"
+
+    ^(aClass>>aString asSymbol) asActiveRingDefinition
+! !
+
+!RGMethodDefinition class methodsFor:'categories'!
+
+unclassifiedProtocolName
+    "Return the string labeling the unclassified protocol."
+
+    ^ 'as yet unclassified'
+! !
+
+!RGMethodDefinition class methodsFor:'elements-annotations'!
+
+isExtensionKey 
+
+    ^#isExtension
+! !
+
+!RGMethodDefinition methodsFor:'accessing'!
+
+ast
+    ^ self compiledMethod ast 
+!
+
+compiledMethod
+    "Retrieves the compiled method of this definition if exists"
+    
+    | rClass |
+    (rClass := self realClass) notNil
+        ifTrue: [ (rClass includesSelector: self selector)
+            ifTrue: [ ^rClass >> self selector ] ].
+            
+    ^nil
+!
+
+fullName
+    "Keeps a unique description for the receiver. As annotation to avoid converting each time is invoked"
+    
+    ^self annotationNamed: self class fullNameKey
+        ifAbsentPut: [ (self parentName, '>>', self selector) asSymbol ]
+!
+
+isExtension
+    "The receiver is an extension when is defined in a different package to the one of its parent.
+    Ring allows to set this property. If not assigned tries to find its value "
+    
+    ^self 
+        annotationNamed: self class isExtensionKey
+        ifAbsent: [  
+            (self parent notNil and:[ self package notNil ])
+                ifTrue: [ | value |
+                           value :=  self parent package ~= self package.
+                         self annotationNamed: self class isExtensionKey put: value.
+                         value ]
+                ifFalse: [ self protocol ifNil:[ false ] ifNotNil:[ :prot|  prot beginsWith: '*' ] ] ]
+!
+
+isExtension: aBoolean
+    "Explicitily set that the receiver is an extension"
+    
+    self annotationNamed: self class isExtensionKey put: aBoolean 
+!
+
+origin
+    "Return the real oring of this method."
+    ^ self compiledMethod 
+        ifNil: [ self methodClass ]
+        ifNotNil: [ :compileMethod| compileMethod origin ]
+!
+
+package
+    "Retrieves the package in which this class is contained, if exists"
+    
+    ^package
+!
+
+package: aRGPackage
+
+    package:= aRGPackage
+!
+
+protocol
+
+    self isActive 
+        ifTrue: [ ^ self compiledMethod ifNil: [ protocol ] ifNotNil: [ self compiledMethod protocol ]].
+    self isHistorical
+        ifTrue: [ ^ self protocolAtPointer ifNil: [ self compiledMethod ifNil: [ protocol ] ifNotNil:[ :cm | cm protocol ] ] ].
+    ^ protocol			
+!
+
+protocol: anObject
+
+    protocol := anObject
+!
+
+selector
+    "Retrieves the name of the method"
+
+    ^name
+!
+
+selector: aSymbol
+    "The name of a method is known as #selector"
+
+    name := aSymbol
+!
+
+sourceCode
+
+    self isActive 
+        ifTrue: [ ^ self compiledMethod ifNil:[ sourceCode ] ifNotNil: [ self compiledMethod sourceCode ]].
+    self isHistorical
+        ifTrue: [ ^ self sourceCodeAtPointer ifNil:[ self compiledMethod ifNil:[ sourceCode ] ifNotNil:[ :cm| cm sourceCode ] ] ].	
+    ^ sourceCode
+!
+
+sourceCode: anObject
+
+    sourceCode := anObject
+!
+
+stamp
+
+    self isActive 
+        ifTrue: [ ^ self compiledMethod timeStamp ].
+    self isHistorical
+        ifTrue: [ ^ self stampAtPointer ifNil:[ self compiledMethod ifNil:[ stamp ] ifNotNil:[ :cm| cm timeStamp ] ] ].
+    ^ stamp
+!
+
+stamp: anObject
+    "stores an author alias and a timestamp"
+    
+    stamp := anObject
+! !
+
+!RGMethodDefinition methodsFor:'backward compatibility'!
+
+category
+
+    ^ self protocol
+!
+
+messages
+
+    ^ self method messages
+!
+
+method
+
+    ^self compiledMethod
+!
+
+methodClass
+    "Return the class to which the receiver belongs to."
+    
+    ^ self realClass
+!
+
+symbolic
+
+    ^ self method symbolic
+! !
+
+!RGMethodDefinition methodsFor:'comparing'!
+
+<= aRGMethodDefinition
+    "Sort method definitions according to: 1. class name - 2. class comment - 3. method selector - 4. timestamp"
+
+    self parentName < aRGMethodDefinition parentName ifTrue: [^true].
+    self parentName > aRGMethodDefinition parentName ifTrue: [^false].
+
+    self flag: 'This ugly test is needed right now because the old system is used to represent 
+    class comment as method with Comment selector. And to mix comment and methods'.
+    aRGMethodDefinition isComment ifTrue: [^false].
+    
+    ^(self selector < aRGMethodDefinition selector) 
+ 		  or: [ (self selector == aRGMethodDefinition selector) and: [
+    			  self timeStamp <= aRGMethodDefinition timeStamp ]]
+!
+
+= aRGMethodDefinition
+    "This method look for equality of the key properties of the receiver"
+
+
+    ^(super = aRGMethodDefinition)
+        and: [ self selector == aRGMethodDefinition selector]
+!
+
+hash
+
+    ^super hash bitXor: self selector hash
+! !
+
+!RGMethodDefinition methodsFor:'managing container'!
+
+addInContainer: aRGContainer
+
+    aRGContainer addMethod: self
+    
+!
+
+isIncludedInContainer: aRGContainer
+
+    ^aRGContainer includesMethod: self
+!
+
+removeFromContainer: aRGContainer
+
+    aRGContainer removeMethod: self
+! !
+
+!RGMethodDefinition methodsFor:'metrics'!
+
+numberOfLinesOfCode
+
+    ^ self annotationNamed: #numberOfLinesOfCode ifAbsentPut: [ self sourceCode lineCount ]
+! !
+
+!RGMethodDefinition methodsFor:'operations'!
+
+recompile
+    self method recompile
+! !
+
+!RGMethodDefinition methodsFor:'printing'!
+
+printOn: aStream 
+
+    self parentName ifNotNil: [
+        aStream nextPutAll: self parentName;
+                  nextPutAll: '>>' ].
+    aStream print: self selector
+! !
+
+!RGMethodDefinition methodsFor:'source pointers'!
+
+getPreambleFrom: aFileStream at: position
+    ^ SourceFiles getPreambleFrom: aFileStream at: position
+!
+
+protocolAtPointer
+
+    "A RGMethodDefinition that was set as historical will retrieve the protocol using the sourcePointer"
+
+    ^ self sourcePointer notNil
+        ifTrue: [ SourceFiles protocolAt: self sourcePointer ]
+        ifFalse:[ nil ]
+!
+
+sourceCodeAtPointer
+
+    "A RGMethodDefinition that was set as historical will retrieve the sourceCode using the sourcePointer"
+
+    ^ self sourcePointer notNil
+        ifTrue: [ SourceFiles sourceCodeAt: self sourcePointer ]
+        ifFalse:[ nil ]
+!
+
+sourcePointer
+    "Retrieves the sourcePointer for this definition if exists"
+    
+    ^self annotationNamed:  self class sourcePointerKey   
+!
+
+sourcePointer: aNumber
+
+    self annotationNamed:  self class sourcePointerKey put: aNumber 
+!
+
+stampAtPointer	
+
+    "A RGMethodDefinition that was set as historical will retrieve the stamp using the sourcePointer"
+
+    ^ self sourcePointer notNil
+        ifTrue: [ SourceFiles timeStampAt: self sourcePointer ]
+        ifFalse:[ nil ]
+! !
+
+!RGMethodDefinition methodsFor:'stamp values'!
+
+author 
+
+    ^self 
+        annotationNamed: self class authorKey
+        ifAbsentPut: [ self class parseAuthorAliasFrom: self stamp ]
+!
+
+author: aString 
+
+    self annotationNamed: self class authorKey put: aString 
+!
+
+timeStamp 
+
+    ^self annotationNamed: self class timeStampKey 
+        ifAbsentPut: [ self class 
+                            parseTimestampFrom: self stamp 
+                            default: (DateAndTime epoch) ]
+!
+
+timeStamp: aTimestamp 
+
+    self annotationNamed: self class timeStampKey put: aTimestamp 
+! !
+
+!RGMethodDefinition methodsFor:'testing'!
+
+hasStamp
+
+    ^stamp isEmptyOrNil not
+!
+
+isAbstract
+    ^ self compiledMethod isAbstract
+!
+
+isDefined
+    "Answer whether the receiver exists in the environment"
+    
+    | rClass |
+    self selector isDoIt ifTrue:[ ^false ].
+    rClass := self realClass.
+    ^rClass notNil and: [ rClass includesSelector: self selector ]
+!
+
+isFromTrait
+
+    "Return true for methods that have been included from Traits"
+    ^ self origin isTrait and: [ self origin ~= self methodClass ]
+!
+
+isLocalSelector
+    "Answer whether the receiver exists in the environment as a local implementation"
+    
+    | rClass |
+    rClass:= self realClass.
+    ^rClass notNil and: [ rClass includesLocalSelector: self selector ]
+!
+
+isMethod
+
+    ^true
+!
+
+isOverridden
+    ^ self compiledMethod isOverridden
+!
+
+isSameRevisionAs: aRGMethodDefinition
+    "This method look for equality of the properties of the receiver"
+    "Stamp is ignored as in many cases a method is saved without containing any change. However it appears as changed due to a different stamp"
+    self flag: 'needs to be evaluated'.
+
+    ^(super isSameRevisionAs: aRGMethodDefinition)
+        and: [ self selector = aRGMethodDefinition selector 
+            and: [ self protocol = aRGMethodDefinition protocol
+                and: [ self sourceCode = aRGMethodDefinition sourceCode ] ] ]
+! !
+
+!RGMethodDefinition methodsFor:'to remove as soon as possible'!
+
+classIsMeta
+
+    ^self isMetaSide
+!
+
+isValid
+    "verifies that the receiver is locally defined in the class and that is not a DoIt"
+
+    ^self isDefined
+! !
+
+!RGMethodDefinition methodsFor:'traits'!
+
+argumentNames
+    "Return an array with the argument names of the method's selector"
+
+    ^ self compiledMethod argumentNames
+!
+
+isBinarySelector
+    ^self selector
+        allSatisfy: [:each | each isSpecial]
+! !
+
+!RGMethodDefinition methodsFor:'type of methods'!
+
+asActive
+
+    "Sets the receiver as active object, which will allow itself to retrieve its data from the compiled method"
+    self annotationNamed: self class statusKey put: #active
+!
+
+asHistorical
+
+    "Sets the receiver as historical object, which will allow itself to retrieve its data using the sourcePointer"
+    self annotationNamed: self class statusKey put: #historical.
+    self sourcePointer ifNil:[ | pointer compiledMethod |
+        pointer := 0.
+        compiledMethod := self compiledMethod.
+        compiledMethod notNil ifTrue: [
+            pointer := compiledMethod sourcePointer ].
+        pointer isZero
+            ifFalse:[ self sourcePointer: pointer ] ]
+!
+
+asPassive
+
+    "Sets the receiver as passive object, which will allow itself to retrieve its data that was assigned in its creation"
+    self annotationNamed: self class statusKey put: #passive
+!
+
+fromActiveToHistorical
+    "If the receiver was generated as an active method, it can be converted to a historical one by reading the data of the compiled method (if exists)"
+    
+    self isActive ifTrue: [
+        self asHistorical ]
+!
+
+fromActiveToPassive
+    "If the receiver was generated as an active method, it can be converted to a passive one by reading the data of the compiled method (if exists)"
+
+    | compiledMethod |
+    self isActive
+        ifFalse: [ ^ self ].
+    compiledMethod := self compiledMethod.
+    compiledMethod notNil
+        ifTrue: [ 
+            self protocol: compiledMethod category.
+            self sourceCode: compiledMethod sourceCode.
+            self stamp: compiledMethod timeStamp ].
+    self asPassive
+!
+
+isActive
+
+    "A ring method isActive when it needs to access the compiledMethod for retrieving its data"
+    ^(self annotationNamed: self class statusKey) 
+        ifNil:[ false ] 
+        ifNotNil:[ :status| status == #active ]
+!
+
+isHistorical
+
+    "A ring method can be used to point an old version of the receiver, in this case it will use the sourcePointer to retrieve its information"
+    ^(self annotationNamed: self class statusKey) 
+        ifNil:[ false ] 
+        ifNotNil:[ :status| status == #historical ]
+!
+
+isPassive
+
+    "A ring method isPassive when it retrieves the data that was assigned in its creation.
+    By default is passive"
+    ^(self annotationNamed: self class statusKey) 
+        ifNil:[ true ] 
+        ifNotNil:[ :status| status == #passive ]
+! !
+