externals/grill/absattr absattr.cpp,1.4,1.5 - Pd-cvs

2 Nov 2006


      Update of /cvsroot/pure-data/externals/grill/absattr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29491
Modified Files:
    absattr.cpp 
Log Message:
use new ToSys* methods
added loadbang prioritization
Index: absattr.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/absattr/absattr.cpp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** absattr.cpp	24 May 2006 12:21:20 -0000	1.4
--- absattr.cpp	2 Nov 2006 19:03:52 -0000	1.5
***************
*** 1,270 ****
! /* 
! 
! absattr - patcher attributes
! 
! Copyright (c) 2002-2006 Thomas Grill (gr@grrrr.org)
! For information on usage and redistribution, and for a DISCLAIMER OF ALL
! WARRANTIES, see the file, "license.txt," in this distribution.  
! 
! */
! 
! #define VERSION "0.2.0"
! 
! #include <flext.h>
! 
! #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 501)
! #error You need at least flext version 0.5.1
! #endif
! 
! #include <map>
! #include <set>
! 
! class absattr
!     : public flext_base
! {
! 	FLEXT_HEADER_S(absattr,flext_base,Setup)
! 
! public:
!     absattr(int argc,const t_atom *argv)
!           : parent(0),prior(0)
!           , loadbang(true)
!     {
!         AddInAnything("bang/get/set");
!         AddInAnything("external attribute messages");
!         AddOutAnything("arguments");
!         AddOutAnything("attributes");
!         AddOutAnything("external attribute outlet");
! 
! 		// process default values (only attributes can have default values)
! 		Process(argc,argv,false);
! 
! 		// process canvas arguments
!         AtomListStatic<20> args;
!         GetCanvasArgs(args);
!         Process(args.Count(),args.Atoms(),true);
! 
!         // add to loadbang registry
!         Objects &o = loadbangs[parent].obj;
!         o.insert(this);
!     }
! 
!     ~absattr()
!     {
!         // remove from loadbang registry
!         Loadbangs::iterator it = loadbangs.find(parent);
!         if(it != loadbangs.end()) {
!             Objects &o = it->second.obj;
!             for(Objects::iterator oit = o.begin(); oit != o.end(); ++oit) {
!                 if(*oit == this) {
!                     // found
!                     o.erase(oit);
!                     break;
!                 }
!             }
!             FLEXT_ASSERT(oit != o.end());
!             if(o.empty()) loadbangs.erase(it);
!         }
!         else
!             error("%s - not found in loadbang registry");
!     }
! 
!     //! dump parameters
!     void m_bang() { BangAttr(0); }
! 
!     void m_bangx() { BangAttr(1); }
! 
!     void m_dump() { DumpAttr(0); }
! 
!     void m_get(const t_symbol *s) { OutAttr(0,s); }
! 
!     void m_dumpx() { DumpAttr(1); }
! 
!     void m_getx(const t_symbol *s) { OutAttr(1,s); }
! 
!     void m_set(int argc,const t_atom *argv)
!     {
!         if(!argc && !IsSymbol(*argv))
!             post("%s - attribute must be given as first argument",thisName());
!         else {
!             const t_symbol *attr = GetSymbol(*argv);
!             --argc,++argv;
!             SetAttr(attr,argc,argv);
!         }
!     }
! 
! protected:
! 
!     typedef std::map<const t_symbol *,AtomList> AttrMap;
! 
!     int parent;  // don't change after inserting into registry
!     float prior; // don't change after inserting into registry
!     bool loadbang;
! 
!     AtomList args;
!     AttrMap attrs;  
! 
!     class Compare
!     {
!     public:
!         bool operator()(const absattr *a,const absattr *b) const { return a->prior == b->prior?a < b:a->prior < b->prior; }
!     };
! 
!     typedef std::set<absattr *,Compare> Objects;
! 
!     struct Loadbang 
!     {
!         double lasttime;
!         Objects obj;
!     };
! 
!     typedef std::map<int,Loadbang> Loadbangs;
! 
!     static Loadbangs loadbangs;
! 
!     virtual void CbLoadbang() 
!     { 
!         // all loadbangs have the same logical time
!     	double time = GetTime();
! 
!         Loadbangs::iterator it = loadbangs.find(parent);
!         if(it != loadbangs.end()) {
!             Loadbang &lb = it->second;
!             // found
!             if(lb.lasttime < time) {
!                 // bang all objects with the same parent in the prioritized order
!                 for(Objects::iterator oit = lb.obj.begin(); oit != lb.obj.end(); ++oit) {
!                     absattr *o = *oit;
!                     FLEXT_ASSERT(o);
!                     if(o->loadbang) o->m_bang();
!                 }
! 
!                 // set timestamp
!                 lb.lasttime = time;
!             }
!         }
!         else
!             error("%s - not found in database");
!     }
! 
!     void BangAttr(int ix)
!     {
!         if(ix == 0)
!             ToOutList(ix,args);
! 
!         for(AttrMap::const_iterator it = attrs.begin(); it != attrs.end(); ++it) {
!             const AtomList &lst = it->second;
!             ToOutAnything(1+ix,it->first,lst.Count(),lst.Atoms());
!         }
!     }
! 
!     void DumpAttr(int ix)
!     {
!         int cnt = attrs.size();
!         AtomListStatic<20> lst(cnt);
! 
!         AttrMap::const_iterator it = attrs.begin();
!         for(int i = 0; it != attrs.end(); ++it,++i)
!             SetSymbol(lst[i],it->first);
! 
!         ToOutAnything(1+ix,sym_attributes,lst.Count(),lst.Atoms());
!     }
! 
!     void OutAttr(int ix,const t_symbol *s)
!     {
!         AttrMap::const_iterator it = attrs.find(s);
!         if(it != attrs.end()) {
!             const AtomList &lst = it->second;
!             ToOutAnything(1+ix,s,lst.Count(),lst.Atoms());
!         }
!         else
!             post("%s - attribute %s not found",thisName(),GetString(s));
!     }
! 
!     void SetAttr(const t_symbol *attr,int argc,const t_atom *argv)
!     {
!         if(argc) {
!             AtomList &lst = attrs[attr]; 
!             lst.Set(argc,argv,0,true);
!         }
!         else
!             attrs.erase(attr);
!     }
! 
!     static bool IsAttr(const t_atom &at) { return IsSymbol(at) && *GetString(at) == '@'; }
! 
!     void Process(int argc,const t_atom *argv,bool ext)
!     {
!         int cnt = CheckAttrib(argc,argv);
! 
!         args.Set(cnt,argv,0,true);
!         argc -= cnt,argv += cnt;
! 
!         while(argc) {
!             FLEXT_ASSERT(IsAttr(*argv));
!             const t_symbol *attr = MakeSymbol(GetString(*argv)+1);
!             --argc,++argv;
! 
!             cnt = CheckAttrib(argc,argv);
!             if(cnt) {
!                 if(attr == sym_loadbang) {
!                     if(ext) {
!                         if(cnt == 2 && CanbeInt(argv[0]) && CanbeFloat(argv[1])) {
!                             parent = GetAInt(argv[0]);
!                             prior = GetAFloat(argv[1]);
!                         }
!                         else
!                             post("%s - expected: @loadbang [parent-id ($0)] priority",thisName());
!                     }
!                     else {
!                         if(cnt == 1 && CanbeBool(*argv))
!                             loadbang = GetABool(*argv);
!                         else
!                             post("%s - expected: @loadbang 0/1",thisName());
!                     }
!                 }
!                 else {
!                     AtomList &lst = attrs[attr];
!                     lst.Set(cnt,argv,0,true);
!                 }
!                 argc -= cnt,argv += cnt;
!             }
!             else
!                 attrs.erase(attr);
!         }
!     }
! 
! private:
! 
!     static const t_symbol *sym_attributes;
!     static const t_symbol *sym_loadbang;
! 
!     FLEXT_CALLBACK(m_bang);
!     FLEXT_CALLBACK_S(m_get);
!     FLEXT_CALLBACK(m_dump);
!     FLEXT_CALLBACK(m_bangx);
!     FLEXT_CALLBACK_S(m_getx);
!     FLEXT_CALLBACK(m_dumpx);
!     FLEXT_CALLBACK_V(m_set);
! 
! 	static void Setup(t_classid cl)
!     {
!         sym_attributes = MakeSymbol("attributes");
!         sym_loadbang = MakeSymbol("loadbang");
! 
!         FLEXT_CADDBANG(cl,0,m_bang);
!         FLEXT_CADDMETHOD_(cl,0,"get",m_get);
!         FLEXT_CADDMETHOD_(cl,0,"getattributes",m_dump);
!         FLEXT_CADDMETHOD_(cl,0,"set",m_set);
!         FLEXT_CADDBANG(cl,1,m_bangx);
!         FLEXT_CADDMETHOD_(cl,1,"get",m_getx);
!         FLEXT_CADDMETHOD_(cl,1,"getattributes",m_dumpx);
!         FLEXT_CADDMETHOD_(cl,1,"set",m_set);
!     }
! };
! 
! const t_symbol *absattr::sym_attributes;
! const t_symbol *absattr::sym_loadbang;
! 
! absattr::Loadbangs absattr::loadbangs;
! 
! FLEXT_NEW_V("absattr",absattr)
--- 1,271 ----
! /* 
! 
! absattr - patcher attributes
! 
! Copyright (c) 2002-2006 Thomas Grill (gr@grrrr.org)
! For information on usage and redistribution, and for a DISCLAIMER OF ALL
! WARRANTIES, see the file, "license.txt," in this distribution.  
! 
! */
! 
! #define VERSION "0.2.0"
! 
! #include <flext.h>
! 
! #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 501)
! #error You need at least flext version 0.5.1
! #endif
! 
! #include <map>
! #include <set>
! 
! class absattr
!     : public flext_base
! {
! 	FLEXT_HEADER_S(absattr,flext_base,Setup)
! 
! public:
!     absattr(int argc,const t_atom *argv)
!           : parent(0),prior(0)
!           , loadbang(true)
!     {
!         AddInAnything("bang/get/set");
!         AddInAnything("external attribute messages");
!         AddOutAnything("arguments");
!         AddOutAnything("attributes");
!         AddOutAnything("external attribute outlet");
! 
! 		// process default values (only attributes can have default values)
! 		Process(argc,argv,false);
! 
! 		// process canvas arguments
!         AtomListStatic<20> args;
!         GetCanvasArgs(args);
!         Process(args.Count(),args.Atoms(),true);
! 
!         // add to loadbang registry
!         Objects &o = loadbangs[parent].obj;
!         o.insert(this);
!     }
! 
!     ~absattr()
!     {
!         // remove from loadbang registry
!         Loadbangs::iterator it = loadbangs.find(parent);
!         if(it != loadbangs.end()) {
!             Objects &o = it->second.obj;
! 			Objects::iterator oit;
!             for(oit = o.begin(); oit != o.end(); ++oit) {
!                 if(*oit == this) {
!                     // found
!                     o.erase(oit);
!                     break;
!                 }
!             }
!             FLEXT_ASSERT(oit != o.end());
!             if(o.empty()) loadbangs.erase(it);
!         }
!         else
!             error("%s - not found in loadbang registry");
!     }
! 
!     //! dump parameters
!     void m_bang() { BangAttr(0); }
! 
!     void m_bangx() { BangAttr(1); }
! 
!     void m_dump() { DumpAttr(0); }
! 
!     void m_get(const t_symbol *s) { OutAttr(0,s); }
! 
!     void m_dumpx() { DumpAttr(1); }
! 
!     void m_getx(const t_symbol *s) { OutAttr(1,s); }
! 
!     void m_set(int argc,const t_atom *argv)
!     {
!         if(!argc && !IsSymbol(*argv))
!             post("%s - attribute must be given as first argument",thisName());
!         else {
!             const t_symbol *attr = GetSymbol(*argv);
!             --argc,++argv;
!             SetAttr(attr,argc,argv);
!         }
!     }
! 
! protected:
! 
!     typedef std::map<const t_symbol *,AtomList> AttrMap;
! 
!     int parent;  // don't change after inserting into registry
!     float prior; // don't change after inserting into registry
!     bool loadbang;
! 
!     AtomList args;
!     AttrMap attrs;  
! 
!     class Compare
!     {
!     public:
!         bool operator()(const absattr *a,const absattr *b) const { return a->prior == b->prior?a < b:a->prior < b->prior; }
!     };
! 
!     typedef std::set<absattr *,Compare> Objects;
! 
!     struct Loadbang 
!     {
!         double lasttime;
!         Objects obj;
!     };
! 
!     typedef std::map<int,Loadbang> Loadbangs;
! 
!     static Loadbangs loadbangs;
! 
!     virtual void CbLoadbang() 
!     { 
!         // all loadbangs have the same logical time
!     	double time = GetTime();
! 
!         Loadbangs::iterator it = loadbangs.find(parent);
!         if(it != loadbangs.end()) {
!             Loadbang &lb = it->second;
!             // found
!             if(lb.lasttime < time) {
!                 // bang all objects with the same parent in the prioritized order
!                 for(Objects::iterator oit = lb.obj.begin(); oit != lb.obj.end(); ++oit) {
!                     absattr *o = *oit;
!                     FLEXT_ASSERT(o);
!                     if(o->loadbang) o->m_bang();
!                 }
! 
!                 // set timestamp
!                 lb.lasttime = time;
!             }
!         }
!         else
!             error("%s - not found in database");
!     }
! 
!     void BangAttr(int ix)
!     {
!         if(ix == 0)
!             ToSysList(ix,args);
! 
!         for(AttrMap::const_iterator it = attrs.begin(); it != attrs.end(); ++it) {
!             const AtomList &lst = it->second;
!             ToSysAnything(1+ix,it->first,lst.Count(),lst.Atoms());
!         }
!     }
! 
!     void DumpAttr(int ix)
!     {
!         int cnt = attrs.size();
!         AtomListStatic<20> lst(cnt);
! 
!         AttrMap::const_iterator it = attrs.begin();
!         for(int i = 0; it != attrs.end(); ++it,++i)
!             SetSymbol(lst[i],it->first);
! 
!         ToSysAnything(1+ix,sym_attributes,lst.Count(),lst.Atoms());
!     }
! 
!     void OutAttr(int ix,const t_symbol *s)
!     {
!         AttrMap::const_iterator it = attrs.find(s);
!         if(it != attrs.end()) {
!             const AtomList &lst = it->second;
!             ToSysAnything(1+ix,s,lst.Count(),lst.Atoms());
!         }
!         else
!             post("%s - attribute %s not found",thisName(),GetString(s));
!     }
! 
!     void SetAttr(const t_symbol *attr,int argc,const t_atom *argv)
!     {
!         if(argc) {
!             AtomList &lst = attrs[attr]; 
!             lst.Set(argc,argv,0,true);
!         }
!         else
!             attrs.erase(attr);
!     }
! 
!     static bool IsAttr(const t_atom &at) { return IsSymbol(at) && *GetString(at) == '@'; }
! 
!     void Process(int argc,const t_atom *argv,bool ext)
!     {
!         int cnt = CheckAttrib(argc,argv);
! 
!         args.Set(cnt,argv,0,true);
!         argc -= cnt,argv += cnt;
! 
!         while(argc) {
!             FLEXT_ASSERT(IsAttr(*argv));
!             const t_symbol *attr = MakeSymbol(GetString(*argv)+1);
!             --argc,++argv;
! 
!             cnt = CheckAttrib(argc,argv);
!             if(cnt) {
!                 if(attr == sym_loadbang) {
!                     if(ext) {
!                         if(cnt == 2 && CanbeInt(argv[0]) && CanbeFloat(argv[1])) {
!                             parent = GetAInt(argv[0]);
!                             prior = GetAFloat(argv[1]);
!                         }
!                         else
!                             post("%s - expected: @loadbang [parent-id ($0)] priority",thisName());
!                     }
!                     else {
!                         if(cnt == 1 && CanbeBool(*argv))
!                             loadbang = GetABool(*argv);
!                         else
!                             post("%s - expected: @loadbang 0/1",thisName());
!                     }
!                 }
!                 else {
!                     AtomList &lst = attrs[attr];
!                     lst.Set(cnt,argv,0,true);
!                 }
!                 argc -= cnt,argv += cnt;
!             }
!             else
!                 attrs.erase(attr);
!         }
!     }
! 
! private:
! 
!     static const t_symbol *sym_attributes;
!     static const t_symbol *sym_loadbang;
! 
!     FLEXT_CALLBACK(m_bang);
!     FLEXT_CALLBACK_S(m_get);
!     FLEXT_CALLBACK(m_dump);
!     FLEXT_CALLBACK(m_bangx);
!     FLEXT_CALLBACK_S(m_getx);
!     FLEXT_CALLBACK(m_dumpx);
!     FLEXT_CALLBACK_V(m_set);
! 
! 	static void Setup(t_classid cl)
!     {
!         sym_attributes = MakeSymbol("attributes");
!         sym_loadbang = MakeSymbol("loadbang");
! 
!         FLEXT_CADDMETHOD(cl,0,m_bang);
!         FLEXT_CADDMETHOD_(cl,0,"get",m_get);
!         FLEXT_CADDMETHOD_(cl,0,"getattributes",m_dump);
!         FLEXT_CADDMETHOD_(cl,0,"set",m_set);
!         FLEXT_CADDMETHOD(cl,1,m_bangx);
!         FLEXT_CADDMETHOD_(cl,1,"get",m_getx);
!         FLEXT_CADDMETHOD_(cl,1,"getattributes",m_dumpx);
!         FLEXT_CADDMETHOD_(cl,1,"set",m_set);
!     }
! };
! 
! const t_symbol *absattr::sym_attributes;
! const t_symbol *absattr::sym_loadbang;
! 
! absattr::Loadbangs absattr::loadbangs;
! 
! FLEXT_NEW_V("absattr",absattr)