From ef0d86caba9cfbb5cf5e404ea1100d4a771e744c Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Sun, 24 Nov 2002 21:16:26 +0000
Subject: *** empty log message ***

svn path=/trunk/; revision=229
---
 externals/grill/pool/data.cpp | 211 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 211 insertions(+)
 create mode 100644 externals/grill/pool/data.cpp

(limited to 'externals/grill/pool/data.cpp')

diff --git a/externals/grill/pool/data.cpp b/externals/grill/pool/data.cpp
new file mode 100644
index 00000000..d2fa2d89
--- /dev/null
+++ b/externals/grill/pool/data.cpp
@@ -0,0 +1,211 @@
+/* 
+
+pool - hierarchical storage object for PD and Max/MSP
+
+Copyright (c) 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.  
+
+*/
+
+#include "pool.h"
+
+#include <string.h>
+#include <fstream.h>
+#include <ctype.h>
+#include <stdlib.h>
+
+
+pooldata::pooldata(const S *s):
+	sym(s),nxt(NULL),refs(0),
+	root(nullatom,NULL)
+{
+	LOG1("new pool %s",sym?flext_base::GetString(sym):"<private>");
+}
+
+pooldata::~pooldata()
+{
+	LOG1("free pool %s",sym?flext_base::GetString(sym):"<private>");
+}
+
+const A pooldata::nullatom = { A_NULL };
+
+
+V pooldata::Reset()
+{
+	root.Clear(true);
+}
+
+BL pooldata::MkDir(const AtomList &d)
+{
+	root.AddDir(d);
+	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;
+}
+
+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::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);
+			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) {
+		pooldir *ret = new pooldir(nullatom,NULL);
+		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 defined(PD) && defined(NT)
+	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;
+}
+
+
-- 
cgit v1.2.1