hg/stx-libbasic: comparison Class.st

equal deleted inserted replaced

-:89897abfad56
+:16b2394f9b18
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
 	       All Rights Reserved
 This software is furnished under a license and may be used
 "{ NameSpace: Smalltalk }"
 ClassDescription subclass:#Class
 	instanceVariableNames:'name category classvars comment subclasses classFilename package
 		revision environment signature attributes'
-	classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE
+	classVariableNames:'DefaultCategoryForDolphin DefaultCategoryForSTV
-		DefaultCategoryForDolphin ValidateSourceOnlyOnce ValidatedClasses
-		SubclassCacheSequenceNumber
 		DefaultCategoryForUncategorizedClasses
-		DefaultCategoryForUndeclaredClasses'
+		DefaultCategoryForUndeclaredClasses DefaultCategoryForVAGE
+		SubclassCacheSequenceNumber ValidateSourceOnlyOnce
+		ValidatedClasses'
 	poolDictionaries:''
 	category:'Kernel-Classes'
 !
 Array variableSubclass:#ArrayWithSequenceNumberValidation
 Class adds more functionality to classes; minimum stuff has already
 been defined in Behavior and ClassDescription; this adds naming, categories etc.
 [Instance variables:]
-	name            <Symbol>                    the classes name
+name            <Symbol>                    the classes name
-	category        <Symbol>                    the classes category
+category        <Symbol>                    the classes category
-	classvars       <String>                    the names of the class variables;
+classvars       <String>                    the names of the class variables;
-			| <Collection of words>     initially, stc generates a string; this is converted on the fly
+| <Collection of words>     initially, stc generates a string; this is converted on the fly
-						    to an array of names. In the future, stc may be changed.
+to an array of names. In the future, stc may be changed.
-	comment         <String>                    the classes comment; either a string,
+comment         <String>                    the classes comment; either a string,
-						    a number specifying the offset in classFilename, or nil
+a number specifying the offset in classFilename, or nil
-	subclasses      <Collection>                cached collection of subclasses
+subclasses      <Collection>                cached collection of subclasses
-						    (not used for execution, but for the IDE to speed up certain operations)
+(not used for execution, but for the IDE to speed up certain operations)
-	classFilename   <String>                    the file (or nil) where the classes' sources are found
+classFilename   <String>                    the file (or nil) where the classes' sources are found
-	package         <Symbol>                    the package, in which the class was defined (inserted by compilers)
+package         <Symbol>                    the package, in which the class was defined (inserted by compilers)
-	revision        <String>                    revision string - inserted by stc
+revision        <String>                    revision string - inserted by stc
-	environment     <Symbol | nil>              cached environment (i.e. Smalltalk or a namespace)
+environment     <Symbol | nil>              cached environment (i.e. Smalltalk or a namespace)
-	signature       <SmallInteger>              the classes signature (used to detect obsolete or changed classes with binaryStorage)
+signature       <SmallInteger>              the classes signature (used to detect obsolete or changed classes with binaryStorage)
-						    This is filled in lazy - i.e. upon the first signature query.
+This is filled in lazy - i.e. upon the first signature query.
-	attributes   <Array | nil>                  describes primitiveIncludes, primitiveFunctions etc.
+attributes   <Array | nil>                  describes primitiveIncludes, primitiveFunctions etc.
-						    also a place to add additional attributes, without a need to recompile all classes.
+also a place to add additional attributes, without a need to recompile all classes.
 WARNING: layout known by compiler and runtime system
+[note:]
+the subclasses instvar keeps a cached collection of the known subclasses in the system.
+this cache is lazyly flushed when a SubclassCacheSequenceNumber comparison detects a mismatch.
+(this seqNr is incremented, whenever something in any class hierarchy changes).
+This is a q&d mechanism to allow for no-overhead fileIn and package loading,
+and reasonable speedup in the hierarchy walkers (i.e. the browsers).
+(flushing all is obviously too much flushing, and we could do better in many situations)
 [author:]
-	Claus Gittinger
+Claus Gittinger
 [see also:]
-	Behavior ClassDescription Metaclass
+Behavior ClassDescription Metaclass
 "
 !
 versionManagement
 "
 !
 revisionStringFromSource:aMethodSourceString
 "{ Pragma: +optSpace }"
-"extract a revision string from a methods source string.
+"extract a revision string from a method's source string.
 Caveat: Assumes CVS."
 |lines line|
 lines := aMethodSourceString asCollectionOfLines.
 ! !
 !Class class methodsFor:'private'!
 flushSubclassInfo
-"throw away (forget) the cached subclass information, as created
+"throw away (forget) the cached subclass information,
-by #subclassInfo.
+as created by #subclassInfo.
 This is private protocol"
 SubclassCacheSequenceNumber := (SubclassCacheSequenceNumber ? 0) + 1.
 "/    self allSubInstancesDo:[:cls |
 "Modified: / 06-12-2011 / 16:20:13 / cg"
 !
 flushSubclassInfoFor:aClass
-"throw away (forget) the cached subclass information for aClass, as created
+"throw away (forget) the cached subclass information for aClass,
-by #subclassInfo.
+as created by #subclassInfo.
 This is private protocol"
 aClass notNil ifTrue:[
-	aClass flushSubclasses
+aClass flushSubclasses
 ].
 "
 Class flushSubclassInfoFor:View
 "
 isBuiltInClass
 "return true if this class is known by the run-time-system.
 Here, true is returned for myself, false for subclasses."
