Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13080

Added Files: file_status.c file_status-help.pd gid0x2d0x3egroup_name.c gid0x2d0x3egroup_name-help.pd Log Message: added more file-based classes; file_status needs to output timestamp info too

--- NEW FILE: gid0x2d0x3egroup_name-help.pd --- #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;

--- NEW FILE: gid0x2d0x3egroup_name.c --- /* --------------------------------------------------------------------------*/ /* */ /* converts a GID number to a group name symbol */ /* Written by Hans-Christoph Steiner hans@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> #include <lm.h> #else #include <stdlib.h> #include <grp.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 gid0x2d0x3egroup_name_instance_count;

#define DEBUG(x) //#define DEBUG(x) x

/*------------------------------------------------------------------------------ * CLASS DEF */ static t_class *gid0x2d0x3egroup_name_class;

typedef struct _gid0x2d0x3egroup_name { t_object x_obj; t_float x_gid; t_outlet *x_data_outlet; // t_outlet *x_status_outlet; } t_gid0x2d0x3egroup_name;

/*------------------------------------------------------------------------------ * IMPLEMENTATION */

static void gid0x2d0x3egroup_name_output(t_gid0x2d0x3egroup_name* x) { DEBUG(post("gid0x2d0x3egroup_name_output");); struct group *group_pointer;

#ifdef _WIN32 /* TODO: implement for Windows! */ #else { group_pointer = getgrgid((gid_t)x->x_gid); if( group_pointer != NULL ) outlet_symbol(x->x_data_outlet, gensym(group_pointer->gr_name)); else /* output blank symbol if no match */ outlet_symbol(x->x_data_outlet, &s_); } #endif /* _WIN32 */ }

static void gid0x2d0x3egroup_name_set(t_gid0x2d0x3egroup_name* x, t_float f) { DEBUG(post("gid0x2d0x3egroup_name_set");); x->x_gid = f; }

static void gid0x2d0x3egroup_name_float(t_gid0x2d0x3egroup_name *x, t_float f) { gid0x2d0x3egroup_name_set(x,f); gid0x2d0x3egroup_name_output(x); }

static void *gid0x2d0x3egroup_name_new(t_float f) { DEBUG(post("gid0x2d0x3egroup_name_new"););

t_gid0x2d0x3egroup_name *x = (t_gid0x2d0x3egroup_name *)pd_new(gid0x2d0x3egroup_name_class);

if(!gid0x2d0x3egroup_name_instance_count) { post("[gid->group_name] %s",version); post("\twritten by Hans-Christoph Steiner hans@at.or.at"); post("\tcompiled on "__DATE__" at "__TIME__ " "); } gid0x2d0x3egroup_name_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);

gid0x2d0x3egroup_name_set(x,f);

return (x); }

void gid0x2d0x3egroup_name_free(void) { #ifdef _WIN32 #else endgrent(); #endif /* _WIN32 */ }

void gid0x2d0x3egroup_name_setup(void) { DEBUG(post("gid0x2d0x3egroup_name_setup");); gid0x2d0x3egroup_name_class = class_new(gensym("gid->group_name"), (t_newmethod)gid0x2d0x3egroup_name_new, 0, sizeof(t_gid0x2d0x3egroup_name), 0, A_DEFFLOAT, 0); /* add inlet datatype methods */ class_addbang(gid0x2d0x3egroup_name_class, (t_method) gid0x2d0x3egroup_name_output); class_addfloat(gid0x2d0x3egroup_name_class, (t_method) gid0x2d0x3egroup_name_float); /* add inlet message methods */ class_addmethod(gid0x2d0x3egroup_name_class, (t_method) gid0x2d0x3egroup_name_set,gensym("set"), A_DEFSYM, 0); }

--- NEW FILE: file_status-help.pd --- #N canvas 167 231 605 454 10; #X msg 114 53 bang; #X text 156 53 run on current folder; #X obj 91 147 file_status; #X obj 90 226 unpack symbol float float float float float float float ; #X symbolatom 91 414 0 0 0 3 filename - -; #X floatatom 145 359 0 0 0 3 hard_links - -; #X floatatom 199 340 0 0 0 3 User_ID - -; #X floatatom 253 323 0 0 0 3 Group_ID - -; #X floatatom 309 309 0 0 0 3 Device_ID - -; #X obj 12 188 print data; #X obj 163 174 route error; #X symbolatom 163 199 0 0 0 0 error - -; #X floatatom 360 288 0 0 0 3 File_Size - -; #X floatatom 416 267 0 0 0 3 Blocks_Allocated - -; #X floatatom 470 247 0 0 0 3 Block_Size - -; #X msg 127 79 symbol /tmp/; #X msg 138 103 symbol /tmp/test.txt; #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 174 144 <-- set filename by cold inlet or object argument; #X obj 252 360 gid->group_name; #X symbolatom 252 379 0 0 0 3 group_name - -; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 2 0 9 0; #X connect 2 1 10 0; #X connect 3 0 4 0; #X connect 3 1 5 0; #X connect 3 2 6 0; #X connect 3 3 7 0; #X connect 3 4 8 0; #X connect 3 5 12 0; #X connect 3 6 13 0; #X connect 3 7 14 0; #X connect 7 0 21 0; #X connect 10 0 11 0; #X connect 15 0 2 0; #X connect 16 0 2 0; #X connect 17 0 18 0; #X connect 18 0 2 0; #X connect 21 0 22 0;

--- NEW FILE: file_status.c --- /* --------------------------------------------------------------------------*/ /* */ /* object for getting file type (dir, link, exe, etc) using a filename */ /* Written by Hans-Christoph Steiner hans@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 file_status_instance_count;

#define DEBUG(x) //#define DEBUG(x) x

/*------------------------------------------------------------------------------ * CLASS DEF */ static t_class *file_status_class;

typedef struct _file_status { t_object x_obj; t_symbol *x_filename; t_outlet *x_data_outlet; t_outlet *x_status_outlet; } t_file_status;

/*------------------------------------------------------------------------------ * IMPLEMENTATION */

static void file_status_output_error(t_file_status *x, int error_number) { t_atom output_atoms[2]; switch(error_number) { case EACCES: error("[file_status]: access denied: %s", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("access")); break; case EIO: error("[file_status]: An error occured while reading %s", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("io")); break; case ELOOP: error("[file_status]: A loop exists in symbolic links in %s", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("loop")); break; case ENAMETOOLONG: error("[file_status]: The filename %s is too long", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("name_too_long")); break; case ENOENT: error("[file_status]: %s does not exist", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("does_not_exist")); break; case ENOTDIR: error("[file_status]: A component of %s is not a existing folder", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("not_folder")); break; case EOVERFLOW: error("[file_status]: %s caused overflow in stat struct", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("overflow")); break; case EFAULT: error("[file_status]: fault in stat struct (%s)", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("fault")); break; case EINVAL: error("[file_status]: invalid argument to stat() (%s)", x->x_filename->s_name); SETSYMBOL(output_atoms, gensym("invalid")); break; default: error("[file_status]: 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 file_status_output(t_file_status* x) { DEBUG(post("file_status_output");); struct stat stat_buffer; int result; t_atom output_atoms[7];

#ifdef _WIN32 result = _stat(x->x_filename, &stat_buffer); #else result = stat(x->x_filename->s_name, &stat_buffer); #endif /* _WIN32 */ if(result != 0) { file_status_output_error(x, result); } else { /* TODO: output time stamps, in which format? */ SETFLOAT(output_atoms, (t_float) stat_buffer.st_nlink); SETFLOAT(output_atoms + 1, (t_float) stat_buffer.st_uid); SETFLOAT(output_atoms + 2, (t_float) stat_buffer.st_gid); SETFLOAT(output_atoms + 3, (t_float) stat_buffer.st_rdev); SETFLOAT(output_atoms + 4, (t_float) stat_buffer.st_size); SETFLOAT(output_atoms + 5, (t_float) stat_buffer.st_blocks); SETFLOAT(output_atoms + 6, (t_float) stat_buffer.st_blksize); outlet_anything(x->x_data_outlet,x->x_filename,7,output_atoms); } }

static void file_status_set(t_file_status* x, t_symbol *s) { DEBUG(post("file_status_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 file_status_symbol(t_file_status *x, t_symbol *s) { file_status_set(x,s); file_status_output(x); }

static void *file_status_new(t_symbol *s) { DEBUG(post("file_status_new"););

t_file_status *x = (t_file_status *)pd_new(file_status_class);

if(!file_status_instance_count) { post("[file_status] %s",version); post("\twritten by Hans-Christoph Steiner hans@at.or.at"); post("\tcompiled on "__DATE__" at "__TIME__ " "); } file_status_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 file_status_setup(void) { DEBUG(post("file_status_setup");); file_status_class = class_new(gensym("file_status"), (t_newmethod)file_status_new, 0, sizeof(t_file_status), 0, A_DEFSYM, 0); /* add inlet datatype methods */ class_addbang(file_status_class,(t_method) file_status_output); class_addsymbol(file_status_class,(t_method) file_status_symbol); /* add inlet message methods */ class_addmethod(file_status_class,(t_method) file_status_set,gensym("set"), A_DEFSYM, 0); }