Topspeed_JPI/TS-V3/INCLUDE/COMMUTIL.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  COMMUTIL.DEF - COMMS Toolkit utilities                                  *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  DEFINITION MODULE CommUtil;
   12    IMPORT Window;
   13  
   14    TYPE
   15      String80            = ARRAY[0..80] OF CHAR;
*****                                     ^ not supported yet
*****                                            ^ not supported yet
   16      StatusFields        = (logo,carrier,script,capture,emul,time);
   17      LogCommands         = (OpenLogging,CloseLogging,SuspendLogging,ResumeLogging);
   18      FuncKeys            = (NotRecognised,BackSpace,Etx,Escape,Del,Cup,Cdown,Cleft,
   19                             Cright,InsertKey,DeleteKey,Tab,BackTab,HomeKey,EndKey,
   20                             PageUp,PageDown,FKey,AltKey);
   21      OutProc             = PROCEDURE(CHAR);
*****                            ^ not supported yet
*****                                      ^ not supported yet
   22      ColorDef            = RECORD
   23                              TermFore,TermBack,
   24                              StatFore,StatBack,
   25                              GenFore,GenBack,
   26                              GenFrFore,GenFrBack,
   27                              PromptFore,PromptBack,
   28                              PromptHigh,
   29                              PromptFrFore,PromptFrBack,
   30                              ErrFore,ErrBack,
   31                              ErrFrFore,ErrFrBack,
   32                              MacroFore,MacroBack,
   33                              MacroFrFore,MacroFrBack,
   34                              MacroHighFore,MacroHighBack,
   35                              MacroLowFore,MacroLowBack,
   36                              FTStatFore,FTStatBack,
   37                              FTStatFrFore,FTStatFrBack,
   38                              FTStatHigh,FTStatBar,
   39                              MenuFore,MenuBack,
   40                              MenuFrFore,MenuFrBack,
   41                              MenuHighFore,MenuHighBack,
   42                              MenuSelFore,MenuSelBack,
   43                              MenuHSelFore,MenuHSelBack : Window.Color;
*****                                                                 ^ not supported yet
   44                            END;
*****                            ^ not supported yet
   45  
   46    VAR
   47      LogMode             : LogCommands;
*****                            ^ not supported yet
   48      Printing            : BOOLEAN;
   49      TermW,StatW         : Window.WinType;
*****                                   ^ not supported yet
   50      FuncKeyTyped        : FuncKeys;
*****                            ^ not supported yet
   51      CaptureFile,
   52      TransferFile,
   53      ScriptFile          : String80;
*****                            ^ not supported yet
   54      IsMono              : BOOLEAN; (* Monochrome screen *)
   55      WrChar              : OutProc;
   56      SpacesOK,ReadAgain  : BOOLEAN;
   57      Colors              : ColorDef;
*****                            ^ not supported yet
   58  
   59    PROCEDURE InitUtil;
   60    PROCEDURE Read(VAR c:CHAR);
   61    PROCEDURE StatusLine(which:StatusFields);
   62    PROCEDURE CheckHistory(VAR s:ARRAY OF CHAR):BOOLEAN;
*****                                          ^ not supported yet
   63    PROCEDURE GetHistoryString(VAR s:ARRAY OF CHAR):CARDINAL;
*****                                              ^ not supported yet
   64    PROCEDURE StoreHistory(c:CHAR);
   65    PROCEDURE StoreChar(c:CHAR);
   66    PROCEDURE SetLogMode(Cmd:LogCommands);
   67    PROCEDURE Printer(OnOff:BOOLEAN);
   68    PROCEDURE Screen(Ch:CHAR);
   69    PROCEDURE ErrorMessage(s:ARRAY OF CHAR);
*****                                      ^ not supported yet
   70    PROCEDURE SendString(s:ARRAY OF CHAR);
*****                                    ^ not supported yet
   71    PROCEDURE TransmitMacro(MacroNo:CARDINAL);
   72    PROCEDURE SelectFile(MenuX,MenuY:CARDINAL;Title,Wild:ARRAY OF CHAR;VAR f:ARRAY OF CHAR):INTEGER;
*****                                                                  ^ not supported yet
*****                                                                                      ^ not supported yet
   73    PROCEDURE DoUpload;
   74    PROCEDURE DoDownload;
   75    PROCEDURE ReadLine(VAR s:ARRAY OF CHAR; Max:CARDINAL);
*****                                      ^ not supported yet
   76    PROCEDURE PushBack(c:CHAR);
   77    PROCEDURE ReadString(x,y:CARDINAL;Title,Prompt:ARRAY OF CHAR;VAR Result:ARRAY OF CHAR);
*****                                                            ^ not supported yet
*****                                                                                     ^ not supported yet
   78    PROCEDURE Alarm;
   79  
   80  END CommUtil.
*****      ^ not supported yet
   81  

   21 errors