Pd-cvs June 2006

pd-cvs@lists.iem.at

13 participants
225 discussions

externals/hcs stat.c,1.1,1.2 stat-help.pd,1.1,1.2
by Hans-Christoph Steiner 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22063 Modified Files: stat.c stat-help.pd Log Message: fixed error messages, they now output into Pd space Index: stat.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/stat.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** stat.c 12 Jun 2006 22:46:27 -0000 1.1 --- stat.c 13 Jun 2006 01:28:48 -0000 1.2 *************** *** 112,133 **** */ ! static void stat_output_error(t_stat *x, int error_number) { t_atom output_atoms[2]; ! switch(error_number) { case EACCES: error("[stat]: access denied: %s", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("access")); break; case EIO: error("[stat]: An error occured while reading %s", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("io")); break; case ELOOP: error("[stat]: A loop exists in symbolic links in %s", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("loop")); break; case ENAMETOOLONG: --- 112,133 ---- */ ! static void stat_output_error(t_stat *x) { t_atom output_atoms[2]; ! switch(errno) { case EACCES: error("[stat]: access denied: %s", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("access_denied")); break; case EIO: error("[stat]: An error occured while reading %s", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("io_error")); break; case ELOOP: error("[stat]: A loop exists in symbolic links in %s", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("symlink_loop")); break; case ENAMETOOLONG: *************** *** 148,156 **** error("[stat]: %s caused overflow in stat struct", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("overflow")); break; case EFAULT: error("[stat]: fault in stat struct (%s)", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("fault")); break; case EINVAL: --- 148,156 ---- error("[stat]: %s caused overflow in stat struct", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("internal_overflow")); break; case EFAULT: error("[stat]: fault in stat struct (%s)", x->x_filename->s_name); ! SETSYMBOL(output_atoms, gensym("internal_fault")); break; case EINVAL: *************** *** 160,165 **** break; default: ! error("[stat]: unknown error %d: %s", ! error_number, x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("unknown")); } --- 160,164 ---- break; default: ! error("[stat]: unknown error %d: %s", errno, x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("unknown")); } *************** *** 181,190 **** if(result != 0) { ! stat_output_error(x, result); } else { reset_output(x); - post(""); add_float_to_output(x, (t_float) stat_buffer.st_mode); add_float_to_output(x, (t_float) stat_buffer.st_nlink); --- 180,188 ---- if(result != 0) { ! stat_output_error(x); } else { reset_output(x); add_float_to_output(x, (t_float) stat_buffer.st_mode); add_float_to_output(x, (t_float) stat_buffer.st_nlink); Index: stat-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/stat-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** stat-help.pd 12 Jun 2006 22:46:27 -0000 1.1 --- stat-help.pd 13 Jun 2006 01:28:48 -0000 1.2 *************** *** 1,36 **** ! #N canvas 59 135 710 533 10; ! #X msg 114 53 bang; ! #X text 156 53 run on current folder; ! #X symbolatom 6 490 0 0 0 3 filename - -; ! #X floatatom 29 385 0 0 0 3 file_mode - -; ! #X floatatom 175 385 0 0 0 3 User_ID - -; ! #X floatatom 271 385 0 0 0 3 Group_ID - -; ! #X floatatom 338 385 0 0 0 3 Device_ID - -; ! #X obj 5 107 print data; #X obj 163 165 route error; #X symbolatom 163 201 0 0 0 0 error - -; ! #X floatatom 419 385 0 0 0 3 File_Size - -; ! #X floatatom 480 363 0 0 0 3 Blocks_Allocated - -; ! #X floatatom 537 338 0 0 0 3 preferred_block_size - -; ! #X obj 79 8 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1 ; ! #X obj 79 26 openpanel; ! #X text 151 16 try it on any file (it doesn't change anything \, just reads data from the file system).; #X text 127 146 <-- set filename by cold inlet or object argument; ! #X obj 270 425 gid->group_name; ! #X symbolatom 270 454 0 0 0 3 group_name - -; #X obj 163 183 symbol; ! #X msg 127 79 symbol /tmp/this_file_doesn't_exist; ! #X text 244 186 errors are reported in Pd space; ! #X floatatom 98 385 0 0 0 3 hard_links - -; ! #X symbolatom 174 454 0 0 0 3 group_name - -; ! #X obj 174 425 uid->username; #X obj 91 147 stat; ! #X obj 77 203 list; ! #X obj 77 223 list split 9; #X obj 9 282 unpack symbol float float float float float float float float; ! #N canvas 0 22 458 308 time 0; #X obj 136 34 inlet; #X floatatom 19 193 6 0 0 3 days - -; --- 1,33 ---- ! #N canvas 139 93 642 522 10; ! #X msg 108 68 bang; ! #X text 150 68 run on current folder; ! #X symbolatom 6 470 0 0 0 3 filename - -; ! #X floatatom 29 365 0 0 0 3 file_mode - -; ! #X floatatom 175 365 0 0 0 3 User_ID - -; ! #X floatatom 271 365 0 0 0 3 Group_ID - -; ! #X floatatom 338 365 0 0 0 3 Device_ID - -; #X obj 163 165 route error; #X symbolatom 163 201 0 0 0 0 error - -; ! #X floatatom 419 386 0 0 0 3 File_Size - -; ! #X floatatom 419 353 0 0 0 3 Blocks_Allocated - -; ! #X floatatom 419 317 0 0 0 3 preferred_block_size - -; ! #X obj 17 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1 ; ! #X obj 17 63 openpanel; ! #X text 46 31 try it on any file (it doesn't change anything \, just reads data from the file system).; #X text 127 146 <-- set filename by cold inlet or object argument; ! #X obj 270 405 gid->group_name; ! #X symbolatom 270 434 0 0 0 3 group_name - -; #X obj 163 183 symbol; ! #X floatatom 98 365 0 0 0 3 hard_links - -; ! #X symbolatom 174 434 0 0 0 3 group_name - -; ! #X obj 174 405 uid->username; #X obj 91 147 stat; ! #X obj 9 203 list; ! #X obj 9 223 list split 9; #X obj 9 282 unpack symbol float float float float float float float float; ! #N canvas 0 22 466 316 time 0; #X obj 136 34 inlet; #X floatatom 19 193 6 0 0 3 days - -; *************** *** 51,82 **** #X connect 10 4 7 0; #X connect 10 5 8 0; ! #X restore 116 253 pd time stamps; ! #X msg 138 103 symbol /usr/bin/gcc; ! #X text 226 251 <-- open this to see the timestamps; ! #X connect 0 0 25 0; ! #X connect 4 0 24 0; ! #X connect 5 0 17 0; ! #X connect 8 0 19 0; ! #X connect 13 0 14 0; ! #X connect 14 0 25 0; ! #X connect 17 0 18 0; ! #X connect 19 0 9 0; ! #X connect 20 0 25 0; ! #X connect 24 0 23 0; ! #X connect 25 0 7 0; ! #X connect 25 0 26 0; ! #X connect 25 0 28 0; ! #X connect 25 1 8 0; ! #X connect 26 0 27 0; ! #X connect 27 0 28 0; ! #X connect 27 1 29 0; ! #X connect 28 0 2 0; ! #X connect 28 1 3 0; ! #X connect 28 2 22 0; ! #X connect 28 3 4 0; ! #X connect 28 4 5 0; ! #X connect 28 5 6 0; ! #X connect 28 6 10 0; ! #X connect 28 7 11 0; ! #X connect 28 8 12 0; ! #X connect 30 0 25 0; --- 48,98 ---- #X connect 10 4 7 0; #X connect 10 5 8 0; ! #X restore 48 253 pd time stamps; ! #X msg 132 118 symbol /usr/bin/gcc; ! #X text 158 251 <-- open this to see the timestamps; ! #X obj 94 175 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X msg 121 94 symbol /tmp/this_file_doesn't_exist; ! #X text 249 181 <-- errors are reported in Pd space and the Pd window ! ; ! #N canvas 0 22 458 308 possible 0; ! #X text 47 62 access_denied; ! #X text 47 82 io_error; ! #X text 47 102 symlink_loop; ! #X text 47 122 name_too_long; ! #X text 47 142 does_not_exist; ! #X text 47 162 not_folder; ! #X text 47 182 internal_overflow; ! #X text 47 202 internal_fault; ! #X text 19 21 Here are the possible errors that [stat] will report ! on its right outlet:; ! #X text 47 222 invalid; ! #X text 47 242 unknown; ! #X restore 400 209 pd possible errors; ! #X text 8 3 [stat] gets information about files; ! #X connect 0 0 22 0; ! #X connect 4 0 21 0; ! #X connect 5 0 16 0; ! #X connect 7 0 18 0; ! #X connect 12 0 13 0; ! #X connect 13 0 22 0; ! #X connect 16 0 17 0; ! #X connect 18 0 8 0; ! #X connect 21 0 20 0; ! #X connect 22 0 23 0; ! #X connect 22 0 29 0; ! #X connect 22 1 7 0; ! #X connect 23 0 24 0; ! #X connect 24 0 25 0; ! #X connect 24 1 26 0; ! #X connect 25 0 2 0; ! #X connect 25 1 3 0; ! #X connect 25 2 19 0; ! #X connect 25 3 4 0; ! #X connect 25 4 5 0; ! #X connect 25 5 6 0; ! #X connect 25 6 9 0; ! #X connect 25 7 10 0; ! #X connect 25 8 11 0; ! #X connect 27 0 22 0; ! #X connect 30 0 22 0;

1 0

externals/hcs stat.c, NONE, 1.1 stat-help.pd, NONE, 1.1 file_type-help.pd, NONE, 1.1 file_type.pd, NONE, 1.1 file_status-help.pd, 1.1, NONE file_status.c, 1.1, NONE
by Hans-Christoph Steiner 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12731 Added Files: stat.c stat-help.pd file_type-help.pd file_type.pd Removed Files: file_status-help.pd file_status.c Log Message: changed [file_status] to [stat] since that's all it does; got [stat] working, still need to get error messages to work properly; created file_type Pd object --- file_status-help.pd DELETED --- --- NEW FILE: file_type.pd --- #N canvas 15 102 585 375 10; #X obj 28 8 inlet; #X obj 29 34 stat; #X obj 29 65 list; #X obj 29 85 list split 2; #X obj 29 105 list split 1; #X msg 10 235 fifo; #X obj 197 312 symbol; #X obj 197 333 outlet; #X msg 47 235 character; #X msg 121 235 folder; #X msg 175 235 block; #X msg 226 235 file; #X msg 268 235 symlink; #X msg 329 235 socket; #X msg 384 235 whiteout; #X obj 442 325 outlet; #X text 433 342 bang if no match; #X obj 69 140 & 61440; #X obj 35 178 route 4096 8192 16384 24576 32768 40960 49152 57344; #X obj 394 205 print [file_type]_ERROR; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 1 15 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 1 17 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 8 0 6 0; #X connect 9 0 6 0; #X connect 10 0 6 0; #X connect 11 0 6 0; #X connect 12 0 6 0; #X connect 13 0 6 0; #X connect 14 0 6 0; #X connect 17 0 18 0; #X connect 18 0 5 0; #X connect 18 1 8 0; #X connect 18 2 9 0; #X connect 18 3 10 0; #X connect 18 4 11 0; #X connect 18 5 12 0; #X connect 18 6 13 0; #X connect 18 7 14 0; #X connect 18 8 19 0; --- NEW FILE: file_type-help.pd --- #N canvas 434 28 454 304 10; #X obj 180 210 file_type; #X obj 181 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1; #X obj 181 59 openpanel; #X msg 203 118 symbol /usr/bin/gcc; #X obj 239 235 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X text 258 236 bang if no match; #X msg 206 142 symbol /dev/tty; #X obj 181 96 symbol; #X msg 141 76 bang; #X symbolatom 179 262 0 0 0 0 file_type - -; #X obj 207 185 folder_list; #X msg 207 166 symbol /tmp/ssh-*/agent.*; #X msg 83 148 symbol /usr; #X msg 25 129 symbol /tmp; #X text 16 10 find the file type of a file; #X connect 0 0 9 0; #X connect 0 1 4 0; #X connect 1 0 2 0; #X connect 2 0 7 0; #X connect 3 0 0 0; #X connect 6 0 0 0; #X connect 7 0 0 0; #X connect 8 0 7 0; #X connect 10 0 0 0; #X connect 11 0 10 0; #X connect 12 0 0 0; #X connect 13 0 0 0; --- NEW FILE: stat.c --- /* --------------------------------------------------------------------------*/ /* */ /* object for getting file type (dir, link, exe, etc) using a filename */ /* Written by Hans-Christoph Steiner <hans(a)at.or.at> */ /* */ /* Copyright (c) 2006 Hans-Christoph Steiner */ /* */ /* This program is free software; you can redistribute it and/or */ /* modify it under the terms of the GNU General Public License */ /* as published by the Free Software Foundation; either version 2 */ /* of the License, or (at your option) any later version. */ /* */ /* See file LICENSE for further informations on licensing terms. */ /* */ /* This program is distributed in the hope that it will be useful, */ /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ /* GNU General Public License for more details. */ /* */ /* You should have received a copy of the GNU General Public License */ /* along with this program; if not, write to the Free Software Foundation, */ /* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* */ /* --------------------------------------------------------------------------*/ #include <m_pd.h> #ifdef _WIN32 #define _WIN32_WINNT 0x0400 #include <windows.h> #include <stdio.h> #else #include <stdlib.h> #endif #include <string.h> #include <sys/types.h> #include <sys/stat.h> #include <sys/errno.h> static char *version = "$Revision: 1.1 $"; t_int stat_instance_count; #define DEBUG(x) //#define DEBUG(x) x /*------------------------------------------------------------------------------ * CLASS DEF */ static t_class *stat_class; typedef struct _stat { t_object x_obj; t_symbol *x_filename; /* output */ t_atom *output; // holder for a list of atoms to be outputted t_int output_count; // number of atoms in in x->output t_outlet *x_data_outlet; t_outlet *x_status_outlet; } t_stat; /*------------------------------------------------------------------------------ * SUPPORT FUNCTIONS */ /* add one new atom to the list to be outputted */ static void add_atom_to_output(t_stat *x, t_atom *new_atom) { t_atom *new_atom_list; new_atom_list = (t_atom *)getbytes((x->output_count + 1) * sizeof(t_atom)); memcpy(new_atom_list, x->output, x->output_count * sizeof(t_atom)); freebytes(x->output, x->output_count * sizeof(t_atom)); x->output = new_atom_list; memcpy(x->output + x->output_count, new_atom, sizeof(t_atom)); ++(x->output_count); } /* static void add_symbol_to_output(t_stat *x, t_symbol *s) { t_atom *temp_atom = getbytes(sizeof(t_atom)); SETSYMBOL(temp_atom, s); add_atom_to_output(x,temp_atom); freebytes(temp_atom,sizeof(t_atom)); } */ static void add_float_to_output(t_stat *x, t_float f) { t_atom *temp_atom = getbytes(sizeof(t_atom)); SETFLOAT(temp_atom, f); add_atom_to_output(x,temp_atom); freebytes(temp_atom,sizeof(t_atom)); } static void reset_output(t_stat *x) { if(x->output) { freebytes(x->output, x->output_count * sizeof(t_atom)); x->output = NULL; x->output_count = 0; } } /*------------------------------------------------------------------------------ * IMPLEMENTATION */ static void stat_output_error(t_stat *x, int error_number) { t_atom output_atoms[2]; switch(error_number) { case EACCES: error("[stat]: access denied: %s", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("access")); break; case EIO: error("[stat]: An error occured while reading %s", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("io")); break; case ELOOP: error("[stat]: A loop exists in symbolic links in %s", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("loop")); break; case ENAMETOOLONG: error("[stat]: The filename %s is too long", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("name_too_long")); break; case ENOENT: error("[stat]: %s does not exist", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("does_not_exist")); break; case ENOTDIR: error("[stat]: A component of %s is not a existing folder", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("not_folder")); break; case EOVERFLOW: error("[stat]: %s caused overflow in stat struct", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("overflow")); break; case EFAULT: error("[stat]: fault in stat struct (%s)", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("fault")); break; case EINVAL: error("[stat]: invalid argument to stat() (%s)", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("invalid")); break; default: error("[stat]: unknown error %d: %s", error_number, x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("unknown")); } SETSYMBOL(output_atoms + 2, x->x_filename); outlet_anything(x->x_status_outlet, gensym("error"), 2, output_atoms); } static void stat_output(t_stat* x) { DEBUG(post("stat_output");); struct stat stat_buffer; int result; #ifdef _WIN32 result = _stat(x->x_filename, &stat_buffer); #else result = stat(x->x_filename->s_name, &stat_buffer); #endif /* _WIN32 */ if(result != 0) { stat_output_error(x, result); } else { reset_output(x); post(""); add_float_to_output(x, (t_float) stat_buffer.st_mode); add_float_to_output(x, (t_float) stat_buffer.st_nlink); add_float_to_output(x, (t_float) stat_buffer.st_uid); add_float_to_output(x, (t_float) stat_buffer.st_gid); add_float_to_output(x, (t_float) stat_buffer.st_rdev); add_float_to_output(x, (t_float) stat_buffer.st_size); add_float_to_output(x, (t_float) stat_buffer.st_blocks); add_float_to_output(x, (t_float) stat_buffer.st_blksize); /* 86400 seconds == 24 hours == 1 day */ #ifdef _POSIX_C_SOURCE add_float_to_output(x, (t_float) (stat_buffer.st_atimespec.tv_sec / 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_atimespec.tv_sec % 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_mtimespec.tv_sec / 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_mtimespec.tv_sec % 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_ctimespec.tv_sec / 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_ctimespec.tv_sec % 86400)); #else add_float_to_output(x, (t_float) (stat_buffer.st_atime / 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_atime % 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_mtime / 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_mtime % 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_ctime / 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_ctime % 86400)); #endif /* _POSIX_C_SOURCE */ outlet_anything(x->x_data_outlet,x->x_filename, x->output_count,x->output); } } static void stat_set(t_stat* x, t_symbol *s) { DEBUG(post("stat_set");); #ifdef _WIN32 char string_buffer[MAX_PATH]; ExpandEnvironmentStrings(s->s_name, string_buffer, MAX_PATH); x->x_filename = gensym(string_buffer); #else x->x_filename = s; #endif } static void stat_symbol(t_stat *x, t_symbol *s) { stat_set(x,s); stat_output(x); } static void *stat_new(t_symbol *s) { DEBUG(post("stat_new");); t_stat *x = (t_stat *)pd_new(stat_class); if(!stat_instance_count) { post("[stat] %s",version); post("\twritten by Hans-Christoph Steiner <hans(a)at.or.at>"); post("\tcompiled on "__DATE__" at "__TIME__ " "); } stat_instance_count++; symbolinlet_new(&x->x_obj, &x->x_filename); x->x_data_outlet = outlet_new(&x->x_obj, 0); x->x_status_outlet = outlet_new(&x->x_obj, 0); /* set to the value from the object argument, if that exists */ if (s != &s_) { x->x_filename = s; } else { x->x_filename = canvas_getcurrentdir(); post("setting pattern to default: %s",x->x_filename->s_name); } return (x); } void stat_setup(void) { DEBUG(post("stat_setup");); stat_class = class_new(gensym("stat"), (t_newmethod)stat_new, 0, sizeof(t_stat), 0, A_DEFSYM, 0); /* add inlet datatype methods */ class_addbang(stat_class,(t_method) stat_output); class_addsymbol(stat_class,(t_method) stat_symbol); /* add inlet message methods */ class_addmethod(stat_class,(t_method) stat_set,gensym("set"), A_DEFSYM, 0); } --- NEW FILE: stat-help.pd --- #N canvas 59 135 710 533 10; #X msg 114 53 bang; #X text 156 53 run on current folder; #X symbolatom 6 490 0 0 0 3 filename - -; #X floatatom 29 385 0 0 0 3 file_mode - -; #X floatatom 175 385 0 0 0 3 User_ID - -; #X floatatom 271 385 0 0 0 3 Group_ID - -; #X floatatom 338 385 0 0 0 3 Device_ID - -; #X obj 5 107 print data; #X obj 163 165 route error; #X symbolatom 163 201 0 0 0 0 error - -; #X floatatom 419 385 0 0 0 3 File_Size - -; #X floatatom 480 363 0 0 0 3 Blocks_Allocated - -; #X floatatom 537 338 0 0 0 3 preferred_block_size - -; #X obj 79 8 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1 ; #X obj 79 26 openpanel; #X text 151 16 try it on any file (it doesn't change anything \, just reads data from the file system).; #X text 127 146 <-- set filename by cold inlet or object argument; #X obj 270 425 gid->group_name; #X symbolatom 270 454 0 0 0 3 group_name - -; #X obj 163 183 symbol; #X msg 127 79 symbol /tmp/this_file_doesn't_exist; #X text 244 186 errors are reported in Pd space; #X floatatom 98 385 0 0 0 3 hard_links - -; #X symbolatom 174 454 0 0 0 3 group_name - -; #X obj 174 425 uid->username; #X obj 91 147 stat; #X obj 77 203 list; #X obj 77 223 list split 9; #X obj 9 282 unpack symbol float float float float float float float float; #N canvas 0 22 458 308 time 0; #X obj 136 34 inlet; #X floatatom 19 193 6 0 0 3 days - -; #X floatatom 66 193 6 0 0 3 seconds - -; #X text 26 223 last access; #X floatatom 158 192 6 0 0 3 days - -; #X floatatom 205 192 6 0 0 3 seconds - -; #X text 144 220 last modification; #X floatatom 305 194 6 0 0 3 days - -; #X floatatom 352 194 6 0 0 3 seconds - -; #X text 290 222 last status change; #X obj 49 137 unpack float float float float float float; #X connect 0 0 10 0; #X connect 10 0 1 0; #X connect 10 1 2 0; #X connect 10 2 4 0; #X connect 10 3 5 0; #X connect 10 4 7 0; #X connect 10 5 8 0; #X restore 116 253 pd time stamps; #X msg 138 103 symbol /usr/bin/gcc; #X text 226 251 <-- open this to see the timestamps; #X connect 0 0 25 0; #X connect 4 0 24 0; #X connect 5 0 17 0; #X connect 8 0 19 0; #X connect 13 0 14 0; #X connect 14 0 25 0; #X connect 17 0 18 0; #X connect 19 0 9 0; #X connect 20 0 25 0; #X connect 24 0 23 0; #X connect 25 0 7 0; #X connect 25 0 26 0; #X connect 25 0 28 0; #X connect 25 1 8 0; #X connect 26 0 27 0; #X connect 27 0 28 0; #X connect 27 1 29 0; #X connect 28 0 2 0; #X connect 28 1 3 0; #X connect 28 2 22 0; #X connect 28 3 4 0; #X connect 28 4 5 0; #X connect 28 5 6 0; #X connect 28 6 10 0; #X connect 28 7 11 0; #X connect 28 8 12 0; #X connect 30 0 25 0; --- file_status.c DELETED ---

1 0

externals/hcs group.c, 1.1, 1.2 group-help.pd, 1.1, 1.2 group_name0x2d0x3egid.pd, 1.1, 1.2
by Hans-Christoph Steiner 12 Jun '06

12 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28830 Modified Files: group.c group-help.pd group_name0x2d0x3egid.pd Log Message: removed useless and annyoing password field Index: group-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/group-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** group-help.pd 12 Jun 2006 20:40:15 -0000 1.1 --- group-help.pd 12 Jun 2006 21:05:34 -0000 1.2 *************** *** 1,3 **** ! #N canvas 296 212 557 427 10; #X obj 98 40 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; --- 1,3 ---- ! #N canvas 296 212 555 357 10; #X obj 98 40 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; *************** *** 8,14 **** #X text 209 168 <-- set by argument or cold inlet; #X text 148 85 output current; ! #X symbolatom 14 365 0 0 0 3 group_name - -; ! #X symbolatom 43 331 0 0 0 3 password - -; ! #X floatatom 191 323 0 0 0 3 gid - -; #X msg 269 105 symbol trash; #X text 365 76 use a symbolic group name; --- 8,13 ---- #X text 209 168 <-- set by argument or cold inlet; #X text 148 85 output current; ! #X symbolatom 94 305 0 0 0 3 group_name - -; ! #X floatatom 222 305 0 0 0 3 gid - -; #X msg 269 105 symbol trash; #X text 365 76 use a symbolic group name; *************** *** 19,24 **** #X obj 94 167 group; #X obj 94 200 list; - #X obj 14 299 unpack symbol symbol float; - #X obj 94 220 list split 3; #X msg 271 83 symbol wheel; #X msg 194 148 20; --- 18,21 ---- *************** *** 26,43 **** #X text 37 20 fetch passwd data based on UID or group name; #X text 361 105 ignore bad group names; #X connect 0 0 1 0; ! #X connect 1 0 14 0; ! #X connect 3 0 14 0; ! #X connect 9 0 14 0; ! #X connect 11 0 14 0; ! #X connect 14 0 2 0; ! #X connect 14 0 15 0; ! #X connect 14 1 13 0; ! #X connect 15 0 17 0; ! #X connect 16 0 6 0; ! #X connect 16 1 7 0; ! #X connect 16 2 8 0; ! #X connect 17 0 16 0; ! #X connect 17 1 20 0; ! #X connect 18 0 14 0; ! #X connect 19 0 14 1; --- 23,41 ---- #X text 37 20 fetch passwd data based on UID or group name; #X text 361 105 ignore bad group names; + #X obj 94 283 unpack symbol float; + #X obj 94 220 list split 2; #X connect 0 0 1 0; ! #X connect 1 0 13 0; ! #X connect 3 0 13 0; ! #X connect 8 0 13 0; ! #X connect 10 0 13 0; ! #X connect 13 0 2 0; ! #X connect 13 0 14 0; ! #X connect 13 1 12 0; ! #X connect 14 0 21 0; ! #X connect 15 0 13 0; ! #X connect 16 0 13 1; ! #X connect 20 0 6 0; ! #X connect 20 1 7 0; ! #X connect 21 0 20 0; ! #X connect 21 1 17 0; Index: group.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/group.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** group.c 12 Jun 2006 20:40:14 -0000 1.1 --- group.c 12 Jun 2006 21:05:34 -0000 1.2 *************** *** 129,133 **** { reset_output(x); ! add_symbol_to_output(x, gensym(group_pointer->gr_passwd)); add_float_to_output(x, group_pointer->gr_gid); members = group_pointer->gr_mem; --- 129,134 ---- { reset_output(x); ! /* group passwd just seems to be always blank, so omit it */ ! /* add_symbol_to_output(x, gensym(group_pointer->gr_passwd)); */ add_float_to_output(x, group_pointer->gr_gid); members = group_pointer->gr_mem; Index: group_name0x2d0x3egid.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/group_name0x2d0x3egid.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** group_name0x2d0x3egid.pd 12 Jun 2006 20:40:16 -0000 1.1 --- group_name0x2d0x3egid.pd 12 Jun 2006 21:05:34 -0000 1.2 *************** *** 1,3 **** ! #N canvas 496 159 385 454 10; #X obj 18 12 inlet; #X obj 61 12 inlet; --- 1,3 ---- ! #N canvas 496 159 389 458 10; #X obj 18 12 inlet; #X obj 61 12 inlet; *************** *** 8,31 **** #X obj 226 323 outlet; #X obj 129 135 list; - #X obj 129 155 list split 3; - #X obj 129 176 list split 2; #X obj 18 241 list; - #X obj 18 261 list split 3; #X obj 19 213 group; #X obj 129 114 group; ! #X obj 18 282 list split 2; ! #X connect 0 0 12 0; #X connect 1 0 4 0; #X connect 3 0 4 0; #X connect 4 0 5 0; ! #X connect 5 0 12 1; ! #X connect 5 1 13 0; ! #X connect 7 0 8 0; ! #X connect 8 0 9 0; ! #X connect 9 1 12 1; ! #X connect 10 0 11 0; ! #X connect 11 0 14 0; ! #X connect 12 0 10 0; ! #X connect 12 1 6 0; ! #X connect 13 0 7 0; #X connect 14 1 2 0; --- 8,31 ---- #X obj 226 323 outlet; #X obj 129 135 list; #X obj 18 241 list; #X obj 19 213 group; #X obj 129 114 group; ! #X obj 129 155 list split 2; ! #X obj 129 176 list split 1; ! #X obj 18 261 list split 2; ! #X obj 18 282 list split 1; ! #X connect 0 0 9 0; #X connect 1 0 4 0; #X connect 3 0 4 0; #X connect 4 0 5 0; ! #X connect 5 0 9 1; ! #X connect 5 1 10 0; ! #X connect 7 0 11 0; ! #X connect 8 0 13 0; ! #X connect 9 0 8 0; ! #X connect 9 1 6 0; ! #X connect 10 0 7 0; ! #X connect 11 0 12 0; ! #X connect 12 1 9 1; ! #X connect 13 0 14 0; #X connect 14 1 2 0;

1 0

externals/hcs passwd.c,1.2,1.3 passwd-help.pd,1.1,1.2
by Hans-Christoph Steiner 12 Jun '06

12 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20590 Modified Files: passwd.c passwd-help.pd Log Message: removed Mac OS X-specific fields, they weren't used anyway Index: passwd-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/passwd-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** passwd-help.pd 12 Jun 2006 19:59:02 -0000 1.1 --- passwd-help.pd 12 Jun 2006 20:48:19 -0000 1.2 *************** *** 1,3 **** ! #N canvas 47 122 698 474 10; #X obj 98 40 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; --- 1,3 ---- ! #N canvas 47 122 547 395 10; #X obj 98 40 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; *************** *** 12,36 **** #X text 37 20 fetch passwd data based on UID or username; #X msg 271 83 symbol hans; ! #X symbolatom 10 359 0 0 0 3 username - -; ! #X symbolatom 76 358 0 0 0 3 password - -; ! #X floatatom 142 358 0 0 0 3 uid - -; ! #X floatatom 173 358 0 0 0 3 gid - -; ! #X symbolatom 278 366 0 0 0 3 user_access_class - -; ! #X symbolatom 300 331 0 0 0 3 gecos - -; ! #X symbolatom 337 297 0 0 0 3 home_folder - -; ! #X symbolatom 376 264 0 0 0 3 shell - -; #X msg 269 105 symbol trash; #X text 361 105 ignore bad usernames; #X text 363 83 use a symbolic username; - #X obj 76 224 unpack symbol symbol float float float float symbol symbol - symbol symbol float float; - #X floatatom 204 428 6 0 0 3 password_change_days - -; - #X floatatom 226 395 6 0 0 3 password_change_seconds - -; - #X floatatom 508 300 6 0 0 3 account_expire_days - -; - #X floatatom 530 267 6 0 0 3 account_expire_seconds - -; #X msg 269 56 symbol daemon; #X text 188 195 bang on right inlet if no match; #X obj 138 195 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X connect 0 0 1 0; #X connect 1 0 7 0; --- 12,31 ---- #X text 37 20 fetch passwd data based on UID or username; #X msg 271 83 symbol hans; ! #X symbolatom 22 318 0 0 0 3 username - -; ! #X symbolatom 88 317 0 0 0 3 password - -; ! #X floatatom 184 317 0 0 0 3 uid - -; ! #X floatatom 215 317 0 0 0 3 gid - -; ! #X symbolatom 248 317 0 0 0 3 gecos - -; ! #X symbolatom 335 282 0 0 0 3 home_folder - -; ! #X symbolatom 395 250 0 0 0 3 shell - -; #X msg 269 105 symbol trash; #X text 361 105 ignore bad usernames; #X text 363 83 use a symbolic username; #X msg 269 56 symbol daemon; #X text 188 195 bang on right inlet if no match; #X obj 138 195 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; + #X obj 76 224 unpack symbol symbol float float symbol symbol symbol + ; #X connect 0 0 1 0; #X connect 1 0 7 0; *************** *** 38,56 **** #X connect 4 0 7 0; #X connect 7 0 2 0; ! #X connect 7 0 21 0; ! #X connect 7 1 28 0; #X connect 9 0 7 0; ! #X connect 18 0 7 0; ! #X connect 21 0 10 0; ! #X connect 21 1 11 0; ! #X connect 21 2 12 0; ! #X connect 21 3 13 0; ! #X connect 21 4 22 0; ! #X connect 21 5 23 0; ! #X connect 21 6 14 0; ! #X connect 21 7 15 0; ! #X connect 21 8 16 0; ! #X connect 21 9 17 0; ! #X connect 21 10 24 0; ! #X connect 21 11 25 0; ! #X connect 26 0 7 0; --- 33,46 ---- #X connect 4 0 7 0; #X connect 7 0 2 0; ! #X connect 7 0 23 0; ! #X connect 7 1 22 0; #X connect 9 0 7 0; ! #X connect 17 0 7 0; ! #X connect 20 0 7 0; ! #X connect 23 0 10 0; ! #X connect 23 1 11 0; ! #X connect 23 2 12 0; ! #X connect 23 3 13 0; ! #X connect 23 4 14 0; ! #X connect 23 5 15 0; ! #X connect 23 6 16 0; Index: passwd.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/passwd.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** passwd.c 12 Jun 2006 20:40:16 -0000 1.2 --- passwd.c 12 Jun 2006 20:48:19 -0000 1.3 *************** *** 67,71 **** DEBUG(post("passwd_output");); struct passwd *passwd_pointer; ! t_atom output_data[11]; #ifdef _WIN32 --- 67,71 ---- DEBUG(post("passwd_output");); struct passwd *passwd_pointer; ! t_atom output_data[6]; #ifdef _WIN32 *************** *** 85,98 **** SETFLOAT(output_data + 1, passwd_pointer->pw_uid); SETFLOAT(output_data + 2, passwd_pointer->pw_gid); ! SETFLOAT(output_data + 3, passwd_pointer->pw_change / 86400); ! SETFLOAT(output_data + 4, passwd_pointer->pw_change % 86400); ! SETSYMBOL(output_data + 5, gensym(passwd_pointer->pw_class)); ! SETSYMBOL(output_data + 6, gensym(passwd_pointer->pw_gecos)); ! SETSYMBOL(output_data + 7, gensym(passwd_pointer->pw_dir)); ! SETSYMBOL(output_data + 8, gensym(passwd_pointer->pw_shell)); ! SETFLOAT(output_data + 9, (passwd_pointer->pw_expire / 86400)); ! SETFLOAT(output_data + 10, (passwd_pointer->pw_expire % 86400)); outlet_anything(x->x_data_outlet, gensym(passwd_pointer->pw_name), ! 11, output_data); } else --- 85,93 ---- SETFLOAT(output_data + 1, passwd_pointer->pw_uid); SETFLOAT(output_data + 2, passwd_pointer->pw_gid); ! SETSYMBOL(output_data + 3, gensym(passwd_pointer->pw_gecos)); ! SETSYMBOL(output_data + 4, gensym(passwd_pointer->pw_dir)); ! SETSYMBOL(output_data + 5, gensym(passwd_pointer->pw_shell)); outlet_anything(x->x_data_outlet, gensym(passwd_pointer->pw_name), ! 6, output_data); } else

1 0

externals/hcs gid0x2d0x3egroup_name.c,1.1,NONE
by Hans-Christoph Steiner 12 Jun '06

12 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17338 Removed Files: gid0x2d0x3egroup_name.c Log Message: turned passwd.c into group.c; fixed error message wording; added group/gid abstractions --- gid0x2d0x3egroup_name.c DELETED ---

1 0

externals/hcs Makefile,1.11,1.12
by Hans-Christoph Steiner 12 Jun '06

12 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17288 Modified Files: Makefile Log Message: added generic makefile with etags support Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/Makefile,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Makefile 22 Oct 2004 02:34:32 -0000 1.11 --- Makefile 12 Jun 2006 20:41:34 -0000 1.12 *************** *** 1,22 **** ! CC=gcc ! ! pd_linux: pan_gogins~.pd_linux range.pd_linux linuxmouse.pd_linux linuxevent.pd_linux linuxjoystick.pd_linux ifeel.pd_linux platformdummy.pd_linux ! ! clean: ; rm -f *.pd_linux *.o *~ ! ! # ----------------------- LINUX i386 ----------------------- ! ! .SUFFIXES: .pd_linux ! ! LINUXCFLAGS = -DUNIX -DPD -O2 -funroll-loops -fomit-frame-pointer \ ! -Wall -W -Wshadow -Wstrict-prototypes -Werror \ ! -Wno-unused -Wno-parentheses -Wno-switch ! ! LINUXINCLUDE = -I/usr/local/lib/pd/include -I../../pd/src -I/usr/local/include ! ! .c.pd_linux: ! $(CC) $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c ! ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm ! strip --strip-unneeded $*.pd_linux ! rm $*.o ! --- 1,17 ---- ! TARGET := $(shell pwd | sed 's|.*/$.*$$$|\1|') ! EXTERNALS_ROOT := $(shell pwd | sed 's|^$/.*externals$.*|\1|') ! ! default: ! make -C $(EXTERNALS_ROOT) $(TARGET) ! ! install: ! make -C $(EXTERNALS_ROOT) $(TARGET)_install ! ! clean: ! make -C $(EXTERNALS_ROOT) $(TARGET)_clean ! ! test_locations: ! make -C $(EXTERNALS_ROOT) test_locations ! ! etags: ! etags *.[ch] ~/cvs/pure-data/pd/src/*.[ch] /usr/include/*.h /usr/include/sys/*.h

1 0

externals/hcs group.c, NONE, 1.1 group-help.pd, NONE, 1.1 group_name0x2d0x3egid-help.pd, NONE, 1.1 group_name0x2d0x3egid.pd, NONE, 1.1 gid0x2d0x3egroup_name.pd, NONE, 1.1 gid0x2d0x3egroup_name-help.pd, 1.1, 1.2 passwd.c, 1.1, 1.2
by Hans-Christoph Steiner 12 Jun '06

12 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16701 Modified Files: gid0x2d0x3egroup_name-help.pd passwd.c Added Files: group.c group-help.pd group_name0x2d0x3egid-help.pd group_name0x2d0x3egid.pd gid0x2d0x3egroup_name.pd Log Message: turned passwd.c into group.c; fixed error message wording; added group/gid abstractions --- NEW FILE: group.c --- /* --------------------------------------------------------------------------*/ /* */ /* converts a GID number to a user name symbol */ /* Written by Hans-Christoph Steiner <hans(a)at.or.at> */ /* */ /* Copyright (c) 2006 Hans-Christoph Steiner */ /* */ /* This program is free software; you can redistribute it and/or */ /* modify it under the terms of the GNU General Public License */ /* as published by the Free Software Foundation; either version 2 */ /* of the License, or (at your option) any later version. */ /* */ /* See file LICENSE for further informations on licensing terms. */ /* */ /* This program is distributed in the hope that it will be useful, */ /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ /* GNU General Public License for more details. */ /* */ /* You should have received a copy of the GNU General Public License */ /* along with this program; if not, write to the Free Software Foundation, */ /* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* */ /* --------------------------------------------------------------------------*/ #ifndef _WIN32 // this doesn't work on Windows (yet?) #include <m_pd.h> #ifdef _WIN32 #define _WIN32_WINNT 0x0400 #include <windows.h> #include <stdio.h> #include <lm.h> #else #include <stdlib.h> #include <grp.h> #endif #include <string.h> static char *version = "$Revision: 1.1 $"; t_int group_instance_count; #define DEBUG(x) //#define DEBUG(x) x /*------------------------------------------------------------------------------ * CLASS DEF */ static t_class *group_class; typedef struct _group { t_object x_obj; t_float x_gid; /* output */ t_atom *output; // holder for a list of atoms to be outputted t_int output_count; // number of atoms in in x->output t_outlet *x_data_outlet; t_outlet *x_status_outlet; } t_group; /*------------------------------------------------------------------------------ * SUPPORT FUNCTIONS */ /* add one new atom to the list to be outputted */ static void add_atom_to_output(t_group *x, t_atom *new_atom) { t_atom *new_atom_list; new_atom_list = (t_atom *)getbytes((x->output_count + 1) * sizeof(t_atom)); memcpy(new_atom_list, x->output, x->output_count * sizeof(t_atom)); freebytes(x->output, x->output_count * sizeof(t_atom)); x->output = new_atom_list; memcpy(x->output + x->output_count, new_atom, sizeof(t_atom)); ++(x->output_count); } static void add_symbol_to_output(t_group *x, t_symbol *s) { t_atom *temp_atom = getbytes(sizeof(t_atom)); SETSYMBOL(temp_atom, s); add_atom_to_output(x,temp_atom); freebytes(temp_atom,sizeof(t_atom)); } static void add_float_to_output(t_group *x, t_float f) { t_atom *temp_atom = getbytes(sizeof(t_atom)); SETFLOAT(temp_atom, f); add_atom_to_output(x,temp_atom); freebytes(temp_atom,sizeof(t_atom)); } static void reset_output(t_group *x) { if(x->output) { freebytes(x->output, x->output_count * sizeof(t_atom)); x->output = NULL; x->output_count = 0; } } /*------------------------------------------------------------------------------ * IMPLEMENTATION */ static void group_output(t_group *x) { DEBUG(post("group_output");); struct group *group_pointer; char **members; #ifdef _WIN32 /* TODO: implement for Windows! */ #else if( x->x_gid < 0 ) { post("[group]: ignoring bad username or GID less than zero"); outlet_bang(x->x_status_outlet); } else { group_pointer = getgrgid((gid_t)x->x_gid); if( group_pointer != NULL ) { reset_output(x); add_symbol_to_output(x, gensym(group_pointer->gr_passwd)); add_float_to_output(x, group_pointer->gr_gid); members = group_pointer->gr_mem; while(*members) { add_symbol_to_output(x, gensym( *(members) )); members++; } outlet_anything(x->x_data_outlet, gensym(group_pointer->gr_name), x->output_count, x->output); } else { outlet_bang(x->x_status_outlet); } } #endif /* _WIN32 */ } static t_float get_gid_from_arguments(int argc, t_atom *argv) { t_symbol *first_argument; t_float gid = -1; struct group *group_pointer; if(argc == 0) return(0); if(argc != 1) post("[group]: too many arguments (%d), ignoring all but the first", argc); first_argument = atom_getsymbolarg(0,argc,argv); if(first_argument == &s_) { // single float arg means GID # gid = atom_getfloatarg(0,argc,argv); if( gid < 0 ) { error("[group]: GID less than zero not allowed (%d)", gid); return(-1); } } else { // single symbol arg means username group_pointer = getgrnam(first_argument->s_name); if( group_pointer != NULL ) return((t_float) group_pointer->gr_gid); else return(-1); } return(-1); } static void group_set(t_group *x, t_symbol *s, int argc, t_atom *argv) { /* get rid of the unused variable warning with the if() statement */ if( strcmp(s->s_name, "set") == 0 ) x->x_gid = get_gid_from_arguments(argc, argv); } static void group_float(t_group *x, t_float f) { x->x_gid = f; group_output(x); } static void group_symbol(t_group *x, t_symbol *s) { t_atom argv[1]; SETSYMBOL(argv, s); group_set(x, gensym("set"), 1, argv); group_output(x); } static void *group_new(t_symbol *s, int argc, t_atom *argv) { DEBUG(post("group_new");); t_group *x = (t_group *)pd_new(group_class); if(!group_instance_count) { post("[group] %s",version); post("\twritten by Hans-Christoph Steiner <hans(a)at.or.at>"); post("\tcompiled on "__DATE__" at "__TIME__ " "); } group_instance_count++; floatinlet_new(&x->x_obj, &x->x_gid); x->x_data_outlet = outlet_new(&x->x_obj, 0); x->x_status_outlet = outlet_new(&x->x_obj, 0); group_set(x, gensym("set"), argc, argv); return (x); } void group_free(void) { #ifdef _WIN32 #else endgrent(); #endif /* _WIN32 */ } void group_setup(void) { DEBUG(post("group_setup");); group_class = class_new(gensym("group"), (t_newmethod)group_new, 0, sizeof(t_group), 0, A_GIMME, 0); /* add inlet datatype methods */ class_addbang(group_class, (t_method) group_output); class_addfloat(group_class, (t_method) group_float); class_addsymbol(group_class, (t_method) group_symbol); /* add inlet message methods */ class_addmethod(group_class, (t_method) group_set, gensym("set"), A_GIMME, 0); } #endif /* NOT _WIN32 */ Index: passwd.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/passwd.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** passwd.c 12 Jun 2006 19:59:02 -0000 1.1 --- passwd.c 12 Jun 2006 20:40:16 -0000 1.2 *************** *** 39,47 **** #include <string.h> - /* - #include <sys/types.h> - #include <sys/stat.h> - #include <sys/errno.h> - */ static char *version = "$Revision$"; --- 39,42 ---- *************** *** 79,83 **** if( x->x_uid < 0 ) { ! post("[passwd]: ignoring UID less than zero or bad username"); outlet_bang(x->x_status_outlet); } --- 74,78 ---- if( x->x_uid < 0 ) { ! post("[passwd]: ignoring bad username or UID less than zero"); outlet_bang(x->x_status_outlet); } --- NEW FILE: group-help.pd --- #N canvas 296 212 557 427 10; #X obj 98 40 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 95 63 5 0 0 0 User_ID - -; #X obj 47 200 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 112 86 bang; #X text 209 168 <-- set by argument or cold inlet; #X text 148 85 output current; #X symbolatom 14 365 0 0 0 3 group_name - -; #X symbolatom 43 331 0 0 0 3 password - -; #X floatatom 191 323 0 0 0 3 gid - -; #X msg 269 105 symbol trash; #X text 365 76 use a symbolic group name; #X msg 269 56 symbol daemon; #X text 188 195 bang on right inlet if no match; #X obj 138 195 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 94 167 group; #X obj 94 200 list; #X obj 14 299 unpack symbol symbol float; #X obj 94 220 list split 3; #X msg 271 83 symbol wheel; #X msg 194 148 20; #X obj 133 245 print group_members; #X text 37 20 fetch passwd data based on UID or group name; #X text 361 105 ignore bad group names; #X connect 0 0 1 0; #X connect 1 0 14 0; #X connect 3 0 14 0; #X connect 9 0 14 0; #X connect 11 0 14 0; #X connect 14 0 2 0; #X connect 14 0 15 0; #X connect 14 1 13 0; #X connect 15 0 17 0; #X connect 16 0 6 0; #X connect 16 1 7 0; #X connect 16 2 8 0; #X connect 17 0 16 0; #X connect 17 1 20 0; #X connect 18 0 14 0; #X connect 19 0 14 1; --- NEW FILE: group_name0x2d0x3egid.pd --- #N canvas 496 159 385 454 10; #X obj 18 12 inlet; #X obj 61 12 inlet; #X obj 18 322 outlet; #X obj 108 31 loadbang; #X obj 56 59 purepd/any_argument \$1; #X obj 57 93 route float; #X obj 226 323 outlet; #X obj 129 135 list; #X obj 129 155 list split 3; #X obj 129 176 list split 2; #X obj 18 241 list; #X obj 18 261 list split 3; #X obj 19 213 group; #X obj 129 114 group; #X obj 18 282 list split 2; #X connect 0 0 12 0; #X connect 1 0 4 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 12 1; #X connect 5 1 13 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 9 1 12 1; #X connect 10 0 11 0; #X connect 11 0 14 0; #X connect 12 0 10 0; #X connect 12 1 6 0; #X connect 13 0 7 0; #X connect 14 1 2 0; --- NEW FILE: group_name0x2d0x3egid-help.pd --- #N canvas 185 212 481 320 10; #X floatatom 56 240 5 0 0 0 - - -; #X msg 14 148 bang; #X msg 143 162 symbol daemon; #X obj 30 240 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 94 109 symbol lp; #X msg 100 135 symbol trash; #X floatatom 272 231 5 0 0 0 - - -; #X msg 271 159 bang; #X obj 142 240 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X text 145 262 ^-- bang if not found; #X obj 421 227 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 57 49 symbol wheel; #X msg 76 81 symbol staff; #X text 12 14 convert a group name to a GID.; #X obj 272 201 group_name->gid staff; #X obj 56 190 group_name->gid; #X msg 361 166 symbol postfix; #X connect 1 0 15 0; #X connect 2 0 15 1; #X connect 4 0 15 0; #X connect 5 0 15 0; #X connect 7 0 14 0; #X connect 11 0 15 0; #X connect 12 0 15 0; #X connect 14 0 6 0; #X connect 14 1 10 0; #X connect 15 0 0 0; #X connect 15 0 3 0; #X connect 15 1 8 0; #X connect 16 0 14 1; Index: gid0x2d0x3egroup_name-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/gid0x2d0x3egroup_name-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** gid0x2d0x3egroup_name-help.pd 12 Jun 2006 16:07:51 -0000 1.1 --- gid0x2d0x3egroup_name-help.pd 12 Jun 2006 20:40:16 -0000 1.2 *************** *** 1,20 **** ! #N canvas 378 215 466 316 10; ! #X obj 94 157 gid->group_name; ! #X obj 98 60 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 500 1; ! #X floatatom 95 83 5 0 0 0 Group_ID - -; ! #X symbolatom 94 207 0 0 0 0 Group_Name - -; ! #X text 52 40 convert group GID number to group name symbol; ! #X obj 106 188 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X text 68 255 outputs a blank symbol if no match; ! #X msg 194 138 10; ! #X msg 112 106 bang; ! #X text 209 158 <-- set by argument or cold inlet; ! #X text 148 105 output current; ! #X connect 0 0 3 0; ! #X connect 0 0 5 0; ! #X connect 1 0 2 0; ! #X connect 2 0 0 0; ! #X connect 7 0 0 1; ! #X connect 8 0 0 0; --- 1,29 ---- ! #N canvas 185 212 485 324 10; ! #X msg 43 118 bang; ! #X obj 59 210 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X msg 300 129 bang; ! #X obj 184 216 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X text 187 238 ^-- bang if not found; ! #X text 12 14 convert a UID to a username; ! #X symbolatom 84 212 0 0 0 0 - - -; ! #X msg 172 132 1; ! #X symbolatom 301 212 0 0 0 0 - - -; ! #X obj 89 63 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 0 1; ! #X floatatom 87 93 5 0 0 0 - - -; ! #X obj 85 160 gid->group_name; ! #X obj 417 193 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X obj 301 171 gid->group_name 0; ! #X connect 0 0 11 0; ! #X connect 2 0 13 0; ! #X connect 7 0 11 1; ! #X connect 9 0 10 0; ! #X connect 10 0 11 0; ! #X connect 11 0 1 0; ! #X connect 11 0 6 0; ! #X connect 11 1 3 0; ! #X connect 13 0 8 0; ! #X connect 13 1 12 0; --- NEW FILE: gid0x2d0x3egroup_name.pd --- #N canvas 217 216 514 233 10; #X obj 18 12 inlet; #X obj 19 183 outlet; #X obj 66 12 inlet; #X obj 118 31 loadbang; #X obj 66 59 purepd/float_argument \$1; #X obj 82 183 outlet; #X obj 18 118 list; #X obj 18 147 list split 1; #X obj 18 85 group; #X connect 0 0 8 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 4 0 8 1; #X connect 6 0 7 0; #X connect 7 0 1 0; #X connect 8 0 6 0; #X connect 8 1 5 0;

1 0

pd/src desire.tk,1.1.2.233,1.1.2.234
by chunlee 12 Jun '06

12 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12874 Modified Files: Tag: devel_0_39 desire.tk Log Message: undo move worx for now Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.233 retrieving revision 1.1.2.234 diff -C2 -d -r1.1.2.233 -r1.1.2.234 *** desire.tk 12 Jun 2006 19:52:26 -0000 1.1.2.233 --- desire.tk 12 Jun 2006 20:31:57 -0000 1.1.2.234 *************** *** 1602,1605 **** --- 1602,1607 ---- if {$@isnew} {$self edit} catch {$c raise ${self}TEXT $self} + + $self draw_wires } *************** *** 2476,2480 **** def* Box connect_out {} {} def* Box connect_in {} {} ! def* Box draw {} {} def* Box edit {} {} def* Box unedit {} {} --- 2478,2482 ---- def* Box connect_out {} {} def* Box connect_in {} {} ! def Box draw {} {} def* Box edit {} {} def* Box unedit {} {} *************** *** 2485,2489 **** } ! def* Box draw_wires {} { puts "wires:$@wires" foreach wire $@wires {$wire draw} --- 2487,2491 ---- } ! def Box draw_wires {} { puts "wires:$@wires" foreach wire $@wires {$wire draw} *************** *** 2495,2506 **** } ! def Box move {dx dy} { super $dx $dy ! #$self draw_wires ! foreach wire $@wires { ! # the select_by is ugly, remove later... $_($@canvas:select_by) ! set _($wire:select_by) $_($@canvas:select_by) ! $wire draw ! } } --- 2497,2507 ---- } ! def* Box move {dx dy} { super $dx $dy ! $self draw_wires ! #foreach wire $@wires { ! # set _($wire:select_by) $_($@canvas:select_by) ! #$wire draw ! #} } *************** *** 2847,2851 **** # call the drawing method twice... $x changed - #if {[info exists _($x:wires)]} {$x draw_wires;} --- 2848,2851 ---- *************** *** 2964,2967 **** --- 2964,2968 ---- if {[$self selected?]} {set frcol $look(objectframe4)} {set frcol $look(objectframe3)} .$(a)canvas.c itemconfigure ${self}BASE -outline $frcol + $self draw_wires }

1 0

pd/src desire.c,1.1.2.81,1.1.2.82
by Mathieu Bouchard 12 Jun '06

12 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5405 Modified Files: Tag: devel_0_39 desire.c Log Message: deleted 240 lines (server-side mouse handling) Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.81 retrieving revision 1.1.2.82 diff -C2 -d -r1.1.2.81 -r1.1.2.82 *** desire.c 12 Jun 2006 17:32:25 -0000 1.1.2.81 --- desire.c 12 Jun 2006 20:15:16 -0000 1.1.2.82 *************** *** 1163,1169 **** } - //static void canvas_click(t_canvas *x, t_floatarg xpos, t_floatarg ypos, t_floatarg shift, t_floatarg ctrl, t_floatarg alt) - //{canvas_vis(x, 1);} - /* find out from subcanvas contents how much to fatten the box */ void canvas_fattensub(t_canvas *x, int *xp1, int *yp1, int *xp2, int *yp2) --- 1163,1166 ---- *************** *** 2471,2679 **** #define DCLICKINTERVAL 0.25 ! /* mouse click */ ! void canvas_doclick(t_canvas *x, int xpos, int ypos, int which, ! int mod, int doit) ! { ! t_gobj *y; ! int shiftmod, runmode, altmod, doublemod = 0, rightclick; ! int x1=0, y1=0, x2=0, y2=0, clickreturned = 0; ! ! if (!x->gl_editor) ! { ! bug("editor"); ! return; ! } ! ! shiftmod = (mod & SHIFTMOD); ! runmode = ((mod & CTRLMOD) || (!x->gl_edit)); ! altmod = (mod & ALTMOD); ! rightclick = (mod & RIGHTCLICK); ! ! canvas_undo_already_set_move = 0; ! ! /* if keyboard was grabbed, notify grabber and cancel the grab */ ! if (doit && x->gl_editor->e_grab && x->gl_editor->e_keyfn) ! { ! (* x->gl_editor->e_keyfn) (x->gl_editor->e_grab, 0); ! glist_grab(x, 0, 0, 0, 0, 0); ! } ! ! if (doit && !runmode && xpos == canvas_upx && ypos == canvas_upy && ! sys_getrealtime() - canvas_upclicktime < DCLICKINTERVAL) ! #ifdef SIMULATERIGHTCLICK ! rightclick = 1; ! #else ! doublemod = 1; ! #endif ! x->gl_editor->e_lastmoved = 0; ! if (doit) ! { ! x->gl_editor->e_grab = 0; ! x->gl_editor->e_onmotion = MA_NONE; ! } ! /* post("click %d %d %d %d", xpos, ypos, which, mod); */ ! ! if (x->gl_editor->e_onmotion != MA_NONE) ! return; ! ! x->gl_editor->e_xwas = xpos; ! x->gl_editor->e_ywas = ypos; - if (runmode && !rightclick) - { - for (y = x->gl_list; y; y = y->g_next) - { /* check if the object wants to be clicked */ - if (canvas_hitbox(x, y, xpos, ypos, &x1, &y1, &x2, &y2) - && (clickreturned = gobj_click(y, x, xpos, ypos, - shiftmod, ((mod & CTRLMOD) && (!x->gl_edit)) || altmod, - 0, doit))) - break; - } - if (!doit) - { - if (y) - canvas_setcursor(x, clickreturned); - else canvas_setcursor(x, CURSOR_RUNMODE_NOTHING); - } - return; - } - /* if not a runmode left click, fall here. */ - y = canvas_findhitbox(x, xpos, ypos, &x1, &y1, &x2, &y2); - if (y) { - t_object *ob = pd_checkobject(&y->g_pd); - /* check you're in the rectangle */ - ob = pd_checkobject(&y->g_pd); - if (rightclick) - canvas_rightclick(x, xpos, ypos, y); - else if (shiftmod) - { - if (doit) - { - t_rtext *rt; - if (ob && (rt = x->gl_editor->e_textedfor) && - rt == glist_findrtext(x, ob)) - { - rtext_mouse(rt, xpos - x1, ypos - y1, RTEXT_SHIFT); - x->gl_editor->e_onmotion = MA_DRAGTEXT; - x->gl_editor->e_xwas = x1; - x->gl_editor->e_ywas = y1; - } - else - { - if (glist_isselected(x, y)) - glist_deselect(x, y); - else glist_select(x, y); - } - } - } - else - { - /* look for an outlet */ - int noutlet, ninlet; - if (ob && (noutlet = obj_noutlets(ob)) && ypos >= y2-4) - { - int width = x2 - x1; - int nout1 = (noutlet > 1 ? noutlet - 1 : 1); - int closest = ((xpos-x1) * (nout1) + width/2)/width; - int hotspot = x1 + - (width - IOWIDTH) * closest / (nout1); - if (closest < noutlet && - xpos >= (hotspot-1) && xpos <= hotspot + (IOWIDTH+1)) - { - if (doit) - { - int issignal = obj_issignaloutlet(ob, closest); - x->gl_editor->e_onmotion = MA_CONNECT; - x->gl_editor->e_xwas = xpos; - x->gl_editor->e_ywas = ypos; - sys_vgui( - ".x%lx.c create line %d %d %d %d -width %d -tags x\n", - (long)x, xpos, ypos, xpos, ypos, - (issignal ? 2 : 1)); - } - else canvas_setcursor(x, CURSOR_EDITMODE_CONNECT); - } - else if (doit) - goto nooutletafterall; - } - - /* look for an inlet */ - else if (ob && (ninlet = obj_ninlets(ob)) && ypos <= y1+4) - { - int width = x2 - x1; - int nin1 = (ninlet > 1 ? ninlet - 1 : 1); - int closest = ((xpos-x1) * (nin1) + width/2)/width; - int hotspot = x1 + - (width - IOWIDTH) * closest / (nin1); - if (closest < ninlet && - xpos >= (hotspot-1) && xpos <= hotspot + (IOWIDTH+1)) - { - canvas_inlettip(x,ob,closest,xpos,ypos); - } - } ! /* not in an outlet; select and move */ ! else if (doit) ! { ! t_rtext *rt; ! /* check if the box is being text edited */ ! nooutletafterall: ! if (ob && (rt = x->gl_editor->e_textedfor) && ! rt == glist_findrtext(x, ob)) ! { ! rtext_mouse(rt, xpos - x1, ypos - y1, ! (doublemod ? RTEXT_DBL : RTEXT_DOWN)); ! x->gl_editor->e_onmotion = MA_DRAGTEXT; ! x->gl_editor->e_xwas = x1; ! x->gl_editor->e_ywas = y1; ! } ! else ! { ! /* otherwise select and drag to displace */ ! if (!glist_isselected(x, y)) ! { ! glist_noselect(x); ! glist_select(x, y); ! } ! x->gl_editor->e_onmotion = MA_MOVE; ! } ! } ! else canvas_setcursor(x, CURSOR_EDITMODE_NOTHING); ! } ! return; ! } ! /* if right click doesn't hit any boxes, call rightclick ! routine anyway */ ! if (rightclick) ! canvas_rightclick(x, xpos, ypos, 0); ! /* if not an editing action, and if we didn't hit a ! box, set cursor and return */ ! if (runmode || rightclick) ! { ! canvas_setcursor(x, CURSOR_RUNMODE_NOTHING); ! return; ! } ! /* having failed to find a box, we try lines now. */ ! if (!runmode && !altmod && !shiftmod) ! {/* was trying to select wire here*/} ! canvas_setcursor(x, CURSOR_EDITMODE_NOTHING); ! if (doit) ! { ! if (!shiftmod) glist_noselect(x); ! sys_vgui(".x%lx.c create rectangle %d %d %d %d -tags x\n", ! (long)x, xpos, ypos, xpos, ypos); ! x->gl_editor->e_xwas = xpos; ! x->gl_editor->e_ywas = ypos; ! x->gl_editor->e_onmotion = MA_REGION; ! } ! } - void canvas_mousedown(t_canvas *x, t_floatarg xpos, t_floatarg ypos, - t_floatarg which, t_floatarg mod) - { - canvas_doclick(x, xpos, ypos, which, mod, 1); - } int canvas_isconnected (t_canvas *x, t_text *ob1, int n1, --- 2468,2482 ---- #define DCLICKINTERVAL 0.25 ! /* canvas_doclick was here */ /* check if the object wants to be clicked */ ! /* canvas_setcursor(x, clickreturned); ! else canvas_setcursor(x, CURSOR_RUNMODE_NOTHING); ! */ ! /* if not a runmode left click, fall here. */ ! /* y = canvas_findhitbox(x, xpos, ypos, &x1, &y1, &x2, &y2);*/ int canvas_isconnected (t_canvas *x, t_text *ob1, int n1, *************** *** 2990,3040 **** } - void canvas_motion(t_canvas *x, t_floatarg xpos, t_floatarg ypos, - t_floatarg fmod) - { - /* post("motion %d %d", xpos, ypos); */ - int mod = fmod; - if (!x->gl_editor) - { - bug("editor"); - return; - } - - sys_vgui(".x%lx.c delete y\n",(long)x); /* GG: bad hack */ - - glist_setlastxy(x, xpos, ypos); - if (x->gl_editor->e_onmotion == MA_MOVE) - { - canvas_displaceselection(x, - xpos - x->gl_editor->e_xwas, ypos - x->gl_editor->e_ywas); - x->gl_editor->e_xwas = xpos; - x->gl_editor->e_ywas = ypos; - } - else if (x->gl_editor->e_onmotion == MA_REGION) - canvas_doregion(x, xpos, ypos, 0); - else if (x->gl_editor->e_onmotion == MA_CONNECT) - canvas_doconnect(x, xpos, ypos, 0, 0); - else if (x->gl_editor->e_onmotion == MA_PASSOUT) - { - if (!x->gl_editor->e_motionfn) - bug("e_motionfn"); - (*x->gl_editor->e_motionfn)(&x->gl_editor->e_grab->g_pd, - xpos - x->gl_editor->e_xwas, - ypos - x->gl_editor->e_ywas); - x->gl_editor->e_xwas = xpos; - x->gl_editor->e_ywas = ypos; - } - else if (x->gl_editor->e_onmotion == MA_DRAGTEXT) - { - t_rtext *rt = x->gl_editor->e_textedfor; - if (rt) - rtext_mouse(rt, xpos - x->gl_editor->e_xwas, - ypos - x->gl_editor->e_ywas, RTEXT_DRAG); - } - else canvas_doclick(x, xpos, ypos, 0, mod, 0); - - x->gl_editor->e_lastmoved = 1; - } - void canvas_startmotion(t_canvas *x) { --- 2793,2796 ---- *************** *** 11589,11593 **** t_text *o; if (sscanf(name->s_name,"!x%lx",(long*)&o)<1) {error("gargamel was here"); return;} ! glist_delete(x,o); gobj_changed(x,0); } --- 11345,11349 ---- t_text *o; if (sscanf(name->s_name,"!x%lx",(long*)&o)<1) {error("gargamel was here"); return;} ! glist_delete(x,(t_gobj *)o); gobj_changed(x,0); } *************** *** 12884,12896 **** class_addcreator((t_newmethod)subcanvas_new,gensym("pd"), A_DEFSYMBOL, 0); class_addcreator((t_newmethod)subcanvas_new, gensym("page"), A_DEFSYMBOL, 0); - // class_addmethod3(c,canvas_click,"click","fffff"); class_addmethod3(c,canvas_dsp,"dsp",""); class_addmethod3(c,canvas_rename_method,"rename","*"); class_addcreator((t_newmethod)table_new, gensym("table"), A_DEFSYM, A_DEFFLOAT, 0); - // class_addmethod3(c,canvas_mousedown,"mouse","ffff"); - // class_addmethod3(c,canvas_mouseup,"mouseup","fff"); class_addmethod3(c,canvas_key,"key","*"); - class_addmethod3(c,canvas_motion,"motion","fff"); class_addmethod3(c,canvas_menuclose,"menuclose","F"); --- 12640,12648 ---- *************** *** 12907,12910 **** --- 12659,12669 ---- /* end die */ + /* <dead> + class_addmethod3(c,canvas_click, "click", "fffff"); + class_addmethod3(c,canvas_motion, "motion", "fff"); + class_addmethod3(c,canvas_mousedown,"mouse", "ffff"); + class_addmethod3(c,canvas_mouseup, "mouseup","fff"); + </dead> */ + class_addmethod3(c,canvas_editmode, "editmode","F");

1 0

externals/hcs uname.c,NONE,1.1 uname-help.pd,NONE,1.1
by Hans-Christoph Steiner 12 Jun '06

12 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31834 Added Files: uname.c uname-help.pd Log Message: created a direct Pd interface for uname and utsname.h --- NEW FILE: uname.c --- /* --------------------------------------------------------------------------*/ /* */ /* object for getting file listings using wildcard patterns */ /* Written by Hans-Christoph Steiner <hans(a)at.or.at> */ /* */ /* Copyright (c) 2006 Hans-Christoph Steiner */ /* */ /* This program is free software; you can redistribute it and/or */ /* modify it under the terms of the GNU General Public License */ /* as published by the Free Software Foundation; either version 2 */ /* of the License, or (at your option) any later version. */ /* */ /* See file LICENSE for further informations on licensing terms. */ /* */ /* This program is distributed in the hope that it will be useful, */ /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ /* GNU General Public License for more details. */ /* */ /* You should have received a copy of the GNU General Public License */ /* along with this program; if not, write to the Free Software Foundation, */ /* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* */ /* --------------------------------------------------------------------------*/ #include <m_pd.h> #ifdef _WIN32 #define _WIN32_WINNT 0x0400 #include <windows.h> #include <stdio.h> #else #include <sys/utsname.h> #include <stdlib.h> #endif static char *version = "$Revision: 1.1 $"; t_int uname_instance_count; #define DEBUG(x) //#define DEBUG(x) x /*------------------------------------------------------------------------------ * CLASS DEF */ static t_class *uname_class; typedef struct _uname { t_object x_obj; } t_uname; /*------------------------------------------------------------------------------ * IMPLEMENTATION */ // TODO: regexp ~ to USERPROFILE for Windows // TODO: make FindFirstFile display when its just a dir static void uname_output(t_uname* x) { DEBUG(post("uname_output");); struct utsname *utsname_struct; t_atom uname_data[5]; utsname_struct = malloc(sizeof(utsname_struct)); if ( uname(utsname_struct) > -1 ) { SETSYMBOL(uname_data, gensym(utsname_struct->sysname)); SETSYMBOL(uname_data + 1, gensym(utsname_struct->nodename)); SETSYMBOL(uname_data + 2, gensym(utsname_struct->release)); SETSYMBOL(uname_data + 3, gensym(utsname_struct->version)); SETSYMBOL(uname_data + 4, gensym(utsname_struct->machine)); outlet_anything(x->x_obj.ob_outlet, atom_gensym(uname_data), 4, uname_data + 1); } } static void *uname_new(t_symbol *s) { DEBUG(post("uname_new");); t_uname *x = (t_uname *)pd_new(uname_class); if(!uname_instance_count) { post("[uname] %s",version); post("\twritten by Hans-Christoph Steiner <hans(a)at.or.at>"); } uname_instance_count++; outlet_new(&x->x_obj, &s_symbol); return (x); } void uname_setup(void) { DEBUG(post("uname_setup");); uname_class = class_new(gensym("uname"), (t_newmethod)uname_new, 0, sizeof(t_uname), 0, 0); /* add inlet datatype methods */ class_addbang(uname_class,(t_method) uname_output); } --- NEW FILE: uname-help.pd --- #N canvas 293 112 750 380 10; #X obj 109 114 uname; #X msg 109 77 bang; #X obj 106 175 unpack symbol symbol symbol symbol symbol; #X symbolatom 389 203 0 0 0 0 - - -; #X symbolatom 107 319 0 0 0 0 - - -; #X symbolatom 176 296 0 0 0 0 - - -; #X symbolatom 247 275 0 0 0 0 - - -; #X symbolatom 316 229 0 0 0 0 - - -; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 2 0 4 0; #X connect 2 1 5 0; #X connect 2 2 6 0; #X connect 2 3 7 0; #X connect 2 4 3 0;

1 0

← Newer
1
...
11
12
13
14
15
16
17
...
23
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs June 2006