DEFINITION MODULE FileMessage;
(*$ LargeVars:=FALSE NameChk:=FALSE *)
(* 2.0 / 8.4.87 / ms *)

FROM FileSystem IMPORT
 Response;

TYPE
 StrPtr = POINTER TO ARRAY [0..255] OF CHAR;

(*
 * ResponseText returns a pointer to a string containing
 * the message text for the given file response
 *)
PROCEDURE ResponseText(res: Response; VAR p: StrPtr);

END FileMessage.
