From 18ccc0fc2489e8242a0a6376965f33dcf946b35e Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner 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 --- TODO | 2 ++ folder_list.c | 13 ++++++--- split_path-help.pd | 16 +++++++++++ split_path.c | 79 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 107 insertions(+), 3 deletions(-) create mode 100644 split_path-help.pd create mode 100644 split_path.c 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 #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 "); + if(!folder_list_instance_count) + { + post("[folder_list] %s",version); + post("\twritten by Hans-Christoph Steiner "); + } + 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 */ + +/* I started with stripdir.c and turned it into split_path.c */ + +#include +#include +#include + +#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 "); + } + 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