catori 0.2.5

data/ext/mpc/test.rb

@@ -0,0 +1,3 @@
+require 'mpc'
+
+p Mpc.info("test.mpc")

data/ext/rmac/extconf.rb

@@ -0,0 +1,7 @@
+require 'mkmf'
+dir_config("mac",'/usr/include/mac','/usr/lib')
+if (have_library("mac") and have_header("mac/All.h")) 
+	create_makefile("rmac");
+else
+	puts "Error: Can't find headers or library for libmac" 
+end

data/ext/rmac/mkmf.log

@@ -0,0 +1,22 @@
+have_library: checking for main() in -lmac... -------------------- yes
+
+"i686-pc-linux-gnu-gcc -o conftest -I. -I/usr/lib/ruby/1.8/i686-linux -I. -I/usr/include/mac  -O2 -march=athlon-xp -m3dnow -msse -mfpmath=sse -mmmx -pipe -fno-strict-aliasing  -fPIC conftest.c  -L'.' -L'/usr/lib' -Wl,-R'/usr/lib' -L'/usr/lib' -Wl,-R'/usr/lib' -L.  -rdynamic -Wl,-export-dynamic     -lruby18-static -lmac  -ldl -lcrypt -lm   -lc"
+checked program was:
+/* begin */
+1: /*top*/
+2: int main() { return 0; }
+3: int t() { void ((*volatile p)()); p = (void ((*)()))main; return 0; }
+/* end */
+
+--------------------
+
+have_header: checking for mac/All.h... -------------------- yes
+
+"i686-pc-linux-gnu-gcc -E -I. -I/usr/lib/ruby/1.8/i686-linux -I. -I/usr/include/mac  -O2 -march=athlon-xp -m3dnow -msse -mfpmath=sse -mmmx -pipe -fno-strict-aliasing  -fPIC  conftest.c -o conftest.i"
+checked program was:
+/* begin */
+1: #include <mac/All.h>
+/* end */
+
+--------------------
+

data/ext/rmac/rmac.cpp

