Copyright (C) 1994, Digital Equipment Corp. MODULE; IMPORT Jvs, JvsBuffer; REVEAL Factory = FactoryPublic BRANDED OBJECT OVERRIDES init := Init; newBuf := NewBuf; END; PROCEDURE JVFromDecomp Init (f: Factory; jvs: Jvs.T): Factory = BEGIN RETURN JvsBuffer.Factory.init(f, jvs, Jvs.BufferType.Decompress); END Init; PROCEDURENewBuf (<*UNUSED *> f: Factory): JvsBuffer.T = BEGIN RETURN NEW(T); END NewBuf; BEGIN END JVFromDecomp.