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.