@@ -0,0 +1,162 @@
+/***************************************************************************************
+Analyze - Sample 1
+Copyright (C) 2000-2001 by Matthew T. Ashland   All Rights Reserved.
+Feel free to use this code in any way that you like.
+
+This example opens an APE file and displays some basic information about it. To use it,
+just type Sample 1.exe followed by a file name and it'll display information about that
+file.
+
+Notes for use in a new project:
+	-you need to include "MACLib.lib" in the included libraries list
+	-life will be easier if you set the [MAC SDK]\\Shared directory as an include
+	directory and an additional library input path in the project settings
+	-set the runtime library to "Mutlithreaded"
+
+WARNING:
+	-This class driven system for using Monkey's Audio is still in development, so
+	I can't make any guarantees that the classes and libraries won't change before
+	everything gets finalized.  Use them at your own risk.
+***************************************************************************************/
+
+// includes
+#include <ruby.h>
+
+#include <stdio.h>
+#include <ctype.h>
+#include "All.h"
+#include "GlobalFunctions.h"
+#include "MACLib.h"
+#include "CharacterHelper.h"
+#include "APETag.h"
+#define CPPVAL ( VALUE (*) (...) )
+extern "C" {
+static VALUE mMac;
+static VALUE cInfo;
+static VALUE rb_cinfo_new(VALUE self);
+static VALUE rb_mac_info(VALUE module, VALUE filename);
+
+void Init_rmac()
+{
+	mMac = rb_define_module("Mac");
+	cInfo = rb_define_class_under(mMac,"Info",rb_cObject);
+
+#define NA 16
+    const char     *attr2[NA] =
+	{ "version","compression_level","samplerate","bps","channels","peak","length", "filesize", "id3_tag", "ape_tag", "artist","album","title","genre","track","year"
+    };
+    for (int i = 0; i < NA; i++) {
+	rb_define_attr(cInfo, attr2[i], 1, 0);
+    }
+
+	rb_define_module_function(mMac,"info", CPPVAL rb_mac_info ,1);
+
+}
+
+}
+VALUE rb_mac_info(VALUE module, VALUE filename) {
+	VALUE info=rb_class_new_instance(0,NULL,cInfo);
+	///////////////////////////////////////////////////////////////////////////////
+	// variable declares
+	///////////////////////////////////////////////////////////////////////////////
+	int					nRetVal = 0;										// generic holder for return values
+	char				cTempBuffer[256]; ZeroMemory(&cTempBuffer[0], 256);	// generic buffer for string stuff
+	char *				pFilename = STR2CSTR(filename);								// the file to open
+	IAPEDecompress *	pAPEDecompress = NULL;								// APE interface
+	CSmartPtr<wchar_t> spInput;
+	spInput.Assign(GetUTF16FromANSI(pFilename), TRUE);
+
+//*
+	///////////////////////////////////////////////////////////////////////////////
+	// open the file and error check
+	///////////////////////////////////////////////////////////////////////////////
+	pAPEDecompress = CreateIAPEDecompress(spInput, &nRetVal);
+	if (pAPEDecompress == NULL)
+	{
+		rb_raise(rb_eIOError, "Error opening APE file. (error code %d)", nRetVal);
+	}
+
+
+	///////////////////////////////////////////////////////////////////////////////
+	// display some information about the file
+	///////////////////////////////////////////////////////////////////////////////
+	// file format information
+	char ape_version[5];
+	sprintf(ape_version,"%02.3f",float(pAPEDecompress->GetInfo(APE_INFO_FILE_VERSION)/1000.0));
+	rb_iv_set(info,"@version", rb_str_new2(ape_version));
+	switch (pAPEDecompress->GetInfo(APE_INFO_COMPRESSION_LEVEL))
+	{
+		case COMPRESSION_LEVEL_FAST: rb_iv_set(info,"@compression_level",rb_str_new2("Fast")); break;
+		case COMPRESSION_LEVEL_NORMAL: rb_iv_set(info,"@compression_level",rb_str_new2("Normal")); break;
+		case COMPRESSION_LEVEL_HIGH: rb_iv_set(info,"@compression_level",rb_str_new2("High")); break;
+		case COMPRESSION_LEVEL_EXTRA_HIGH: rb_iv_set(info,"@compression_level",rb_str_new2("Extra High")); break;
+	}
+
+	// audio format information
+	rb_iv_set(info,"@samplerate",INT2FIX(pAPEDecompress->GetInfo(APE_INFO_SAMPLE_RATE)));
+	rb_iv_set(info,"@bps",INT2FIX(pAPEDecompress->GetInfo(APE_INFO_BITS_PER_SAMPLE)));
+	rb_iv_set(info,"@channels",INT2FIX(pAPEDecompress->GetInfo(APE_INFO_CHANNELS)));
+	rb_iv_set(info,"@peak",INT2FIX(pAPEDecompress->GetInfo(APE_INFO_PEAK_LEVEL)));
+
+	// size and duration information
+	rb_iv_set(info,"@length",rb_float_new((pAPEDecompress->GetInfo(APE_INFO_LENGTH_MS) / 1000.00)));
+	rb_iv_set(info,"@filesize",INT2FIX(pAPEDecompress->GetInfo(APE_INFO_APE_TOTAL_BYTES)));
+
+	// tag information
+	CAPETag * pAPETag = (CAPETag *) pAPEDecompress->GetInfo(APE_INFO_TAG);
+	BOOL bHasID3Tag = pAPETag->GetHasID3Tag();
+	BOOL bHasAPETag = pAPETag->GetHasAPETag();
+	rb_iv_set(info,"@id3_tag",(bHasID3Tag?Qtrue:Qfalse));
+	rb_iv_set(info,"@ape_tag",(bHasAPETag?Qtrue:Qfalse));
+
+	if (bHasID3Tag || bHasAPETag)
+	{
+	    if (bHasAPETag)
+	    {
+			char ape_tag_version[5];
+			sprintf(ape_tag_version,"%05.3f",float(pAPETag->GetAPETagVersion()/1000.0));
+			rb_iv_set(info,"@ape_tag_version",rb_str_new2(ape_tag_version));
+	    }
+		// iterate through all the tag fields
+		BOOL bFirst = TRUE;
+		CAPETagField * pTagField;
+//		while (pAPETag->GetNextTagField(bFirst, &pTagField))
+		int index = 0;
+		while ((pTagField = pAPETag->GetTagField(index)) != NULL)
+		{
+			bFirst = FALSE;
+			index ++;
+
+			// output the tag field properties (don't output huge fields like images, etc.)
+			if (pTagField->GetFieldValueSize() > 128)
+			{
+				//printf("\t%s: --- too much data to display ---\r\n", GetANSIFromUTF16(pTagField->GetFieldName()));
+			}
+			else
+			{
+
+			    const wchar_t *fieldName;
+			    const char *fieldValue;
+			    char *value;
+
+			    fieldName = pTagField->GetFieldName();
+			    fieldValue = pTagField->GetFieldValue();
+				strcpy(cTempBuffer,"@");
+				strcat(cTempBuffer,(char *)GetUTF8FromUTF16(fieldName));
+				cTempBuffer[1]=tolower(cTempBuffer[1]);
+				rb_iv_set(info,cTempBuffer,rb_str_new2(fieldValue));
+			}
+		}
+	}
+
+	///////////////////////////////////////////////////////////////////////////////
+	// cleanup (just delete the object
+	///////////////////////////////////////////////////////////////////////////////
+	delete pAPEDecompress;
+
+	///////////////////////////////////////////////////////////////////////////////
+	// quit
+	///////////////////////////////////////////////////////////////////////////////
+	return info;
+
+}

