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

4 files changed, 107 insertions, 3 deletions

diff --git a/TODO b/TODO
index 3fa820f..c0276f0 100644
--- a/TODO
+++ b/TODO
@@ -1,4 +1,6 @@
 
+- rename [folder_list] to [file/match] and make other file lib objects
+  - make [file/match] handle lists of patterns
 
 - write [version] object
   - [bang( outputs list of version major minor bugfix i.e. [0 39 2(
diff --git a/folder_list.c b/folder_list.c
index dffdb2c..0c0dede 100644
--- a/folder_list.c
+++ b/folder_list.c
@@ -34,7 +34,9 @@
 #include <glob.h>
 #endif
 
-static char *version = "$Revision: 1.8 $";
+static char *version = "$Revision: 1.9 $";
+
+t_int folder_list_instance_count;
 
 #define DEBUG(x)
 //#define DEBUG(x) x 
@@ -163,8 +165,13 @@ static void *folder_list_new(t_symbol *s)
 
 	t_folder_list *x = (t_folder_list *)pd_new(folder_list_class);
 	
-	post("[folder_list] %s",version);  
-	post("\twritten by Hans-Christoph Steiner <hans@at.or.at>");
+	if(!folder_list_instance_count) 
+	{
+		post("[folder_list] %s",version);  
+		post("\twritten by Hans-Christoph Steiner <hans@at.or.at>");
+	}
+	folder_list_instance_count++;
+
 	/* TODO set current dir of patch as default */
 #ifdef _WIN32
 	x->x_pattern = gensym(getenv("USERPROFILE"));
diff --git a/split_path-help.pd b/split_path-help.pd
new file mode 100644
index 0000000..11e5cf0
--- /dev/null
+++ b/split_path-help.pd
@@ -0,0 +1,16 @@
+#N canvas 0 22 458 308 10;
+#X obj 111 141 split_path;
+#X symbolatom 111 201 0 0 0 3 path - -;
+#X symbolatom 175 165 0 0 0 3 filename - -;
+#X msg 80 43 symbol just-a-file.pd;
+#X msg 108 71 symbol /path/to/a/file;
+#X obj 95 161 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 159 160 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X connect 0 0 1 0;
+#X connect 0 0 5 0;
+#X connect 0 1 2 0;
+#X connect 0 1 6 0;
+#X connect 3 0 0 0;
+#X connect 4 0 0 0;
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);
+}
+
+