[PD-cvs] externals/hcs folder_list.c, 1.9, 1.10 folder_list-help.pd, 1.6, 1.7
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Mon Jun 12 16:17:14 CEST 2006
Update of /cvsroot/pure-data/externals/hcs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18399
Modified Files:
folder_list.c folder_list-help.pd
Log Message:
changed default folder to folder of current patch
Index: folder_list-help.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/hcs/folder_list-help.pd,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** folder_list-help.pd 27 Mar 2006 03:16:14 -0000 1.6
--- folder_list-help.pd 12 Jun 2006 14:17:12 -0000 1.7
***************
*** 1,47 ****
! #N canvas 536 89 536 571 10;
! #X msg 19 53 bang;
! #X msg 101 323 bang;
! #X obj 64 280 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
! #X obj 85 388 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
! #X msg 176 235 symbol /usr/*;
! #X text 51 56 list current directory;
! #X text 160 217 set pattern without no output;
! #X obj 101 354 folder_list;
! #X obj 83 257 folder_list /*;
! #X obj 83 278 print;
! #X text 65 39 left/hot inlet gives immediate output using stored path
;
! #X text 49 301 For UNIX people \, [folder_list] behaves just like "ls
-d1A";
! #X obj 102 387 print;
! #X msg 91 126 symbol ~/*.*;
! #X text 153 384 WARNING: the default will change in the future!;
! #X msg 97 153 symbol *;
! #X text 187 177 relative paths work;
! #X msg 102 178 symbol ../*;
! #X obj 51 440 getdir;
! #X obj 51 482 folder_list;
! #X msg 51 420 bang;
! #X obj 51 504 print;
! #X obj 51 460 makefilename %s/*;
! #X symbolatom 186 456 0 0 0 0 - - -;
! #X symbolatom 186 476 0 0 0 0 - - -;
! #X text 128 425 What's in the same folder as this patch?;
! #X text 164 104 drive letters work on ReactOS/Windows;
! #X msg 77 103 symbol C:/*;
! #X text 190 128 all files with a dot in your home;
! #X msg 40 78 symbol %USERPROFILE%/*;
! #X text 203 79 ReactOS/Windows environment variables work;
! #X text 186 353 defaults to your home folder;
! #X text 267 200 nested wildcards work on UNIX;
! #X msg 119 199 symbol /var/*/*.log;
! #X text 30 5 Get a listing of files based on a wildcard pattern. On
! UNIX \, it follows glob rules \, on Windows it follows the cmd.exe
! rules.;
! #X text 165 152 patterns default to path that Pd launched from;
! #X text 274 541 released under the GNU GPL;
! #X text 57 527 (C) Copyright 2006 Hans-Christoph Steiner <hans at at.or.at>
;
#X connect 0 0 8 0;
--- 1,40 ----
! #N canvas 536 89 539 485 10;
! #X msg 19 73 bang;
! #X msg 27 355 bang;
! #X obj 64 300 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
! #X obj 11 420 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
! #X msg 176 255 symbol /usr/*;
! #X text 54 73 list current directory;
! #X text 160 237 set pattern without no output;
! #X obj 27 386 folder_list;
! #X obj 83 277 folder_list /*;
! #X obj 83 298 print;
! #X text 8 49 left/hot inlet gives immediate output using stored path
;
! #X text 19 325 For UNIX people \, [folder_list] behaves just like "ls
-d1A";
! #X obj 28 419 print;
! #X msg 91 146 symbol ~/*.*;
! #X msg 97 173 symbol *;
! #X text 187 197 relative paths work;
! #X msg 102 198 symbol ../*;
! #X text 164 124 drive letters work on ReactOS/Windows;
! #X msg 77 123 symbol C:/*;
! #X text 190 148 all files with a dot in your home;
! #X msg 40 98 symbol %USERPROFILE%/*;
! #X text 203 99 ReactOS/Windows environment variables work;
! #X text 262 218 nested wildcards work on UNIX;
! #X msg 119 219 symbol /var/*/*.log;
! #X text 165 172 patterns default to path that Pd launched from;
! #X text 329 464 released under the GNU GPL;
! #X text 15 449 (C) Copyright 2006 Hans-Christoph Steiner <hans at at.or.at>
! ;
! #X text 8 5 Get a listing of files based on a wildcard pattern. On
! UNIX \, it follows glob rules \, on ReactOS/Windows it follows the
! cmd.exe rules.;
! #X text 115 380 With no argument \, it defaults to the contents of
! the folder of the current patch \, i.e. "/path/to/current/patch/*".
;
#X connect 0 0 8 0;
***************
*** 53,65 ****
#X connect 8 0 9 0;
#X connect 13 0 8 0;
! #X connect 15 0 8 0;
! #X connect 17 0 8 0;
! #X connect 18 0 22 0;
! #X connect 18 0 23 0;
! #X connect 19 0 21 0;
! #X connect 20 0 18 0;
! #X connect 22 0 19 0;
! #X connect 22 0 24 0;
! #X connect 27 0 8 0;
! #X connect 29 0 8 0;
! #X connect 33 0 8 0;
--- 46,52 ----
#X connect 8 0 9 0;
#X connect 13 0 8 0;
! #X connect 14 0 8 0;
! #X connect 16 0 8 0;
! #X connect 18 0 8 0;
! #X connect 20 0 8 0;
! #X connect 23 0 8 0;
Index: folder_list.c
===================================================================
RCS file: /cvsroot/pure-data/externals/hcs/folder_list.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** folder_list.c 8 Apr 2006 23:48:38 -0000 1.9
--- folder_list.c 12 Jun 2006 14:17:11 -0000 1.10
***************
*** 35,38 ****
--- 35,40 ----
#endif
+ #include <string.h>
+
static char *version = "$Revision$";
***************
*** 48,53 ****
typedef struct _folder_list {
! t_object x_obj;
! t_symbol *x_pattern;
} t_folder_list;
--- 50,55 ----
typedef struct _folder_list {
! t_object x_obj;
! t_symbol *x_pattern;
} t_folder_list;
***************
*** 165,182 ****
t_folder_list *x = (t_folder_list *)pd_new(folder_list_class);
!
if(!folder_list_instance_count)
{
post("[folder_list] %s",version);
post("\twritten by Hans-Christoph Steiner <hans at at.or.at>");
}
folder_list_instance_count++;
- /* TODO set current dir of patch as default */
- #ifdef _WIN32
- x->x_pattern = gensym(getenv("USERPROFILE"));
- #else
- x->x_pattern = gensym(getenv("HOME"));
- #endif
symbolinlet_new(&x->x_obj, &x->x_pattern);
--- 167,181 ----
t_folder_list *x = (t_folder_list *)pd_new(folder_list_class);
! t_symbol *currentdir;
! char buffer[MAXPDSTRING];
!
if(!folder_list_instance_count)
{
post("[folder_list] %s",version);
post("\twritten by Hans-Christoph Steiner <hans at at.or.at>");
+ post("\tcompiled on "__DATE__" at "__TIME__ " ");
}
folder_list_instance_count++;
symbolinlet_new(&x->x_obj, &x->x_pattern);
***************
*** 185,190 ****
/* set to the value from the object argument, if that exists */
if (s != &s_)
x->x_pattern = s;
!
return (x);
}
--- 184,199 ----
/* set to the value from the object argument, if that exists */
if (s != &s_)
+ {
x->x_pattern = s;
! }
! else
! {
! currentdir = canvas_getcurrentdir();
! strncpy(buffer,currentdir->s_name,MAXPDSTRING);
! strncat(buffer,"/*",MAXPDSTRING);
! x->x_pattern = gensym(buffer);
! post("setting pattern to default: %s",x->x_pattern->s_name);
! }
!
return (x);
}
More information about the Pd-cvs
mailing list