-
Notifications
You must be signed in to change notification settings - Fork 25
/
definition.go
72 lines (63 loc) · 1.34 KB
/
definition.go
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
package expreduce
import "strings"
type DownValue struct {
rule *Expression
specificity int
}
type Def struct {
downvalues []DownValue
attributes Attributes
defaultExpr Ex
// A function defined here will override downvalues.
legacyEvalFn (func(*Expression, *EvalState) Ex)
}
func CopyDefs(in map[string]Def) map[string]Def {
out := make(map[string]Def)
for k, v := range in {
newDef := Def{}
for _, dv := range v.downvalues {
newDv := DownValue{
rule: dv.rule.DeepCopy().(*Expression),
specificity: dv.specificity,
}
newDef.downvalues = append(newDef.downvalues, newDv)
}
out[k] = newDef
}
return out
}
func (def *Def) StringForm(defSym *Symbol, params ToStringParams) string {
var buffer []string
attrs := def.attributes.toStrings()
if len(attrs) > 0 {
e := E(
S("Set"),
E(
S("Attributes"),
defSym,
),
def.attributes.toSymList(),
)
buffer = append(buffer, e.StringForm(params))
}
for _, dv := range def.downvalues {
e := E(
S("SetDelayed"),
dv.rule.Parts[1].(*Expression).Parts[1],
dv.rule.Parts[2],
)
buffer = append(buffer, e.StringForm(params))
}
if def.defaultExpr != nil {
e := E(
S("Set"),
E(
S("Default"),
defSym,
),
def.defaultExpr,
)
buffer = append(buffer, e.StringForm(params))
}
return strings.Join(buffer[:], "\n")
}