fw/rt2/rules2/wrap/nodes.go

package wrap

import (
	"fw/cp/node"
	"fw/rt2"
	"fw/rt2/context"
	"fw/rt2/decision"
	"fw/rt2/frame"
	"fw/rt2/rules2/wrap/eval"
	"reflect"
	"ypk/halt"
)

func init() {
	decision.PrologueFor = prologue
	decision.EpilogueFor = epilogue
	decision.AssertFor = test
	eval.Propose = Propose
	eval.Expose = Expose
}

func This(o eval.OUT) (seq frame.Sequence, ret frame.WAIT) {
	ret = o.Next.Wait()
	if ret != frame.STOP {
		seq = Propose(o.Do)
	}
	return seq, ret
}

func Propose(a eval.Do) frame.Sequence {
	return func(fr frame.Frame) (frame.Sequence, frame.WAIT) {
		var key interface{}
		if fr.Parent() != nil {
			key = rt2.RegOf(fr.Parent())[context.KEY]
		}
		in := eval.IN{IR: rt2.NodeOf(fr), Frame: fr, Parent: fr.Parent(), Key: key}
		return This(a(in))
	}
}
func waiting(n frame.WAIT) eval.WAIT {
	switch n {
	case frame.WRONG:
		return eval.WRONG
	case frame.STOP:
		return eval.STOP
	case frame.LATER:
		return eval.LATER
	case frame.NOW:
		return eval.NOW
	case frame.BEGIN:
		return eval.BEGIN
	case frame.END:
		return eval.END
	default:
		panic(n)
	}
}

func Expose(f frame.Sequence) eval.Do {
	return func(in eval.IN) (out eval.OUT) {
		s, w := f(in.Frame)
		return eval.OUT{Do: Expose(s), Next: waiting(w)}
	}
}

func test(n node.Node) (bool, int) {
	switch n.(type) {
	default:
		return true, 0
	}
}

func prologue(n node.Node) frame.Sequence {
	switch n.(type) {
	case node.Statement:
		return Propose(eval.BeginStatement)
	case node.Expression:
		return Propose(eval.BeginExpression)
	case node.Designator:
		return Propose(eval.BeginDesignator)
	case node.IfNode:
		return Propose(eval.BeginStrange)
	default:
		halt.As(100, "no prologue for", reflect.TypeOf(n))
	}
	panic(0)
}

func epilogue(n node.Node) frame.Sequence {
	switch n.(type) {
	case node.Statement:
		return Propose(eval.EndStatement)
	case node.ConstantNode, node.VariableNode, node.ParameterNode, node.DyadicNode, node.MonadicNode, node.IfNode, node.ProcedureNode, node.DerefNode, node.FieldNode, node.IndexNode, node.GuardNode, node.RangeNode: //do nothing
	default:
		halt.As(100, "no epilogue for", reflect.TypeOf(n))
	}
	return nil
}