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
_______________________________________________
bongo-devel mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/bongo-devel
