1: ================================================================================ 2: 3: Smalltalk defineClass: #SynapseScannerTable 4: superclass: #{Core.Object} 5: indexedType: #none 6: private: false 7: instanceVariableNames: 'transitionTable ' 8: classInstanceVariableNames: '' 9: imports: '' 10: category: '' 11: 12: ================================================================================ 13: 14: SynapseScannerTable method for 'accessing' 15: 16: at: aSymbol 17: 18: | aState | 19: self transitionTable 20: do: [:anAssociation | anAssociation key = aSymbol ifTrue: [^anAssociation value]]. 21: aState := self defaultStateClass state: aSymbol. 22: self transitionTable add: aSymbol -> aState. 23: ^aState 24: 25: ------------------------------------------------------------ 26: 27: SynapseScannerTable method for 'defaults' 28: 29: defaultStateClass 30: 31: ^KSU.SynapseScannerState 32: 33: ------------------------------------------------------------ 34: 35: SynapseScannerTable method for 'default states' 36: 37: initial 38: 39: ^OrderedCollection new 40: 41: ------------------------------------------------------------ 42: 43: SynapseScannerTable method for 'initialize-release' 44: 45: initialize 46: 47: transitionTable := nil 48: 49: ------------------------------------------------------------ 50: 51: SynapseScannerTable method for 'accessing' 52: 53: transitionTable 54: 55: transitionTable ifNil: [transitionTable := OrderedCollection new]. 56: ^transitionTable 57: 58: ================================================================================ 59: 60: Smalltalk.SynapseScannerTable class 61: instanceVariableNames: '' 62: 63: ================================================================================ 64: 65: SynapseScannerTable class method for 'instance creation' 66: 67: new 68: 69: ^super new initialize 70: 71: ================================================================================
This document was generated by KSU.TextDoclet on 2013/02/22 at 01:01:17.