diff options
author | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-07-29 17:06:19 +0000 |
---|---|---|
committer | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-07-29 17:06:19 +0000 |
commit | 57045df5fe3ec557e57dc7434ac1a07b5521bffc (patch) | |
tree | 7174058b41b73c808107c7090d9a4e93ee202341 /pd/src/x_interface.c | |
parent | da38b3424229e59f956252c3d89895e43e84e278 (diff) |
This commit was generated by cvs2svn to compensate for changes in r58,
which included commits to RCS files with non-trunk default branches.
svn path=/trunk/; revision=59
Diffstat (limited to 'pd/src/x_interface.c')
-rw-r--r-- | pd/src/x_interface.c | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/pd/src/x_interface.c b/pd/src/x_interface.c new file mode 100644 index 00000000..068b0bbc --- /dev/null +++ b/pd/src/x_interface.c @@ -0,0 +1,78 @@ +/* Copyright (c) 1997-1999 Miller Puckette. +* For information on usage and redistribution, and for a DISCLAIMER OF ALL +* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ + +/* interface objects */ + +#include "m_pd.h" + +/* -------------------------- print ------------------------------ */ +static t_class *print_class; + +typedef struct _print +{ + t_object x_obj; + t_symbol *x_sym; +} t_print; + +static void *print_new(t_symbol *s) +{ + t_print *x = (t_print *)pd_new(print_class); + if (*s->s_name) x->x_sym = s; + else x->x_sym = gensym("print"); + return (x); +} + +static void print_bang(t_print *x) +{ + post("%s: bang", x->x_sym->s_name); +} + +static void print_pointer(t_print *x, t_gpointer *gp) +{ + post("%s: (gpointer)", x->x_sym->s_name); +} + +static void print_float(t_print *x, t_float f) +{ + post("%s: %g", x->x_sym->s_name, f); +} + +static void print_list(t_print *x, t_symbol *s, int argc, t_atom *argv) +{ + int i; + char buf[80]; + if (argc && argv->a_type != A_SYMBOL) startpost("%s:", x->x_sym->s_name); + else startpost("%s: %s", x->x_sym->s_name, + (argc > 1 ? s_list.s_name : (argc == 1 ? s_symbol.s_name : + s_bang.s_name))); + postatom(argc, argv); + endpost(); +} + +static void print_anything(t_print *x, t_symbol *s, int argc, t_atom *argv) +{ + int i; + char buf[80]; + startpost("%s: %s", x->x_sym->s_name, s->s_name); + postatom(argc, argv); + endpost(); +} + +static void print_setup(void) +{ + print_class = class_new(gensym("print"), (t_newmethod)print_new, 0, + sizeof(t_print), 0, A_DEFSYM, 0); + class_addbang(print_class, print_bang); + class_addfloat(print_class, print_float); + class_addpointer(print_class, print_pointer); + class_addlist(print_class, print_list); + class_addanything(print_class, print_anything); +} + + + +void x_interface_setup(void) +{ + print_setup(); +} |