pure-data/src/g_traversal.c

/* 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.  */

/* This file defines Text objects which traverse data contained in scalars
and arrays:

pointer - point to an object belonging to a template
get -     get numeric fields
set -     set numeric/symbolic fields
element - get an array element
getsize - get the size of an array
setsize - set the size of an array
append -  add an element to a list

*/

#include <string.h>
#include "m_pd.h"
#include "g_canvas.h"

    /* templates are named using the name-bashing by which canvases bind
    thenselves, with a leading "pd-".  LATER see if we can have templates
    occupy their real names.  Meanwhile, if a template has an empty name
    or is named "-" (as when passed as a "-" argument to "get", etc.), just
    return &s_; objects should check for this and allow it as a wild
    card when appropriate. */
static t_symbol *template_getbindsym(t_symbol *s)
{ … }


/* ---------------------- pointer ----------------------------- */

static t_class *ptrobj_class;

t_typedout;

t_ptrobj;

static void *ptrobj_new(t_symbol *classname, int argc, t_atom *argv)
{ … }

static void ptrobj_traverse(t_ptrobj *x, t_symbol *s)
{ … }

static void ptrobj_vnext(t_ptrobj *x, t_float f)
{ … }

static void ptrobj_next(t_ptrobj *x)
{ … }

static void ptrobj_delete(t_ptrobj *x)
{ … }

t_symbol *gpointer_gettemplatesym(const t_gpointer *gp);

static void ptrobj_equal(t_ptrobj *x, t_gpointer *gp)
{ … }

    /* send a message to the window containing the object pointed to */
static void ptrobj_sendwindow(t_ptrobj *x, t_symbol *s, int argc, t_atom *argv)
{ … }


    /* send the pointer to the named object */
static void ptrobj_send(t_ptrobj *x, t_symbol *s)
{ … }

static void ptrobj_bang(t_ptrobj *x)
{ … }


static void ptrobj_pointer(t_ptrobj *x, t_gpointer *gp)
{ … }


static void ptrobj_rewind(t_ptrobj *x)
{ … }

static void ptrobj_free(t_ptrobj *x)
{ … }

static void ptrobj_setup(void)
{ … }

/* ---------------------- get ----------------------------- */

static t_class *get_class;

t_getvariable;

t_get;

static void *get_new(t_symbol *why, int argc, t_atom *argv)
{ … }

static void get_set(t_get *x, t_symbol *templatesym, t_symbol *field)
{ … }

static void get_pointer(t_get *x, t_gpointer *gp)
{ … }

static void get_free(t_get *x)
{ … }

static void get_setup(void)
{ … }

/* ---------------------- set ----------------------------- */

static t_class *set_class;

t_setvariable;

t_set;

static void *set_new(t_symbol *why, int argc, t_atom *argv)
{ … }

static void set_set(t_set *x, t_symbol *templatesym, t_symbol *field)
{ … }

static void set_bang(t_set *x)
{ … }

static void set_float(t_set *x, t_float f)
{ … }

static void set_symbol(t_set *x, t_symbol *s)
{ … }

static void set_free(t_set *x)
{ … }

static void set_setup(void)
{ … }

/* ---------------------- element ----------------------------- */

static t_class *elem_class;

t_elem;

static void *elem_new(t_symbol *templatesym, t_symbol *fieldsym)
{ … }

static void elem_set(t_elem *x, t_symbol *templatesym, t_symbol *fieldsym)
{ … }

static void elem_float(t_elem *x, t_float f)
{ … }

static void elem_free(t_elem *x, t_gpointer *gp)
{ … }

static void elem_setup(void)
{ … }

/* ---------------------- getsize ----------------------------- */

static t_class *getsize_class;

t_getsize;

static void *getsize_new(t_symbol *templatesym, t_symbol *fieldsym)
{ … }

static void getsize_set(t_getsize *x, t_symbol *templatesym, t_symbol *fieldsym)
{ … }

static void getsize_pointer(t_getsize *x, t_gpointer *gp)
{ … }

static void getsize_setup(void)
{ … }

/* ---------------------- setsize ----------------------------- */

static t_class *setsize_class;

t_setsize;

static void *setsize_new(t_symbol *templatesym, t_symbol *fieldsym,
    t_floatarg newsize)
{ … }

static void setsize_set(t_setsize *x, t_symbol *templatesym, t_symbol *fieldsym)
{ … }

static void setsize_float(t_setsize *x, t_float f)
{ … }

static void setsize_free(t_setsize *x)
{ … }

static void setsize_setup(void)
{ … }

/* ---------------------- append ----------------------------- */

static t_class *append_class;

t_appendvariable;

t_append;

static void *append_new(t_symbol *why, int argc, t_atom *argv)
{ … }

static void append_set(t_append *x, t_symbol *templatesym, t_symbol *field)
{ … }

static void append_float(t_append *x, t_float f)
{ … }

static void append_free(t_append *x)
{ … }

static void append_setup(void)
{ … }

/* ----------------- setup function ------------------- */

void g_traversal_setup(void)
{ … }