1 files changed, 81 insertions, 0 deletions
diff --git a/sfsamples.c b/sfsamples.c
new file mode 100644
index 0000000..a5d2b78
--- /dev/null
+++ b/sfsamples.c
@@ -0,0 +1,81 @@
+
+#include <gmerlin/avdec.h>
+#include <gavl/gavl.h>
+
+#include <m_pd.h>
+
+#define DEBUG(x) x
+//#define DEBUG(x)
+
+static t_class *sfsamples_class;
+static t_canvas *canvas;
+
+typedef struct _sfsamples
+{
+    t_object x_obj;
+    t_symbol* filename;
+    bgav_t* decoder;
+} t_sfsamples;
+
+static void sfsamples_bang(t_sfsamples *x)
+{
+    DEBUG(post("sfsamples_bang"));
+	const gavl_audio_format_t* open_audio_format;
+	gavl_time_t gavl_time;
+
+    if(x->filename == &s_) {
+        pd_error(x,"no file set");
+        return;
+    }
+	if(!bgav_open(x->decoder, x->filename->s_name)) {
+		pd_error(x, "Could not open file %s", x->filename->s_name);
+    }
+	// only concerned with the first audio stream
+	open_audio_format = bgav_get_audio_format(x->decoder, 0);    
+
+    // we can get audio formats that are unkown
+	if (open_audio_format->sample_format == GAVL_SAMPLE_NONE) {
+ 		pd_error(x, "sorry, this file has unsupported audio."); 
+	}
+
+    gavl_time = bgav_get_duration(x->decoder, 0);
+    outlet_float(x->x_obj.ob_outlet, (float)(gavl_time_to_samples(open_audio_format->samplerate, gavl_time) / (float)open_audio_format->samplerate));
+
+}
+
+static void sfsamples_symbol(t_sfsamples *x, t_symbol* filename)
+{
+    DEBUG(post("sfsamples_symbol"));
+    x->filename = filename;
+    sfsamples_bang(x);
+}
+
+static void *sfsamples_new(t_symbol *s, int argc, t_atom *argv)
+{
+    t_sfsamples *x = (t_sfsamples *)pd_new(sfsamples_class);
+    // TODO convert args into a filename, so spaces are valid
+    x->filename == &s_;
+
+    outlet_new(&x->x_obj, &s_float);
+
+    x->decoder = bgav_create(); 
+
+    return(x);
+}
+
+static void sfsamples_free(t_sfsamples *x)
+{
+    bgav_close(x->decoder);
+}
+
+void sfsamples_setup(void)
+{
+    sfsamples_class = class_new(gensym("sfsamples"), 
+                                (t_newmethod)sfsamples_new, 
+                                (t_method)sfsamples_free, 
+                                sizeof(t_sfsamples), 
+                                0, A_GIMME, 0);
+
+    class_addbang(sfsamples_class, (t_method)sfsamples_bang);
+    class_addsymbol(sfsamples_class, (t_method)sfsamples_symbol);
+}