// ================================================================
// Stack frames for begin/end/if/for/function blocks
//
// A Miller DSL stack has two levels of nesting:
// * A Stack contains a list of StackFrameSet, one per function or Miller outermost statement block
// * A StackFrameSet contains a list of StackFrame, one per if/for/etc within a function
//
// This is because of the following.
//
// (1) a = 1              <-- outer stack frame in same frameset
//     if (condition) {   <-- inner stack frame in same frameset
//       a = 2            <-- this should update the outer 'a', not create new inner 'a'
//     }
//
// (2) a = 1              <-- outer stack frame in same frameset
//     if (condition) {   <-- inner stack frame in same frameset
//       var a = 2        <-- this should create new inner 'a', not update the outer 'a'
//     }
//
// (3) a = 1              <-- outer stack frame
//     func f() {         <-- stack frame in a new frameset
//       a = 2            <-- this should create new inner 'a', not update the outer 'a'
//     }
// ================================================================

package runtime

import (
	"container/list"
	"errors"
	"fmt"

	"miller/src/lib"
	"miller/src/types"
)

// ================================================================
// STACK VARIABLE

// StackVariable is an opaque handle which a callsite can hold onto, which
// keeps stack-offset information in it that is private to us.
type StackVariable struct {
	name string

	// Type like "int" or "num" or "var" is stored in the stack itself.  A
	// StackVariable can appear in the CST (concrete syntax tree) on either the
	// left-hand side or right-hande side of an assignment -- in the latter
	// case the callsite won't know the type until the value is read off the
	// stack.

	// TODO: comment
	frameSetOffset int
	offsetInFrame  int
}

// TODO: be sure to invalidate slot 0 for struct uninit
func NewStackVariable(name string) *StackVariable {
	return &StackVariable{
		name:           name,
		frameSetOffset: -1,
		offsetInFrame:  -1,
	}
}

// ================================================================
// STACK METHODS

type Stack struct {
	// list of *StackFrameSet
	stackFrameSets *list.List

	// Invariant: equal to the head of the stackFrameSets list. This is cached
	// since all sets/gets in between frameset-push and frameset-pop will all
	// and only be operating on the head.
	head *StackFrameSet
}

func NewStack() *Stack {
	stackFrameSets := list.New()
	head := newStackFrameSet()
	stackFrameSets.PushFront(head)
	return &Stack{
		stackFrameSets: stackFrameSets,
		head:           head,
	}
}

// For when a user-defined function/subroutine is being entered
func (this *Stack) PushStackFrameSet() {
	this.head = newStackFrameSet()
	this.stackFrameSets.PushFront(this.head)
}

// For when a user-defined function/subroutine is being exited
func (this *Stack) PopStackFrameSet() {
	this.stackFrameSets.Remove(this.stackFrameSets.Front())
	this.head = this.stackFrameSets.Front().Value.(*StackFrameSet)
}

// ----------------------------------------------------------------
// All of these are simply delegations to the head frameset

// For when an if/for/etc block is being entered
func (this *Stack) PushStackFrame() {
	this.head.pushStackFrame()
}

// For when an if/for/etc block is being exited
func (this *Stack) PopStackFrame() {
	this.head.popStackFrame()
}

// Returns nil on no-such
func (this *Stack) Get(
	stackVariable *StackVariable,
) *types.Mlrval {
	return this.head.get(stackVariable)
}

// For 'num a = 2', setting a variable at the current frame regardless of outer
// scope.  It's an error to define it again in the same scope, whether the type
// is the same or not.
func (this *Stack) DefineTypedAtScope(
	stackVariable *StackVariable,
	typeName string,
	mlrval *types.Mlrval,
) error {
	return this.head.defineTypedAtScope(stackVariable, typeName, mlrval)
}

