aboutsummaryrefslogtreecommitdiff
path: root/externals/sprinkler/sprinkler.c
diff options
context:
space:
mode:
authorBryan Jurish <mukau@users.sourceforge.net>2009-01-17 21:41:11 +0000
committerBryan Jurish <mukau@users.sourceforge.net>2009-01-17 21:41:11 +0000
commitffe86804f741389b28e20cbbeb045636e68c4c02 (patch)
tree4a19cba76d9bddde232471d0d232482df844cfc7 /externals/sprinkler/sprinkler.c
parent58ff2a12088ec8654e527158795b013b1c95b374 (diff)
+ moved externals/sprinker to externals/moocow/sprinkler
svn path=/trunk/; revision=10567
Diffstat (limited to 'externals/sprinkler/sprinkler.c')
-rw-r--r--externals/sprinkler/sprinkler.c204
1 files changed, 0 insertions, 204 deletions
diff --git a/externals/sprinkler/sprinkler.c b/externals/sprinkler/sprinkler.c
deleted file mode 100644
index a6fd4582..00000000
--- a/externals/sprinkler/sprinkler.c
+++ /dev/null
@@ -1,204 +0,0 @@
-/* File: sprinkler.c
- * Author: Bryan Jurish <moocow@ling.uni-potsdam.de>
- * Contributors:
- * Krzysztof Czaja pointed out the MAX-incompatibility of the name 'forward'
- * Miller Puckette suggested the name 'sprinkler'
- * Erasmus Zipfel diagnosed a bug in sprinkler_list()
- *
- * Description: dynamic message-forwarding object
- *
- * + code adapted from 'send_class' in $PD_ROOT/src/x_connective.c
- * + formerly 'forward.c'
- *
- *
- * Copyright (c) 2002,2004 Bryan Jurish.
- *
- * For information on usage and redistribution, and for a DISCLAIMER OF ALL
- * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
- *
- * 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>
-
-/* black magic */
-#ifdef NT
-#pragma warning( disable : 4244 )
-#pragma warning( disable : 4305 )
-#endif
-
-/*--------------------------------------------------------------------
- * DEBUG
- *--------------------------------------------------------------------*/
-//#define SPRINKLER_DEBUG 1
-
-
-/*=====================================================================
- * Constants
- *=====================================================================*/
-#ifdef SPRINKLER_DEBUG
-// error-message buffer
-#define EBUFSIZE 256
-static char sprinkler_errbuf[EBUFSIZE];
-#endif
-
-/*=====================================================================
- * Structures and Types
- *=====================================================================*/
-
-static char *sprinkler_banner =
-"\nsprinkler version %s by Bryan Jurish : dynamic message dissemination";
-
-static t_class *sprinkler_class;
-
-typedef struct _sprinkler
-{
- t_object x_obj;
- t_outlet *x_thru; //-- pass-through outlet
-} t_sprinkler;
-
-
-/*--------------------------------------------------------------------
- * the guts:
- * + send (the tail of) a list or message to the control-bus
- * named by its initial element
- * + [DEPRECATED] : HACK for single-element arglists *ONLY*
- * - sprinkler float- and pointer-initial arglists with 'pd_sprinklermess',
- * everything else with 'pd_forwardmess'
- *--------------------------------------------------------------------*/
-static void sprinkler_anything(t_sprinkler *x, t_symbol *dst, int argc, t_atom *argv)
-{
-
-#ifdef SPRINKLER_DEBUG
- atom_string(argv, sprinkler_errbuf, EBUFSIZE);
- post("sprinkler_debug : sprinkler_anything : dst=%s, argc=%d, arg1=%s",
- dst->s_name, argc, argc ? sprinkler_errbuf : "NULL");
-#endif
-
- if (dst->s_thing) {
-
-#if !defined(ALL_FORWARDMESS)
-
- /*-----------------------------------------------------------------------
- * HACK (obsolete):
- * + single-element arglists *ONLY*
- * + sprinkler float- and pointer-initial arglists with 'pd_sprinklermess',
- * everything else with 'pd_forwardmess'
- *------------------------------------------------------------------------
- */
- if (argc == 1) {
- switch (argv->a_type) {
- case A_FLOAT:
- pd_typedmess(dst->s_thing,&s_float,argc,argv);
- return;
- case A_SYMBOL:
- //-- special handling for 'bang'
- if (argv->a_w.w_symbol == &s_bang) {
- pd_typedmess(dst->s_thing,&s_bang,0,0);
- } else {
- pd_typedmess(dst->s_thing,&s_symbol,argc,argv);
- }
- return;
- case A_POINTER:
- pd_typedmess(dst->s_thing,&s_pointer,argc,argv);
- return;
-
- // everything else (stop 'gcc -Wall' from complaining)
- case A_NULL:
- case A_SEMI:
- case A_COMMA:
- case A_DEFFLOAT:
- case A_DOLLAR:
- case A_DOLLSYM:
- case A_GIMME:
- case A_CANT:
- default:
- break;
- // just fall though
- }
- }
-
-#endif /* !defined(ALL_FORWARDMESS) */
-
- // default -- sprinkler anything else with 'pd_forwardmess'
- pd_forwardmess(dst->s_thing,argc,argv);
- return;
- }
-
- //post("sprinkler: no destination for `%s'", dst ? dst->s_name : "(null)");
- //-- pass through
- outlet_anything(x->x_thru, dst, argc, argv);
-}
-
-static void sprinkler_list(t_sprinkler *x, t_symbol *s, int argc, t_atom *argv)
-{
-#ifdef SPRINKLER_DEBUG
- post("sprinkler_debug : sprinkler_list : argc=%d", argc);
-#endif
- sprinkler_anything(x,atom_getsymbol(argv), argc-1, argv+1);
-}
-
-
-/*--------------------------------------------------------------------
- * newmethod, freemethod
- */
-void *sprinkler_new(t_symbol *s)
-{
- t_sprinkler *x = (t_sprinkler *)pd_new(sprinkler_class);
- x->x_thru = outlet_new(&x->x_obj, &s_anything);
- return (x);
-}
-
-void sprinkler_free(t_sprinkler *x) {
- outlet_free(x->x_thru);
-}
-
-/*--------------------------------------------------------------------
- * setup
- *--------------------------------------------------------------------*/
-void sprinkler_setup(void)
-{
- post(sprinkler_banner, PACKAGE_VERSION);
- sprinkler_class = class_new(gensym("sprinkler"),
- (t_newmethod)sprinkler_new,
- (t_method)sprinkler_free,
- sizeof(t_sprinkler),
- 0, 0);
-
-#ifdef NON_MAX_FORWARD
- //-- add aliases [forward] and [fw]
- post("sprinkler : non-MAX [forward] alias enabled");
- class_addcreator((t_newmethod)sprinkler_new, gensym("forward"), A_DEFSYM, 0);
- class_addcreator((t_newmethod)sprinkler_new, gensym("fw"), A_DEFSYM, 0);
-#endif
-
-#ifdef ALL_FORWARDMESS
- //-- report new semantics
- post("sprinkler : will use pd_forwardmess() for all messages");
-#endif
-
-#ifdef SPRINKLER_DEBUG
- post("sprinkler : debugging enabled");
-#endif
-
- //-- methods
- class_addlist(sprinkler_class, sprinkler_list);
- class_addanything(sprinkler_class, sprinkler_anything);
-
- // help symbol
- class_sethelpsymbol(sprinkler_class, gensym("sprinkler-help.pd"));
-}