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
|
package value
import (
"jinx/pkg/lang/vm/mem"
)
type Value struct {
t Type
d Data
outlet mem.Ptr
}
func NewInt(x int64) Value {
t := Type{Kind: IntType}
return Value{t: t, d: IntData(x)}
}
func NewFloat(x float64) Value {
t := Type{Kind: FloatType}
return Value{t: t, d: FloatData(x)}
}
func NewString(m *mem.Mem, str string) Value {
t := Type{Kind: StringType}
ptr := m.Allocate(mem.CellKindString)
m.Set(ptr, str)
return Value{t: t, d: StringData{data: ptr}}
}
func NewBool(b bool) Value {
t := Type{Kind: BoolType}
return Value{t: t, d: BoolData(b)}
}
func NewArray(m *mem.Mem, arr []Value) Value {
t := Type{Kind: ArrayType}
ptr := m.Allocate(mem.CellKindArray)
m.Set(ptr, arr)
return Value{t: t, d: ArrayData{data: ptr}}
}
func NewNull() Value {
t := Type{Kind: NullType}
return Value{t: t}
}
func NewFunction(pc int) Value {
t := Type{Kind: FunctionType}
return Value{t: t, d: FunctionData{pc: pc}}
}
func NewObject() Value {
panic("not implemented")
}
func (v Value) Type() Type {
return v.t
}
func (v Value) Data() Data {
return v.d
}
func (v Value) WithData(d Data) Value {
return Value{t: v.t, d: d, outlet: v.outlet}
}
func (v Value) Outlet() mem.Ptr {
return v.outlet
}
func (v Value) WithOutlet(outlet mem.Ptr) Value {
return Value{t: v.t, d: v.d, outlet: outlet}
}
func (v Value) Clone(m *mem.Mem) Value {
if v.t.Kind == StringType {
str := v.d.(StringData)
m.Retain(str.data)
}
if v.t.Kind == ArrayType {
arr := v.d.(ArrayData)
m.Retain(arr.data)
}
if v.t.Kind == FunctionType {
fn := v.d.(FunctionData)
m.Retain(fn.env)
}
return v
}
func (v Value) Drop(m *mem.Mem) {
// If value has an outlet, don't drop it and instead move it to the outlet.
if !v.outlet.IsNull() {
m.Set(v.outlet, v)
return
}
if v.t.Kind == StringType {
str := v.d.(StringData)
m.Release(str.data)
}
if v.t.Kind == ArrayType {
arr := v.d.(ArrayData)
m.Release(arr.data)
}
if v.t.Kind == FunctionType {
f := v.d.(FunctionData)
m.Release(f.env)
}
}
|