// For untyped declarations at the current scope -- these are in binds of
// for-loop variables, except for triple-for.
// E.g. 'for (k, v in $*)' uses SetAtScope.
// E.g. 'for (int i = 0; i < 10; i += 1)' uses DefineTypedAtScope
// E.g. 'for (i = 0; i < 10; i += 1)' uses Set.
func (this *Stack) SetAtScope(
	stackVariable *StackVariable,
	mlrval *types.Mlrval,
) error {
	return this.head.setAtScope(stackVariable, mlrval)
}

// For 'a = 2', checking for outer-scoped to maybe reuse, else insert new in
// current frame. If the variable is entirely new it's set in the current frame
// with no type-checking. If it's not new the assignment is subject to
// type-checking for wherever the variable was defined. E.g. if it was
// previously defined with 'str a = "hello"' then this Set returns an error.
// However if it waa previously assigned untyped with 'a = "hello"' then the
// assignment is OK.
func (this *Stack) Set(
	stackVariable *StackVariable,
	mlrval *types.Mlrval,
) error {
	return this.head.set(stackVariable, mlrval)
}

// E.g. 'x[1] = 2' where the variable x may or may not have been already set.
func (this *Stack) SetIndexed(
	stackVariable *StackVariable,
	indices []*types.Mlrval,
	mlrval *types.Mlrval,
) error {
	return this.head.setIndexed(stackVariable, indices, mlrval)
}

// E.g. 'unset x'
func (this *Stack) Unset(
	stackVariable *StackVariable,
) {
	this.head.unset(stackVariable)
}

// E.g. 'unset x[1]'
func (this *Stack) UnsetIndexed(
	stackVariable *StackVariable,
	indices []*types.Mlrval,
) {
	this.head.unsetIndexed(stackVariable, indices)
}

func (this *Stack) Dump() {
	fmt.Printf("STACK FRAMESETS (count %d):\n", this.stackFrameSets.Len())
	for entry := this.stackFrameSets.Front(); entry != nil; entry = entry.Next() {
		stackFrameSet := entry.Value.(*StackFrameSet)
		stackFrameSet.dump()
	}
}

// ================================================================
// STACKFRAMESET METHODS

const stackFrameSetInitCap = 6

type StackFrameSet struct {
	stackFrames []*StackFrame
}

func newStackFrameSet() *StackFrameSet {
	stackFrames := make([]*StackFrame, 1, stackFrameSetInitCap)
	stackFrames[0] = newStackFrame()
	return &StackFrameSet{
		stackFrames: stackFrames,
	}
}

func (this *StackFrameSet) pushStackFrame() {
	this.stackFrames = append(this.stackFrames, newStackFrame())
}

func (this *StackFrameSet) popStackFrame() {
	this.stackFrames = this.stackFrames[0 : len(this.stackFrames)-1]
}

func (this *StackFrameSet) dump() {
	fmt.Printf("  STACK FRAMES (count %d):\n", len(this.stackFrames))
	for _, stackFrame := range this.stackFrames {
		fmt.Printf("    VARIABLES (count %d):\n", len(stackFrame.vars))
		for _, v := range stackFrame.vars {
			fmt.Printf("      %-16s %s\n", v.GetName(), v.ValueString())
		}
	}
}

// Returns nil on no-such
func (this *StackFrameSet) get(
	stackVariable *StackVariable,
) *types.Mlrval {
	// TODO: comment
	fso := stackVariable.frameSetOffset
	oif := stackVariable.offsetInFrame
	if fso >= 0 && fso < len(this.stackFrames) && oif >= 0 && oif < len(this.stackFrames[fso].vars) {
		return this.stackFrames[fso].vars[oif].GetValue()
	} else {
		return this.getUncached(stackVariable)
	}
}

// Returns nil on no-such
func (this *StackFrameSet) getUncached(
	stackVariable *StackVariable,
) *types.Mlrval {
	// Scope-walk
	numStackFrames := len(this.stackFrames)
	for offset := numStackFrames - 1; offset >= 0; offset-- {
		stackFrame := this.stackFrames[offset]
		mlrval := stackFrame.get(stackVariable)
		if mlrval != nil {
			// TODO: comment
			stackVariable.frameSetOffset = offset
			return mlrval
		}
	}
	return nil
}

