""

svn path=/trunk/; revision=466

1 files changed, 568 insertions, 284 deletions

diff --git a/externals/grill/pool/data.cpp b/externals/grill/pool/data.cpp
index 02ee4132..c67c3678 100644
--- a/externals/grill/pool/data.cpp
+++ b/externals/grill/pool/data.cpp
@@ -1,284 +1,568 @@
-/* 

-

-pool - hierarchical storage object for PD and Max/MSP

-

-Copyright (c) 2002-2003 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.  

-

-*/

-

-#include "pool.h"

-

-#include <string.h>

-#include <fstream.h>

-#include <ctype.h>

-#include <stdlib.h>

-

-

-pooldata::pooldata(const S *s,I vcnt,I dcnt):

-	sym(s),nxt(NULL),refs(0),

-	root(nullatom,NULL,vcnt,dcnt)

-{

-	FLEXT_LOG1("new pool %s",sym?flext_base::GetString(sym):"<private>");

-}

-

-pooldata::~pooldata()

-{

-	FLEXT_LOG1("free pool %s",sym?flext_base::GetString(sym):"<private>");

-}

-

-

-const A pooldata::nullatom = { A_NULL };

-

-

-V pooldata::Reset()

-{

-	root.Reset();

-}

-

-BL pooldata::MkDir(const AtomList &d,I vcnt,I dcnt)

-{

-	root.AddDir(d,vcnt,dcnt);

-	return true;

-}

-

-BL pooldata::ChkDir(const AtomList &d)

-{

-	return root.GetDir(d) != NULL;

-}

-

-BL pooldata::RmDir(const AtomList &d)

-{

-	return root.DelDir(d);

-}

-

-BL pooldata::Set(const AtomList &d,const A &key,AtomList *data,BL over)

-{

-	pooldir *pd = root.GetDir(d);

-	if(!pd) return false;

-	pd->SetVal(key,data,over);

-	return true;

-}

-

-BL pooldata::Clr(const AtomList &d,const A &key)

-{

-	pooldir *pd = root.GetDir(d);

-	if(!pd) return false;

-	pd->ClrVal(key);

-	return true;

-}

-

-BL pooldata::ClrAll(const AtomList &d,BL rec,BL dironly)

-{

-	pooldir *pd = root.GetDir(d);

-	if(!pd) return false;

-	pd->Clear(rec,dironly);

-	return true;

-}

-

-flext::AtomList *pooldata::Peek(const AtomList &d,const A &key)

-{

-	pooldir *pd = root.GetDir(d);

-	return pd?pd->PeekVal(key):NULL;

-}

-

-poolval *pooldata::Ref(const AtomList &d,const A &key)

-{

-	pooldir *pd = root.GetDir(d);

-	return pd?pd->RefVal(key):NULL;

-}

-

-poolval *pooldata::Refi(const AtomList &d,I ix)

-{

-	pooldir *pd = root.GetDir(d);

-	return pd?pd->RefVali(ix):NULL;

-}

-

-flext::AtomList *pooldata::Get(const AtomList &d,const A &key)

-{

-	pooldir *pd = root.GetDir(d);

-	return pd?pd->GetVal(key):NULL;

-}

-

-I pooldata::CntAll(const AtomList &d)

-{

-	pooldir *pd = root.GetDir(d);

-	return pd?pd->CntAll():0;

-}

-

-I pooldata::GetAll(const AtomList &d,A *&keys,AtomList *&lst)

-{

-	pooldir *pd = root.GetDir(d);

-	if(pd)

-		return pd->GetAll(keys,lst);

-	else {

-		keys = NULL; lst = NULL;

-		return 0;

-	}

-}

-

-I pooldata::CntSub(const AtomList &d)

-{

-	pooldir *pd = root.GetDir(d);

-	return pd?pd->CntSub():0;

-}

-

-I pooldata::GetSub(const AtomList &d,const t_atom **&dirs)

-{

-	pooldir *pd = root.GetDir(d);

-	if(pd)

-		return pd->GetSub(dirs);

-	else {

-		dirs = NULL;

-		return 0;

-	}

-}

-

-

-BL pooldata::Paste(const AtomList &d,const pooldir *clip,I depth,BL repl,BL mkdir)

