rw/src/Common/NullRd.m3


Copyright (C) 1994, Digital Equipment Corp.

MODULE NullRd;

IMPORT RdClass;

REVEAL
  T = Public BRANDED OBJECT
      OVERRIDES
        seek   := Seek;
        length := Length;
        init   := Init;
      END;

PROCEDURE Init (rd: T): T =
  BEGIN
    rd.st := 0;
    rd.lo := 0;
    rd.cur := 0;
    rd.hi := 0;
    rd.buff := NIL;
    rd.closed := FALSE;
    rd.seekable := TRUE;
    rd.intermittent := FALSE;
    RETURN rd;
  END Init;

PROCEDURE Seek (<*UNUSED*> rd: T; <*UNUSED*> pos: CARDINAL;
                                  <*UNUSED*> dontBlock: BOOLEAN):
  RdClass.SeekResult =
  BEGIN
    RETURN (RdClass.SeekResult.Eof);
  END Seek;

PROCEDURE Length(<*UNUSED*> rd: T): INTEGER =
  BEGIN RETURN 0; END Length;

BEGIN
END NullRd.