-^ self == Class class or:[self == Class]
+^ self == (Class class) or:[self == Class]
 "Created: 15.4.1996 / 17:17:13 / cg"
 "Modified: 23.4.1996 / 15:56:58 / cg"
 ! !
 !Class methodsFor:'Compatibility-Dolphin'!
 defaultCategoryForDolphinClasses
 "Modified: / 09-08-2006 / 17:59:13 / fm"
 !
 sharedPoolNames
-"this returns a collection of the plain (non-namespace aware) pool names"
+"this returns a collection of the plain (non-namespace aware) pool names.
+Read the comment in sharedPools on why this is done."
 |pools|
 pools := self getAttribute:#sharedPools.
 pools isNil ifTrue:[
 self setAttribute:#sharedPools to:pools.
 ].
 ^ pools
 "
+ZipArchive sharedPoolNames
 OSI::ASN1_Coder sharedPoolNames
 Croquet::OpenGL sharedPoolNames
 OpenGLRenderingContext sharedPoolNames
 Character sharedPoolNames
 Win32OperatingSystem sharedPoolNames
 "Modified: / 18-01-2011 / 20:41:17 / cg"
 !
 sharedPools
 "this returns a collection of the real pools (i.e. the PoolDictionaries),
-not their names (see sharedPoolNames)"
+not their names (see sharedPoolNames).
+This cares for the namespace in which the class is located
+Notice, that for source compatibility with other smalltalks,
+the namespace is not in the pool name, as to make it is easy to fileIn an alien class
+into an ST/X namespace.
+However, then we must resolve the actual pool later - i.e. here"
 |ns ns2 pools|
 ns := self nameSpace.
 ns2 := self topNameSpace.
 pools :=
 self sharedPoolNames
 collect:[:eachName |
 |pool|
-ns ~= Smalltalk ifTrue:[
+(ns notNil and:[ns ~= Smalltalk]) ifTrue:[
 pool := ns classNamed:eachName.
 ].
 pool isNil ifTrue:[
-ns2 ~= Smalltalk ifTrue:[
+(ns2 notNil and:[ns2 ~~ ns and:[ns2 ~= Smalltalk]]) ifTrue:[
 pool := ns2 classNamed:eachName.
 ].
-].
-pool isNil ifTrue:[
-pool := Smalltalk classNamed:eachName.
 pool isNil ifTrue:[
-Transcript showCR:('Warning: no such pool: ',eachName).
+pool := Smalltalk classNamed:eachName.
-]
+pool isNil ifTrue:[
+Transcript showCR:('Warning: no such pool: ',eachName).
+]
+].
 ].
 pool
 ]
 thenSelect:[:pool | pool notNil].
 ^ pools.
 "
+an example for a pool inside a namespace (in this case: a private pool):
+UnixOperatingSystem::ELFFileHeader sharedPools
+Smalltalk allClasses
+collect:[:cls | cls -> cls sharedPools]
+thenSelect:[:assoc | assoc value notEmptyOrNil].
 OSI::ASN1_Coder sharedPoolNames
-OSI::ASN1_Coder sharedPools
+ZipArchive sharedPools
 Croquet::OpenGL sharedPools
 OpenGLRenderingContext sharedPools
 Character sharedPools
 Win32OperatingSystem sharedPools
 "
 !
 subclasses
 "return a collection of the direct subclasses of the receiver"
-"/ use cached information (avoid class hierarchy search), if possible
+"/ use cached information (to avoid class hierarchy search if possible)
 (subclasses isNil
 or:[ subclasses sequenceNumber ~= SubclassCacheSequenceNumber ]) ifTrue:[
-	self updateAllCachedSubclasses.
+self updateAllCachedSubclasses.
-	"subclasses may still be nil - obsolete classes may not be updated"
+"subclasses may still be nil - obsolete classes may not be updated"
-	^ subclasses ? #().
+^ subclasses ? #().
 ].
 ^ subclasses.
 "
 Class flushSubclassInfo.
 self withAllPrivateClassesDo:[:cls | coll add:cls].
 ^ coll
 "Created: / 18-07-2011 / 09:14:38 / cg"
 ! !
 !Class methodsFor:'adding & removing'!
 removeFromSystem
 "ST-80 compatibility
 "
 StandardSystemView whichClassDefinesClassVar:'ErrorSignal'
 StandardSystemView whichClassDefinesClassVar:'Foo'
 "
-!
-whichPoolDefinesPoolVar:aVariableName
-"return the shared which defines the class variable named aVariableName or nil."
-self sharedPools do:[:eachPool |
-(eachPool classVariableNames includes:aVariableName) ifTrue:[ ^ eachPool].
-].
-^ nil
-"
-ZipArchiveConstants classVariableNames
-ZipArchive sharedPools
-ZipArchive whichPoolDefinesPoolVar:'ECREC_SIZE'
-"
 ! !
 !Class methodsFor:'renaming'!
 makePrivateIn:newOwner

changeset 22810	16b2394f9b18
parent 22659	1fe75ac33b44
child 22847	2839af336c1c