-{

-	pooldir *pd = root.GetDir(d);

-	if(pd)

-		return pd->Paste(clip,depth,repl,mkdir);

-	else

-		return false;

-}

-

-pooldir *pooldata::Copy(const AtomList &d,const A &key,BL cut)

-{

-	pooldir *pd = root.GetDir(d);

-	if(pd) {

-		AtomList *val = pd->GetVal(key,cut);

-		if(val) {

-			pooldir *ret = new pooldir(nullatom,NULL,pd->VSize(),pd->DSize());

-			ret->SetVal(key,val);

-			return ret;

-		}

-		else

-			return NULL;

-	}

-	else

-		return NULL;

-}

-

-pooldir *pooldata::CopyAll(const AtomList &d,I depth,BL cut)

-{

-	pooldir *pd = root.GetDir(d);

-	if(pd) {

-		// What sizes should we choose here?

-		pooldir *ret = new pooldir(nullatom,NULL,pd->VSize(),pd->DSize());

-		if(pd->Copy(ret,depth,cut))

-			return ret;

-		else {

-			delete ret;

-			return NULL;

-		}

-	}

-	else

-		return NULL;

-}

-

-

-static const C *CnvFlnm(C *dst,const C *src,I sz)

-{

-#if FLEXT_SYS == FLEXT_SYS_PD && FLEXT_OS == FLEXT_OS_WIN

-	I i,cnt = strlen(src);

-	if(cnt >= sz-1) return NULL;

-	for(i = 0; i < cnt; ++i)

-		dst[i] = src[i] != '/'?src[i]:'\\';

-	dst[i] = 0;

-	return dst;

-#else

-	return src;

-#endif

-}

-

-BL pooldata::LdDir(const AtomList &d,const C *flnm,I depth,BL mkdir)

-{

-	pooldir *pd = root.GetDir(d);

-	if(pd) {

-		C tmp[1024];

-		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);

-		if(t) {

-			ifstream fl(t);

-			return fl.good() && pd->LdDir(fl,depth,mkdir);

-		}

-		else return false;

-	}

-	else

-		return false;

-}

-

-BL pooldata::SvDir(const AtomList &d,const C *flnm,I depth,BL absdir)

-{

-	pooldir *pd = root.GetDir(d);

-	if(pd) {

-		C tmp[1024];

-		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);

-		if(t) {

-			ofstream fl(t);

-			AtomList tmp;

-			if(absdir) tmp = d;

-			return fl.good() && pd->SvDir(fl,depth,tmp);

-		}

-		else return false;

-	}

-	else

-		return false;

-}

-

-BL pooldata::LdDirXML(const AtomList &d,const C *flnm,I depth,BL mkdir)

-{

-	pooldir *pd = root.GetDir(d);

-	if(pd) {

-		C tmp[1024];

-		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);

-		if(t) {

-			ifstream fl(t);

-            BL ret = fl.good() != 0;

-            if(ret) {

-                fl.getline(tmp,sizeof tmp);

-                ret = !strncmp(tmp,"<?xml",5);

-            }

-            if(ret) {

-                fl.getline(tmp,sizeof tmp);

-                // DOCTYPE need not be present / only external DOCTYPE is allowed!

-                if(!strncmp(tmp,"<!DOCTYPE",9)) 

-                    fl.getline(tmp,sizeof tmp);

-                ret = !strncmp(tmp,"<pool>",6);

-            }

-            if(ret)

-                ret = pd->LdDirXML(fl,depth,mkdir);

-            return ret;

-		}

-	}

-

-    return false;

-}

-

-BL pooldata::SvDirXML(const AtomList &d,const C *flnm,I depth,BL absdir)

-{

-	pooldir *pd = root.GetDir(d);

-	if(pd) {

-		C tmp[1024];

-		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);

-		if(t) {

-			ofstream fl(t);

-			AtomList tmp;

-			if(absdir) tmp = d;

-            if(fl.good()) {

-                fl << "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>" << endl;

-                fl << "<!DOCTYPE pool SYSTEM \"pool.dtd\">" << endl;

-                fl << "<pool>" << endl;

-                BL ret = pd->SvDirXML(fl,depth,tmp);

-                fl << "</pool>" << endl;

-                return ret;

-            }

-		}

-	}