data/ext/vorbisfile/ChangeLog

@@ -0,0 +1,11 @@
+0.2 Second release
+  * Now uses _one_ string as a buffer, instead of passing you one back
+    after each read(). I had to do this, because the GC couldn't keep
+    up. Thanks to the bloke who showed me his example code for this,
+    and the ruby-audiofile author, whose idea I eventually used.
+    NOTE: This means the API has changed for read() !
+  * Put class VorbisFile into module 'Ogg' - so now you need to use
+    Ogg::Vorbisfile.
+  
+0.1 Initial relese
+  

data/ext/vorbisfile/README

@@ -0,0 +1,33 @@
+Ruby extension for libvorbisfile.
+
+libvorbisfile is a decoder library provided with the Ogg Vorbis
+distribution. See http://xiph.org/ogg/vorbis/ for details.
+
+The API of this extension is virtually identical to that of
+vorbisfile.h, with a couple of exceptions:
+
+* Prefixes have been removed (ov_open -> open).
+* The OggVorbis_File parameter is removed, as the VorbisFile object
+  encapsulates this.
+
+You can read the vorbisfile API at the above URL.
+
+Installation:
+
+./configure
+make
+make install
+
+Note that you must pass an existing (and opened) IO object to
+VorbisFile::open(). This means you are not restricted to files -
+reading from (e.g.) a socket is fine.
+
+See test.rb for an example.
+
+Note that Vorbis comments are in UTF-8 and test.rb uses iconv to convert
+back to latin-1. Is there a more portable way of doing this ?
+
+Feedback welcome.
+
+Rik Hemsley (rikkus) <rik@kde.org>
+

data/ext/vorbisfile/configure

@@ -0,0 +1,2 @@
+# vim: set syntax=sh
+ruby extconf.rb $*

data/ext/vorbisfile/extconf.rb

@@ -0,0 +1,9 @@
+require 'mkmf'
+
+exit 1 unless have_library("vorbis",      "vorbis_analysis")
+exit 1 unless have_library("vorbisfile",  "ov_open_callbacks")
+
+exit 1 unless have_header("vorbis/codec.h")
+exit 1 unless have_header("vorbis/vorbisfile.h")
+
+create_makefile("vorbisfile")

