aboutsummaryrefslogtreecommitdiff
path: root/filesize.c
diff options
context:
space:
mode:
authordieter kovacic <d13@users.sourceforge.net>2002-07-09 12:41:56 +0000
committerdieter kovacic <d13@users.sourceforge.net>2002-07-09 12:41:56 +0000
commit7312e58d17e331d71d4f47e21bf15499609bace8 (patch)
tree23e7fba2466041f82bc29ce4adf5e7ac35d2d508 /filesize.c
This commit was generated by cvs2svn to compensate for changes in r33,svn2git-root
which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/ext13/; revision=34
Diffstat (limited to 'filesize.c')
-rw-r--r--filesize.c51
1 files changed, 51 insertions, 0 deletions
diff --git a/filesize.c b/filesize.c
new file mode 100644
index 0000000..0a87812
--- /dev/null
+++ b/filesize.c
@@ -0,0 +1,51 @@
+#include "ext13.h"
+#include "m_pd.h"
+#include <sys/stat.h>
+#include <stdio.h>
+#include <unistd.h>
+
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+/* -------------------------- filesize ------------------------------ */
+static t_class *filesize_class;
+
+typedef struct _filesize
+{
+ t_object x_obj;
+ t_float x_f;
+ t_symbol *x_s;
+} t_filesize;
+
+
+static void *filesize_new(t_symbol *s)
+{
+ t_filesize *x = (t_filesize *)pd_new(filesize_class);
+ x->x_s = s;
+ outlet_new(&x->x_obj, &s_float);
+ return (x);
+}
+
+static void filesize_bang(t_filesize *x)
+{
+ outlet_float(x->x_obj.ob_outlet, x->x_f);
+}
+
+static void filesize_symbol(t_filesize *x, t_symbol *s)
+{
+ struct stat statbuf;
+ int ok=(stat(s->s_name, &statbuf) >= 0);
+ if (ok>0) outlet_float(x->x_obj.ob_outlet,x->x_f=statbuf.st_size);
+ else post ("filesize:file not found");
+}
+
+void filesize_setup(void)
+{
+ filesize_class = class_new(gensym("filesize"), (t_newmethod)filesize_new, 0,
+ sizeof(t_filesize), 0, A_DEFFLOAT, 0);
+ class_addcreator((t_newmethod)filesize_new, gensym("fsize"), A_DEFFLOAT, 0);
+ class_addbang(filesize_class, filesize_bang);
+ class_addsymbol(filesize_class, filesize_symbol);
+}