Tomsovi

C Vygenerované zdrojové kódy FSM v jazyku Smalltalk

C.1 FSM.st

Object subclass: #FSM
   instanceVariableNames: 'name initial final current states transitions'
   classVariableNames: ''
   poolDictionaries: ''
   category: 'EA-Generated'

FSM methodsFor: 'as yet unclassified' stamp: 'JanTomsa 01-IV-2010 1:38:31'
processSignal: signal
"Fire first outgoing transition of current state whose input equals signal received.
Set current to the result and return it."
   ^current := ((current outgoing) select:
       [ :trans |
          trans input = signal
       ]
    ) first fire.

C.2 State.st

Object subclass: #State
   instanceVariableNames: 'name outgoing incoming'
   classVariableNames: ''
   poolDictionaries: ''
   category: 'EA-Generated'

C.3 Transition.st

Object subclass: #Transition
   instanceVariableNames: 'input output source target'
   classVariableNames: ''
   poolDictionaries: ''
   category: 'EA-Generated'