[PD-cvs] externals/hcs folder_list.c, 1.9, 1.10 folder_list-help.pd, 1.6, 1.7 - Pd-cvs

12 Jun 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.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.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.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.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);
  }