From 18ccc0fc2489e8242a0a6376965f33dcf946b35e Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 8 Apr 2006 23:49:04 +0000
Subject: wrote [strip_path] to separate path from filename, and to handle
 filenames without paths properly; added instance counters so that the version
 is only displayed on the first instantiation

svn path=/trunk/externals/hcs/; revision=4852
---
 split_path.c | 79 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)
 create mode 100644 split_path.c

(limited to 'split_path.c')

diff --git a/split_path.c b/split_path.c
new file mode 100644
index 0000000..ea44e91
--- /dev/null
+++ b/split_path.c
@@ -0,0 +1,79 @@
+/* (C) Guenter Geiger <geiger@epy.co.at> */
+
+/* I started with stripdir.c and turned it into split_path.c <hans@at.or.at> */
+
+#include <m_pd.h>
+#include <string.h>
+#include <sys/param.h>
+
+#ifdef _MSC_VER
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+static char *version = "$Revision: 1.1 $";
+
+t_int strip_path_instance_count;
+
+/* ------------------------ split_path ----------------------------- */
+
+static t_class *split_path_class;
+
+typedef struct _split_path
+{
+    t_object   x_obj;
+	t_outlet   *x_path_outlet;
+	t_outlet   *x_filename_outlet;
+} t_split_path;
+
+
+void split_path_symbol(t_split_path *x, t_symbol *s)
+{
+	int length = strlen(s->s_name);
+	char path_buffer[MAXPATHLEN] = "";
+		
+	while (length--)
+		if (*(s->s_name + length) == '/') 
+			break;
+	if (length < MAXPATHLEN)
+		outlet_symbol(x->x_filename_outlet,gensym(s->s_name + length + 1));
+	else 
+		error("[split_path] filename name too long. The limit is %d characters",MAXPATHLEN);
+	while (length > 0)
+	{
+		length--;
+		if(*(s->s_name + length) != '/') break;
+	}
+	if (length < MAXPATHLEN)
+	{
+		strncpy(path_buffer, s->s_name, length + 1);
+		outlet_symbol(x->x_path_outlet,gensym(path_buffer));
+	}
+	else
+	{
+		error("[split_path] path name too long. The limit is %d characters",MAXPATHLEN);
+	}
+}
+
+static void *split_path_new()
+{
+    t_split_path *x = (t_split_path *)pd_new(split_path_class);
+	x->x_path_outlet = (t_outlet *)outlet_new(&x->x_obj, &s_symbol);
+	x->x_filename_outlet = (t_outlet *)outlet_new(&x->x_obj, &s_symbol);
+	if(!strip_path_instance_count) 
+	{
+		post("[strip_path] %s",version);  
+		post("\twritten by Hans-Christoph Steiner <hans@at.or.at>");
+	}
+	strip_path_instance_count++;
+	return (x);
+}
+
+void split_path_setup(void)
+{
+    split_path_class = class_new(gensym("split_path"), (t_newmethod)split_path_new, 0,
+				sizeof(t_split_path), 0,0);
+    class_addsymbol(split_path_class,split_path_symbol);
+}
+
+
-- 
cgit v1.2.1