Copyright (C) 1994, Digital Equipment Corporation
All rights reserved.
See the file COPYRIGHT for a full description.
Last modified on Fri Aug 12 11:50:40 PDT 1994 by heydon
modified on Mon Jun 13 15:02:09 PDT 1994 by shillner
INTERFACE UFInput;
IMPORT FormsVBT;
EXCEPTION Error(TEXT);
TYPE
T <: TPublic;
TPublic = OBJECT METHODS
next(VAR (*OUT*) cmd: Cmd): BOOLEAN RAISES {Error};
END;
Cmd = ROOT OBJECT END;
NewSetCmd = Cmd OBJECT arg1: TEXT END;
FinishedSetsCmd = Cmd OBJECT END;
FindCmd = Cmd OBJECT arg1: CARDINAL END;
UnionCmd = Cmd OBJECT arg1, arg2: CARDINAL; bothRoots: BOOLEAN END;
New T objects should only be created by calls to New below. Subsequent
t.next operations set cmd to the next NewSetCmd, FinishSetsCmd,
FindCmd, or UnionCmd in the input and return TRUE, or return FALSE if
there are no more commands.
PROCEDURE New(fv: FormsVBT.T): T RAISES {Error};
Return a new initialized T from the form fv. Raises Error in the
event of some input error.
END UFInput.