-- FTPProtError.mesa, Edit: HGM October 13, 1980  7:49 PM  

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  FTPDefs,
  FTPPrivateDefs;

FTPProtError: PROGRAM IMPORTS FTPPrivateDefs EXPORTS FTPPrivateDefs SHARES FTPDefs
  =
  BEGIN OPEN FTPDefs, FTPPrivateDefs;



  SignalToCode: PUBLIC PROCEDURE [ftpError: FtpError] RETURNS [code: Byte] =
    BEGIN
    code ←
      SELECT ftpError FROM
	-- communication errors
	-- IN CommunicationError	=> codeUnidentifiedPermanentError,
	-- credential errors

	credentialsMissing => codeMissingUserName,
	noSuchPrimaryUser => codeIllegalUserName,
	noSuchSecondaryUser => codeIllegalConnectName,
	incorrectPrimaryPassword => codeBadUserPassword,
	incorrectSecondaryPassword => codeBadConnectPassword,
	requestedAccessDenied => codeRequestedAccessDenied,
	-- file errors

	illegalFilename => codeIllegalServerFilename,
	noSuchFile => codeFileNotFound,
	fileAlreadyExists => codeFileAlreadyExists,
	fileBusy => codeFileBusy,
	noRoomForFile => codeStorageExhausted,
	fileDataError => codeFileDataError,
	-- dump errors

	IN DumpError => codeFileDataError,
	-- mail errors

	noValidRecipients => codeNoValidMailbox,
	noSuchMailbox => codeIllegalMailbox,
	-- client errors
	-- IN ClientError		=> codeUnidentifiedPermanentError,
	-- protocol errors

	IN UndefinedFunctionError => codeCommandUndefined,
	IN ProtocolSequenceError => codeCommandIllegal,
	IN IllegalParameterListError => codeMalformedPropertyList,
	illegalFileType => codeIllegalType,
	-- IN ProtocolError		=> codeUnidentifiedPermanentError,
	-- internal errors
	-- IN InternalError		=> codeUnidentifiedPermanentError,
	-- unidentified errors

	unidentifiedTransientError => codeUnidentifiedTransientError,
	ENDCASE => codeUnidentifiedPermanentError;
    END;

  CodeToSignal: PUBLIC PROCEDURE [code: Byte] RETURNS [ftpError: FtpError] =
    BEGIN
    ftpError ←
      SELECT code FROM
	0 => unidentifiedError,
	codeCommandUndefined => functionNotImplemented,
	codeMissingUserName => credentialsMissing,
	codeCommandIllegal => illegalProtocolSequence,
	codeMalformedPropertyList => illegalProtocolParameterList,
	IN [codeIllegalServerFilename..codeIllegalVersion] => illegalFilename,
	codeIllegalType => illegalFileType,
	IN [codeIllegalByteSize..codeIllegalEndOfLineConvention] =>
	  illegalFileAttribute,
	codeIllegalUserName => noSuchPrimaryUser,
	codeBadUserPassword => incorrectPrimaryPassword,
	codeBadUserAccount => unidentifiedPermanentError,
	codeIllegalConnectName => noSuchSecondaryUser,
	codeBadConnectPassword => incorrectSecondaryPassword,
	IN [codeIllegalCreationDate..codeIllegalAuthor] => illegalFileAttribute,
	codeIllegalDevice => illegalFilename,
	codeNoValidMailbox => noValidRecipients,
	codeIllegalMailbox => noSuchMailbox,
	codeFileNotFound => noSuchFile,
	codeRequestedAccessDenied => requestedAccessDenied,
	codeTransferParametersInconsistent => illegalProtocolSequence,
	codeFileDataError => fileDataError,
	codeStorageExhausted => noRoomForFile,
	-- codeDontSendFile,
	-- codeStoreNotCompleted	=> unidentifiedError,

	codeUnidentifiedTransientError => unidentifiedTransientError,
	codeUnidentifiedPermanentError => unidentifiedPermanentError,
	codeFileBusy => fileBusy,
	codeFileAlreadyExists => fileAlreadyExists,
	ENDCASE => unrecognizedProtocolErrorCode;
    END;

  RecipientErrorToExceptionCode: PUBLIC PROCEDURE [recipientError: RecipientError]
    RETURNS [exceptionCode: Byte] =
    BEGIN
    exceptionCode ←
      SELECT recipientError FROM
	noSuchMailbox => excpCannotLocateMailbox,
	noForwardingProvided => excpNoForwardingProvided,
	unspecifiedTransientError => excpTransientError,
	unspecifiedPermanentError => excpPermanentError,
	ENDCASE => excpUnspecifiedFailure;
    END;

  ExceptionCodeToRecipientError: PUBLIC PROCEDURE [exceptionCode: Byte]
    RETURNS [recipientError: RecipientError] =
    BEGIN
    IF exceptionCode NOT IN [excpMinimum..excpMaximum] THEN
      Abort[unrecognizedMailboxExceptionErrorCode];
    recipientError ←
      SELECT exceptionCode FROM
	-- excpUnspecifiedFailure	=> unspecifiedError,

	excpCannotLocateMailbox => noSuchMailbox,
	excpNoForwardingProvided => noForwardingProvided,
	excpTransientError => unspecifiedTransientError,
	excpPermanentError => unspecifiedPermanentError,
	ENDCASE => unspecifiedError;
    END;

  END..  -- FTPProtError