-- Grapevine: Lily: DEFS for misc i/o procedures

-- [Juniper]<Grapevine>Lily>LilyIODefs.mesa

-- Andrew Birrell   4-Jan-82 15:26:33

DIRECTORY
GlassDefs	USING[ Handle, StringType ];

LilyIODefs: DEFINITIONS =

BEGIN

AppendFromInput: PROC[str: GlassDefs.Handle,
                      firstChar: CHARACTER,
                      write: PROC[CHARACTER],
                      unwrite: PROC RETURNS[CHARACTER],
                      type: GlassDefs.StringType]
                 RETURNS[end: CHARACTER];

Confirmation:	TYPE = { yes, no, del };

Confirm:	PROC[ str: GlassDefs.Handle]
		RETURNS[ Confirmation ];

Type:		PROC[ str: GlassDefs.Handle,
		      readChar: PROC RETURNS[ CHARACTER],
		      lastChar: CHARACTER ];

LogAction:	PROC[ n: CARDINAL, action: STRING ];
END.