(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* Last modified on Tue Jun 25 10:43:54 1991 by muller         *)

INTERFACE NullRd;

IMPORT Rd;

TYPE T <: Rd.T;
  (* A NullRd.T is an empty input stream:
        len (rd) = 0
        src (rd) = 'eof'
        seekable (rd) = FALSE
        intermittent (rd) = FALSE  *)

PROCEDURE New (): T;

END NullRd.