-- File:  GVAnswer.Mesa
-- edited by Karlton, December 2, 1980  1:28 PM
-- based on Answer.mesa of Brotz, March 4, 1983  11:58 AM

--  edited by Willie-Sue, April 19, 1983 10:50 am

DIRECTORY
  Rope USING [ROPE];

GVAnswer: CEDAR DEFINITIONS =

BEGIN

ROPE: TYPE = Rope.ROPE;
 
MakeHeader: PROC [
  getChar: PROC [INT] RETURNS [CHAR], getLength: INT,
  userName, userRegistry: ROPE,
  cForCopies: BOOLEAN _ FALSE]
  RETURNS [answerError: BOOL, answer: ROPE, errorIndex: INT];
-- Causes an answering header for a message that the client currently has.
--   'getChar' procedure is used to get characters from the old message header.
--   The argument to 'getChar' is which character from the old header is needed.
--   The same character may be asked for more than once.  'getLength' is the length
--   of the old message being parsed; 'getChar' will always be called with the
--   argument in the range [0 .. getLength).  'userName' and 'userRegistry' may not
--   be NIL, and are used to eliminate some "redundant" information from the constructed
--   header.  'cForCopies causes the constructed header to have "c:  <recipient list>" instead
--   of "cc: <recipient list>".
-- If the parse of the old message failed, then MakeHeader returns TRUE.
--  IF answerError is TRUE, then errorIndex is the current value of getCharIndex
--   (gives some idea of where the parse error occurred

END.  -- GVAnswer --