<> <> <> <<>> DIRECTORY DM, DMFSAModel; DMFSAModelImpl: CEDAR PROGRAM EXPORTS DMFSAModel = BEGIN OPEN DMFSAModel; Create: PUBLIC PROC [Reset, PhA, EvPhA, PhB, EvPhB: DM.ActionProc, ctlAB, ctlBA: DM.Component] RETURNS [fsa: DM.Component] = { fsa _ NEW [DM.ComponentRec _ [ action: [Reset, PhA, EvPhA, PhB, EvPhB], history: NIL, componentType: $FSA, subComponents: NIL, specific: NEW [FSASpecificRec _ [ctlAB: ctlAB, ctlBA: ctlBA]]]] }; END. <<>>