home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / lilith / m2send.def < prev    next >
Text File  |  2020-01-01  |  803b  |  21 lines
  1. DEFINITION MODULE KermSend;
  2. (************************************************************************)
  3. (*  Send one or more files to remote Kermit                             *)
  4. (*  written:            08.10.85     Matthias Aebi                      *)
  5. (*  last modification:  25.02.86     Matthias Aebi                      *)
  6. (************************************************************************)
  7.  
  8. EXPORT QUALIFIED Send, SendPacket, SwitchSend;
  9.  
  10. PROCEDURE Send;
  11. (* send a file  *)
  12.  
  13. PROCEDURE SendPacket(type: CHAR; num, len: CARDINAL; data: ARRAY OF CHAR);
  14. (* send a Kermit packet *)
  15.  
  16. PROCEDURE SwitchSend(fileName, sendName: ARRAY OF CHAR): BOOLEAN;
  17. (* Send one or more files. Returns TRUE if the send was successful *)
  18. (* If SendName # "" use this name for the first file sent *)
  19.  
  20. END KermSend.
  21.