Module Simula
Package simula.runtime

Class RTS_Inbytefile

java.lang.Object
simula.runtime.RTS_RTObject
simula.runtime.RTS_ENVIRONMENT
simula.runtime.RTS_BASICIO
simula.runtime.RTS_CLASS
simula.runtime.RTS_File
simula.runtime.RTS_Bytefile
simula.runtime.RTS_Inbytefile
All Implemented Interfaces:
Runnable
public class RTS_Inbytefile extends RTS_Bytefile
System class Inbytefile. 
  bytefile class inbytefile; begin
      Boolean ENDFILE;
      Boolean procedure endfile;  endfile:= ENDFILE;
      Boolean procedure open;
      Boolean procedure close; 
      short integer procedure inbyte; 
      text procedure intext(t);   text t;
 
      ENDFILE:= true;
      ...
 end inbytefile;
An object of the class "inbytefile" is used to represent a byte-oriented sequential input file.

Variable "ENDFILE" is true if there are no more bytes to read. The procedure "endfile" returns the value of ENDFILE.

Link to GitHub: Source File.

Author:
SIMULA Standards Group, Øystein Myhre Andersen

  • Field Details

    • inputStream

      private InputStream inputStream
      The InputStream used.

    • _ENDFILE

      protected boolean _ENDFILE
      The variable ENDFILE.

  • Constructor Details

    • RTS_Inbytefile

      public RTS_Inbytefile(RTS_RTObject SL, RTS_TXT FN)
      Create a new _Inbytefile.
      Parameters:
      SL - staticLink
      FN - file name

  • Method Details

    • _STM

      public RTS_Inbytefile _STM()
      Description copied from class: RTS_RTObject
      Method representing the Statements in this Block
      This method is virtual and must be redefined in blocks.
      Overrides:
      _STM in class RTS_Bytefile
      Returns:
      a pointer to this _RTObject

    • endfile

      public boolean endfile()
      Procedure endfile. 
       Boolean procedure endfile;  endfile:= ENDFILE;
      Returns:
      true if there are no more bytes to read.

    • open

      public boolean open()
      Procedure open. 
       Boolean procedure open;
    if ... then begin ...  
       ENDFILE  := false;
       BYTESIZE := ... ! value of access mode BYTESIZE;
       open     := OPEN := true;
 end open;
      Returns:
      true if the file was successfully opened, otherwise false

    • close

      public boolean close()
      Procedure close. 
       Boolean procedure close;
    if OPEN then begin ... ! see 10.1.2;
       ... ;
       OPEN  := false;
       close := ENDFILE := true;
 end close;
      Returns:
      false if the file is not open.

    • inbyte

      public int inbyte()
      Procedure inbyte 
       short integer procedure inbyte;
    if ENDFILE then error("..." ! End of file ;)
    else if ... ! no more bytes to read;
    then ENDFILE := true  ! inbyte returns zero;
    else inbyte  := ...! next byte of size BYTESIZE;
      The procedure "inbyte" returns the short integer value corresponding to the input byte. If there are no more bytes to read, a zero result is returned. If prior to an "inbyte" call ENDFILE is true, a run-time error occurs.
      Returns:
      the resulting integer value
      Throws:
      RTS_SimulaRuntimeError - if inbyte fail

    • in2byte

      public int in2byte()
      Procedure in2byte.
      Returns:
      the resulting integer value
      Throws:
      RTS_SimulaRuntimeError - if intext fail

    • intext

      public RTS_TXT intext(RTS_TXT t)
      Procedure intext. 
       text procedure intext(t);   text t;
 begin
       t.setpos(1);
       while t.more and not ENDFILE do t.putchar(char(inbyte));
       if ENDFILE then t.setpos(t.pos-1);
       intext:- t.sub(1,t.pos-1)
 end intext;
      The procedure "intext" fills the frame of the parameter "t" with successive input bytes.
      Parameters:
      t - the text frame to fill
      Returns:
      the text frame