1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
/*
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.
*/
#ifndef __POOL_H
#define __POOL_H
#include <flext.h>
#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400)
#error You need at least flext version 0.4.0
#endif
#define POOL_VERSION "0.0.5"
#include <iostream.h>
typedef void V;
typedef int I;
typedef float F;
typedef char C;
typedef bool BL;
typedef t_atom A;
typedef t_symbol S;
class poolval:
public flext
{
public:
poolval(const A &key,AtomList *data);
~poolval();
poolval &Set(AtomList *data);
poolval *Dup() const;
A key;
AtomList *data;
poolval *nxt;
};
class pooldir:
public flext
{
public:
pooldir(const A &dir);
~pooldir();
V Clear(BL rec,BL dironly = false);
pooldir *GetDir(I argc,const A *argv,BL cut = false);
pooldir *GetDir(const AtomList &d,BL cut = false) { return GetDir(d.Count(),d.Atoms(),cut); }
BL DelDir(const AtomList &d);
pooldir *AddDir(I argc,const A *argv);
pooldir *AddDir(const AtomList &d) { return AddDir(d.Count(),d.Atoms()); }
V SetVal(const A &key,AtomList *data,BL over = true);
V ClrVal(const A &key) { SetVal(key,NULL); }
AtomList *GetVal(const A &key,BL cut = false);
I CntAll();
I GetAll(A *&keys,AtomList *&lst,BL cut = false);
I GetSub(const t_atom **&dirs);
BL Paste(const pooldir *p,I depth,BL repl,BL mkdir);
BL Copy(pooldir *p,I depth,BL cur);
BL LdDir(istream &is,I depth,BL mkdir);
BL SvDir(ostream &os,I depth,const AtomList &dir = AtomList());
A dir;
pooldir *nxt;
pooldir *dirs;
poolval *vals;
};
class pooldata:
public flext
{
public:
pooldata(const S *s = NULL);
~pooldata();
V Push() { ++refs; }
BL Pop() { return --refs > 0; }
V Reset();
BL MkDir(const AtomList &d);
BL ChkDir(const AtomList &d);
BL RmDir(const AtomList &d);
BL Set(const AtomList &d,const A &key,AtomList *data,BL over = true);
BL Clr(const AtomList &d,const A &key);
BL ClrAll(const AtomList &d,BL rec,BL dironly = false);
AtomList *Get(const AtomList &d,const A &key);
I CntAll(const AtomList &d);
I GetAll(const AtomList &d,A *&keys,AtomList *&lst);
I GetSub(const AtomList &d,const t_atom **&dirs);
BL Paste(const AtomList &d,const pooldir *clip,I depth = -1,BL repl = true,BL mkdir = true);
pooldir *Copy(const AtomList &d,const A &key,BL cut);
pooldir *CopyAll(const AtomList &d,I depth,BL cut);
BL LdDir(const AtomList &d,const C *flnm,I depth,BL mkdir = true);
BL SvDir(const AtomList &d,const C *flnm,I depth,BL absdir);
BL Load(const C *flnm) { return LdDir(AtomList(),flnm,-1); }
BL Save(const C *flnm) { return SvDir(AtomList(),flnm,-1,true); }
I refs;
const S *sym;
pooldata *nxt;
pooldir root;
private:
static t_atom nullatom;
};
#endif
|
