// BootedTable returns a table with built in functions defined.
func BootedTable(boot string) *table.Table {
tbl := table.New()
tbl.Define("eval", func(s *stack.Stack, t *table.Table) types.VType {
str := s.Pop().Value().(string)
_, _, v := eval(str, s, t)
return v
})
tbl.Define("alias", func(s *stack.Stack, t *table.Table) types.VType {
from := s.Pop().Value().(string)
to := s.Pop().Value().(string)
t.Alias(from, to)
return vnil.New()
})
tbl.Define("define", func(s *stack.Stack, t *table.Table) types.VType {
stms := s.Pop().Value().(*p.Tokens)
name := s.Pop().Value().(string)
t.DefineNative(name, stms)
return vnil.New()
})
tbl.Define("on-exit", func(s *stack.Stack, t *table.Table) types.VType {
onExitStms = s.Pop().Value().(*p.Tokens)
return vnil.New()
})
tbl.Define("defined", func(s *stack.Stack, t *table.Table) types.VType {
defined := t.Defined()
list := make([]types.VType, len(defined))
for i, name := range defined {
list[i] = vstring.New(name)
}
s.Push(vlist.NewFromList(list))
return vnil.New()
})
tbl.Define("type", func(s *stack.Stack, t *table.Table) types.VType {
v := vstring.New(s.Pop().Type())
s.Push(v)
return vnil.New()
})
// Types
tbl.Define("integer", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Pop().Value().(string)
s.Push(vinteger.New(v))
return vnil.New()
})
tbl.Define("string", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Pop()
if v.Type() == "string" {
s.Push(v)
} else {
s.Push(vstring.New(v.String()))
}
return vnil.New()
})
tbl.Define("list", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Pop()
if r, ok := v.(*vrange.VRange); ok {
list := r.List()
s.Push(list)
} else {
list := make([]types.VType, 1)
list[0] = v
s.Push(vlist.NewFromList(list))
}
return vnil.New()
})
tbl.Define("range", func(s *stack.Stack, t *table.Table) types.VType {
start := s.Pop().(types.Rangeable)
end := s.Pop().(types.Rangeable)
s.Push(vrange.NewFromStartAndEnd(start, end))
return vnil.New()
})
tbl.Define("max", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Pop().(*vrange.VRange)
s.Push(v.Max())
return vnil.New()
})
tbl.Define("min", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Pop().(*vrange.VRange)
s.Push(v.Min())
return vnil.New()
})
// I/O
tbl.Define("print", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Pop().Value().(string)
fmt.Println(v)
return vnil.New()
})
tbl.Define("p", func(s *stack.Stack, t *table.Table) types.VType {
v := s.PopString().String()
fmt.Println(v[1 : len(v)-1])
return vnil.New()
})
tbl.Define("read", func(s *stack.Stack, t *table.Table) types.VType {
contents, _ := ioutil.ReadFile(s.Pop().Value().(string))
str := vstring.New(string(contents))
s.Push(str)
return vnil.New()
})
// Stack operations
tbl.Define("pop", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Pop()
return v
})
tbl.Define("size", func(s *stack.Stack, t *table.Table) types.VType {
v := vinteger.NewFromInt(s.Size())
s.Push(v)
return vnil.New()
})
tbl.Define("dup", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Top()
s.Push(v.Copy())
return vnil.New()
})
tbl.Define("swap", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop()
b := s.Pop()
s.Push(a)
s.Push(b)
return vnil.New()
})
tbl.Define("drop", func(s *stack.Stack, t *table.Table) types.VType {
s.Clear()
return vnil.New()
})
tbl.Define("compose", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop()
b := s.Pop()
c := vblock.New(b.(*vblock.VBlock).BareValue() + " " + a.(*vblock.VBlock).BareValue())
s.Push(c)
return vnil.New()
})
tbl.Define("wrap", func(s *stack.Stack, t *table.Table) types.VType {
b := s.Pop()
r := vblock.New(b.String())
s.Push(r)
return vnil.New()
})
// Arithmetic
tbl.Define("add", func(s *stack.Stack, t *table.Table) types.VType {
add := vinteger.NewFromInt(s.Pop().Value().(int) + s.Pop().Value().(int))
s.Push(add)
return vnil.New()
})
tbl.Define("mult", func(s *stack.Stack, t *table.Table) types.VType {
mult := vinteger.NewFromInt(s.Pop().Value().(int) * s.Pop().Value().(int))
s.Push(mult)
return vnil.New()
})
tbl.Define("sub", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop().Value().(int)
b := s.Pop().Value().(int)
sub := vinteger.NewFromInt(a - b)
s.Push(sub)
return vnil.New()
})
tbl.Define("div", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop().Value().(int)
b := s.Pop().Value().(int)
div := vinteger.NewFromInt(a / b)
s.Push(div)
return vnil.New()
})
tbl.Define("neg", func(s *stack.Stack, t *table.Table) types.VType {
val := vinteger.NewFromInt(-s.Pop().Value().(int))
s.Push(val)
return vnil.New()
})
// Logical
tbl.Define("true", func(s *stack.Stack, t *table.Table) types.VType {
s.Push(vboolean.True())
return vnil.New()
})
tbl.Define("false", func(s *stack.Stack, t *table.Table) types.VType {
s.Push(vboolean.False())
return vnil.New()
})
tbl.Define("nil", func(s *stack.Stack, t *table.Table) types.VType {
s.Push(vnil.New())
return vnil.New()
})
tbl.Define("or", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop().Value().(bool)
b := s.Pop().Value().(bool)
val := vboolean.False()
if a || b {
val = vboolean.True()
}
s.Push(val)
return vnil.New()
})
tbl.Define("and", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop().Value().(bool)
b := s.Pop().Value().(bool)
val := vboolean.False()
if a && b {
val = vboolean.True()
}
s.Push(val)
return vnil.New()
})
tbl.Define("compare", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop()
b := s.Pop()
val := vinteger.NewFromInt(a.Compare(b))
s.Push(val)
return vnil.New()
})
tbl.Define("eq?", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop()
b := s.Pop()
val := vboolean.New(a.Compare(b) == 0)
s.Push(val)
return vnil.New()
})
// Flow
tbl.Define("if-else", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop().Value().(*p.Tokens)
b := s.Pop().Value().(*p.Tokens)
cond := s.Pop().Value().(bool)
if cond {
s, t, _ = run(a, s, t)
} else {
s, t, _ = run(b, s, t)
}
return vnil.New()
})
tbl.Define("call", func(s *stack.Stack, t *table.Table) types.VType {
val := s.Top().Value()
switch val.(type) {
case *p.Tokens:
s.Pop()
run(val.(*p.Tokens), s, t)
case *vblock.VBlock:
toks := new(p.Tokens)
*toks = append(*toks, p.Token{"fun", "call"})
run(toks, s, t)
default:
println("Unexpected type")
}
return vnil.New()
})
tbl.Define("while", func(s *stack.Stack, t *table.Table) types.VType {
pred := s.Pop()
action := s.Pop()
for {
tokens := &p.Tokens{}
*tokens = append(*tokens, p.Token{"fun", "call"})
s.Push(pred)
run(tokens, s, t)
if !s.Pop().Value().(bool) {
break
}
s.Push(action)
run(tokens, s, t)
}
return vnil.New()
})
tbl.Define("without", func(s *stack.Stack, t *table.Table) types.VType {
save := s.Pop()
tokens := new(p.Tokens)
*tokens = append(*tokens, p.Token{"fun", "call"})
run(tokens, s, t)
s.Push(save)
return vnil.New()
})
tbl.Define("without2", func(s *stack.Stack, t *table.Table) types.VType {
save1 := s.Pop()
save2 := s.Pop()
tokens := new(p.Tokens)
*tokens = append(*tokens, p.Token{"fun", "call"})
run(tokens, s, t)
s.Push(save2)
s.Push(save1)
return vnil.New()
})
// Strings
tbl.Define("concat", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop().Value().(string)
b := s.Pop().Value().(string)
c := vstring.New(b + a)
s.Push(c)
return vnil.New()
})
// Lists
tbl.Define("head", func(s *stack.Stack, t *table.Table) types.VType {
h := s.Pop().Value().([]types.VType)
if len(h) > 0 {
s.Push(h[0])
} else {
s.Push(vnil.New())
}
return vnil.New()
})
tbl.Define("tail", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Pop().Value().([]types.VType)
if len(v) > 0 {
s.Push(vlist.NewFromList(v[1:]))
} else {
s.Push(vnil.New())
}
return vnil.New()
})
tbl.Define("cons", func(s *stack.Stack, t *table.Table) types.VType {
v := s.Pop().(types.VType)
l := s.Pop().Value().([]types.VType)
l = append(l, v)
s.Push(vlist.NewFromList(l))
return vnil.New()
})
tbl.Define("append", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop().Value().([]types.VType)
b := s.Pop().Value().([]types.VType)
// Ripped from http://golang.org/doc/effective_go.html#slices
l := len(a)
if l+len(b) > cap(a) {
// Allocate double what's needed, for future growth.
newSlice := make([]types.VType, (l+len(b))*2)
copy(newSlice, a)
a = newSlice
}
a = a[0 : l+len(b)]
for i, c := range b {
a[l+i] = c
}
s.Push(vlist.NewFromList(a))
return vnil.New()
})
tbl.Define("apply", func(s *stack.Stack, t *table.Table) types.VType {
f := s.Pop().Value().(*p.Tokens)
l := s.Pop().Value().([]types.VType)
stk := make(stack.Stack, len(l))
for i, o := range l {
stk[i] = o.(types.VType)
}
newstk, _, v := run(f, &stk, t)
list := make([]types.VType, len(*newstk))
for i, o := range *newstk {
list[i] = o.(types.VType)
}
s.Push(vlist.NewFromList(list))
return v
})
tbl.Define("reverse", func(s *stack.Stack, t *table.Table) types.VType {
l := s.Pop().Value().([]types.VType)
for i, j := 0, len(l)-1; i < j; i, j = i+1, j-1 {
l[i], l[j] = l[j], l[i]
}
s.Push(vlist.NewFromList(l))
return vnil.New()
})
// dictionaries
tbl.Define("relate", func(s *stack.Stack, t *table.Table) types.VType {
k := s.Pop()
v := s.Pop()
s.Push(vdict.NewFromMap(map[types.VType]types.VType{k: v}))
return vnil.New()
})
tbl.Define("relate-pairs", func(s *stack.Stack, t *table.Table) types.VType {
ks := s.Pop().Value().([]types.VType)
vs := s.Pop().Value().([]types.VType)
m := map[types.VType]types.VType{}
for i := range ks {
m[ks[i]] = vs[i]
}
s.Push(vdict.NewFromMap(m))
return vnil.New()
})
tbl.Define("get", func(s *stack.Stack, t *table.Table) types.VType {
k := s.Pop()
d := s.Pop().(*vdict.VDict)
s.Push(d.Get(k))
return vnil.New()
})
tbl.Define("has?", func(s *stack.Stack, t *table.Table) types.VType {
k := s.Pop()
d := s.Pop().(*vdict.VDict)
s.Push(d.Has(k))
return vnil.New()
})
tbl.Define("merge", func(s *stack.Stack, t *table.Table) types.VType {
a := s.Pop().(*vdict.VDict)
b := s.Pop().(*vdict.VDict)
s.Push(a.Merge(b))
return vnil.New()
})
// spec
var specTbl map[string]bool
passCount := 0
failCount := 0
tbl.Define("describe", func(s *stack.Stack, t *table.Table) types.VType {
block := s.Pop().Value().(*p.Tokens)
desc := s.Pop().Value().(string)
fmt.Print("\n" + desc + "\n ")
specTbl = map[string]bool{}
run(block, s, t)
fmt.Print("\n")
for v, k := range specTbl {
if k {
passCount++
} else {
failCount++
fmt.Println(" FAIL " + v)
}
}
onExitStms = p.Parse("'" + fmt.Sprintf("\n %v pass / %v fail", passCount, failCount) + "' print")
return vnil.New()
})
tbl.Define("can", func(s *stack.Stack, t *table.Table) types.VType {
block := s.Pop().Value().(*p.Tokens)
desc := s.Pop().Value().(string)
// IMPORTANT: run on an empty stack each time
ns, _, _ := run(block, stack.New(), t)
if ns.Pop().Value().(bool) {
fmt.Print(".")
specTbl[desc] = true
} else {
fmt.Print("x")
specTbl[desc] = false
}
return vnil.New()
})
_, tbl, _ = eval(boot, stack.New(), tbl)
return tbl
}
func eval(code string, stk *stack.Stack, tbl *table.Table) (*stack.Stack, *table.Table, types.VType) {
tokens := p.Parse(code)
return run(tokens, stk, tbl)
}
// Value returns the parsed value of the VBlock.
func (v *VBlock) Value() interface{} {
return parser.Parse(v.value)
}