package jsonpatch

import (
	"bytes"
	"encoding/json"
	"fmt"
	"reflect"
	"strings"
)

var errBadJSONDoc = fmt.Errorf("invalid JSON Document")

type PatchOperation struct {
	Value     interface{} `json:"value,omitempty"`
	Operation string      `json:"op"`
	Path      string      `json:"path"`
}

func (j *PatchOperation) JSON() string {
	b, _ := json.Marshal(j)
	return string(b)
}

func (j *PatchOperation) MarshalJSON() ([]byte, error) {
	var b bytes.Buffer

	b.WriteString("{")
	b.WriteString(fmt.Sprintf(`"op":%q`, j.Operation))
	b.WriteString(fmt.Sprintf(`,"path":%q`, j.Path))

	// Consider omitting Value for non-nullable operations.
	if j.Value != nil || j.Operation == "replace" || j.Operation == "add" {
		v, err := json.Marshal(j.Value)
		if err != nil {
			return nil, err
		}

		b.WriteString(`,"value":`)
		b.Write(v)
	}

	b.WriteString("}")

	return b.Bytes(), nil
}

type ByPath []PatchOperation

func (a ByPath) Len() int           { return len(a) }
func (a ByPath) Swap(i, j int)      { a[i], a[j] = a[j], a[i] }
func (a ByPath) Less(i, j int) bool { return a[i].Path < a[j].Path }

func NewPatch(operation, path string, value interface{}) PatchOperation {
	return PatchOperation{Operation: operation, Path: path, Value: value}
}

// CreatePatch creates a patch as specified in http://jsonpatch.com/
//
// 'a' is original, 'b' is the modified document. Both are to be given as json encoded content.
// The function will return an array of JsonPatchOperations
//
// An error will be returned if any of the two documents are invalid.
func CreatePatch(a, b []byte) ([]PatchOperation, error) {
	aI := map[string]interface{}{}
	bI := map[string]interface{}{}

	err := json.Unmarshal(a, &aI)
	if err != nil {
		return nil, errBadJSONDoc
	}

	err = json.Unmarshal(b, &bI)
	if err != nil {
		return nil, errBadJSONDoc
	}

	return diff(aI, bI, "", []PatchOperation{})
}

// Returns true if the values matches (must be json types)
// The types of the values must match, otherwise it will always return false
// If two map[string]interface{} are given, all elements must match.
func matchesValue(av, bv interface{}) bool {
	if reflect.TypeOf(av) != reflect.TypeOf(bv) {
		return false
	}

	switch at := av.(type) {
	case string:
		bt := bv.(string)
		if bt == at {
			return true
		}
	case float64:
		bt := bv.(float64)
		if bt == at {
			return true
		}
	case bool:
		bt := bv.(bool)
		if bt == at {
			return true
		}
	case map[string]interface{}:
		bt := bv.(map[string]interface{})

		for key := range at {
			if !matchesValue(at[key], bt[key]) {
				return false
			}
		}

		for key := range bt {
			if !matchesValue(at[key], bt[key]) {
				return false
			}
		}

		return true
	case []interface{}:
		bt := bv.([]interface{})
		if len(bt) != len(at) {
			return false
		}

		for key := range at {
			if !matchesValue(at[key], bt[key]) {
				return false
			}
		}

		for key := range bt {
			if !matchesValue(at[key], bt[key]) {
				return false
			}
		}

		return true
	}

	return false
}

// From http://tools.ietf.org/html/rfc6901#section-4 :
//
// Evaluation of each reference token begins by decoding any escaped
// character sequence.  This is performed by first transforming any
// occurrence of the sequence '~1' to '/', and then transforming any
// occurrence of the sequence '~0' to '~'.
//   TODO decode support:
//   var rfc6901Decoder = strings.NewReplacer("~1", "/", "~0", "~")

var rfc6901Encoder = strings.NewReplacer("~", "~0", "/", "~1")

func makePath(path string, newPart interface{}) string {
	key := rfc6901Encoder.Replace(fmt.Sprintf("%v", newPart))
	if path == "" {
		return "/" + key
	}

	if strings.HasSuffix(path, "/") {
		return path + key
	}

	return path + "/" + key
}

// diff returns the (recursive) difference between a and b as an array of JsonPatchOperations.
func diff(
	a, b map[string]interface{}, path string, patch []PatchOperation,
) ([]PatchOperation, error) {
	for key, bv := range b {
		p := makePath(path, key)

		av, ok := a[key]
		// value was added
		if !ok {
			patch = append(patch, NewPatch("add", p, bv))
			continue
		}

		// If types have changed, replace completely
		if reflect.TypeOf(av) != reflect.TypeOf(bv) {
			patch = append(patch, NewPatch("replace", p, bv))
			continue
		}

		// Types are the same, compare values
		var err error

		patch, err = handleValues(av, bv, p, patch)
		if err != nil {
			return nil, err
		}
	}
	// Now add all deleted values as nil
	for key := range a {
		_, found := b[key]
		if !found {
			p := makePath(path, key)

			patch = append(patch, NewPatch("remove", p, nil))
		}
	}

	return patch, nil
}

func handleValues(
	av, bv interface{}, p string, patch []PatchOperation,
) ([]PatchOperation, error) {
	var err error

	switch at := av.(type) {
	case map[string]interface{}:
		bt := bv.(map[string]interface{})

		patch, err = diff(at, bt, p, patch)
		if err != nil {
			return nil, err
		}
	case string, float64, bool:
		if !matchesValue(av, bv) {
			patch = append(patch, NewPatch("replace", p, bv))
		}
	case []interface{}:
		bt, ok := bv.([]interface{})
		if !ok {
			// array replaced by non-array
			patch = append(patch, NewPatch("replace", p, bv))
		} else {
			minLen := minimum(len(at), len(bt))
			for i := 0; i < minLen; i++ {
				// Patch matching indices.
				patch, err = handleValues(at[i], bt[i], makePath(p, i), patch)
				if err != nil {
					return nil, err
				}
			}

			for i := len(at) - 1; i >= minLen; i-- {
				// Deleting in ascending order changes indices of remaining elements.
				// Remove deleted indices in reverse order so that each delete operation acts on correct indices.
				patch = append(patch, NewPatch("remove", makePath(p, i), nil))
			}

			for i := minLen; i < len(bt); i++ {
				// Add new elements.
				patch = append(patch, NewPatch("add", makePath(p, i), bt[i]))
			}
		}
	case nil:
		switch bv.(type) {
		case nil:
			// Both nil, fine.
		default:
			patch = append(patch, NewPatch("add", p, bv))
		}
	default:
		panic(fmt.Sprintf("Unknown type:%T ", av))
	}

	return patch, nil
}

func compareArray(av, bv []interface{}, p string) []PatchOperation { //nolint:unparam // external lib
	var retVal []PatchOperation

	for i, v := range av {
		found := false

		for _, v2 := range bv {
			if reflect.DeepEqual(v, v2) {
				found = true
				break
			}
		}

		if !found {
			retVal = append(retVal, NewPatch("remove", makePath(p, i), nil))
		}
	}

	for i, v := range bv {
		found := false

		for _, v2 := range av {
			if reflect.DeepEqual(v, v2) {
				found = true
				break
			}
		}

		if !found {
			retVal = append(retVal, NewPatch("add", makePath(p, i), v))
		}
	}

	return retVal
}

func minimum(x, y int) int {
	if x < y {
		return x
	}

	return y
}
