Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50552/filstk.def
There are no other files named filstk.def in the archive.
{------------------------------------------------------------------------}
{---- ----/ FILSTK -- stack of files. \----}
{---- F I L S T K . D E F ----| Set of PASCAL procedures |----}
{---- ----| and functions to implement |----}
{-----------------------------------\ a stack of files. /----}
{------------------------------------------------------------------------}
TYPE
chx3 = PACKED ARRAY [1..3] OF char;
PROCEDURE SClear; EXTERN;
PROCEDURE SPush ( name : string); EXTERN;
PROCEDURE SPop; EXTERN;
FUNCTION SBot : boolean; EXTERN;
PROCEDURE SGet; EXTERN;
FUNCTION SBuf : char; EXTERN;
PROCEDURE SGetLine (VAR line : string;
VAR length : integer); EXTERN;
FUNCTION SEof : boolean; EXTERN.