subclass of JvsBuffer for holding frames from a JVSource

INTERFACE JVFromSource;

IMPORT Ctypes, JVBuffer, Jvs, JvsBuffer, jvprotocol;

TYPE
  StreamInfo = RECORD
                 serial : JVBuffer.Serial := 0; (* timestamp for info *)
                 kind   : Ctypes.int := jvprotocol.JVP_KIND_JPEG;
                 qfactor: Ctypes.int := 0;
                 width, height: CARDINAL := 0;
               END;

TYPE
  T_Public = JvsBuffer.T BRANDED OBJECT info: StreamInfo;  END;
  T <: T_Public;

TYPE
  Factory <: FactoryPublic;
  FactoryPublic = JvsBuffer.Factory OBJECT
                  METHODS
                    init (jvs: Jvs.T): Factory;
                    (* the "jvs" is used to create shared memory buffers.
                       It should already have been opened *)
                  END;

END JVFromSource.