eos   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/gstvideo.xtm

Implementation

(bind-func eos
  (lambda (sink:GstAppSink* data:gpointer)
    (let ((quad (tref (cast data userdata*) 0))
          (playz (tref (cast data userdata*) 1)))
      (cond ((= quad 1) (set! vplay1 #f) (set! sampledata1dirty #f)))
      (printf "Finished Decoding[%d]!\n" quad)
      void)))


Back to Index

Similar Entries