-
Notifications
You must be signed in to change notification settings - Fork 1
/
ici-core5.ici
84 lines (74 loc) · 1.36 KB
/
ici-core5.ici
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
/*
* any = deepatom(any)
*/
extern deepatom(o) {
if (isatom(o))
return o;
t := typeof(o);
r := v := k := NULL;
switch (t) {
case "array":
r := array();
forall (v in o)
push(r, deepatom(v));
return @r;
case "set":
r := set();
forall (v in o)
r[deepatom(v)] = 1;
return @r;
case "map":
r := map();
forall (v, k in o)
r[deepatom(k)] = deepatom(v);
super(r, deepatom(super(o)));
return @r;
default:
return @o;
}
}
// ----------------------------------------------------------------
local copymap(o, x) {
if (v := x[o]) return v;
r := map();
x[o] = r;
if (s := super(o)) {
if (v = x[s])
super(r, v);
else
super(r, copymap(s, x));
}
forall (v, k in o)
r[_deepcopy(k, x)] = _deepcopy(v, x);
return r;
}
local _deepcopy(o, x) {
if (isatom(o)) return o;
r := v := k := NULL;
t := typeof(o);
switch (t) {
case "array":
r = array();
forall (v in o)
push(r, _deepcopy(v, x));
break;
case "set":
r = set();
forall (v in o)
r[_deepcopy(v, x)] = 1;
break;
case "map":
r = copymap(o, x);
break;
default:
r = copy(o);
break;
}
return r;
}
/*
* any = deepcopy(any)
*/
extern deepcopy(o) {
return _deepcopy(o, map());
}