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

(* Last modified on Tue Jun 25 10:52:24 1991 by muller         *)

INTERFACE NullWr;

IMPORT Wr;

TYPE T <: Wr.T;
  (* A NullWr.T is an empty output stream:
        len (wr) = 0
        c (wr) = ''
        seekable (rd) = FALSE *)


PROCEDURE New (): T;

END NullWr.