This commit was generated by cvs2svn to compensate for changes in r186,

which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=187

1 files changed, 190 insertions, 0 deletions

diff --git a/externals/grill/flext/source/flattr.cpp b/externals/grill/flext/source/flattr.cpp
new file mode 100644
index 00000000..20b06e41
--- /dev/null
+++ b/externals/grill/flext/source/flattr.cpp
@@ -0,0 +1,190 @@
+/* 
+
+flext - C++ layer for Max/MSP and pd (pure data) externals
+
+Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+/*! \file flattr.cpp
+    \brief Attribute handling for the flext base class
+*/
+ 
+#include "flext.h"
+#include <string.h>
+#include <stdio.h>
+
+flext_base::attritem::attritem(const t_symbol *t,const t_symbol *gt,metharg tp,methfun gf,methfun sf):
+	tag(t),gtag(gt),argtp(tp),gfun(gf),sfun(sf),nxt(NULL)
+{}
+
+flext_base::attritem::~attritem()
+{
+	if(nxt) delete nxt;
+}
+
+void flext_base::AddAttrItem(attritem *m)
+{
+	if(attrhead) {
+		attritem *mi;
+		for(mi = attrhead; mi->nxt; mi = mi->nxt) {}
+		mi->nxt = m;
+	}
+	else 
+		attrhead = m;
+	attrcnt++;
+}
+
+void flext_base::AddAttrib(const char *attr,metharg tp,methfun gfun,methfun sfun)
+{
+	if(procattr) {
+		char tmp[1024];
+		sprintf(tmp,"get%s",attr);
+		AddAttrItem(new attritem(MakeSymbol(attr),MakeSymbol(tmp),tp,gfun,sfun));
+
+		AddMethod(0,attr,(methfun)cb_SetAttrib,a_any,a_null);
+		AddMethod(0,tmp,(methfun)cb_GetAttrib,a_any,a_null);
+	}
+	else
+		error("%s - attribute procession is not enabled!",thisName());
+}
+
+int flext_base::CheckAttrib(int argc,const t_atom *argv)
+{
+	int offs = 0;
+	for(; offs < argc; ++offs)
+		if(IsString(argv[offs]) && *GetString(argv[offs]) == '@') break;
+	return offs;
+}
+
+bool flext_base::InitAttrib(int argc,const t_atom *argv)
+{
+	int cur,nxt;
+	for(cur = 0; cur < argc; cur = nxt) {
+		// find next @symbol
+		for(nxt = cur+1; nxt < argc; ++nxt)
+			if(IsString(argv[nxt]) && *GetString(argv[nxt]) == '@') break;
+
+		const t_symbol *tag = MakeSymbol(GetString(argv[cur])+1);
+		SetAttrib(tag,nxt-cur-1,argv+cur+1);
+	}
+	return true;
+}
+
+bool flext_base::ListAttrib()
+{
+	if(outattr) {
+		AtomList la(attrcnt);
+		attritem *a = attrhead;
+		for(int i = 0; i < attrcnt; ++i,a = a->nxt) SetSymbol(la[i],a->tag);
+
+		ToOutAnything(outattr,thisTag(),la.Count(),la.Atoms());
+		return true;
+	}
+	else
+		return false;
+}
+
+bool flext_base::SetAttrib(const t_symbol *tag,int argc,const t_atom *argv)
+{
+	attritem *a = attrhead;
+	for(; a && a->tag != tag; a = a->nxt) {}
+
+	if(a) {
+		if(a->sfun) {
+			bool ok = true;
+
+			AtomList la;
+			t_any any;
+			switch(a->argtp) {
+			case a_float:
+				if(argc == 1 && CanbeFloat(argv[0])) {
+					any.ft = GetAFloat(argv[0]);
+					((methfun_1)a->sfun)(this,any);				
+				}
+				else ok = false;
+				break;
+			case a_int:
+				if(argc == 1 && CanbeInt(argv[0])) {
+					any.it = GetAInt(argv[0]);
+					((methfun_1)a->sfun)(this,any);				
+				}
+				else ok = false;
+				break;
+			case a_symbol:
+				if(argc == 1 && IsSymbol(argv[0])) {
+					any.st = GetSymbol(argv[0]);
+					((methfun_1)a->sfun)(this,any);				
+				}
+				else ok = false;
+				break;
+			case a_LIST:
+				any.vt = &(la(argc,argv));
+				((methfun_1)a->sfun)(this,any);				
+				break;
+			default:
+				ERRINTERNAL();
+			}
+
+			if(!ok)
+				post("%s - wrong arguments for attribute %s",thisName(),GetString(tag));
+		}
+		else
+			post("%s - attribute %s has no get method",thisName(),GetString(tag));
+	}
+	else
+		error("%s - %s: attribute not found",thisName(),tag);
+	return true;
+}
+
+bool flext_base::GetAttrib(const t_symbol *tag,int argc,const t_atom *argv)
+{
+	if(argc)
+		post("%s - %s: arguments ignored",thisName(),GetString(tag));
+
+	attritem *a = attrhead;
+	for(; a && a->gtag != tag; a = a->nxt) {}
+
+	if(a) {
+		if(a->gfun) {
+			AtomList la;
+			t_any any;
+			switch(a->argtp) {
+			case a_float: {
+				((methfun_1)a->gfun)(this,any);				
+				la(1);
+				SetFloat(la[0],any.ft);
+				break;
+			}
+			case a_int: {
+				((methfun_1)a->gfun)(this,any);				
+				la(1);
+				SetInt(la[0],any.it);
+				break;
+			}
+			case a_symbol: {
+				((methfun_1)a->gfun)(this,any);				
+				la(1);
+				SetSymbol(la[0],any.st);
+				break;
+			}
+			case a_LIST: {
+				any.vt = &la;
+				((methfun_1)a->gfun)(this,any);				
+				break;
+			}
+			default:
+				ERRINTERNAL();
+			}
+			ToOutAnything(outattr,a->tag,la.Count(),la.Atoms());
+		}
+		else 
+			post("%s - attribute %s has no set method",thisName(),GetString(tag));
+	}
+	else
+		error("%s - %s: attribute not found",thisName(),tag);
+	return true;
+}
+