From d62e56f4df9594f72ce501f5e19c974fd18e7295 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Tue, 22 Oct 2002 23:07:10 +0000
Subject: 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
---
 externals/grill/flext/source/flatom.cpp | 139 ++++++++++++++++++++++++++++++++
 1 file changed, 139 insertions(+)
 create mode 100644 externals/grill/flext/source/flatom.cpp

(limited to 'externals/grill/flext/source/flatom.cpp')

diff --git a/externals/grill/flext/source/flatom.cpp b/externals/grill/flext/source/flatom.cpp
new file mode 100644
index 00000000..705fc9e6
--- /dev/null
+++ b/externals/grill/flext/source/flatom.cpp
@@ -0,0 +1,139 @@
+/* 
+
+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 flatom.cpp
+    \brief Definitions for handling the t_atom type and lists thereof.
+*/
+ 
+#include "flext.h"
+
+//namespace flext {
+
+flext::AtomList::AtomList(int argc,const t_atom *argv):
+	lst(NULL),cnt(0)
+{
+	operator()(argc,argv);
+}
+
+flext::AtomList::AtomList(const AtomList &a):
+	lst(NULL),cnt(0)
+{
+	operator =(a);
+}
+
+flext::AtomList::~AtomList() {	Clear(); }
+
+flext::AtomList &flext::AtomList::operator()(int argc,const t_atom *argv)
+{
+	if(lst && cnt != argc) { delete[] lst; lst = NULL; cnt = 0; }
+
+	if(argc) {
+		cnt = argc;
+		lst = new t_atom[cnt];
+
+		if(argv) {
+			for(int i = 0; i < argc; ++i) SetAtom(lst[i],argv[i]);
+/*			
+			{
+				switch(lst[i].a_type = argv[i].a_type) {
+				case A_FLOAT:
+					lst[i].a_w.w_float = argv[i].a_w.w_float;
+					break;
+#ifdef MAXMSP
+				case A_LONG:
+					lst[i].a_w.w_int = argv[i].a_w.w_int;
+					break;
+#endif
+				case A_SYMBOL:
+					lst[i].a_w.w_symbol = argv[i].a_w.w_symbol;
+					break;
+#ifdef PD
+				case A_POINTER:
+					lst[i].a_w.w_gpointer = argv[i].a_w.w_gpointer;
+					break;
+#endif
+				default:
+					post("AtomList - atom type (%i) not supported",lst[i].a_type);
+					lst[i].a_type = A_NULL;
+					break;
+				}
+			}
+*/
+		}
+	}
+	return *this;
+}
+
+
+flext::AtomList &flext::AtomList::Append(const t_atom &a)
+{
+	t_atom *nlst = new t_atom[cnt+1];
+	for(int i = 0; i < cnt; ++i) SetAtom(nlst[i],lst[i]);
+	SetAtom(nlst[cnt],a);
+	
+	if(lst) delete[] lst;
+ 	lst = nlst;
+	++cnt;
+
+	return *this;
+}
+
+flext::AtomList &flext::AtomList::Append(int argc,const t_atom *argv)
+{
+	t_atom *nlst = new t_atom[cnt+argc];
+	int i;
+	for(i = 0; i < cnt; ++i) SetAtom(nlst[i],lst[i]);
+	for(i = 0; i < argc; ++i) SetAtom(nlst[cnt+i],argv[i]);
+	
+	if(lst) delete[] lst;
+	lst = nlst;
+	cnt += argc;
+
+	return *this;
+}
+
+flext::AtomList &flext::AtomList::Prepend(const t_atom &a)
+{
+	t_atom *nlst = new t_atom[cnt+1];
+	for(int i = 0; i < cnt; ++i) SetAtom(nlst[i+1],lst[i]);
+	SetAtom(nlst[0],a);
+	
+	if(lst) delete[] lst;
+	lst = nlst;
+	++cnt;
+
+	return *this;
+}
+
+flext::AtomList &flext::AtomList::Prepend(int argc,const t_atom *argv)
+{
+	t_atom *nlst = new t_atom[cnt+argc];
+	int i;
+	for(i = 0; i < argc; ++i) SetAtom(nlst[i],argv[i]);
+	for(i = 0; i < cnt; ++i) SetAtom(nlst[argc+i],lst[i]);
+	
+	if(lst) delete[] lst;
+	lst = nlst;
+	cnt += argc;
+
+	return *this;
+}
+
+flext::AtomList flext::AtomList::GetPart(int offs,int len) const
+{
+	if(offs+len > Count()) {
+		len = Count()-offs;
+		if(len < 0) len = 0;
+	}
+
+	return AtomList(len,Atoms()+offs);
+}
+
+//} // namespace flext
-- 
cgit v1.2.1