aboutsummaryrefslogtreecommitdiff
path: root/readdir/src/readdir.c
diff options
context:
space:
mode:
Diffstat (limited to 'readdir/src/readdir.c')
-rw-r--r--readdir/src/readdir.c278
1 files changed, 278 insertions, 0 deletions
diff --git a/readdir/src/readdir.c b/readdir/src/readdir.c
new file mode 100644
index 0000000..5500408
--- /dev/null
+++ b/readdir/src/readdir.c
@@ -0,0 +1,278 @@
+/* -*- Mode: C -*- */
+/*=============================================================================*\
+ * File: readdir.c
+ * Author: Bryan Jurish <moocow@ling.uni-potsdam.de>
+ * Description: general directory access object
+ *
+ * Copyright (c) 2003 Bryan Jurish.
+ *
+ * For information on usage and redistribution, and for a DISCLAIMER OF ALL
+ * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
+ *
+ * This program 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 2
+ * of the License, or (at your option) any later version.
+ *
+ * See file LICENSE for further informations on licensing terms.
+ *
+ * This program 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ *=============================================================================*/
+
+#include <dirent.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <string.h>
+
+#include <m_pd.h>
+
+/* black magic */
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+#ifdef HAVE_CONFIG_H
+# include "config.h"
+#endif
+
+/*--------------------------------------------------------------------
+ * DEBUG
+ *--------------------------------------------------------------------*/
+//#define READDIR_DEBUG 1
+
+
+/*=====================================================================
+ * Constants
+ *=====================================================================*/
+#ifdef READDIR_DEBUG
+// error-message buffer
+#define EBUFSIZE 256
+static char readdir_errbuf[EBUFSIZE];
+#endif
+
+/*=====================================================================
+ * Structures and Types
+ *=====================================================================*/
+
+static char *readdir_banner = "\nreaddir version %s by Bryan Jurish : simple directory accessor";
+
+static t_class *readdir_class;
+
+typedef struct _readdir
+{
+ t_object x_obj;
+ DIR *x_dir; //-- current directory
+ t_symbol *x_dirname; //-- current directory name
+ //struct dirent *x_dirent; //-- current entry of current directory
+ t_atom x_eatom; //-- current output atom (symbol)
+ t_outlet *x_ent_outlet; //-- entry outlet
+ t_outlet *x_eod_outlet; //-- end-of-directory outlet
+} t_readdir;
+
+/*=====================================================================
+ * Constants
+ *=====================================================================*/
+static t_symbol *sp_none;
+static t_symbol *sp_unknown;
+static t_symbol *sp_file;
+static t_symbol *sp_dir;
+static t_symbol *sp_fifo;
+static t_symbol *sp_sock;
+static t_symbol *sp_chrdev;
+static t_symbol *sp_blkdev;
+
+/*--------------------------------------------------------------------
+ * close
+ */
+static void readdir_close(t_readdir *x)
+{
+ if (!x->x_dir) return;
+ if (0 != closedir(x->x_dir)) {
+ error("readdir: cannot close %s: %s", x->x_dirname->s_name, strerror(errno));
+ return;
+ }
+ x->x_dir = NULL;
+ x->x_dirname = sp_none;
+}
+
+/*--------------------------------------------------------------------
+ * open DIR
+ */
+static void readdir_open(t_readdir *x, t_symbol *dirname)
+{
+#ifdef READDIR_DEBUG
+ post("readdir: got message: open %s", dirname->s_name);
+#endif
+
+ if (x->x_dir) readdir_close(x);
+ if ( !(x->x_dir = opendir(dirname->s_name)) ) {
+ error("readdir: cannot open %s: %s", dirname->s_name, strerror(errno));
+ return;
+ }
+ x->x_dirname = dirname;
+}
+
+/*--------------------------------------------------------------------
+ * next : get next entry
+ */
+static void readdir_next(t_readdir *x)
+{
+ t_symbol *sel = sp_unknown;
+ struct dirent *result = NULL;
+ if ( !x->x_dir || !(result = readdir(x->x_dir)) ) {
+ if (errno == EBADF) {
+ //-- real error
+ error("readdir: cannot read from %s: %s", x->x_dirname->s_name, strerror(errno));
+ }
+ else {
+ //-- end of directory
+ outlet_bang(x->x_eod_outlet);
+ }
+ return;
+ }
+
+ //-- get type
+ switch (result->d_type)
+ {
+ case DT_REG:
+ sel = sp_file;
+ break;
+
+ case DT_DIR:
+ sel = sp_dir;
+ break;
+
+ case DT_FIFO:
+ sel = sp_fifo;
+ break;
+
+ case DT_SOCK:
+ sel = sp_sock;
+ break;
+
+ case DT_CHR:
+ sel = sp_chrdev;
+ break;
+
+ case DT_BLK:
+ sel = sp_blkdev;
+ break;
+
+ default:
+ sel = sp_unknown;
+ break;
+ }
+
+ x->x_eatom.a_w.w_symbol = gensym(result->d_name);
+ outlet_anything(x->x_ent_outlet, sel, 1, &x->x_eatom);
+}
+
+/*--------------------------------------------------------------------
+ * rewind
+ */
+static void readdir_rewind(t_readdir *x)
+{
+ if (x->x_dir) rewinddir(x->x_dir);
+}
+
+/*--------------------------------------------------------------------
+ * tell
+ */
+static void readdir_tell(t_readdir *x)
+{
+ off_t off = 0;
+ if (x->x_dir) off = telldir(x->x_dir);
+ outlet_float(x->x_ent_outlet, (t_float)off);
+}
+
+/*--------------------------------------------------------------------
+ * seek FLOAT
+ */
+static void readdir_seek(t_readdir *x, t_floatarg pos)
+{
+ if (!x->x_dir) {
+ error("readdir: seek %f: no directory opened!", pos);
+ return;
+ }
+ seekdir(x->x_dir, (off_t)pos);
+}
+
+
+/*--------------------------------------------------------------------
+ * new
+ */
+static void *readdir_new(void)
+{
+ t_readdir *x = (t_readdir *)pd_new(readdir_class);
+
+ //-- defaults
+ x->x_dir = NULL;
+ x->x_dirname = sp_none;
+ SETSYMBOL(&x->x_eatom, sp_none);
+
+ //-- outlets
+ x->x_ent_outlet = outlet_new(&x->x_obj, &s_symbol);
+ x->x_eod_outlet = outlet_new(&x->x_obj, &s_bang);
+
+ return (void *)x;
+}
+
+/*--------------------------------------------------------------------
+ * free
+ */
+static void readdir_free(t_readdir *x)
+{
+ readdir_close(x);
+ outlet_free(x->x_ent_outlet);
+ outlet_free(x->x_eod_outlet);
+ return;
+}
+
+/*--------------------------------------------------------------------
+ * setup
+ */
+void readdir_setup(void)
+{
+ post(readdir_banner, PACKAGE_VERSION);
+#ifdef READDIR_DEBUG
+ post("readdir : debugging enabled");
+#endif
+
+ //-- constants
+ sp_none = gensym("none");
+ sp_unknown = gensym("unknown");
+ sp_file = gensym("file");
+ sp_dir = gensym("dir");
+ sp_fifo = gensym("fifo");
+ sp_sock = gensym("sock");
+ sp_chrdev = gensym("chrdev");
+ sp_blkdev = gensym("blkdev");
+
+ //-- class
+ readdir_class = class_new(gensym("readdir"),
+ (t_newmethod)readdir_new,
+ (t_method)readdir_free,
+ sizeof(t_readdir),
+ CLASS_DEFAULT,
+ 0);
+
+ //-- methods
+ class_addmethod(readdir_class, (t_method)readdir_open, gensym("open"), A_DEFSYMBOL, 0);
+ class_addmethod(readdir_class, (t_method)readdir_close, gensym("close"), 0);
+ class_addmethod(readdir_class, (t_method)readdir_next, gensym("next"), 0);
+ class_addbang(readdir_class, (t_method)readdir_next);
+ class_addmethod(readdir_class, (t_method)readdir_rewind, gensym("rewind"), 0);
+ class_addmethod(readdir_class, (t_method)readdir_tell, gensym("tell"), 0);
+ class_addmethod(readdir_class, (t_method)readdir_seek, gensym("seek"), A_DEFFLOAT, 0);
+
+ //-- help symbol
+ class_sethelpsymbol(readdir_class, gensym("readdir-help.pd"));
+}
generated by cgit v1.2.1 (git 2.18.0) at 2024-06-02 03:04:15 +0000