From b73e5b8c5df52bf86e0d45d5956d41cf652210a3 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 12 Jun 2006 16:07:51 +0000 Subject: added more file-based classes; file_status needs to output timestamp info too svn path=/trunk/externals/hcs/; revision=5192 --- file_status-help.pd | 46 +++++++++ file_status.c | 222 ++++++++++++++++++++++++++++++++++++++++++ gid0x2d0x3egroup_name-help.pd | 20 ++++ gid0x2d0x3egroup_name.c | 158 ++++++++++++++++++++++++++++++ 4 files changed, 446 insertions(+) create mode 100644 file_status-help.pd create mode 100644 file_status.c create mode 100644 gid0x2d0x3egroup_name-help.pd create mode 100644 gid0x2d0x3egroup_name.c diff --git a/file_status-help.pd b/file_status-help.pd new file mode 100644 index 0000000..76321fe --- /dev/null +++ b/file_status-help.pd @@ -0,0 +1,46 @@ +#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; diff --git a/file_status.c b/file_status.c new file mode 100644 index 0000000..89780e1 --- /dev/null +++ b/file_status.c @@ -0,0 +1,222 @@ +/* --------------------------------------------------------------------------*/ +/* */ +/* object for getting file type (dir, link, exe, etc) using a filename */ +/* Written by Hans-Christoph Steiner */ +/* */ +/* 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 + +#ifdef _WIN32 +#define _WIN32_WINNT 0x0400 +#include +#include +#else +#include +#endif + +#include +#include +#include +#include + +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 "); + 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); +} + diff --git a/gid0x2d0x3egroup_name-help.pd b/gid0x2d0x3egroup_name-help.pd new file mode 100644 index 0000000..ba9cdfa --- /dev/null +++ b/gid0x2d0x3egroup_name-help.pd @@ -0,0 +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; diff --git a/gid0x2d0x3egroup_name.c b/gid0x2d0x3egroup_name.c new file mode 100644 index 0000000..12ceae5 --- /dev/null +++ b/gid0x2d0x3egroup_name.c @@ -0,0 +1,158 @@ +/* --------------------------------------------------------------------------*/ +/* */ +/* converts a GID number to a group name symbol */ +/* Written by Hans-Christoph Steiner */ +/* */ +/* 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 + +#ifdef _WIN32 +#define _WIN32_WINNT 0x0400 +#include +#include +#include +#else +#include +#include +#endif + +/* +#include +#include +#include +#include +*/ + +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 "); + 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); +} + -- cgit v1.2.1