OMax.date2state.c

Go to the documentation of this file.

/*--------------------------------------
 * OMax.date2state - OMax.date2state.c
 * Created on 29/03/09 by BenCello
 *--------------------------------------*/




#ifndef __OMax_date2state_MAX_API_
#define __OMax_date2state_MAX_API_

#include "Oracle_data.hpp"

extern "C"
{
        
#include "ext.h"                                // standard Max include, always required
#include "ext_obex.h"                   // required for new style Max object
#include "jpatcher_api.h"               // required for the color
#include "jgraphics.h"                  // required for the color
        
#include "OMax.data.h"
        
        typedef struct _OMax_date2state 
        {
                t_object        ob;                     
                t_symbol*       oname;          
                t_symbol*       dataname;       
                bool            obound;         
                O_DataType      datatype;       
                O_data*         data;           
                void*           out;            
        } t_OMax_date2state;
        
        
        // Prototypes //
        
        // Standard Max5 methodes
        void *OMax_date2state_new(t_symbol *s, long argc, t_atom *argv);
        void OMax_date2state_free(t_OMax_date2state *x);
        void OMax_date2state_assist(t_OMax_date2state *x, void *b, long m, long a, char *s);
        
        // Input/ouput routines
        void OMax_date2state_do(t_OMax_date2state *x, long date);
        void OMax_date2state_setname(t_OMax_date2state *x, t_symbol *newname);
        
        // Internal routines
        t_symbol * OMax_date2state_name(t_symbol * oname);
        bool OMax_date2state_bind(t_OMax_date2state *x);
        
        // Global class pointer variable
        t_class *OMax_date2state_class;
        
        // Functions //
        
        int main(void)
        {       
                t_class *c;
                
                c = class_new("OMax.date2state", (method)OMax_date2state_new, (method)OMax_date2state_free, (long)sizeof(t_OMax_date2state), 
                                          0L /* leave NULL!! */, A_GIMME, 0);
                
                // assistance
                class_addmethod(c, (method)OMax_date2state_assist,"assist",A_CANT, 0); 
                
                // input methods
                class_addmethod(c, (method)OMax_date2state_do, "int", 0);
                class_addmethod(c, (method)OMax_date2state_setname, "set", A_DEFSYM, 0);
                
                class_register(CLASS_BOX, c); /* CLASS_NOBOX */
                OMax_date2state_class = c;
                
                return 0;
        }
        

        
        void *OMax_date2state_new(t_symbol *s, long argc, t_atom *argv)
        {
                t_OMax_date2state *x = NULL;
                
                // object instantiation, NEW STYLE
                if (x = (t_OMax_date2state *)object_alloc(OMax_date2state_class))
                {
                        // outlet init
                        x->out = intout(x);
                        
                        x->obound = FALSE;
                        if (argc == 0)
                                object_error((t_object *)x,"Missing name of the Oracle data to read");
                        else
                        {
                                if (argv->a_type != A_SYM)
                                        object_error((t_object *)x,"First argument must be a symbol (name of an existing Oracle)");
                                else
                                        x->oname = atom_getsym(argv);
                        }
                        
                        // color
                        t_object *box;
                        t_jrgba colorvals;
                        jrgba_set(&colorvals, 0.30, 1.0, 0.15, 1.0);
                        object_obex_lookup((t_object *)x, gensym("#B"), &box);
                        jbox_set_color(box, &colorvals);
                }
                return (x);
        }
        
        
        void OMax_date2state_free(t_OMax_date2state *x)
        {
                ;
        }
        
        void OMax_date2state_assist(t_OMax_date2state *x, void *b, long m, long a, char *s)
        {
                if (m == ASSIST_INLET) { // inlet
                        sprintf(s, "date, set [symbol] changes sequence to read");
                } 
                else {  // outlet
                        sprintf(s, "state number");                     
                }
        }
        
        

        
        t_symbol * OMax_date2state_name(t_symbol * oname)
        {
                char dataname[128];
                strcpy(dataname,oname->s_name);
                strcat(dataname,"_data");
                return gensym(dataname);
        }
        
        bool OMax_date2state_bind(t_OMax_date2state *x)
        {
                if (x->obound == FALSE)
                {
                        x->dataname = OMax_date2state_name(x->oname);
                        if ((x->dataname->s_thing) && (ob_sym(x->dataname->s_thing) == gensym("OMax.data")))
                        {
                                x->data = &(((t_OMax_data*)(x->dataname->s_thing))->data);
                                // If binding is ok, then don't do it next time.
                                x->obound = TRUE;
                                x->datatype = ((t_OMax_data*)(x->dataname->s_thing))->datatype;
                        }
                        else
                        {
                                object_error((t_object *)x,"No data for Oracle %s declared", x->oname->s_name);
                        }
                }
                return x->obound;
        }
        
        

        
        void OMax_date2state_do(t_OMax_date2state *x, long date)
        {
                if (OMax_date2state_bind(x))
                {
                        ATOMIC_INCREMENT(&(((t_OMax_data *)(x->dataname->s_thing))->readcount));
                        if(!(((t_OMax_data *)(x->dataname->s_thing))->wflag))
                        {
                                if (x->data->get_size()>0 && date>=0)
                                {
                                        switch(x->datatype)
                                        {
                                                case LETTERS:
                                                        outlet_int(x->out, date+1); // output
                                                        break;
                                                default:
                                                        outlet_int(x->out, x->data->get_state(date)); // output
                                                        break;
                                        }
                                }
                        }
                        else
                                object_error((t_object *)x,"Data of Oracle %s busy",x->oname->s_name);
                        ATOMIC_DECREMENT(&(((t_OMax_data *)(x->dataname->s_thing))->readcount));
                }
        }
        
        void OMax_date2state_setname(t_OMax_date2state *x, t_symbol *s)
        {
                x->oname = s;
                x->obound = FALSE;
                OMax_date2state_bind(x);
        }
        
}

#endif