--- a/Smalltalk.st Mon Feb 10 12:18:07 1997 +0100
+++ b/Smalltalk.st Mon Feb 10 12:23:07 1997 +0100
@@ -2485,61 +2485,60 @@
f notNil ifTrue:[
s := f asFilename readStream.
s notNil ifTrue:[
- [s atEnd] whileFalse:[
- l := s nextLine withoutSeparators.
- l notEmpty ifTrue:[
- s2 := l readStream.
- clsName := (s2 upTo:Character space) withoutSeparators asSymbol.
- (self at:clsName) isNil ifTrue:[
- s2 skipSeparators.
- abbrev := (s2 upTo:Character space) withoutSeparators asSymbol.
- s2 skipSeparators.
- package := (s2 upTo:Character space) withoutSeparators asSymbol.
- s2 skipSeparators.
-
- rev := nil.
- s2 skipSeparators.
- s2 atEnd ifFalse:[
- s2 peek isDigit ifTrue:[
- rev := (s2 upTo:Character space) withoutSeparators.
- s2 skipSeparators.
- ]
- ].
- cat := s2 upToEnd withoutSeparators.
-
- (cat startsWith:$') ifTrue:[
- cat := (cat copyFrom:2 to:(cat size - 1)) withoutSeparators.
- ].
-
- (cat isNil or:[cat isEmpty]) ifTrue:[
- cat := 'autoloaded'
- ].
-
- "/ ' autoloaded: ' print. clsName print. ' in ' print. cat printNL.
-
- "/ install if not already compiled-in
-
- Class nameSpaceQuerySignal answer:Smalltalk do:[
- "/ yes, create any required nameSpace, without asking user.
- Class createNameSpaceQuerySignal answer:true do:[
- Autoload subclass:clsName
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:cat
- inEnvironment:Smalltalk.
+
+ "/ yes, create any required nameSpace, without asking user.
+ Class createNameSpaceQuerySignal answer:true do:[
+
+ [s atEnd] whileFalse:[
+ l := s nextLine withoutSeparators.
+ l notEmpty ifTrue:[
+ s2 := l readStream.
+ clsName := (s2 upTo:Character space) withoutSeparators asSymbol.
+ (self at:clsName) isNil ifTrue:[
+ s2 skipSeparators.
+ abbrev := (s2 upTo:Character space) withoutSeparators asSymbol.
+ s2 skipSeparators.
+ package := (s2 upTo:Character space) withoutSeparators asSymbol.
+ s2 skipSeparators.
+
+ rev := nil.
+ s2 skipSeparators.
+ s2 atEnd ifFalse:[
+ s2 peek isDigit ifTrue:[
+ rev := (s2 upTo:Character space) withoutSeparators.
+ s2 skipSeparators.
+ ]
].
- ].
-
- cls := self at:clsName.
- cls isNil ifTrue:[
- ('Smalltalk [warning]: failed to add ' , clsName , ' as autoloaded.') infoPrintCR.
- ] ifFalse:[
- cls package:package asSymbol.
- rev notNil ifTrue:[
- cls setBinaryRevision:rev
- ]
- ]
+ cat := s2 upToEnd withoutSeparators.
+
+ (cat startsWith:$') ifTrue:[
+ cat := (cat copyFrom:2 to:(cat size - 1)) withoutSeparators.
+ ].
+
+ (cat isNil or:[cat isEmpty]) ifTrue:[
+ cat := 'autoloaded'
+ ].
+
+ "/ ' autoloaded: ' print. clsName print. ' in ' print. cat printNL.
+
+ "/ install if not already compiled-in
+ Autoload subclass:clsName
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:cat
+ inEnvironment:Smalltalk.
+
+ cls := self at:clsName.
+ cls isNil ifTrue:[
+ ('Smalltalk [warning]: failed to add ' , clsName , ' as autoloaded.') infoPrintCR.
+ ] ifFalse:[
+ cls package:package asSymbol.
+ rev notNil ifTrue:[
+ cls setBinaryRevision:rev
+ ]
+ ]
+ ]
]
]
].
@@ -2551,7 +2550,7 @@
Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'
"
- "Modified: 8.2.1997 / 19:43:26 / cg"
+ "Modified: 10.2.1997 / 12:22:44 / cg"
!
libraryFileNameOfClass:aClassOrClassName
@@ -3597,5 +3596,5 @@
!Smalltalk class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.222 1997-02-08 19:07:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.223 1997-02-10 11:23:07 cg Exp $'
! !