""

svn path=/trunk/; revision=1252

1 files changed, 0 insertions, 294 deletions

diff --git a/externals/grill/pool/data.cpp b/externals/grill/pool/data.cpp
deleted file mode 100644
index 9eda196b..00000000
--- a/externals/grill/pool/data.cpp
+++ /dev/null
@@ -1,294 +0,0 @@
-/* 
-
-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 <ctype.h>
-#include <stdlib.h>
-#include <fstream>
-
-using namespace std;
-
-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::PrintAll(const AtomList &d)
-{
-    char tmp[1024];
-    d.Print(tmp,sizeof tmp);
-    pooldir *pd = root.GetDir(d);
-    strcat(tmp," , ");
-	return pd?pd->PrintAll(tmp,sizeof tmp):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!
-                ret = !strncmp(tmp,"<!DOCTYPE",9);
-            }
-*/
-            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 \"http://www.parasitaere-kapazitaeten.net/ext/pool/pool-0.2.dtd\">" << endl;
-                fl << "<pool>" << endl;
-                BL ret = pd->SvDirXML(fl,depth,tmp);
-                fl << "</pool>" << endl;
-                return ret;
-            }
-		}
-	}
-
-    return false;
-}
-
-