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
|
#!/usr/bin/env io
PFieldVal := Object clone
PFieldVal do(
stringValue := nil
ownerField := nil
moveTo := method(newOwner,
ownerField removeValue(self)
ownerField = newOwner addValue(self)
self
)
matches := method(start,
stringValue beginsWithSeq(start)
)
asString := method(stringValue)
)
PFieldValMux := Object clone
PFieldValMux do(
init := method(
self fieldVals := List clone
)
addValue := method(fv,
fieldVals append(fv)
self
)
moveTo := method(destField,
fieldVals foreach(fv,
fv moveTo(destField)
)
self
)
asList := method(
fieldVals
)
)
PField := Object clone
PField do(
init := method(
self fieldVals := List clone
)
match := method(
mux := PFieldValMux clone
call evalArgs foreach(arg,
fieldVals foreach(fv,
fv matches(arg) ifTrue(mux addValue(fv))
)
)
mux
)
addValue := method(newFV,
fieldVals append(newFV)
newFV ownerField = self
self
)
removeValue := method(fv,
fieldVals remove(fv)
self
)
)
depends := PField clone
list("foo", "bar") foreach(str,
val := PFieldVal clone
val stringValue = str
depends addValue(val)
)
checkdepends := PField clone
depends match("foo", "bar") moveTo(checkdepends)
checkdepends fieldVals foreach(fv, fv asString println)
checkdepends println
|
