INTERFACEBuf ; IMPORT File, OSError; TYPE T = REF ARRAY OF CHAR; PROCEDURE FromFile (path: TEXT; src: File.T; pad: CARDINAL := 0): T RAISES {OSError.E};
Read and return the entire contents of the filesrc
withpad
bytes of zero appended. Ifsrc
isNIL
, open and read the file namedpath
and then close it.
PROCEDURE FromText (txt: TEXT): T;
Return the contents of 'txt' as a buffer
END Buf.