Topspeed_JPI/TS-V3/REP16/STRINGIO.DEF

DEFINITION MODULE StringIO;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/stringio.dev   1.5   30 Dec 1990 18:05:08   coleb  $
 *
 *)


  CONST
    inp = 0;
    outp = 1;
    ErrorOutp = 2;
    StdAux = 3;
    StdPrn = 4;

  (* Error codes: *)
    NoError = 0;
    BadFunction = 1;
    FileNotFound = 2;
    PathNotFound = 3;
    NoHandlesLeft = 4;
    AccessDenied = 5;
    BadHandle = 6;
    MCBsDestroyed = 7;
    TooLittleMemory = 8;
    BadMemBlockAddr = 9;
    BadEnvironment = 10;
    BadFormat = 11;
    BadAccessCode = 12;
    BadData = 13;
    MissingMessage = 14;
    InvalidDrive = 15;
    CurrentDirErase = 16;
    DifferentDevice = 17;
    NoMoreFiles = 18;
    EndOfFile = 19;
    PartialRead = 20;

  TYPE
    ErrorMessage = CARDINAL;

  VAR
    CrLf : ARRAY [0..1] OF CHAR;

  PROCEDURE ReadStr(FileHandle : CARDINAL; VAR
      TheStr : ARRAY OF CHAR);

  PROCEDURE ReadString(FileHandle : CARDINAL; VAR
      TheStr : ARRAY OF CHAR; VAR EndOfFileReached:
      BOOLEAN );

  PROCEDURE WriteStr(FileHandle : CARDINAL; TheStr
      : ARRAY OF CHAR);

  PROCEDURE WriteEol(FileHandle : CARDINAL; TheStr
      : ARRAY OF CHAR);

  PROCEDURE MessageType(FunctionResult : CHAR) :
      CARDINAL;

  PROCEDURE PrintMessage(functionresult :
      CARDINAL);

  PROCEDURE Init();

END StringIO.