(define (boot) (load "test.scm"))

;; A handle to the TI Codec Engine, accessed by name.
(define engine-name "encodedecode")



(define (info)
  (for-each
   (lambda (l) (write l) (newline))
   (stream->table
    (algo-info engine-name))))

(info)

(define engine (make-engine engine-name))

(define (mpeg4dec)  (make-viddec engine "mpeg4dec"))
(define (mpeg2dec)  (make-viddec engine "mpeg2dec"))
(define (h264dec)   (make-viddec engine "h264dec"))

;; (define (h264enc)   (make-videnc engine "h264enc"))

(define (mpeg4enc)  (make-videnc
                     engine "mpeg4enc"
                     720 576      ;; width height
                     50000 1000)) ;; fps bitrate

(define (test encoder)
  (let* ((enc (encoder))
         (bufs (stream->list (videnc-iobufs enc)))
         (in (car bufs))
         (out (cadr bufs)))
    (let go ((left 200))
      (bufdesc-saw! in left)
      (begin
        (display
         (stream->list (apply videnc-process (cons enc bufs))))
        (newline))
      (bufdesc-dump out "/tmp/mpeg")
      (if (zero? left) #t
          (go (- left 1))))))