data/ext/vorbisfile/mkmf.log

@@ -0,0 +1,68 @@
+have_library: checking for vorbis_analysis() in -lvorbis... -------------------- yes
+
+"i686-pc-linux-gnu-gcc -o conftest -I. -I/usr/lib/ruby/1.8/i686-linux -I.  -O2 -march=athlon-xp -m3dnow -msse -mfpmath=sse -mmmx -pipe -fno-strict-aliasing  -fPIC conftest.c  -L'.' -L'/usr/lib' -Wl,-R'/usr/lib' -L.  -rdynamic -Wl,-export-dynamic     -lruby18-static -lvorbis  -ldl -lcrypt -lm   -lc"
+conftest.c: En la función ‘t’:
+conftest.c:3: error: ‘vorbis_analysis’ no se declaró aquí (primer uso en esta función)
+conftest.c:3: error: (Cada identificador no declarado solamente se reporta una vez
+conftest.c:3: error: ara cada funcion en la que aparece.)
+checked program was:
+/* begin */
+1: /*top*/
+2: int main() { return 0; }
+3: int t() { void ((*volatile p)()); p = (void ((*)()))vorbis_analysis; return 0; }
+/* end */
+
+"i686-pc-linux-gnu-gcc -o conftest -I. -I/usr/lib/ruby/1.8/i686-linux -I.  -O2 -march=athlon-xp -m3dnow -msse -mfpmath=sse -mmmx -pipe -fno-strict-aliasing  -fPIC conftest.c  -L'.' -L'/usr/lib' -Wl,-R'/usr/lib' -L.  -rdynamic -Wl,-export-dynamic     -lruby18-static -lvorbis  -ldl -lcrypt -lm   -lc"
+checked program was:
+/* begin */
+1: /*top*/
+2: int main() { return 0; }
+3: int t() { vorbis_analysis(); return 0; }
+/* end */
+
+--------------------
+
+have_library: checking for ov_open_callbacks() in -lvorbisfile... -------------------- yes
+
+"i686-pc-linux-gnu-gcc -o conftest -I. -I/usr/lib/ruby/1.8/i686-linux -I.  -O2 -march=athlon-xp -m3dnow -msse -mfpmath=sse -mmmx -pipe -fno-strict-aliasing  -fPIC conftest.c  -L'.' -L'/usr/lib' -Wl,-R'/usr/lib' -L.  -rdynamic -Wl,-export-dynamic    -lvorbis  -lruby18-static -lvorbisfile -lvorbis  -ldl -lcrypt -lm   -lc"
+conftest.c: En la función ‘t’:
+conftest.c:3: error: ‘ov_open_callbacks’ no se declaró aquí (primer uso en esta función)
+conftest.c:3: error: (Cada identificador no declarado solamente se reporta una vez
+conftest.c:3: error: ara cada funcion en la que aparece.)
+checked program was:
+/* begin */
+1: /*top*/
+2: int main() { return 0; }
+3: int t() { void ((*volatile p)()); p = (void ((*)()))ov_open_callbacks; return 0; }
+/* end */
+
+"i686-pc-linux-gnu-gcc -o conftest -I. -I/usr/lib/ruby/1.8/i686-linux -I.  -O2 -march=athlon-xp -m3dnow -msse -mfpmath=sse -mmmx -pipe -fno-strict-aliasing  -fPIC conftest.c  -L'.' -L'/usr/lib' -Wl,-R'/usr/lib' -L.  -rdynamic -Wl,-export-dynamic    -lvorbis  -lruby18-static -lvorbisfile -lvorbis  -ldl -lcrypt -lm   -lc"
+checked program was:
+/* begin */
+1: /*top*/
+2: int main() { return 0; }
+3: int t() { ov_open_callbacks(); return 0; }
+/* end */
+
+--------------------
+
+have_header: checking for vorbis/codec.h... -------------------- yes
+
+"i686-pc-linux-gnu-gcc -E -I. -I/usr/lib/ruby/1.8/i686-linux -I.  -O2 -march=athlon-xp -m3dnow -msse -mfpmath=sse -mmmx -pipe -fno-strict-aliasing  -fPIC  conftest.c -o conftest.i"
+checked program was:
+/* begin */
+1: #include <vorbis/codec.h>
+/* end */
+
+--------------------
+
+have_header: checking for vorbis/vorbisfile.h... -------------------- yes
+
+"i686-pc-linux-gnu-gcc -E -I. -I/usr/lib/ruby/1.8/i686-linux -I.  -O2 -march=athlon-xp -m3dnow -msse -mfpmath=sse -mmmx -pipe -fno-strict-aliasing  -fPIC  conftest.c -o conftest.i"
+checked program was:
+/* begin */
+1: #include <vorbis/vorbisfile.h>
+/* end */
+
+--------------------
+

