home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
lilith.tar.gz
/
lilith.tar
/
m2send.def
< prev
next >
Wrap
Text File
|
1988-08-16
|
803b
|
21 lines
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.