Copyright (C) 1994, Digital Equipment Corp.a remote client for a JVideo server. These are immutable. If you want different paramters, close this one and open a new one
INTERFACErange of acceptable values for image qualityJVSink ; IMPORT Atom, JVBuffer, jvprotocol, JVConverter, JVFromSource, OSError, Thread; TYPE Quality = [0 .. NUMBER(jvprotocol.ClientQualityVal) - 1]; CONST DefaultQuality = 8;
error atoms which may be returned in an OSError.E
VAR
hostNotFound: Atom.T; (* may be raised by init or start *)
sinkError : Atom.T; (* error comes from this module *)
TYPE
T <: Public;
Public = JVConverter.T OBJECT
METHODS
(* all methods are LL < self *)
init (hostname: TEXT; (* where is the server? *)
quality : Quality := DefaultQuality;
maxBuffers: CARDINAL := 2; (* max buffers allowed in the
associated buffer pool *)
factory: JVBuffer.Factory;
delay: CARDINAL := 0): T
RAISES {OSError.E, Thread.Alerted};
(* initial setup. establish a connection with the local and
remote JV servers and create a buffer pool. "factory" is
used to create new buffers *)
getInfo (VAR info: JVFromSource.StreamInfo): BOOLEAN;
(* if the data in "info" is older than the info in the "T", as
determined by the serial, set the values in info and return
TRUE. Otherwise, just return FALSE *)
END;
END JVSink.