diff options
Diffstat (limited to 'externals/grill/pool/source/data.cpp')
| -rw-r--r-- | externals/grill/pool/source/data.cpp | 210 |
1 files changed, 0 insertions, 210 deletions
diff --git a/externals/grill/pool/source/data.cpp b/externals/grill/pool/source/data.cpp deleted file mode 100644 index de5d555e..00000000 --- a/externals/grill/pool/source/data.cpp +++ /dev/null @@ -1,210 +0,0 @@ -/* -pool - hierarchical storage object for PD and Max/MSP - -Copyright (c) 2002-2008 Thomas Grill (gr@grrrr.org) -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "license.txt," in this distribution. - -$LastChangedRevision: 26 $ -$LastChangedDate: 2008-01-03 16:14:29 +0100 (Thu, 03 Jan 2008) $ -$LastChangedBy: thomas $ -*/ - -#include "pool.h" -#include <string.h> -#include <ctype.h> -#include <stdlib.h> -#include <fstream> - -using namespace std; - -pooldata::pooldata(const t_symbol *s,int vcnt,int 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 t_atom pooldata::nullatom = { A_NULL }; - -int pooldata::GetAll(const AtomList &d,t_atom *&keys,Atoms *&lst) -{ - pooldir *pd = root.GetDir(d); - if(pd) - return pd->GetAll(keys,lst); - else { - keys = NULL; lst = NULL; - return 0; - } -} - -int pooldata::PrintAll(const AtomList &d) -{ - char tmp[1024]; - d.Print(tmp,sizeof tmp); - pooldir *pd = root.GetDir(d); - strcat(tmp," , "); - int cnt = pd?pd->PrintAll(tmp,sizeof tmp):0; - if(!cnt) post(tmp); - return cnt; -} - -int 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; - } -} - - -bool pooldata::Paste(const AtomList &d,const pooldir *clip,int depth,bool repl,bool mkdir) -{ - pooldir *pd = root.GetDir(d); - return pd && pd->Paste(clip,depth,repl,mkdir); -} - -pooldir *pooldata::Copy(const AtomList &d,const t_atom &key,bool 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,int depth,bool 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 char *CnvFlnm(char *dst,const char *src,int sz) -{ -#if FLEXT_SYS == FLEXT_SYS_PD && FLEXT_OS == FLEXT_OS_WIN - int 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 -} - -bool pooldata::LdDir(const AtomList &d,const char *flnm,int depth,bool mkdir) -{ - pooldir *pd = root.GetDir(d); - if(pd) { - char tmp[1024]; // CnvFlnm checks for size of string buffer - const char *t = CnvFlnm(tmp,flnm,sizeof tmp); - if(t) { - ifstream file(t); - return file.good() && pd->LdDir(file,depth,mkdir); - } - else return false; - } - else - return false; -} - -bool pooldata::SvDir(const AtomList &d,const char *flnm,int depth,bool absdir) -{ - pooldir *pd = root.GetDir(d); - if(pd) { - char tmp[1024]; // CnvFlnm checks for size of string buffer - const char *t = CnvFlnm(tmp,flnm,sizeof tmp); - if(t) { - ofstream file(t); - Atoms tmp; - if(absdir) tmp = d; - return file.good() && pd->SvDir(file,depth,tmp); - } - else return false; - } - else - return false; -} - -bool pooldata::LdDirXML(const AtomList &d,const char *flnm,int depth,bool mkdir) -{ - pooldir *pd = root.GetDir(d); - if(pd) { - char tmp[1024]; // CnvFlnm checks for size of string buffer - const char *t = CnvFlnm(tmp,flnm,sizeof tmp); - if(t) { - ifstream file(t); - bool ret = file.good() != 0; - if(ret) { - file.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(file,depth,mkdir); - return ret; - } - } - - return false; -} - -bool pooldata::SvDirXML(const AtomList &d,const char *flnm,int depth,bool absdir) -{ - pooldir *pd = root.GetDir(d); - if(pd) { - char tmp[1024]; // CnvFlnm checks for size of string buffer - const char *t = CnvFlnm(tmp,flnm,sizeof tmp); - if(t) { - ofstream file(t); - Atoms tmp; - if(absdir) tmp = d; - if(file.good()) { - file << "<?xml version=\"1.0\" encoding=\"UTF-8\"?>" << endl; - file << "<!DOCTYPE pool SYSTEM \"http://grrrr.org/ext/pool/pool-0.2.dtd\">" << endl; - file << "<pool>" << endl; - bool ret = pd->SvDirXML(file,depth,tmp); - file << "</pool>" << endl; - return ret; - } - } - } - - return false; -} |