Startseite Erkunden Hilfe
Anmelden
eric
/
Topspeed_JPI
1
0
Fork 0
Dateien Issues 0 Pull-Requests 0 Wiki
Branch: master
Branches Tags
Topspeed_JPI
/
TS-V3
/
MODBASE
/
STRINGIO.DEF

STRINGIO.DEF 1.5 KB
Permalink Verlauf Originalformat

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273 
  1. DEFINITION MODULE StringIO;
    2. 

  2. (*
    3. 

  3.  *  REPERTOIRE
    4. 

  4.  *  Release 1.6
    5. 

  5.  *  By Charles Bradford and Cole Brecheen
    6. 

  6.  *  (c) Copyright 1985-1992 PMI
    7. 

  7.  *  Green Bay, Wisconsin
    8. 

  8.  *  All rights reserved
    9. 

  9.  *  (414) 468-6040
    10. 

  10.  *
    11. 

  11.  *  $Header:   D:/logfiles/defs/stringio.dev   1.5   30 Dec 1990 18:05:08   coleb  $
    12. 

  12.  *
    13. 

  13.  *)
    14. 

  14. 

  15. 

  16.   CONST
    17. 

  17.     inp = 0;
    18. 

  18.     outp = 1;
    19. 

  19.     ErrorOutp = 2;
    20. 

  20.     StdAux = 3;
    21. 

  21.     StdPrn = 4;
    22. 

  22. 

  23.   (* Error codes: *)
    24. 

  24.     NoError = 0;
    25. 

  25.     BadFunction = 1;
    26. 

  26.     FileNotFound = 2;
    27. 

  27.     PathNotFound = 3;
    28. 

  28.     NoHandlesLeft = 4;
    29. 

  29.     AccessDenied = 5;
    30. 

  30.     BadHandle = 6;
    31. 

  31.     MCBsDestroyed = 7;
    32. 

  32.     TooLittleMemory = 8;
    33. 

  33.     BadMemBlockAddr = 9;
    34. 

  34.     BadEnvironment = 10;
    35. 

  35.     BadFormat = 11;
    36. 

  36.     BadAccessCode = 12;
    37. 

  37.     BadData = 13;
    38. 

  38.     MissingMessage = 14;
    39. 

  39.     InvalidDrive = 15;
    40. 

  40.     CurrentDirErase = 16;
    41. 

  41.     DifferentDevice = 17;
    42. 

  42.     NoMoreFiles = 18;
    43. 

  43.     EndOfFile = 19;
    44. 

  44.     PartialRead = 20;
    45. 

  45. 

  46.   TYPE
    47. 

  47.     ErrorMessage = CARDINAL;
    48. 

  48. 

  49.   VAR
    50. 

  50.     CrLf : ARRAY [0..1] OF CHAR;
    51. 

  51. 

  52.   PROCEDURE ReadStr(FileHandle : CARDINAL; VAR
    53. 

  53.       TheStr : ARRAY OF CHAR);
    54. 

  54. 

  55.   PROCEDURE ReadString(FileHandle : CARDINAL; VAR
    56. 

  56.       TheStr : ARRAY OF CHAR; VAR EndOfFileReached:
    57. 

  57.       BOOLEAN );
    58. 

  58. 

  59.   PROCEDURE WriteStr(FileHandle : CARDINAL; TheStr
    60. 

  60.       : ARRAY OF CHAR);
    61. 

  61. 

  62.   PROCEDURE WriteEol(FileHandle : CARDINAL; TheStr
    63. 

  63.       : ARRAY OF CHAR);
    64. 

  64. 

  65.   PROCEDURE MessageType(FunctionResult : CHAR) :
    66. 

  66.       CARDINAL;
    67. 

  67. 

  68.   PROCEDURE PrintMessage(functionresult :
    69. 

  69.       CARDINAL);
    70. 

  70. 

  71.   PROCEDURE Init();
    72. 

  72. 

  73. END StringIO.
    74.