[bongo-devel] oggdec backend

[Ivan Kanis]

Hello,

Here is a new backend for a Windows program called oggdec. 

On a side note, the VLC backend is busted on Windows. I think that
using socket would fix it. I do not have the time or energy to fix it.

(define-bongo-backend oggdec
  :pretty-name "Oggdec"
  :constructor 'bongo-start-oggdec-player
  :matcher '(local-file "ogg")
  :extra-program-arguments '("-p"))

(defun bongo-start-oggdec-player (file-name &optional extra-arguments)
  (let* ((arguments (append (bongo-evaluate-program-arguments
                             bongo-oggdec-extra-arguments)
                            extra-arguments
                            (list (replace-regexp-in-string "/" "\\\\"
                                                            file-name))))
         (process (apply 'start-process "bongo-oggdec" nil
                         bongo-oggdec-program-name arguments))
         (player (list 'oggdec
                       (cons 'process process)
                       (cons 'file-name file-name)
                       (cons 'buffer (current-buffer))
                       (cons 'interactive nil)
                       (cons 'pausing-supported nil)
                       (cons 'seeking-supported nil))))
    (prog1 player
      (set-process-sentinel process 'bongo-default-player-process-sentinel)
      (bongo-process-put process 'bongo-player player))))

-- 
Ivan
http://kanis.fr

  "The doctors told me I would never walk again, but my mother told me
I would, so I believed my mother."
    -- Wilma Rudolph