[PD-cvs] 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
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Mon Jun 12 22:40:19 CEST 2006
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 at 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 at 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;
More information about the Pd-cvs
mailing list