data/ext/vorbisfile/test.rb

@@ -0,0 +1,78 @@
+#!/usr/bin/env ruby
+
+# test.rb - part of ruby-vorbisfile
+#
+# Copyright (C) 2001 Rik Hemsley (rikkus) <rik@kde.org>
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to
+# deal in the Software without restriction, including without limitation the
+# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+# sell copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
+# ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'iconv'
+require '../../lib/vorbisfile'
+
+$my_charset = 'utf-8'
+
+if ARGV.empty?
+  $stderr.print "Usage: #{File.basename($0)} <filename> ...\n"
+  $stderr.print "You probably want to pipe to a program, e.g. aplay -meq\n"
+  exit 1
+end
+
+ARGV.each do |filename|
+
+  f = File.new(filename, "r")
+
+  if !f
+    $stderr.print "Can't open #{filename}\n"
+    next
+  end
+
+  vf = Ogg::VorbisFile.new
+
+  if !vf.open(f)
+    $stderr.print "Can't read vorbis data from #{filename}\n"
+    next
+  end
+p vf.comments(-1)
+  comments = vf.comments(-1)
+
+  artist  = comments["artist"]
+  title   = comments["title"]
+
+  begin
+    artist = Iconv.iconv($my_charset, 'utf-8', artist)
+  rescue
+    artist = "Unknown artist"
+  end
+
+  begin
+    title = Iconv.iconv($my_charset, 'utf-8', title)
+  rescue
+    title = "Unknown title"
+  end
+
+  $stderr.print "#{artist} - #{title}\n"
+
+  buf = ""
+
+  #while vf.read(buf, 4096, false, 2, true)
+  #  $stdout.print buf
+  #end
+
+  vf.close
+end

data/ext/vorbisfile/vorbisfile.c