-

-    return false;

-}

-

-

+/* 
+
+
+
+pool - hierarchical storage object for PD and Max/MSP
+
+
+
+Copyright (c) 2002-2003 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.  
+
+
+
+*/
+
+
+
+#include "pool.h"
+
+
+
+#include <string.h>
+
+#include <fstream.h>
+
+#include <ctype.h>
+
+#include <stdlib.h>
+
+
+
+
+
+pooldata::pooldata(const S *s,I vcnt,I dcnt):
+
+	sym(s),nxt(NULL),refs(0),
+
+	root(nullatom,NULL,vcnt,dcnt)
+
+{
+
+	FLEXT_LOG1("new pool %s",sym?flext_base::GetString(sym):"<private>");
+
+}
+
+
+
+pooldata::~pooldata()
+
+{
+
+	FLEXT_LOG1("free pool %s",sym?flext_base::GetString(sym):"<private>");
+
+}
+
+
+
+
+
+const A pooldata::nullatom = { A_NULL };
+
+
+
+
+
+V pooldata::Reset()
+
+{
+
+	root.Reset();
+
+}
+
+
+
+BL pooldata::MkDir(const AtomList &d,I vcnt,I dcnt)
+
+{
+
+	root.AddDir(d,vcnt,dcnt);
+
+	return true;
+
+}
+
+
+
+BL pooldata::ChkDir(const AtomList &d)
+
+{
+
+	return root.GetDir(d) != NULL;
+
+}
+
+
+
+BL pooldata::RmDir(const AtomList &d)
+
+{
+
+	return root.DelDir(d);
+
+}
+
+
+
+BL pooldata::Set(const AtomList &d,const A &key,AtomList *data,BL over)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(!pd) return false;
+
+	pd->SetVal(key,data,over);
+
+	return true;
+
+}
+
+
+
+BL pooldata::Clr(const AtomList &d,const A &key)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(!pd) return false;
+
+	pd->ClrVal(key);
+
+	return true;
+
+}
+
+
+
+BL pooldata::ClrAll(const AtomList &d,BL rec,BL dironly)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(!pd) return false;
+
+	pd->Clear(rec,dironly);
+
+	return true;
+
+}
+
+
+
+flext::AtomList *pooldata::Peek(const AtomList &d,const A &key)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	return pd?pd->PeekVal(key):NULL;
+
+}
+
+
+
+poolval *pooldata::Ref(const AtomList &d,const A &key)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	return pd?pd->RefVal(key):NULL;
+
+}
+
+
+
+poolval *pooldata::Refi(const AtomList &d,I ix)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	return pd?pd->RefVali(ix):NULL;
+
+}
+
+
+
+flext::AtomList *pooldata::Get(const AtomList &d,const A &key)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	return pd?pd->GetVal(key):NULL;
+
+}
+
+
+
+I pooldata::CntAll(const AtomList &d)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	return pd?pd->CntAll():0;
+
+}
+
+
+
+I pooldata::GetAll(const AtomList &d,A *&keys,AtomList *&lst)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(pd)
+
+		return pd->GetAll(keys,lst);
+
+	else {
+
+		keys = NULL; lst = NULL;
+
+		return 0;
+
+	}
+
+}
+
+
+
+I pooldata::CntSub(const AtomList &d)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	return pd?pd->CntSub():0;
+
+}
+
+
+
+I pooldata::GetSub(const AtomList &d,const t_atom **&dirs)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(pd)
+
+		return pd->GetSub(dirs);
+
+	else {
+
+		dirs = NULL;
+
+		return 0;
+
+	}
+
+}
+
+
+
+
+
+BL pooldata::Paste(const AtomList &d,const pooldir *clip,I depth,BL repl,BL mkdir)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(pd)
+
+		return pd->Paste(clip,depth,repl,mkdir);
+
+	else
+
+		return false;
+
+}
+
+
+
+pooldir *pooldata::Copy(const AtomList &d,const A &key,BL cut)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(pd) {
+
+		AtomList *val = pd->GetVal(key,cut);
+
+		if(val) {
+
+			pooldir *ret = new pooldir(nullatom,NULL,pd->VSize(),pd->DSize());
+
+			ret->SetVal(key,val);
+
+			return ret;
+
+		}
+
+		else
+
+			return NULL;
+
+	}
+
+	else
+
+		return NULL;
+
+}
+
+
+
+pooldir *pooldata::CopyAll(const AtomList &d,I depth,BL cut)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(pd) {
+
+		// What sizes should we choose here?
+
+		pooldir *ret = new pooldir(nullatom,NULL,pd->VSize(),pd->DSize());
+
+		if(pd->Copy(ret,depth,cut))
+
+			return ret;
+
+		else {
+
+			delete ret;
+
+			return NULL;
+
+		}
+
+	}
+
+	else
+
+		return NULL;
+
+}
+
+
+
+
+
+static const C *CnvFlnm(C *dst,const C *src,I sz)
+
+{
+
+#if FLEXT_SYS == FLEXT_SYS_PD && FLEXT_OS == FLEXT_OS_WIN
+
+	I i,cnt = strlen(src);
+
+	if(cnt >= sz-1) return NULL;
+
+	for(i = 0; i < cnt; ++i)
+
+		dst[i] = src[i] != '/'?src[i]:'\\';
+
+	dst[i] = 0;
+
+	return dst;
+
+#else
+
+	return src;
+
+#endif
+
+}
+
+
+
+BL pooldata::LdDir(const AtomList &d,const C *flnm,I depth,BL mkdir)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(pd) {
+
+		C tmp[1024];
+
+		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);
+
+		if(t) {
+
+			ifstream fl(t);
+
+			return fl.good() && pd->LdDir(fl,depth,mkdir);
+
+		}
+
+		else return false;
+
+	}
+
+	else
+
+		return false;
+
+}
+
+
+
+BL pooldata::SvDir(const AtomList &d,const C *flnm,I depth,BL absdir)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(pd) {
+
+		C tmp[1024];
+
+		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);
+
+		if(t) {
+
+			ofstream fl(t);
+
+			AtomList tmp;
+
+			if(absdir) tmp = d;
+
+			return fl.good() && pd->SvDir(fl,depth,tmp);
+
+		}
+
+		else return false;
+
+	}
+
+	else
+
+		return false;
+
+}
+
+
+
+BL pooldata::LdDirXML(const AtomList &d,const C *flnm,I depth,BL mkdir)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(pd) {
+
+		C tmp[1024];
+
+		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);
+
+		if(t) {
+
+			ifstream fl(t);
+
+            BL ret = fl.good() != 0;
+
+            if(ret) {
+
+                fl.getline(tmp,sizeof tmp);
+
+                ret = !strncmp(tmp,"<?xml",5);
+
+            }
+
+            if(ret) {
+
+                fl.getline(tmp,sizeof tmp);
+
+                // DOCTYPE need not be present / only external DOCTYPE is allowed!
+
+                if(!strncmp(tmp,"<!DOCTYPE",9)) 
+
+                    fl.getline(tmp,sizeof tmp);
+
+                ret = !strncmp(tmp,"<pool>",6);
+
+            }
+
+            if(ret)
+
+                ret = pd->LdDirXML(fl,depth,mkdir);
+
+            return ret;
+
+		}
+
+	}
+
+
+
+    return false;
+
+}
+
+
+
+BL pooldata::SvDirXML(const AtomList &d,const C *flnm,I depth,BL absdir)
+
+{
+
+	pooldir *pd = root.GetDir(d);
+
+	if(pd) {
+
+		C tmp[1024];
+
+		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);
+
+		if(t) {
+
+			ofstream fl(t);
+
+			AtomList tmp;
+
+			if(absdir) tmp = d;
+
+            if(fl.good()) {
+
+                fl << "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>" << endl;
+
+                fl << "<!DOCTYPE pool SYSTEM \"pool.dtd\">" << endl;
+
+                fl << "<pool>" << endl;
+
+                BL ret = pd->SvDirXML(fl,depth,tmp);
+
+                fl << "</pool>" << endl;
+
+                return ret;
+
+            }
+
+		}
+
+	}
+
+
+
+    return false;
+
+}
+
+
+
+
+