-- StateHot.mesa  last edit:
  -- Bruce  July 17, 1980  2:44 PM
  -- Mark  Apr 16, 1980 7:24 PM

DIRECTORY
  DebugOps USING [fileSW],
  State USING [GetGS, GSHandle, ParseProc],
  TextSW USING [BlinkingCaret],
  UserInput USING [StringProcType];

StateHot: PROGRAM
    IMPORTS DebugOps, TextSW, State
    EXPORTS State =
  BEGIN

  data: State.GSHandle _ State.GetGS[];

  SetParse: PUBLIC PROC [proc: State.ParseProc] =
    BEGIN
    TextSW.BlinkingCaret[DebugOps.fileSW, on];
    data.parse _ proc;
    END;

  StringProc: PUBLIC UserInput.StringProcType =
    BEGIN
    FOR i: CARDINAL IN [0..string.length) DO data.parse[string[i]] ENDLOOP;
    END;

  END.