fw/rt2/_rules/deref.go

package rules

import (
	"fw/cp/node"
	"fw/cp/object"
	"fw/cp/traps"
	"fw/rt2"
	"fw/rt2/context"
	"fw/rt2/frame"
	"fw/rt2/scope"
	"reflect"
	"ypk/assert"
	"ypk/halt"
)

func derefSeq(f frame.Frame) (seq frame.Sequence, ret frame.WAIT) {
	n := rt2.NodeOf(f).(node.DerefNode)

	if n.Ptr() {
		switch l := n.Left().(type) {
		case node.ParameterNode, node.VariableNode:
			sc := rt2.ScopeFor(f, l.Object().Adr())
			sc.Select(l.Object().Adr(), func(v scope.Value) {
				ptr, ok := v.(scope.Pointer)
				assert.For(ok, 60, reflect.TypeOf(v))
				rt2.ValueOf(f.Parent())[n.Adr()] = ptr.Get()
				rt2.RegOf(f.Parent())[context.META] = l.Object()
				if scope.GoTypeFrom(ptr.Get()) == nil {
					seq, ret = doTrap(f, traps.NILderef)
				} else {
					seq, ret = frame.End()
				}
			})
			return seq, ret
		case node.IndexNode:
			return This(expectExpr(f, l, func(...IN) (out OUT) {
				v := rt2.ValueOf(f)[l.Adr()]
				ptr, ok := v.(scope.Pointer)
				assert.For(ok, 60, reflect.TypeOf(v))
				rt2.ValueOf(f.Parent())[n.Adr()] = ptr.Get()
				rt2.RegOf(f.Parent())[context.META] = rt2.RegOf(f)[context.META]
				if scope.GoTypeFrom(ptr.Get()) == nil {
					out = thisTrap(f, traps.NILderef)
				} else {
					out = End()
				}
				return
			}))
		case node.FieldNode, node.CallNode:
			rt2.Push(rt2.New(l), f)
			rt2.Assert(f, func(f frame.Frame) (bool, int) {
				return rt2.ValueOf(f)[l.Adr()] != nil || rt2.RegOf(f)[context.RETURN] != nil, 63
			})
			seq = func(f frame.Frame) (frame.Sequence, frame.WAIT) {
				v := rt2.ValueOf(f)[l.Adr()]
				if v == nil {
					v = rt2.RegOf(f)[context.RETURN].(scope.Value)
				}
				ptr, ok := v.(scope.Pointer)
				assert.For(ok, 60, reflect.TypeOf(v))
				rt2.ValueOf(f.Parent())[n.Adr()] = ptr.Get()
				rt2.RegOf(f.Parent())[context.META] = rt2.RegOf(f)[context.META]
				if scope.GoTypeFrom(ptr.Get()) == nil {
					seq, ret = doTrap(f, traps.NILderef)
				} else {
					seq, ret = frame.End()
				}
				return frame.End()
			}
			ret = frame.LATER
			return seq, ret
		default:
			halt.As(100, l.Adr(), reflect.TypeOf(l))
		}
	} else {
		deref := func(val scope.Value) {
			t, c := scope.Ops.TypeOf(val)
			switch cc := c.(type) {
			case object.ArrayType:
				rt2.ValueOf(f.Parent())[n.Adr()] = scope.TypeFromGo(scope.GoTypeFrom(val))
			case object.DynArrayType:
				rt2.ValueOf(f.Parent())[n.Adr()] = scope.TypeFromGo(scope.GoTypeFrom(val))
			//case nil:
			//	panic(0)
			default:
				halt.As(100, t, reflect.TypeOf(cc))
			}
		}
		if n.Left().Object() != nil {
			switch l := n.Left().Object().(type) {
			case object.ParameterObject, object.VariableObject:
				sc := rt2.ScopeFor(f, l.Adr())
				val := sc.Select(l.Adr())
				rt2.RegOf(f.Parent())[context.META] = l
				deref(val)
				return frame.End()
			default:
				halt.As(100, l.Adr(), reflect.TypeOf(l))
			}
		} else {
			switch left := n.Left().(type) {
			case node.DerefNode:
				rt2.Push(rt2.New(left), f)
				rt2.Assert(f, func(f frame.Frame) (bool, int) {
					return rt2.ValueOf(f)[left.Adr()] != nil, 60
				})
				seq = Propose(func(...IN) OUT {
					deref(rt2.ValueOf(f)[left.Adr()])
					rt2.RegOf(f.Parent())[context.META] = rt2.RegOf(f)[context.META]
					return End()
				})
				ret = LATER.wait()
			case node.IndexNode:
				rt2.Push(rt2.New(left), f)
				rt2.Assert(f, func(f frame.Frame) (bool, int) {
					return rt2.ValueOf(f)[left.Adr()] != nil, 60
				})
				seq = Propose(func(...IN) OUT {
					val := rt2.ValueOf(f)[left.Adr()]
					sc := rt2.ScopeFor(f, left.Left().Object().Adr())
					arr := sc.Select(left.Left().Object().Adr()).(scope.Array)
					rt2.RegOf(f.Parent())[context.META] = left.Object()
					deref(arr.Get(val).(scope.Pointer).Get())
					//rt2.ValueOf(f.Parent())[n.Adr()] = rt2.ValueOf(f)[left.Adr()]
					//halt.As(100, reflect.TypeOf(rt2.ValueOf(f)[left.Adr()]))
					return End()
				})
				ret = LATER.wait()
			default:
				halt.As(100, reflect.TypeOf(left))
			}
		}
	}
	/* if ok {
		//		rt2.DataOf(f.Parent())[n] = scope.Designator(n.Left())
	} else {
		for z := n.Left(); !ok && z != nil; {
			switch z.(type) {
			case node.DerefNode:
				z = z.Left()
			default:
				data := sc.Select(z.Adr())
				assert.For(data != nil, 40)
				rt2.DataOf(f.Parent())[n] = data
				ok = true
			}
		}
	} */
	return seq, ret
}