Topspeed_JPI/TS/INCLUDE/FTSUPPOR.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  FTSUPPOR.DEF - COMMS Toolkit file-transfer support                      *
*                                                                          *
*  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

DEFINITION MODULE FTSupport;

  CONST (* Characters common to all Xmodem/Ymodem Variants *)
    ACK                 = CHR(6);
    NAK                 = CHR(21);
    SOH                 = CHR(1);
    STX                 = CHR(2);
    EOT                 = CHR(4);
    CAN                 = CHR(24);
    (* Extra chars required by some of the variants *)
    SYN                 = CHR(22);
    CRCREQ              = 'C';   (* Request CRC frame check instead of checksum *)
    WNDREQ              = 'W';   (* Request Windowed Xmodem *)

  VAR
    Aborted,HookOnFT    : BOOLEAN;
    Errors              : CARDINAL;
    SizeInBytes,
    Transferred         : LONGCARD;
    XferMode,LastMessage: ARRAY[0..30] OF CHAR;
    FileSpec            : ARRAY[0..80] OF CHAR;
    CRCTable            : ARRAY[0..255] OF CARDINAL;
    FBuff               : ARRAY[0..1025] OF CHAR;

  PROCEDURE OpenStatusWindow(Title:ARRAY OF CHAR);
  PROCEDURE NewFilename;
  PROCEDURE CompleteFilename;
  PROCEDURE UpdateStatus;
  PROCEDURE CloseStatusWindow;

  PROCEDURE Cancel;
  PROCEDURE AbortRequested():BOOLEAN;

  PROCEDURE FlushInput;
  PROCEDURE ASCIISend(VAR Filename:ARRAY OF CHAR):CARDINAL;

END FTSupport.