-- 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 ~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