// See Stack.DefineTypedAtScope comments above
func (this *StackFrameSet) defineTypedAtScope(
	stackVariable *StackVariable,
	typeName string,
	mlrval *types.Mlrval,
) error {
	offset := len(this.stackFrames) - 1
	// TODO: comment
	stackVariable.frameSetOffset = offset
	return this.stackFrames[offset].defineTyped(
		stackVariable, typeName, mlrval,
	)
}

// See Stack.SetAtScope comments above
func (this *StackFrameSet) setAtScope(
	stackVariable *StackVariable,
	mlrval *types.Mlrval,
) error {
	offset := len(this.stackFrames) - 1
	// TODO: comment
	stackVariable.frameSetOffset = offset
	return this.stackFrames[offset].set(stackVariable, mlrval)
}

// See Stack.Set comments above
func (this *StackFrameSet) set(
	stackVariable *StackVariable,
	mlrval *types.Mlrval,
) error {
	fso := stackVariable.frameSetOffset
	oif := stackVariable.offsetInFrame
	if fso >= 0 && fso < len(this.stackFrames) && oif >= 0 && oif < len(this.stackFrames[fso].vars) {
		return this.stackFrames[fso].vars[oif].Assign(mlrval.Copy())
	} else {
		return this.setUncached(stackVariable, mlrval)
	}
}

// See Stack.Set comments above
func (this *StackFrameSet) setUncached(
	stackVariable *StackVariable,
	mlrval *types.Mlrval,
) error {
	// Scope-walk
	numStackFrames := len(this.stackFrames)
	for offset := numStackFrames - 1; offset >= 0; offset-- {
		stackFrame := this.stackFrames[offset]
		if stackFrame.has(stackVariable) {
			// TODO: comment
			stackVariable.frameSetOffset = offset
			return stackFrame.set(stackVariable, mlrval)
		}
	}
	return this.setAtScope(stackVariable, mlrval)
}

// See Stack.SetIndexed comments above
func (this *StackFrameSet) setIndexed(
	stackVariable *StackVariable,
	indices []*types.Mlrval,
	mlrval *types.Mlrval,
) error {
	// Scope-walk
	numStackFrames := len(this.stackFrames)
	for offset := numStackFrames - 1; offset >= 0; offset-- {
		stackFrame := this.stackFrames[offset]
		if stackFrame.has(stackVariable) {
			// TODO: comment
			stackVariable.frameSetOffset = offset
			return stackFrame.setIndexed(stackVariable, indices, mlrval)
		}
	}
	// TODO: comment
	offset := numStackFrames - 1
	stackVariable.frameSetOffset = offset
	return this.stackFrames[offset].setIndexed(stackVariable, indices, mlrval)
}

// See Stack.Unset comments above
func (this *StackFrameSet) unset(
	stackVariable *StackVariable,
) {
	// Scope-walk
	numStackFrames := len(this.stackFrames)
	for offset := numStackFrames - 1; offset >= 0; offset-- {
		stackFrame := this.stackFrames[offset]
		if stackFrame.has(stackVariable) {
			stackFrame.unset(stackVariable)
			return
		}
	}
}

// See Stack.UnsetIndexed comments above
func (this *StackFrameSet) unsetIndexed(
	stackVariable *StackVariable,
	indices []*types.Mlrval,
) {
	// Scope-walk
	numStackFrames := len(this.stackFrames)
	for offset := numStackFrames - 1; offset >= 0; offset-- {
		stackFrame := this.stackFrames[offset]
		if stackFrame.has(stackVariable) {
			stackFrame.unsetIndexed(stackVariable, indices)
			return
		}
	}
}

// ================================================================
// STACKFRAME METHODS

const stackFrameInitCap = 10

