-- MOSSIMFuncImpl.mesa
-- Created by Suzuki:  7-Dec-81 13:45:43
-- Last edited by Suzuki: 15-Dec-81 15:33:52 

DIRECTORY
  Connector,
  MOSSIMFunc,
  Rope,
  SimStep,
  SimTsim,
  stdio;
  
MOSSIMFuncImpl: PROGRAM
  IMPORTS Connector, SimStep, SimTsim, stdio
  EXPORTS MOSSIMFunc = {
  
  Unimplementd: SIGNAL = CODE;
  
  Alarm: PROC = {
    SIGNAL Unimplementd};
    
  Read: PUBLIC PROC [file: STRING] = {
    st: stdio.FILE ← stdio.fopen[file, "r"];
    SimTsim.error3String["File read started: ", "%s*n", file];
    SimTsim.input[st];
    SimTsim.error3String["", "*n%s*n", "File read finished"];
    SimTsim.error2String["Initialization started", "*n"];
    UNTIL SimTsim.initializationResult[]=0 DO ENDLOOP;
    SimTsim.error2String["Initialization finished", "*n"]};
  
  Step: PUBLIC PROC = {
    [] ← SimStep.step[];
    Connector.StandardDelay[]};
  

}.