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/flbase.cpp | 118 ++++++++++++++++++++++++++++++++
 1 file changed, 118 insertions(+)
 create mode 100644 externals/grill/flext/source/flbase.cpp

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

diff --git a/externals/grill/flext/source/flbase.cpp b/externals/grill/flext/source/flbase.cpp
new file mode 100644
index 00000000..97fed291
--- /dev/null
+++ b/externals/grill/flext/source/flbase.cpp
@@ -0,0 +1,118 @@
+/* 
+
+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 flbase.cpp
+    \brief Implementation of the internal flext base classes.
+
+	\remark This is all derived from GEM by Mark Danks
+*/
+ 
+#include "flbase.h"
+#include "flinternal.h"
+#include <string.h>
+
+/////////////////////////////////////////////////////////
+//
+// flext_obj
+//
+/////////////////////////////////////////////////////////
+
+flext_hdr *flext_obj::m_holder = NULL;
+const t_symbol *flext_obj::m_holdname = NULL;
+bool flext_obj::m_holdattr = false;
+bool flext_obj::process_attributes = false;
+
+/////////////////////////////////////////////////////////
+// Constructor
+//
+/////////////////////////////////////////////////////////
+flext_obj :: flext_obj()
+           : x_obj(m_holder)
+		   , m_name(m_holdname)
+		   , procattr(m_holdattr)
+		   , init_ok(true)
+{
+#ifdef PD
+    m_canvas = canvas_getcurrent();
+#elif defined(MAXMSP)
+    m_canvas = (t_patcher *)gensym("#P")->s_thing;
+    x_obj->curinlet = 0;
+#endif
+}
+
+/////////////////////////////////////////////////////////
+// Destructor
+//
+/////////////////////////////////////////////////////////
+flext_obj :: ~flext_obj() {}
+
+
+void flext_obj::DefineHelp(t_class *c,const char *ref,const char *dir,bool addtilde)
+{
+#ifdef PD
+	char tmp[256];
+	if(dir) { 
+		strcpy(tmp,dir); 
+		strcat(tmp,"/"); 
+		strcat(tmp,ref); 
+		if(addtilde) strcat(tmp,"~"); 
+	}
+	else 
+		strcpy(tmp,ref);
+    ::class_sethelpsymbol(c,gensym(const_cast<char *>(tmp)));
+#else
+	// no solution for MaxMSP yet
+#endif
+}
+
+
+/////////////////////////////////////////////////////////
+// overloaded new/delete memory allocation methods
+//
+/////////////////////////////////////////////////////////
+
+void *flext_obj::operator new(size_t bytes)
+{
+	bytes += sizeof(size_t);
+	char *blk = (char *)getbytes(bytes);
+	*(size_t *)blk = bytes;
+	return blk+sizeof(size_t);
+}
+
+void flext_obj::operator delete(void *blk)
+{
+	char *ori = (char *)blk-sizeof(size_t);
+	size_t bytes = *(size_t *)ori;
+	freebytes(ori,bytes);
+}
+
+void *flext_obj::NewAligned(size_t bytes,int bitalign)
+{
+	const size_t ovh = sizeof(size_t)+sizeof(char *);
+	const unsigned long alignovh = bitalign/8-1;
+	bytes += ovh+alignovh;
+	char *blk = (char *)getbytes(bytes);
+	char *ablk = reinterpret_cast<char *>((reinterpret_cast<unsigned long>(blk)+ovh+alignovh) & ~alignovh);
+	*(char **)(ablk-sizeof(size_t)-sizeof(char *)) = blk;
+	*(size_t *)(ablk-sizeof(size_t)) = bytes;
+	return ablk;
+}
+
+void flext_obj::FreeAligned(void *blk)
+{
+	char *ori = *(char **)((char *)blk-sizeof(size_t)-sizeof(char *));
+	size_t bytes = *(size_t *)((char *)blk-sizeof(size_t));
+	freebytes(ori,bytes);
+}
+
+
+
+
+
-- 
cgit v1.2.1