hg/stx-libbasic: comparison Autoload.st

equal deleted inserted replaced

-:839e8f33d509
+:870789c08fad
 "remove myself - to avoid recompilation"
 Smalltalk at:myName put:nil.
 "load it"
 (Object infoPrinting and:[Smalltalk silentLoading ~~ true]) ifTrue:[
-	Transcript showCR:('autoloading ', myName , ' ...'); endEntry.
+Transcript showCR:('autoloading ', myName , ' ...'); endEntry.
 ].
 [
-	prevMode := ClassCategoryReader sourceMode.
+prevMode := ClassCategoryReader sourceMode.
 "/
 "/ no- do not do this; it may lead to trouble ...
 "/        ClassCategoryReader sourceMode:#reference.
-	"/
+"/
-	"/ in order to not get a package of private (or whatever),
+"/ in order to not get a package of private (or whatever),
-	"/ temporarily set the currentProject to nil.
+"/ temporarily set the currentProject to nil.
-	"/ we will later set the classes package to something useful
+"/ we will later set the classes package to something useful
-	"/
+"/
-	Project notNil ifTrue:[
+Project notNil ifTrue:[
-	    project := Project current.
+project := Project current.
-	    Project setProject:nil.
+Project setProject:nil.
-	].
+].
-	Class nameSpaceQuerySignal answer:myNameSpace "Smalltalk"
+Class nameSpaceQuerySignal answer:myNameSpace "Smalltalk"
-	do:[
+do:[
-	    package := self package.
+package := self package.
-	    package notNil ifTrue:[
+package notNil ifTrue:[
-		(package includes:$:) ifTrue:[
+(package includes:$:) ifTrue:[
-		    package := package asString copy replaceAll:$: with:$/
+package := package asString copy replaceAll:$: with:$/
-		] ifFalse:[
+] ifFalse:[
-		    package := 'stx/' , package
+package := 'stx/' , package
-		]
+]
-	    ].
+].
-	    Smalltalk
+Smalltalk
-		fileInClass:myName
+fileInClass:myName
-		package:package
+package:package
-		initialize:false
+initialize:false
-		lazy:LazyLoading
+lazy:LazyLoading
-		silent:nil.
+silent:nil.
-	].
+].
-	ClassCategoryReader sourceMode:prevMode.
+ClassCategoryReader sourceMode:prevMode.
-	project notNil ifTrue:[
+project notNil ifTrue:[
-	    Project setProject:project.
+Project setProject:project.
-	].
+].
 ] valueOnUnwindDo:[
-	ClassCategoryReader sourceMode:prevMode.
+ClassCategoryReader sourceMode:prevMode.
-	project notNil ifTrue:[
+project notNil ifTrue:[
-	    Project setProject:project.
+Project setProject:project.
-	].
+].
-	Smalltalk at:myName put:mySelf.
+Smalltalk at:myName put:mySelf.
 ].
 "did it work ?"
 newClass := Smalltalk at:myName.
 Smalltalk at:myName put:mySelf.   "will be undone by become:"
 "no - report the error"
 newClass isNil ifTrue:[
-	"
+"
-	 this signal is raised, if an autoloaded class
+this signal is raised, if an autoloaded class
-	 cannot be loaded. Usually, this happends when
+cannot be loaded. Usually, this happends when
-	 some sourcefile is missing, not readable or if
+some sourcefile is missing, not readable or if
-	 an entry is missing in the abbreviation file.
+an entry is missing in the abbreviation file.
-	 Check for a readable file named <myName>.st
+Check for a readable file named <myName>.st
-	 in the 'source' directory and (if its a long fileName)
+in the 'source' directory and (if its a long fileName)
-	 for a corresponding entry in the abbreviation file
+for a corresponding entry in the abbreviation file
-	 'include/abbrev.stc'.
+'include/abbrev.stc'.
-	 Finally, your searchpath could be set wrong -
+Finally, your searchpath could be set wrong -
-	 both 'source' and 'include' directories must be found in
+both 'source' and 'include' directories must be found in
-	 one of the directories named in systemPath.
+one of the directories named in systemPath.
-	 In the debugger, press 'abort' to continue execution.
+In the debugger, press 'abort' to continue execution.
-	"
+"
-	AutoloadFailedSignal
+AutoloadFailedSignal
-	    raiseRequestWith:self
+raiseRequestWith:self
-	    errorString:('autoload of ' , myName , ' failed').
+errorString:('autoload of ' , myName , ' failed').
-	^ nil
+^ nil
 ].
 "/
 "/ autoloaded classes get their package from the revision (if present)
 "/ this only happens with autoloaded sourceFiles which have no package
 "/ If there is no such information, give it my package (if I have one)
 "/
 newClass setPackageFromRevision.
 (newClass package isNil
 or:[newClass package = 'no package']) ifTrue:[
-	package := self package.
+package := self package.
-	(package notNil and:[package ~= 'no package'])
+(package notNil and:[package ~= 'no package'])
-	ifTrue:[
+ifTrue:[
-	    newClass setPackage:package.
+newClass setPackage:package.
-	].
+].
 ].
 LoadedClasses isNil ifTrue:[
-	LoadedClasses := IdentitySet new.
+LoadedClasses := IdentitySet new.
 ].
 LoadedClasses add:newClass.
 "wow - it worked. now the big trick ..."
 "/    newClass class setSoleInstance:self.   "/ will be undone by become ...
 oldMeta := self class.
-self setName:(self name , ' (auto)').
+"/ self setName:(self name , ' (auto)').
 self becomeSameAs:newClass.
 oldMeta becomeSameAs:newClass class.
 ObjectMemory flushCaches.
 LoadedClasses rehash.
 (newClass class implements:#initialize) ifTrue:[
-	newClass initialize.
+newClass initialize.
 ].
 newClass privateClassesDo:[:aPrivateClass |
-	(aPrivateClass class implements:#initialize) ifTrue:[
+(aPrivateClass class implements:#initialize) ifTrue:[
-	    aPrivateClass initialize.
+aPrivateClass initialize.
-	]
+]
 ].
 newClass postAutoload.
 ^ newClass
-"Modified: / 9.1.1998 / 15:03:00 / cg"
+"Modified: / 3.2.1998 / 18:30:13 / cg"
 ! !
 !Autoload class methodsFor:'message catching'!
 basicNew
 ! !
 !Autoload class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.77 1998-01-12 13:09:39 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.78 1998-02-03 17:30:42 cg Exp $'
 ! !
 Autoload initialize!

changeset 3267	870789c08fad
parent 3151	018115a34d6f
child 3287	f3761386e4ba