#DOCUMENTATION by cg
class: SmallSense::Manager
comment/format in: #delayedUpdateInfoForClass:
--- a/SmallSense__Manager.st Fri Dec 09 13:45:14 2016 +0100
+++ b/SmallSense__Manager.st Fri Dec 23 11:56:17 2016 +0100
@@ -243,40 +243,40 @@
info isErrorneous ifTrue:[ ^ self ].
info seqno: seqno.
[
- instVarNames := class allInstVarNames.
- instVarTypes := instVarNames collect: [:instvar | info infoForInstvar: instvar ].
- "/ Check for the source stream - if none, then do not add methods (one cannot
- "/ infer types without a source anyway and mark the class errorneous...
- [
- sourceStream := class sourceStream.
- ] on: Error do:[
- sourceStream := nil.
- ].
- sourceStream isNil ifTrue:[
- info errorneous: true.
- ^ self.
- ].
- class methodsDo:[:mthd|updater add:mthd].
+ instVarNames := class allInstVarNames.
+ instVarTypes := instVarNames collect: [:instvar | info infoForInstvar: instvar ].
+ "/ Check for the source stream - if none, then do not add methods (one cannot
+ "/ infer types without a source anyway and mark the class errorneous...
+ [
+ sourceStream := class sourceStream.
+ ] on: Error do:[
+ sourceStream := nil.
+ ].
+ sourceStream isNil ifTrue:[
+ info errorneous: true.
+ ^ self.
+ ].
+ class methodsDo:[:mthd|updater add:mthd].
- probe := [:instance |
- instVarTypes withIndexDo: [:instVarType :i |
- instVarType union: ((Type withClass: (instance instVarAt: i) class) type trustfullness: 70).
- ].
- nprobed := nprobed + 1.
- nprobed > 100 ifTrue:[
- "/ Probe at most 100 instancess
- ^ self
- ].
- ].
- nprobed := 0.
- class allInstancesDo: probe.
- "/ Maube an abstract class?
- nprobed < 100 ifTrue:[
- class allSubInstancesDo: probe
- ].
+ probe := [:instance |
+ instVarTypes withIndexDo: [:instVarType :i |
+ instVarType union: ((Type withClass: (instance instVarAt: i) class) type trustfullness: 70).
+ ].
+ nprobed := nprobed + 1.
+ nprobed > 100 ifTrue:[
+ "/ Probe at most 100 instancess
+ ^ self
+ ].
+ ].
+ nprobed := 0.
+ class allInstancesDo: probe.
+ "/ Maybe an abstract class?
+ nprobed < 100 ifTrue:[
+ class allSubInstancesDo: probe
+ ].
] on: Error do:[:ex |
- info errorneous: true.
- Logger error:'Error when infering instvars for %1: %2' with: class name with: ex description
+ info errorneous: true.
+ Logger error:'Error when infering instvars for %1: %2' with: class name with: ex description
]
"Created: / 27-11-2011 / 18:04:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"