We're no longer very incomplete

[audio-opusfile.git] / Opusfile.xs

diff --git a/Opusfile.xs b/Opusfile.xs
index 7779aa979526305cb509b379cb3d29682ee96be4..a8bd27b585c8107bb1868060b79a011b641af42b 100644 (file)
--- a/Opusfile.xs
+++ b/Opusfile.xs
@@ -75,6 +75,18 @@ op_serialno(of, li = -1)
        Audio::Opusfile of;
        int li;
 
+# op_channel_count is not exported; it can be obtained via op_head
+
+long
+op_raw_total(of, li = -1)
+       Audio::Opusfile of;
+       int li;
+
+long
+op_pcm_total(of, li = -1)
+       Audio::Opusfile of;
+       int li;
+
 Audio::Opusfile::Head
 op_head(of, li = -1)
        Audio::Opusfile of;
@@ -85,6 +97,16 @@ op_tags(of, li = -1)
        Audio::Opusfile of;
        int li;
 
+# op_current_link not exported until we export the decoding API
+
+int
+op_bitrate(of, li = -1)
+       Audio::Opusfile of;
+       int li;
+
+# op_bitrate_instant, op_raw_tell, op_pcm_tell not exported until we
+# export the decoding API
+
 MODULE = Audio::Opusfile               PACKAGE = Audio::Opusfile::Tags         PREFIX = opus_tags_
 
 int
@@ -234,6 +256,14 @@ CODE:
 OUTPUT:
        RETVAL
 
+int
+output_gain(head)
+       Audio::Opusfile::Head head;
+CODE:
+       RETVAL = head->output_gain;
+OUTPUT:
+       RETVAL
+
 int
 mapping_family(head)
        Audio::Opusfile::Head head;
@@ -261,8 +291,10 @@ OUTPUT:
 int
 mapping(head, k)
        Audio::Opusfile::Head head;
-       int k;
+       unsigned k;
 CODE:
+       if(k >= OPUS_CHANNEL_COUNT_MAX)
+               croak("k must be less than %d\n", (int)OPUS_CHANNEL_COUNT_MAX);
        RETVAL = (int) head->mapping[k];
 OUTPUT:
        RETVAL