SCRIPTPR.LST 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. Listing:
  2. 1 (* Release 3.10 *)
  3. 2 (*-------------------------------------------------------------------------*
  4. 3 * *
  5. 4 * SCRIPTPR.DEF - COMMS Toolkit script processor *
  6. 5 * *
  7. 6 * COPYRIGHT (C) 1988..1992 Clarion Software Corporation. *
  8. 7 * All Rights Reserved *
  9. 8 * *
  10. 9 *--------------------------------------------------------------------------*)
  11. 10
  12. 11 DEFINITION MODULE ScriptProcessor;
  13. 12
  14. 13 TYPE
  15. 14 ScriptStates = (Off,Running,Transmitting,Waiting,Pausing,WaitSuccess);
  16. 15 ScriptFlags = (Linked,Success,Failure,Found,Connected,WaitFor);
  17. 16 String80 = ARRAY[0..80] OF CHAR;
  18. ***** ^ not supported yet
  19. ***** ^ not supported yet
  20. 17
  21. 18 VAR
  22. 19 TxPtr : CARDINAL;
  23. 20 WhenProcessing : BOOLEAN;
  24. 21 ScriptState : ScriptStates;
  25. ***** ^ not supported yet
  26. 22 Flags : ARRAY ScriptFlags OF BOOLEAN;
  27. ***** ^ not supported yet
  28. ***** ^ not supported yet
  29. 23 WaitString,
  30. 24 WhenString,
  31. 25 WhenAction,
  32. 26 TransmitString : String80;
  33. ***** ^ not supported yet
  34. 27
  35. 28 PROCEDURE InitScriptProcessor;
  36. 29
  37. 30 PROCEDURE LoadScript(Filename:ARRAY OF CHAR):BOOLEAN;
  38. ***** ^ not supported yet
  39. 31
  40. 32 PROCEDURE SingleStep;
  41. 33
  42. 34 PROCEDURE TerminateScript;
  43. 35
  44. 36 END ScriptProcessor.
  45. ***** ^ not supported yet
  46. 37
  47. 8 errors