SCRIPTCO.LST 1.4 KB

123456789101112131415161718192021222324252627282930313233
  1. Listing:
  2. 1 (* Release 3.10 *)
  3. 2 (*-------------------------------------------------------------------------*
  4. 3 * *
  5. 4 * SCRIPTCO.DEF - COMMS Toolkit script compiler *
  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 ScriptCompiler;
  13. 12
  14. 13 CONST
  15. 14 MaxCodeBytes = 16384;
  16. 15
  17. 16 VAR
  18. 17 PC : CARDINAL; (* program counter *)
  19. 18 CodeBuff : POINTER TO ARRAY[0..MaxCodeBytes-1] OF SHORTCARD;
  20. ***** ^ not supported yet
  21. ***** ^ not supported yet
  22. 19
  23. 20 PROCEDURE Compile(VAR Filename:ARRAY OF CHAR):BOOLEAN;
  24. ***** ^ not supported yet
  25. 21
  26. 22 END ScriptCompiler.
  27. ***** ^ not supported yet
  28. 23
  29. 4 errors