@@ -0,0 +1,482 @@
+/*
+  vorbisfile.c - part of ruby-vorbisfile
+
+  Copyright (C) 2001 Rik Hemsley (rikkus) <rik@kde.org>
+
+  Permission is hereby granted, free of charge, to any person obtaining a copy
+  of this software and associated documentation files (the "Software"), to
+  deal in the Software without restriction, including without limitation the
+  rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+  sell copies of the Software, and to permit persons to whom the Software is
+  furnished to do so, subject to the following conditions:
+
+  The above copyright notice and this permission notice shall be included in
+  all copies or substantial portions of the Software.
+
+  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+  AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
+  ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+*/
+
+#include <stdio.h>
+#include <ctype.h>
+#include <string.h>
+
+#include <ruby.h>
+#include <rubysig.h>
+
+#include <vorbis/codec.h>
+#include <vorbis/vorbisfile.h>
+
+#define LONG2FIX INT2FIX /* Ruby 1.6 :( */
+
+static VALUE cOgg;
+static VALUE cVorbisFile;
+
+  static size_t
+vf_fread(ptr, size, n, stream)
+  void * ptr;
+  size_t size;
+  size_t n;
+  void * stream;
+{
+  VALUE io  = (VALUE)stream;
+  VALUE buf;
+  VALUE count = INT2FIX(size * n);
+  buf = rb_funcall3(io, rb_intern("read"), 1, &count);
+
+  if (Qnil == buf)
+  {
+/*  fprintf(stderr, "io.read returned nil\n"); */
+    return 0;
+  }
+
+/* fprintf(stderr, "io.read returned a buf of size %d\n", RSTRING(buf)->len); */
+
+  memcpy(ptr, RSTRING(buf)->ptr, RSTRING(buf)->len);
+  return RSTRING(buf)->len;
+}
+
+  static int
+vf_fseek(stream, offset, whence)
+  void    * stream; 
+  int64_t   offset;
+  int       whence;
+{
+  VALUE io  = (VALUE)stream;
+  int   ret = 0;
+
+  VALUE args[2];
+
+  args[0] = LONG2FIX(offset);
+  args[1] = INT2FIX(whence);
+
+  ret = FIX2INT(rb_funcall3(io, rb_intern("seek"), 2, args));
+
+/*fprintf(stderr, "io.seek(%d, %d) returned %d\n", offset, whence, ret);*/
+
+  return ret;
+}
+
+  static int
+vf_fclose(stream)
+  void * stream; 
+{
+  VALUE io  = (VALUE)stream;
+  (void) rb_funcall3(io, rb_intern("close"), 0, 0);
+  return 1;
+}
+
+  static long
+vf_ftell(stream)
+  void * stream; 
+{
+  VALUE io  = (VALUE)stream;
+  long ret = 0;
+  ret = FIX2LONG(rb_funcall3(io, rb_intern("pos"), 0, 0));
+
+/*fprintf(stderr, "io.pos == %d\n", ret);*/
+  return ret;
+}
+
+  static void
+vf_delete(vf)
+  void * vf;
+{
+  ov_clear((OggVorbis_File *)vf);
+  free(vf);
+}
+
+  static VALUE
+vf_s_new(argc, argv, klass)
+  int     argc;
+  VALUE * argv;
+  VALUE   klass;
+{
+  VALUE obj = Data_Wrap_Struct(klass, 0, vf_delete, 0);
+  rb_obj_call_init(obj, argc, argv);
+  return obj;
+}
+
+  static VALUE
+vf_initialize(argc, argv, obj)
+  int     argc;
+  VALUE * argv;
+  VALUE   obj;
+{
+  struct OggVorbis_File * vf = 0;
+
+  vf = ALLOC(struct OggVorbis_File);
+  DATA_PTR(obj) = vf;
+  return obj;
+}
+
+  static VALUE
+vf_open(obj, io)
+  VALUE obj;
+  VALUE io;
+{
+  OggVorbis_File * vf  = 0;
+  ov_callbacks callbacks;
+
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+
+  rb_iv_set(obj, "io", io);
+
+  if (Qnil == io)
+    return Qfalse;
+
+  callbacks.read_func   = vf_fread;
+  callbacks.seek_func   = vf_fseek;
+  callbacks.close_func  = vf_fclose;
+  callbacks.tell_func   = vf_ftell;
+
+  if
+    (
+      ov_open_callbacks
+      ((void *)io, vf, NULL, 0, callbacks) < 0
+    )
+  {
+/*  fprintf(stderr, "ov_open_callbacks failed\n"); */
+    return Qfalse;
+  }
+
+/*  fprintf(stderr, "ov_open_callbacks succeded\n"); */
+  return Qtrue;
+}
+
+  static VALUE
+vf_read(obj, str, count, big_endian, word_size, sgned)
+  VALUE obj;
+  VALUE str;
+  VALUE count;
+  VALUE big_endian;
+  VALUE word_size;
+  VALUE sgned;
+{
+  OggVorbis_File  * vf              = 0;
+  char            * buf             = 0;
+  long              bytes_read      = 0;
+  int               vorbisSection   = 0;
+  VALUE             ret;
+
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+
+  Check_Type(str, T_STRING);
+
+  rb_str_resize(str, count);
+
+  buf = RSTRING(str)->ptr;
+
+  bytes_read =
+    ov_read
+    (
+      vf,
+      buf,
+      count,
+      (Qtrue == big_endian) ? 1 : 0,
+      NUM2INT(word_size),
+      (Qtrue == sgned) ? 1 : 0,
+      &vorbisSection
+    );
+
+  if (bytes_read > 0)
+  {
+    rb_str_resize(str, bytes_read);
+    return INT2NUM(bytes_read);
+  }
+  else
+  {
+    rb_str_resize(str, 0);
+    return Qnil;
+  }
+}
+
+  static VALUE
+vf_close(obj)
+  VALUE obj;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+/*  fprintf(stderr, "About to ov_clear %p\n", vf); */
+  return INT2FIX(ov_clear(vf));
+}
+
+  static VALUE
+vf_raw_seek(obj, pos)
+  VALUE obj;
+  VALUE pos;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  return INT2FIX(ov_raw_seek(vf, NUM2LONG(pos)));
+}
+
+  static VALUE
+vf_pcm_seek(obj, pos, fast)
+  VALUE obj;
+  VALUE pos;
+  VALUE fast;
+{
+  OggVorbis_File  * vf  = 0;
+
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+
+  if (NUM2INT(fast))
+    return INT2FIX(ov_pcm_seek_page(vf, NUM2LONG(pos)));
+  else
+    return INT2FIX(ov_pcm_seek(vf, NUM2LONG(pos)));
+}
+
+  static VALUE
+vf_time_seek(obj, pos, fast)
+  VALUE obj;
+  VALUE pos;
+  VALUE fast;
+{
+  OggVorbis_File  * vf  = 0;
+
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+
+  if (NUM2INT(fast))
+    return INT2FIX(ov_time_seek_page(vf, NUM2DBL(pos)));
+  else
+    return INT2FIX(ov_time_seek(vf, NUM2DBL(pos)));
+}
+
+  static VALUE
+vf_raw_tell(obj, pos)
+  VALUE obj;
+  VALUE pos;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  return LONG2FIX(ov_raw_tell(vf));
+}
+
+  static VALUE
+vf_pcm_tell(obj, pos)
+  VALUE obj;
+  VALUE pos;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  return LONG2FIX(ov_pcm_tell(vf));
+}
+
+  static VALUE
+vf_time_tell(obj, pos)
+  VALUE obj;
+  VALUE pos;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  return rb_float_new(ov_time_tell(vf));
+}
+
+  static VALUE
+vf_raw_total(obj, link)
+  VALUE obj;
+  VALUE link;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  return LONG2FIX(ov_raw_total(vf, NUM2INT(link)));
+}
+
+  static VALUE
+vf_pcm_total(obj, link)
+  VALUE obj;
+  VALUE link;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  return LONG2FIX(ov_pcm_total(vf, NUM2INT(link)));
+}
+
+  static VALUE
+vf_time_total(obj, link)
+  VALUE obj;
+  VALUE link;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  return rb_float_new(ov_time_total(vf, NUM2INT(link)));
+}
+
+  static VALUE
+vf_channels(obj, link)
+  VALUE obj;
+  VALUE link;
+{
+  vorbis_info     * vi = 0;
+  OggVorbis_File  * vf = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  vi = ov_info(vf, NUM2INT(link));
+  return INT2FIX(vi->channels);
+}
+
+  static VALUE
+vf_sample_rate(obj, link)
+  VALUE obj;
+  VALUE link;
+{
+  vorbis_info     * vi  = 0;
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  vi = ov_info(vf, NUM2INT(link));
+  return INT2FIX(vi->rate);
+}
+
+  static VALUE
+vf_comments(obj, link)
+  VALUE obj;
+  VALUE link;
+{
+  vorbis_comment  * vc    = 0;
+  OggVorbis_File  * vf    = 0;
+  VALUE             hash  = rb_hash_new();
+  char           ** ptr   = 0;
+  VALUE             key;
+  VALUE             value;
+
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+
+  ptr = ov_comment(vf, NUM2INT(link))->user_comments;
+
+  while (0 != *ptr)
+  {
+    char * s = *ptr;
+
+    char * equals_pos = strchr(s, '=');
+
+    if (0 != equals_pos)
+    {
+      /*
+         Vorbis comment keys are latin-1 (or ascii ?) and case-insensitive,
+         so let's do tolower() here. Why ? Well, otherwise people won't
+         be able to look up values in the hash.
+       */
+
+      int i = 0;
+
+      for (; i < equals_pos - s; i++)
+        s[i] = tolower(s[i]);
+
+      key   = rb_str_new(s, equals_pos - s);
+      value = rb_str_new(equals_pos + 1, strlen(equals_pos + 1));
+
+      rb_hash_aset(hash, key, value);
+    }
+
+    ++ptr;
+  }
+
+  return hash;
+}
+
+  static VALUE
+vf_streams(obj)
+  VALUE obj;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  return LONG2FIX(ov_streams(vf));
+}
+
+  static VALUE
+vf_bitrate(obj, link)
+  VALUE obj;
+  VALUE link;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+  return LONG2FIX(ov_bitrate(vf, NUM2INT(link)));
+}
+
+  static VALUE
+vf_bitrate_i(obj)
+  VALUE obj;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+
+  return LONG2FIX(ov_bitrate_instant(vf));
+}
+
+  static VALUE
+vf_seekable(obj)
+  VALUE obj;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+
+  return (1 == ov_seekable(vf)) ? Qtrue : Qfalse;
+}
+
+  static VALUE
+vf_serial_number(obj, link)
+  VALUE obj;
+  VALUE link;
+{
+  OggVorbis_File  * vf  = 0;
+  Data_Get_Struct(obj, OggVorbis_File, vf);
+
+  return LONG2FIX(ov_serialnumber(vf, link));
+}
+
+  void
+Init_vorbisfile()
+{
+  cOgg = rb_define_module("Ogg");
+
+  cVorbisFile = rb_define_class_under(cOgg, "VorbisFile", rb_cObject);
+
+  rb_define_singleton_method(cVorbisFile, "new",    vf_s_new,        -1);
+
+  rb_define_method(cVorbisFile, "initialize",       vf_initialize,   -1);
+  rb_define_method(cVorbisFile, "open",             vf_open,          1);
+  rb_define_method(cVorbisFile, "read",             vf_read,          5);
+  rb_define_method(cVorbisFile, "close",            vf_close,         0);
+  rb_define_method(cVorbisFile, "raw_total",        vf_raw_total,     1);
+  rb_define_method(cVorbisFile, "pcm_total",        vf_pcm_total,     1);
+  rb_define_method(cVorbisFile, "time_total",       vf_time_total,    1);
+  rb_define_method(cVorbisFile, "raw_seek",         vf_raw_seek,      2);
+  rb_define_method(cVorbisFile, "pcm_seek",         vf_pcm_seek,      2);
+  rb_define_method(cVorbisFile, "time_seek",        vf_time_seek,     2);
+  rb_define_method(cVorbisFile, "raw_tell",         vf_raw_tell,      1);
+  rb_define_method(cVorbisFile, "pcm_tell",         vf_pcm_tell,      1);
+  rb_define_method(cVorbisFile, "time_tell",        vf_time_tell,     1);
+  rb_define_method(cVorbisFile, "channels",         vf_channels,      1);
+  rb_define_method(cVorbisFile, "sample_rate",      vf_sample_rate,   1);
+  rb_define_method(cVorbisFile, "comments",         vf_comments,      1);
+  rb_define_method(cVorbisFile, "streams",          vf_streams,       0);
+  rb_define_method(cVorbisFile, "bitrate",          vf_bitrate,       1);
+  rb_define_method(cVorbisFile, "bitrate_instant",  vf_bitrate_i,     0);
+  rb_define_method(cVorbisFile, "seekable",         vf_seekable,      0);
+  rb_define_method(cVorbisFile, "serial_number",    vf_serial_number, 1);
+}
+