audio: Add libvorbisfile bindings.

* chickadee/audio/vorbis.scm: New file.
* Makefile.am (SOURCES): Add it.
* configure.ac: Check for vorbis library.

4 files changed, 317 insertions, 0 deletions

diff --git a/Makefile.am b/Makefile.am
index 765a488..54839f1 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -56,6 +56,7 @@ SOURCES = 					\
   chickadee/math/easings.scm			\
   chickadee/math/path-finding.scm		\
   chickadee/audio/openal.scm			\
+  chickadee/audio/vorbis.scm			\
   chickadee/audio/wav.scm			\
   chickadee/render/color.scm			\
   chickadee/render/gl.scm			\
diff --git a/chickadee/audio/vorbis.scm b/chickadee/audio/vorbis.scm
new file mode 100644
index 0000000..e54e943
--- /dev/null
+++ b/chickadee/audio/vorbis.scm
@@ -0,0 +1,304 @@
+;;; Chickadee Game Toolkit
+;;; Copyright © 2019 David Thompson <davet@gnu.org>
+;;;
+;;; Chickadee is free software: you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published
+;;; by the Free Software Foundation, either version 3 of the License,
+;;; or (at your option) any later version.
+;;;
+;;; Chickadee is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; libvorbis bindings.
+;;
+;;; Code:
+
+(define-module (chickadee audio vorbis)
+  #:use-module (chickadee config)
+  #:use-module (ice-9 format)
+  #:use-module (ice-9 match)
+  #:use-module (rnrs bytevectors)
+  #:use-module (srfi srfi-9)
+  #:use-module (srfi srfi-9 gnu)
+  #:use-module (system foreign)
+  #:export (vorbis-open
+            vorbis-clear
+            vorbis-info
+            vorbis-time-total
+            vorbis-time-seek
+            vorbis-read
+            vorbis-fill-buffer
+
+            vorbis-info?
+            vorbis-info-version
+            vorbis-info-channels
+            vorbis-info-sample-rate))
+
+
+;;;
+;;; Low-level Bindings
+;;;
+
+(define vorbis-func
+  (let ((lib (dynamic-link %libvorbisfile)))
+    (lambda (return-type function-name arg-types)
+      (pointer->procedure return-type
+                          (dynamic-func function-name lib)
+                          arg-types))))
+
+(define-syntax-rule (define-foreign name return-type func-name arg-types)
+  (define name
+    (vorbis-func return-type func-name arg-types)))
+
+(define ogg-sync-state
+  (list '* ; data
+        int ; storage
+        int ; fill
+        int ; returned
+        int ; unsynced
+        int ; headerbytes
+        int ; bodybytes
+        ))
+
+(define ogg-stream-state
+  (list '* ; body_data
+        long ; body_storage
+        long ; body_fill
+        long ; body_returned
+        '* ; lacing_vals
+        '* ; granule_vals
+        long ; lacing_storage
+        long ; lacing_fill
+        long ; lacing_packet
+        long ; lacing_returned
+        (make-list 282 uint8) ; header
+        int ; header_fill
+        int ; e_o_s
+        int ; b_o_s
+        long ; serialno
+        long ; pageno
+        int64 ; packetno
+        int64 ; granulepos
+        ))
+
+(define oggpack-buffer
+  (list long ; endbyte
+        int ; endbit
+        '* ; buffer
+        '* ; ptr
+        long ; storage
+        ))
+
+(define vorbis-dsp-state
+  (list int ; analysisp
+        '* ; vi
+        '* ; pcm
+        '* ; pcmret
+        int ; pcm_storage
+        int ; pcm_current
+        int ; pcm_returned
+        int ; preextrapolate
+        int ; eofflag
+        long ; lW
+        long ; W
+        long ; nW
+        long ; centerW
+        int64 ; granulepos
+        int64 ; sequence
+        int64 ; glue_bits
+        int64 ; time_bits
+        int64 ; floor_bits
+        int64 ; res_bits
+        '* ; backend_state
+        ))
+
+(define vorbis-block
+  (list '* ; pcm
+        oggpack-buffer ; opb
+        long ; lW
+        long ; W
+        long ; nW
+        int ; pcmend
+        int ; mode
+        int ; eofflag
+        int64 ; granulepos
+        int64 ; sequence
+        '* ; vd
+        '* ; localstore
+        long ; localtop
+        long ; localalloc
+        long ; totaluse
+        '* ; reap
+        long ; glue_bits
+        long ; time_bits
+        long ; floor_bits
+        long ; res_bits
+        '* ; internal
+        ))
+
+(define %vorbis-info
+  (list int ; version
+        int ; channels
+        long ; rate
+        long ; bitrate_upper
+        long ; bitrate_nominal
+        long ; bitrate_lower
+        long ; bitrate_window
+        '* ; codec_setup
+        ))
+
+(define ov-callbacks
+  (list '* ; read_func
+        '* ; seek_func
+        '* ; close_func
+        '* ; tell_func
+        ))
+
+(define ogg-vorbis-file
+  (list '* ; datasource
+        int ; seekable
+        int64 ; offset
+        int64 ; end
+        ogg-sync-state ; oy
+        int ; links
+        '* ; offsets
+        '* ; dataoffsets
+        '* ; serialnos
+        '* ; pcmlengths
+        '* ; vi
+        '* ; vc
+        int64 ; pcm_offset
+        int ; ready_state
+        long ; current_serialno
+        int ; current_link
+        double ; bittrack
+        double ; samptrack
+        ogg-stream-state ; os
+        vorbis-dsp-state ; vd
+        vorbis-block ; vb
+        ov-callbacks ; callbacks
+        ))
+
+(define OV_FALSE -1)
+(define OV_EOF -2)
+(define OV_HOLE -3)
+(define OV_EREAD -128)
+(define OV_EFAULT -129)
+(define OV_EIMPL -130)
+(define OV_EINVAL -131)
+(define OV_ENOTVORBIS -132)
+(define OV_EBADHEADER -133)
+(define OV_EVERSION -134)
+(define OV_ENOTAUDIO -135)
+(define OV_EBADPACKET -136)
+(define OV_EBADLINK -137)
+(define OV_ENOSEEK -138)
+
+(define-foreign ov-fopen
+  int "ov_fopen" '(* *))
+
+(define-foreign ov-open-callbacks
+  int "ov_open_callbacks" (list '* '* '* long '*))
+
+(define-foreign ov-clear
+  int "ov_clear" '(*))
+
+(define-foreign ov-info
+  '* "ov_info" (list '* int))
+
+(define-foreign ov-read
+  long "ov_read" (list '* '* int int int int '*))
+
+(define-foreign ov-comment
+  '* "ov_comment" (list '* int))
+
+(define-foreign ov-raw-seek
+  int "ov_raw_seek" (list '* long))
+
+(define-foreign ov-time-seek
+  int "ov_time_seek" (list '* double))
+
+(define-foreign ov-seekable
+  long "ov_seekable" '(*))
+
+(define-foreign ov-time-total
+  double "ov_time_total" (list '* int))
+
+
+;;;
+;;; High-level public API
+;;;
+
+(define-record-type <vorbis-file>
+  (wrap-vorbis-file bv ptr)
+  vorbis-file?
+  (bv vorbis-file-bv)
+  (ptr unwrap-vorbis-file))
+
+(define (display-vorbis-file vf port)
+  (format port "#<vorbis-file ~x>" (pointer-address (unwrap-vorbis-file vf))))
+
+(set-record-type-printer! <vorbis-file> display-vorbis-file)
+
+(define (vorbis-open file-name)
+  "Open the OGG Vorbis audio file located at FILE-NAME."
+  (let* ((bv (make-bytevector (sizeof ogg-vorbis-file)))
+         (ptr (bytevector->pointer bv)))
+    (ov-fopen (string->pointer file-name) ptr)
+    (wrap-vorbis-file bv ptr)))
+
+(define (vorbis-clear vf)
+  "Clear the buffers of the Vorbis file VF."
+  (ov-clear (unwrap-vorbis-file vf)))
+
+(define-record-type <vorbis-info>
+  (make-vorbis-info version channels sample-rate)
+  vorbis-info?
+  (version vorbis-info-version)
+  (channels vorbis-info-channels)
+  (sample-rate vorbis-info-sample-rate))
+
+(define (vorbis-info vf)
+  (match (parse-c-struct (ov-info (unwrap-vorbis-file vf) -1)
+                         %vorbis-info)
+    ((version channels sample-rate _ _ _ _ _)
+     (make-vorbis-info version channels sample-rate))))
+
+(define (vorbis-time-total vf)
+  (ov-time-total (unwrap-vorbis-file vf) -1))
+
+(define (vorbis-time-seek vf t)
+  (ov-time-seek (unwrap-vorbis-file vf) t))
+
+(define* (vorbis-read vf buffer #:optional (start 0))
+  (ov-read (unwrap-vorbis-file vf)
+           (bytevector->pointer buffer start)
+           (- (bytevector-length buffer) start)
+           0 ; little endian
+           2 ; 16 bits per sample
+           1 ; signed data
+           %null-pointer))
+
+(define (vorbis-fill-buffer vf buffer)
+  (let ((capacity (bytevector-length buffer)))
+    (let loop ((size 0))
+      (if (< size capacity)
+          (let ((result (vorbis-read vf buffer size)))
+            (cond
+             ((zero? result)
+              size)
+             ((= result OV_HOLE)
+              (loop size))
+             ((or (= result OV_EBADLINK) (= result OV_EINVAL))
+              -1)
+             (else
+              (loop (+ size result)))))
+          size))))
diff --git a/chickadee/config.scm.in b/chickadee/config.scm.in
index 083d7ba..ab88dbb 100644
--- a/chickadee/config.scm.in
+++ b/chickadee/config.scm.in
@@ -25,6 +25,7 @@
   #:export (%datadir
             %chickadee-version
             %libopenal
+            %libvorbisfile
             scope-datadir))
 
 (define %datadir
@@ -33,6 +34,7 @@
 (define %chickadee-version "@PACKAGE_VERSION@")
 
 (define %libopenal "@OPENAL_LIBDIR@/libopenal")
+(define %libvorbisfile "@VORBIS_LIBDIR@/libvorbisfile")
 (define (scope-datadir file)
   "Append the Chickadee data directory to FILE."
   (string-append %datadir "/" file))
diff --git a/configure.ac b/configure.ac
index 66be3c0..2bc4ad7 100644
--- a/configure.ac
+++ b/configure.ac
@@ -33,4 +33,14 @@ AS_IF([test "x$OPENAL_LIBDIR" = "x"], [
 ])
 AC_SUBST([OPENAL_LIBDIR])
 
+PKG_CHECK_MODULES([Vorbis], [vorbis])
+PKG_CHECK_VAR([VORBIS_LIBDIR], [vorbis], [libdir])
+AC_MSG_CHECKING([Vorbis library path])
+AS_IF([test "VORBIS_LIBDIR" = "x"], [
+  AC_MSG_FAILURE([Unable to identify Vorbis lib path.])
+], [
+  AC_MSG_RESULT([$VORBIS_LIBDIR])
+])
+AC_SUBST([VORBIS_LIBDIR])
+
 AC_OUTPUT