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.

.