type StackFrame struct {
	// TODO: just a map for now. In the C impl, pre-computation of
	// name-to-array-slot indices was an important optimization, especially for
	// compute-intensive scenarios.
	//vars map[string]*types.TypeGatedMlrvalVariable

	// TODO: comment
	vars           []*types.TypeGatedMlrvalVariable
	namesToOffsets map[string]int
}

func newStackFrame() *StackFrame {
	vars := make([]*types.TypeGatedMlrvalVariable, 0, stackFrameInitCap)
	namesToOffsets := make(map[string]int)
	return &StackFrame{
		vars:           vars,
		namesToOffsets: namesToOffsets,
	}
}

// Returns nil on no such
func (this *StackFrame) get(
	stackVariable *StackVariable,
) *types.Mlrval {
	offset, ok := this.namesToOffsets[stackVariable.name]
	if ok {
		// TODO: comment
		stackVariable.offsetInFrame = offset
		return this.vars[offset].GetValue()
	} else {
		return nil
	}
}

func (this *StackFrame) has(
	stackVariable *StackVariable,
) bool {
	_, ok := this.namesToOffsets[stackVariable.name]
	return ok
}

// TODO: audit for honor of error-return at callsites
func (this *StackFrame) set(
	stackVariable *StackVariable,
	mlrval *types.Mlrval,
) error {
	offset, ok := this.namesToOffsets[stackVariable.name]
	if !ok {
		slot, err := types.NewTypeGatedMlrvalVariable(stackVariable.name, "any", mlrval)
		if err != nil {
			return err
		}
		this.vars = append(this.vars, slot)
		offsetInFrame := len(this.vars) - 1
		this.namesToOffsets[stackVariable.name] = offsetInFrame
		// TODO: comment
		stackVariable.offsetInFrame = offsetInFrame
		return nil
	} else {
		return this.vars[offset].Assign(mlrval)
	}
}

// TODO: audit for honor of error-return at callsites
func (this *StackFrame) defineTyped(
	stackVariable *StackVariable,
	typeName string,
	mlrval *types.Mlrval,
) error {
	_, ok := this.namesToOffsets[stackVariable.name]
	if !ok {
		slot, err := types.NewTypeGatedMlrvalVariable(stackVariable.name, typeName, mlrval)
		if err != nil {
			return err
		}
		this.vars = append(this.vars, slot)
		offsetInFrame := len(this.vars) - 1
		this.namesToOffsets[stackVariable.name] = offsetInFrame
		// TODO: comment
		stackVariable.offsetInFrame = offsetInFrame
		return nil
	} else {
		return errors.New(
			fmt.Sprintf(
				"%s: variable %s has already been defined in the same scope.",
				lib.MlrExeName(), stackVariable.name,
			),
		)
	}
}

// TODO: audit for honor of error-return at callsites
func (this *StackFrame) setIndexed(
	stackVariable *StackVariable,
	indices []*types.Mlrval,
	mlrval *types.Mlrval,
) error {
	value := this.get(stackVariable)
	if value == nil {
		lib.InternalCodingErrorIf(len(indices) < 1)
		leadingIndex := indices[0]
		if leadingIndex.IsString() || leadingIndex.IsInt() {
			newval := types.MlrvalEmptyMap()
			newval.PutIndexed(indices, mlrval)
			return this.set(stackVariable, &newval)
		} else {
			return errors.New(
				fmt.Sprintf(
					"%s: map indices must be int or string; got %s.\n",
					lib.MlrExeName(), leadingIndex.GetTypeName(),
				),
			)
		}
	} else {
		// For example maybe the variable exists and is an array but the
		// leading index is a string.
		return value.PutIndexed(indices, mlrval)
	}
}

func (this *StackFrame) unset(
	stackVariable *StackVariable,
) {
	offset, ok := this.namesToOffsets[stackVariable.name]
	if ok {
		this.vars[offset].Unassign()
	}
}

func (this *StackFrame) unsetIndexed(
	stackVariable *StackVariable,
	indices []*types.Mlrval,
) {
	value := this.get(stackVariable)
	if value == nil {
		return
	}
	value.RemoveIndexed(indices)
}