(* $N- *)
DEFINITION MODULE FileMessage;
(* 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.
