DEFINITION MODULE KermSend; (************************************************************************) (* Send one or more files to remote Kermit *) (* written: 08.10.85 Matthias Aebi *) (* last modification: 25.02.86 Matthias Aebi *) (************************************************************************) EXPORT QUALIFIED Send, SendPacket, SwitchSend; PROCEDURE Send; (* send a file *) PROCEDURE SendPacket(type: CHAR; num, len: CARDINAL; data: ARRAY OF CHAR); (* send a Kermit packet *) PROCEDURE SwitchSend(fileName, sendName: ARRAY OF CHAR): BOOLEAN; (* Send one or more files. Returns TRUE if the send was successful *) (* If SendName # "" use this name for the first file sent *) END KermSend.