Max 5 API Reference

myob.c

/* 
    myob
    Copyright 2004 - Cycling '74
    jeremy bernstein - jeremy@bootsquad.com 
*/

#include "ext.h"
#include "ext_common.h"
#include "ext_obex.h"

typedef struct _myob 
{
    t_object                    ob;
    t_box                       *b;
    t_atom                      *argv;
    long                        argc;
    void                        *out;
} t_myob;

void *myob_new(t_symbol *s, long argc, t_atom *argv);
void myob_free(t_myob *x);
void myob_assist(t_myob *x, void *b, long m, long a, char *s);
void myob_anything(t_myob *x, t_symbol *s, long argc, t_atom *argv);
void myob_bang(t_myob *x);
void myob_output(t_myob *x);
void myob_float(t_myob *x, double f);
void myob_int(t_myob *x, long c);

// pattr support function prototypes
t_max_err myob_getvalueof(t_myob *x, long *ac, t_atom **av);
t_max_err myob_setvalueof(t_myob *x, long ac, t_atom *av);

void *myob_class;
            
void main(void)
{   
    setup((t_messlist **)&myob_class, (method)myob_new, (method)myob_free, (short)sizeof(t_myob), 
        0L, A_GIMME, 0);
    
    // initialize the common symbols, since we want to use them
    common_symbols_init();
    
    addbang((method)myob_bang);
    addfloat((method)myob_float);
    addint((method)myob_int);
    addmess((method)myob_anything,          "list",         A_GIMME,0); 
    addmess((method)myob_anything,          "set",          A_GIMME,0); 
    addmess((method)myob_anything,          "anything",     A_GIMME,0); 
    addmess((method)myob_assist,            "assist",       A_CANT,0);  

    // these methods support the pattr set of objects
    addmess((method)myob_getvalueof,        "getvalueof",   A_CANT,0);  
    addmess((method)myob_setvalueof,        "setvalueof",   A_CANT,0);  
}

void myob_bang(t_myob *x)
{
    myob_output(x);
}

void myob_output(t_myob *x)
{
    if (x->argc && x->argv) {
        if (x->argc > 1) {
            if (x->argv->a_type != A_SYM)
                outlet_list(x->out, _sym_list, x->argc, x->argv);
            else
                outlet_anything(x->out, atom_getsym(x->argv), x->argc - 1, x->argv + 1);
        }
        else {
            switch (x->argv->a_type) {
                case A_LONG: outlet_int(x->out, atom_getlong(x->argv)); break;
                case A_FLOAT: outlet_float(x->out, atom_getfloat(x->argv)); break;
                case A_SYM: outlet_anything(x->out, atom_getsym(x->argv), 0, NULL); break;
                default: break;
            }
        }
    }
}


void myob_float(t_myob *x, double f)
{
    t_atom a;
    
    atom_setfloat(&a, f);
    myob_anything(x, _sym_float, 1, &a);
}

void myob_int(t_myob *x, long c)
{
    t_atom a;
    
    atom_setlong(&a, c);
    myob_anything(x, _sym_int, 1, &a);
}
    
void myob_anything(t_myob *x, t_symbol *s, long ac, t_atom *av)
{
    if (x->argv)
        sysmem_freeptr(x->argv);
        
    if (s == _sym_int || s == _sym_float || s == _sym_list || s == _sym_set || s == _sym_nothing) {
        x->argc = ac;
        x->argv = (t_atom *)sysmem_newptr(sizeof(t_atom) * x->argc);
        sysmem_copyptr(av, x->argv, sizeof(t_atom) * ac);
    }
    else {
        x->argc = ac + 1;
        x->argv = (t_atom *)sysmem_newptr(sizeof(t_atom) * x->argc);
        atom_setsym(x->argv, s);
        sysmem_copyptr(av, x->argv + 1, sizeof(t_atom) * ac);
    }
    
    // we call object_notify on the box, not on the object, 
    // because the box is the registered object.
    // if myob were a UI object, we would call object_notify on the object pointer,
    // which, in the case of a UI object, is also the box.
    object_notify(x->b, _sym_modified, NULL);
    
    if (s != _sym_set)
        myob_output(x);
}

t_max_err myob_getvalueof(t_myob *x, long *ac, t_atom **av)
{
    if (ac && av) {
        if (*ac && *av) {
            // memory passed in; use it.
        }
        else {
            if (*av = (t_atom *)getbytes(sizeof(t_atom) * x->argc))
                *ac = x->argc;
            else {
                *ac = 0;
                return MAX_ERR_OUT_OF_MEM;
            }
        }
        sysmem_copyptr(x->argv, *av, sizeof(t_atom) * (*ac));
    }
    return MAX_ERR_NONE;
}

t_max_err myob_setvalueof(t_myob *x, long ac, t_atom *av)
{
    if (ac && av) {
        myob_anything(x, _sym_nothing, ac, av);
    }
    return MAX_ERR_NONE;
}

void myob_assist(t_myob *x, void *b, long m, long a, char *s)
{
    if (m == 1) { //input
        sprintf(s, "int, float, list, set, anything");          
    } 
    else {  //output
        sprintf(s, "anything out");             
    }
}

void myob_free(t_myob *x)
{
    if (x->argv)
        sysmem_freeptr(x->argv);
}

void *myob_new(t_symbol *s, long argc, t_atom *argv)
{
    t_myob *x;
    t_atom a;

    if (x = (t_myob *)newobject(myob_class)) {
        // we need to save the object's box for the object_notify function
        x->b = (t_box *)gensym("#B")->s_thing;
        x->argv = 0;
        x->argc = 0;
        x->out = outlet_new(x, 0L);
        atom_setlong(&a, 0);
        myob_anything(x, _sym_set, 1, &a);
    }
    return (x);
}

Copyright © 2008, Cycling '74