Topspeed_JPI/TS/INCLUDE/COMMUTIL.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  COMMUTIL.DEF - COMMS Toolkit utilities                                  *
*                                                                          *
*  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

DEFINITION MODULE CommUtil;
  IMPORT Window;

  TYPE
    String80            = ARRAY[0..80] OF CHAR;
    StatusFields        = (logo,carrier,script,capture,emul,time);
    LogCommands         = (OpenLogging,CloseLogging,SuspendLogging,ResumeLogging);
    FuncKeys            = (NotRecognised,BackSpace,Etx,Escape,Del,Cup,Cdown,Cleft,
                           Cright,InsertKey,DeleteKey,Tab,BackTab,HomeKey,EndKey,
                           PageUp,PageDown,FKey,AltKey);
    OutProc             = PROCEDURE(CHAR);
    ColorDef            = RECORD
                            TermFore,TermBack,
                            StatFore,StatBack,
                            GenFore,GenBack,
                            GenFrFore,GenFrBack,
                            PromptFore,PromptBack,
                            PromptHigh,
                            PromptFrFore,PromptFrBack,
                            ErrFore,ErrBack,
                            ErrFrFore,ErrFrBack,
                            MacroFore,MacroBack,
                            MacroFrFore,MacroFrBack,
                            MacroHighFore,MacroHighBack,
                            MacroLowFore,MacroLowBack,
                            FTStatFore,FTStatBack,
                            FTStatFrFore,FTStatFrBack,
                            FTStatHigh,FTStatBar,
                            MenuFore,MenuBack,
                            MenuFrFore,MenuFrBack,
                            MenuHighFore,MenuHighBack,
                            MenuSelFore,MenuSelBack,
                            MenuHSelFore,MenuHSelBack : Window.Color;
                          END;

  VAR
    LogMode             : LogCommands;
    Printing            : BOOLEAN;
    TermW,StatW         : Window.WinType;
    FuncKeyTyped        : FuncKeys;
    CaptureFile,
    TransferFile,
    ScriptFile          : String80;
    IsMono              : BOOLEAN; (* Monochrome screen *)
    WrChar              : OutProc;
    SpacesOK,ReadAgain  : BOOLEAN;
    Colors              : ColorDef;

  PROCEDURE InitUtil;
  PROCEDURE Read(VAR c:CHAR);
  PROCEDURE StatusLine(which:StatusFields);
  PROCEDURE CheckHistory(VAR s:ARRAY OF CHAR):BOOLEAN;
  PROCEDURE GetHistoryString(VAR s:ARRAY OF CHAR):CARDINAL;
  PROCEDURE StoreHistory(c:CHAR);
  PROCEDURE StoreChar(c:CHAR);
  PROCEDURE SetLogMode(Cmd:LogCommands);
  PROCEDURE Printer(OnOff:BOOLEAN);
  PROCEDURE Screen(Ch:CHAR);
  PROCEDURE ErrorMessage(s:ARRAY OF CHAR);
  PROCEDURE SendString(s:ARRAY OF CHAR);
  PROCEDURE TransmitMacro(MacroNo:CARDINAL);
  PROCEDURE SelectFile(MenuX,MenuY:CARDINAL;Title,Wild:ARRAY OF CHAR;VAR f:ARRAY OF CHAR):INTEGER;
  PROCEDURE DoUpload;
  PROCEDURE DoDownload;
  PROCEDURE ReadLine(VAR s:ARRAY OF CHAR; Max:CARDINAL);
  PROCEDURE PushBack(c:CHAR);
  PROCEDURE ReadString(x,y:CARDINAL;Title,Prompt:ARRAY OF CHAR;VAR Result:ARRAY OF CHAR);
  PROCEDURE Alarm;

END CommUtil.