-- FTPTrace.mesa - last edit: -- MAS May 19, 1980 6:09 PM -- HGM July 31, 1980 5:28 PM -- Copyright Xerox Corporation 1979, 1980 DIRECTORY FTPDefs, FTPPrivateDefs, String USING [AppendChar, AppendDecimal]; FTPTrace: PROGRAM IMPORTS String EXPORTS FTPDefs, FTPPrivateDefs SHARES FTPDefs = BEGIN OPEN FTPDefs, FTPPrivateDefs; FTPEnableTrace: PUBLIC PROCEDURE [ ftpuser: FTPUser, writeString: PROCEDURE [STRING]] = BEGIN OPEN ftpuser; -- enable tracing of both ftp and mtp protocol exchanges ftper.tracing _ mtper.tracing _ TRUE; ftper.directionOfLastTrace _ mtper.directionOfLastTrace _ in; -- note client's writeString procedure ftper.writeString _ mtper.writeString _ writeString; END; FTPDisableTrace: PUBLIC PROCEDURE [ftpuser: FTPUser] = BEGIN OPEN ftpuser; -- disable tracing of both ftp and mtp protocol exchanges ftper.tracing _ mtper.tracing _ FALSE; END; TraceOut: PUBLIC PROCEDURE [ftper: FTPer, mark: Byte] = BEGIN OPEN ftper; IF directionOfLastTrace = in THEN BEGIN TraceCharacter[ftper, outgoingTraceIndicator]; directionOfLastTrace _ out; END; TraceCharacter[ftper, LOOPHOLE[mark]]; END; TraceIn: PUBLIC PROCEDURE [ftper: FTPer] = BEGIN OPEN ftper; IF directionOfLastTrace = out THEN BEGIN TraceCharacter[ftper, incomingTraceIndicator]; directionOfLastTrace _ in; END; END; TraceString: PUBLIC PROCEDURE [ftper: FTPer, string: STRING] = BEGIN OPEN ftper; -- Note: Assumes tracing enabled. -- local constants traceString: STRING = [maxStringLength]; -- local variables i: CARDINAL; -- construct trace string FOR i IN [0..string.length) DO VerbalizeCharacter[traceString, string[i]]; ENDLOOP; -- output trace string writeString[traceString]; END; TraceCharacter: PUBLIC PROCEDURE [ftper: FTPer, character: CHARACTER] = BEGIN OPEN ftper; -- Note: Assumes tracing enabled. -- local constants traceString: STRING = [maxStringLength]; -- construct trace string VerbalizeCharacter[traceString, character]; -- output trace string writeString[traceString]; END; VerbalizeCharacter: PROCEDURE [string: STRING, character: CHARACTER] = BEGIN -- Note: Outputs decimal value of nonprinting characters. -- verbalize character SELECT character FROM IN [' ..'_], IN ['a..'~] => String.AppendChar[string, character]; ENDCASE => BEGIN String.AppendChar[string, traceByteLeftDelimiter]; String.AppendDecimal[string, LOOPHOLE[character, CARDINAL]]; String.AppendChar[string, traceByteRightDelimiter]; END; END; END. -- of FTPTrace