cco/go-scopes
3
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

forge: add data manipulation definitions (Create, Get, Put)

Browse source
This commit is contained in:
Helmut Merz 2023-07-29 10:33:58 +02:00
parent 8e2796d531
commit 08b9391559
3 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
forge/builtins/builtins.go
View file

@ -6,7 +6,7 @@ type FE = forge.FE
type XT = forge.XT
type builtins struct {
Add, Dup, Lit, Mult XT
Add, Dup, Get, Lit, Mult, Put XT
}
func Get(f FE) *builtins {
@ -27,7 +27,9 @@ func setup(f FE) *builtins {
return &builtins{
Add: r("+", func(f FE, _ XT) { f.Push(f.Pop().(int) + f.Pop().(int)) }),
Dup: r("dup", func(f FE, _ XT) { f.Push(f.Peek(0)) }),
Get: r("@", func(f FE, _ XT) { f.Push(f.Pop().(forge.FPtr).Value()) }),
Lit: r("literal", func(f FE, _ XT) { f.Literal() }),
Mult: r("*", func(f FE, _ XT) { f.Push(f.Pop().(int) * f.Pop().(int)) }),
Put: r("!", func(f FE, _ XT) { f.Pop().(forge.FPtr).Set(f.Pop()) }),
}
}

14
forge/forge.go
View file

@ -10,6 +10,8 @@ import (
type fitem interface{}
type fptr = ptr.Ptr[fitem]
type FPtr = fptr
type fstack = stack.Stack[fitem]
type fvoc = voc.Vocabulary[fitem]
@ -163,9 +165,9 @@ func (f *forgeEnv) Def(name string, items ...fitem) XT {
return Register(f.voc, FCode(name, code))
}
func (f *forgeEnv) Const(name string, value fitem) XT {
data := newScalar().Append(value)
return Register(f.voc, Data(name, data, nil))
func (f *forgeEnv) Create(name string, value fitem, code fptr) XT {
data := newScalar().Set(value)
return Register(f.voc, Data(name, data, code))
}
func (f *forgeEnv) Literal() {
@ -195,5 +197,9 @@ func doDef(f *forgeEnv, xt XT) {
}
func doData(f *forgeEnv, xt XT) {
f.Push(xt.Data().Value())
f.Push(xt.Data())
code := xt.Code()
if code != nil {
f.Call(code)
}
}

3
tests/forge_test.go
View file

@ -22,7 +22,8 @@ func ExecTest(t *testing.T) {
sq := fe.Def("square", b.Dup, b.Mult)
fe.Exec(b.Lit, 3, sq, b.Lit, 2, b.Add)
t.AssertEqual(fe.Pop(), 11)
seven := fe.Const("seven", 7)
seven := fe.Create("seven", 7, fe.Code(b.Get))
//fe.Exec(b.Lit, 7, seven, b.Put)
fe.Exec(b.Lit, 3, seven, sq, b.Add)
t.AssertEqual(fe.Pop(), 52)
}