language-Modula2-0.1: examples/Dipl/BUFFERS.DEF

DEFINITION MODULE Buffers;

FROM FIO IMPORT Separators, File;

TYPE
	CharSet=SET OF CHAR;
	CharPtr=POINTER TO CHAR;

VAR
	input, output:File;
	reachedLine:CARDINAL;
	linePos, position, reached:LONGCARD;

PROCEDURE ReadChar(VAR ch:CHAR);
PROCEDURE Rewind(newPosition:LONGCARD);
PROCEDURE FlushOut;
PROCEDURE ReadWord(VAR wd:ARRAY OF CHAR; VAR firstChar, otherChars:CharSet);
PROCEDURE WriteChars(a:ADDRESS);

PROCEDURE OpenInput(filename:ARRAY OF CHAR):BOOLEAN;
PROCEDURE CloseInput;
PROCEDURE ReportError;

END Buffers.