package expressions

import (
	"fmt"
	"reflect"

	"github.com/osteele/liquid/generics"
)

// An InterpreterError is an error during expression interpretation.
// It is used for errors in the input expression, to distinguish them
// from implementation errors in the interpreter.
type InterpreterError string

func (e InterpreterError) Error() string { return string(e) }

// UndefinedFilter is an error that the named filter is not defined.
type UndefinedFilter string

func (e UndefinedFilter) Error() string {
	return fmt.Sprintf("undefined filter: %s", string(e))
}

type valueFn func(Context) interface{}

type filterDictionary struct {
	filters map[string]interface{}
}

func newFilterDictionary() *filterDictionary {
	return &filterDictionary{map[string]interface{}{}}
}

// addFilter defines a filter.
func (d *filterDictionary) addFilter(name string, fn interface{}) {
	rf := reflect.ValueOf(fn)
	switch {
	case rf.Kind() != reflect.Func:
		panic(fmt.Errorf("a filter must be a function"))
	case rf.Type().NumIn() < 1:
		panic(fmt.Errorf("a filter function must have at least one input"))
	case rf.Type().NumOut() > 2:
		panic(fmt.Errorf("a filter must be have one or two outputs"))
		// case rf.Type().Out(1).Implements(…):
		// 	panic(fmt.Errorf("a filter's second output must be type error"))
	}
	d.filters[name] = fn
}

func isClosureInterfaceType(t reflect.Type) bool {
	closureType := reflect.TypeOf(closure{})
	interfaceType := reflect.TypeOf([]interface{}{}).Elem()
	return closureType.ConvertibleTo(t) && !interfaceType.ConvertibleTo(t)
}

func (d *filterDictionary) runFilter(ctx Context, f valueFn, name string, params []valueFn) interface{} {
	filter, ok := d.filters[name]
	if !ok {
		panic(UndefinedFilter(name))
	}
	fr := reflect.ValueOf(filter)
	args := []interface{}{f(ctx)}
	for i, param := range params {
		if i+1 < fr.Type().NumIn() && isClosureInterfaceType(fr.Type().In(i+1)) {
			expr, err := Parse(param(ctx).(string))
			if err != nil {
				panic(err)
			}
			args = append(args, closure{expr, ctx})
		} else {
			args = append(args, param(ctx))
		}
	}
	out, err := generics.Call(fr, args)
	if err != nil {
		panic(err)
	}
	switch out := out.(type) {
	case []byte:
		return string(out)
	default:
		return out
	}
}