DMFSAModelImpl.mesa
Written By: Pradeep Sindhu, September 3, 1985 4:32:29 pm PDT
Last Edited By: Pradeep Sindhu September 4, 1985 2:54:58 pm PDT
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.