// Copyright 2017 gf Author(https://github.com/gogf/gf). All Rights Reserved.
//
// This Source Code Form is subject to the terms of the MIT License.
// If a copy of the MIT was not distributed with this file,
// You can obtain one at https://github.com/gogf/gf.

// Package gjson provides flexible and useful API for JSON/XML/YAML/TOML content handling.
//
// JSON/XML/YAML/TOML数据格式处理。
package gjson

import (
    "bytes"
    "encoding/json"
    "errors"
    "fmt"
    "github.com/gogf/gf/g/encoding/gtoml"
    "github.com/gogf/gf/g/encoding/gxml"
    "github.com/gogf/gf/g/encoding/gyaml"
    "github.com/gogf/gf/g/internal/rwmutex"
    "github.com/gogf/gf/g/os/gfcache"
    "github.com/gogf/gf/g/os/gfile"
    "github.com/gogf/gf/g/text/gregex"
    "github.com/gogf/gf/g/text/gstr"
    "github.com/gogf/gf/g/util/gconv"
    "reflect"
    "strconv"
    "strings"
    "time"
)

const (
    gDEFAULT_SPLIT_CHAR = '.' // 默认层级分隔符号
)

// json解析结果存放数组
type Json struct {
    mu *rwmutex.RWMutex
    p  *interface{} // 注意这是一个指针
    c  byte         // 层级分隔符，默认为"."
    vc bool         // 层级检索是否执行分隔符冲突检测(默认为false，检测会比较影响检索效率)
}

// 将变量转换为Json对象进行处理，该变量至少应当是一个map或者slice，否者转换没有意义
func New(data interface{}, unsafe...bool) *Json {
    j := (*Json)(nil)
    switch data.(type) {
        case map[string]interface{}, []interface{}, nil:
            j = &Json {
                p  : &data,
                c  : byte(gDEFAULT_SPLIT_CHAR),
                vc : false ,
            }
        case string, []byte:
            j, _ = LoadContent(gconv.Bytes(data))
        default:
            v := (interface{})(nil)
            if m := gconv.Map(data); m != nil {
                v = m
                j = &Json {
                    p  : &v,
                    c  : byte(gDEFAULT_SPLIT_CHAR),
                    vc : false,
                }
            } else {
                v = gconv.Interfaces(data)
                j = &Json {
                    p  : &v,
                    c  : byte(gDEFAULT_SPLIT_CHAR),
                    vc : false,
                }
            }
    }
    j.mu = rwmutex.New(unsafe...)
    return j
}

// 创建一个非并发安全的Json对象
func NewUnsafe(data...interface{}) *Json {
    if len(data) > 0 {
        return New(data[0], true)
    }
    return New(nil, true)
}

// 识别当前给定内容是否为JSON格式
func Valid(data interface{}) bool {
    return json.Valid(gconv.Bytes(data))
}

// 编码go变量为json字符串，并返回json字符串指针
func Encode(value interface{}) ([]byte, error) {
    return json.Marshal(value)
}

// 解码字符串/[]byte为interface{}变量
func Decode(data interface{}) (interface{}, error) {
    var value interface{}
    if err := DecodeTo(gconv.Bytes(data), &value); err != nil {
        return nil, err
    } else {
        return value, nil
    }
}

// 解析json字符串/[]byte为go变量，注意第二个参数为指针(任意结构的变量)
func DecodeTo(data interface{}, v interface{}) error {
    decoder := json.NewDecoder(bytes.NewReader(gconv.Bytes(data)))
    decoder.UseNumber()
    return decoder.Decode(v)
}

// 解析json字符串为gjson.Json对象，并返回操作对象指针
func DecodeToJson(data interface{}) (*Json, error) {
    if v, err := Decode(gconv.Bytes(data)); err != nil {
        return nil, err
    } else {
        return New(v), nil
    }
}

// 支持多种配置文件类型转换为json格式内容并解析为gjson.Json对象
func Load(path string) (*Json, error) {
    return LoadContent(gfcache.GetBinContents(path), gfile.Ext(path))
}

// 支持的配置文件格式：xml, json, yaml/yml, toml,
// 默认为自动识别，当无法检测成功时使用json解析。
func LoadContent(data interface{}, dataType...string) (*Json, error) {
    var err    error
    var result interface{}
    b := gconv.Bytes(data)
    t := "json"
    if len(dataType) > 0 {
        t = dataType[0]
    } else {
        if json.Valid(b) {
            t = "json"
        } else if gregex.IsMatch(`<.+>.*</.+>`, b) {
            t = "xml"
        } else if gregex.IsMatch(`\w+\s*:\s*.+`, b) {
            t = "yml"
        } else if gregex.IsMatch(`\w+\s*=\s*.+`, b) {
            t = "toml"
        }
    }
    // 其他数据格式解析
    switch t {
        case "json", ".json":
            // ok
        case "xml", ".xml":
            b, err = gxml.ToJson(b)

        case "yml", "yaml", ".yml", ".yaml":
            b, err = gyaml.ToJson(b)

        case "toml", ".toml":
            b, err = gtoml.ToJson(b)

        default:
            err = errors.New("nonsupport type " + t)
    }
    if err != nil {
        return nil, err
    }
    if result == nil {
        decoder := json.NewDecoder(bytes.NewReader(b))
        decoder.UseNumber()
        if err := decoder.Decode(&result); err != nil {
            return nil, err
        }
    }
    return New(result), nil
}

// 设置自定义的层级分隔符号
func (j *Json) SetSplitChar(char byte) {
    j.mu.Lock()
    j.c = char
    j.mu.Unlock()
}

// 设置是否执行层级冲突检查，当键名中存在层级符号时需要开启该特性，默认为关闭。
// 开启比较耗性能，也不建议允许键名中存在分隔符，最好在应用端避免这种情况。
func (j *Json) SetViolenceCheck(check bool) {
    j.mu.Lock()
    j.vc = check
    j.mu.Unlock()
}

// 将指定的json内容转换为指定结构返回，查找失败或者转换失败，目标对象转换为nil
// 注意第二个参数需要给的是**变量地址**
func (j *Json) GetToVar(pattern string, v interface{}) error {
    r := j.Get(pattern)
    if r != nil {
        if t, err := Encode(r); err == nil {
            return DecodeTo(t, v)
        } else {
            return err
        }
    } else {
        v = nil
    }
    return nil
}

// 获得一个键值对关联数组/哈希表，方便操作，不需要自己做类型转换
// 注意，如果获取的值不存在，或者类型与json类型不匹配，那么将会返回nil
func (j *Json) GetMap(pattern string) map[string]interface{} {
    result := j.Get(pattern)
    if result != nil {
        if r, ok := result.(map[string]interface{}); ok {
            return r
        }
    }
    return nil
}

// 将检索值转换为Json对象指针返回。
func (j *Json) GetJson(pattern string) *Json {
    result := j.Get(pattern)
    if result != nil {
        return New(result)
    }
    return nil
}

// 将检索值转换为Json对象指针数组返回。
func (j *Json) GetJsons(pattern string) []*Json {
    array := j.GetArray(pattern)
    if len(array) > 0 {
        jsons := make([]*Json, len(array))
        for i := 0; i < len(array); i++ {
            jsons[i] = New(array[i], !j.mu.IsSafe())
        }
        return jsons
    }
    return nil
}

// 获得一个数组[]interface{}，方便操作，不需要自己做类型转换。
func (j *Json) GetArray(pattern string) []interface{} {
    return gconv.Interfaces(j.Get(pattern))
}

// 返回指定json中的string
func (j *Json) GetString(pattern string) string {
    return gconv.String(j.Get(pattern))
}

// 返回指定json中的strings(转换为[]string数组)
func (j *Json) GetStrings(pattern string) []string {
    return gconv.Strings(j.Get(pattern))
}

func (j *Json) GetInterfaces(pattern string) []interface{} {
    return gconv.Interfaces(j.Get(pattern))
}

func (j *Json) GetTime(pattern string, format ... string) time.Time {
    return gconv.Time(j.Get(pattern), format...)
}

func (j *Json) GetTimeDuration(pattern string) time.Duration {
    return gconv.TimeDuration(j.Get(pattern))
}

// 返回指定json中的bool(false:"", 0, false, off)
func (j *Json) GetBool(pattern string) bool {
    return gconv.Bool(j.Get(pattern))
}

func (j *Json) GetInt(pattern string) int {
    return gconv.Int(j.Get(pattern))
}

func (j *Json) GetInt8(pattern string) int8 {
    return gconv.Int8(j.Get(pattern))
}

func (j *Json) GetInt16(pattern string) int16 {
    return gconv.Int16(j.Get(pattern))
}

func (j *Json) GetInt32(pattern string) int32 {
    return gconv.Int32(j.Get(pattern))
}

func (j *Json) GetInt64(pattern string) int64 {
    return gconv.Int64(j.Get(pattern))
}

func (j *Json) GetInts(pattern string) []int {
    return gconv.Ints(j.Get(pattern))
}

func (j *Json) GetUint(pattern string) uint {
    return gconv.Uint(j.Get(pattern))
}

func (j *Json) GetUint8(pattern string) uint8 {
    return gconv.Uint8(j.Get(pattern))
}

func (j *Json) GetUint16(pattern string) uint16 {
    return gconv.Uint16(j.Get(pattern))
}

func (j *Json) GetUint32(pattern string) uint32 {
    return gconv.Uint32(j.Get(pattern))
}

func (j *Json) GetUint64(pattern string) uint64 {
    return gconv.Uint64(j.Get(pattern))
}

func (j *Json) GetFloat32(pattern string) float32 {
    return gconv.Float32(j.Get(pattern))
}

func (j *Json) GetFloat64(pattern string) float64 {
    return gconv.Float64(j.Get(pattern))
}

func (j *Json) GetFloats(pattern string) []float64 {
    return gconv.Floats(j.Get(pattern))
}

// 将指定变量转换为struct对象(对象属性赋值)
func (j *Json) GetToStruct(pattern string, objPointer interface{}) error {
    return gconv.Struct(j.Get(pattern), objPointer)
}

// 动态设置层级变量
func (j *Json) Set(pattern string, value interface{}) error {
    return j.setValue(pattern, value, false)
}

// 动态删除层级变量
func (j *Json) Remove(pattern string) error {
    return j.setValue(pattern, nil, true)
}

// 根据pattern查找并设置数据
// 注意：
// 1、写入的value为nil且removed为true时，表示删除;
// 2、里面的层级处理比较复杂，逻辑较复杂的地方在于层级检索及节点创建，叶子赋值;
func (j *Json) setValue(pattern string, value interface{}, removed bool) error {
    array   := strings.Split(pattern, string(j.c))
    length  := len(array)
    value    = j.convertValue(value)
    // 初始化判断
    if *j.p == nil {
        if gstr.IsNumeric(array[0]) {
            *j.p = make([]interface{}, 0)
        } else {
            *j.p = make(map[string]interface{})
        }
    }
    var pparent *interface{} = nil // 父级元素项(设置时需要根据子级的内容确定数据类型，所以必须记录父级)
    var pointer *interface{} = j.p // 当前操作层级项
    j.mu.Lock()
    defer j.mu.Unlock()
    for i:= 0; i < length; i++ {
        switch (*pointer).(type) {
        case map[string]interface{}:
            if i == length - 1 {
                if removed && value == nil {
                    // 删除map元素
                    delete((*pointer).(map[string]interface{}), array[i])
                } else {
                    (*pointer).(map[string]interface{})[array[i]] = value
                }
            } else {
                // 当键名不存在的情况这里会进行处理
                if v, ok := (*pointer).(map[string]interface{})[array[i]]; !ok {
                    if removed && value == nil {
                        goto done
                    }
                    // 创建新节点
                    if gstr.IsNumeric(array[i + 1]) {
                        // 创建array节点
                        n, _ := strconv.Atoi(array[i + 1])
                        var v interface{} = make([]interface{}, n + 1)
                        pparent = j.setPointerWithValue(pointer, array[i], v)
                        pointer = &v
                    } else {
                        // 创建map节点
                        var v interface{} = make(map[string]interface{})
                        pparent = j.setPointerWithValue(pointer, array[i], v)
                        pointer = &v
                    }
                } else {
                    pparent = pointer
                    pointer = &v
                }
            }

        case []interface{}:
            // 键名与当前指针类型不符合，需要执行**覆盖操作**
            if !gstr.IsNumeric(array[i]) {
                if i == length - 1 {
                    *pointer = map[string]interface{}{ array[i] : value }
                } else {
                    var v interface{} = make(map[string]interface{})
                    *pointer = v
                    pparent  = pointer
                    pointer  = &v
                }
                continue
            }

            valn, err := strconv.Atoi(array[i])
            if err != nil {
                return err
            }
            // 叶子节点
            if i == length - 1 {
                if len((*pointer).([]interface{})) > valn {
                    if removed && value == nil {
                        // 删除数据元素
                        j.setPointerWithValue(pparent, array[i - 1], append((*pointer).([]interface{})[ : valn], (*pointer).([]interface{})[valn + 1 : ]...))
                    } else {
                        (*pointer).([]interface{})[valn] = value
                    }
                } else {
                    if removed && value == nil {
                        goto done
                    }
                    if pparent == nil {
                        // 表示根节点
                        j.setPointerWithValue(pointer, array[i], value)
                    } else {
                        // 非根节点
                        s := make([]interface{}, valn + 1)
                        copy(s, (*pointer).([]interface{}))
                        s[valn] = value
                        j.setPointerWithValue(pparent, array[i - 1], s)
                    }
                }
            } else {
                if gstr.IsNumeric(array[i + 1]) {
                    n, _ := strconv.Atoi(array[i + 1])
                    if len((*pointer).([]interface{})) > valn {
                        (*pointer).([]interface{})[valn] = make([]interface{}, n + 1)
                        pparent                          = pointer
                        pointer                          = &(*pointer).([]interface{})[valn]
                    } else {
                        if removed && value == nil {
                            goto done
                        }
                        var v interface{} = make([]interface{}, n + 1)
                        pparent = j.setPointerWithValue(pointer, array[i], v)
                        pointer = &v
                    }
                } else {
                    var v interface{} = make(map[string]interface{})
                    pparent = j.setPointerWithValue(pointer, array[i], v)
                    pointer = &v
                }
            }

            // 如果当前指针指向的变量不是引用类型的，
            // 那么修改变量必须通过父级进行修改，即 pparent
        default:
            if removed && value == nil {
                goto done
            }
            if gstr.IsNumeric(array[i]) {
                n, _    := strconv.Atoi(array[i])
                s       := make([]interface{}, n + 1)
                if i == length - 1 {
                    s[n] = value
                }
                if pparent != nil {
                    pparent = j.setPointerWithValue(pparent, array[i - 1], s)
                } else {
                    *pointer = s
                    pparent  = pointer
                }
            } else {
                var v interface{} = make(map[string]interface{})
                if i == length - 1 {
                    v = map[string]interface{}{
                        array[i] : value,
                    }
                }
                if pparent != nil {
                    pparent = j.setPointerWithValue(pparent, array[i - 1], v)
                } else {
                    *pointer = v
                    pparent  = pointer
                }
                pointer = &v
            }

        }
    }
done:
    return nil
}

// 数据结构转换，map参数必须转换为map[string]interface{}，数组参数必须转换为[]interface{}
func (j *Json) convertValue(value interface{}) interface{} {
    switch value.(type) {
        case map[string]interface{}:
            return value
        case []interface{}:
            return value
        default:
            rv   := reflect.ValueOf(value)
            kind := rv.Kind()
            if kind == reflect.Ptr {
                rv   = rv.Elem()
                kind = rv.Kind()
            }
            switch kind {
                case reflect.Array:  return gconv.Interfaces(value)
                case reflect.Slice:  return gconv.Interfaces(value)
                case reflect.Map:    return gconv.Map(value)
                case reflect.Struct: return gconv.Map(value)
                default:
                    // 最后使用JSON编解码
                    b, _ := Encode(value)
                    v, _ := Decode(b)
                    return v
            }
    }
}

// 用于Set方法中，对指针指向的内存地址进行赋值
// 返回修改后的父级指针
func (j *Json) setPointerWithValue(pointer *interface{}, key string, value interface{}) *interface{} {
    switch (*pointer).(type) {
        case map[string]interface{}:
            (*pointer).(map[string]interface{})[key] = value
            return &value
        case []interface{}:
            n, _ := strconv.Atoi(key)
            if len((*pointer).([]interface{})) > n {
                (*pointer).([]interface{})[n] = value
                return &(*pointer).([]interface{})[n]
            } else {
                s := make([]interface{}, n + 1)
                copy(s, (*pointer).([]interface{}))
                s[n] = value
                *pointer = s
                return &s[n]
            }
        default:
            *pointer = value
    }
    return pointer
}

// 根据约定字符串方式访问json解析数据，参数形如： "items.name.first", "list.0"; 当pattern为空时，表示获取所有数据;
// 返回的结果类型的interface{}，因此需要自己做类型转换;
// 如果找不到对应节点的数据，返回nil;
func (j *Json) Get(pattern...string) interface{} {
    j.mu.RLock()
    defer j.mu.RUnlock()

    queryPattern := ""
    if len(pattern) > 0 {
        queryPattern = pattern[0]
    }
    var result *interface{}
    if j.vc {
        result = j.getPointerByPattern(queryPattern)
    } else {
        result = j.getPointerByPatternWithoutViolenceCheck(queryPattern)
    }
    if result != nil {
        return *result
    }
    return nil
}

// 判断锁给定pattern是否数据存在
func (j *Json) Contains(pattern...string) bool {
    return j.Get(pattern...) != nil
}

// 计算指定pattern的元素长度(pattern对应数据类型为map/slice时有效)。
// 当pattern对应的数据类型非map/slice时，返回-1。
func (j *Json) Len(pattern string) int {
    p := j.getPointerByPattern(pattern)
    if p != nil {
        switch (*p).(type) {
            case map[string]interface{}:
                return len((*p).(map[string]interface{}))
            case []interface{}:
                return len((*p).([]interface{}))
            default:
                return -1
        }
    }
    return -1
}

// 指定pattern追加元素
func (j *Json) Append(pattern string, value interface{}) error {
    p := j.getPointerByPattern(pattern)
    if p == nil {
        return j.Set(fmt.Sprintf("%s.0", pattern), value)
    }
    switch (*p).(type) {
        case []interface{}:
            return j.Set(fmt.Sprintf("%s.%d", pattern, len((*p).([]interface{}))), value)
    }
    return fmt.Errorf("invalid variable type of %s", pattern)
}

// 根据pattern获取对应元素项的指针
func (j *Json) getPointerByPattern(pattern string) *interface{} {
    if j.vc {
        return j.getPointerByPatternWithViolenceCheck(pattern)
    } else {
        return j.getPointerByPatternWithoutViolenceCheck(pattern)
    }
}

// 根据pattern层级查找**变量指针**, 执行冲突检测。
// 检索方式：例如检索 a.a.a ，值为1
// 1. 检索 a.a.a.a 是否存在对应map的键名；
// 2. 检索 a.a.a   是否存在对应map的键名；
// 3. 检索 a.a     是否存在对应map的键名；
// 4. 检索 a       是否存在对应map的键名，如果检索出这是一个map，假如为变量m1；
// 5. 在m1中检索 a.a.a 否存在对应map的键名；
// 6. 在m1中检索 a.a   否存在对应map的键名；
// 7. 在m1中检索 a     否存在对应map的键名，如果检索出这是一个map，假如为变量m2；
// 8. 在m2中检索 a.a   否存在对应map的键名；
// 9. 在m2中检索 a     否存在对应map的键名，检索到有值，值为1；
// 这样检索的复杂度很高，主要是为了避免键名中存在分隔符号(默认为".")的情况，避免歧义。
func (j *Json) getPointerByPatternWithViolenceCheck(pattern string) *interface{} {
    if !j.vc {
        return j.getPointerByPatternWithoutViolenceCheck(pattern)
    }
    index   := len(pattern)
    start   := 0
    length  := 0
    pointer := j.p
    if index == 0 {
        return pointer
    }
    for {
        if r := j.checkPatternByPointer(pattern[start:index], pointer); r != nil {
            length += index - start
            if start > 0 {
                length += 1
            }
            start = index + 1
            index = len(pattern)
            if length == len(pattern) {
                return r
            } else {
                pointer = r
            }
        } else {
            // 查找下一个分割符号的索引位置
            index = strings.LastIndexByte(pattern[start:index], j.c)
            if index != -1 && length > 0 {
                index += length + 1
            }
        }
        if start >= index {
            break
        }
    }
    return nil
}

// 层级检索，内部不执行分隔符冲突检查，检索效率会有所提高，但是冲突需要开发者自己根据自定义的分隔符来进行解决
func (j *Json) getPointerByPatternWithoutViolenceCheck(pattern string) *interface{} {
    if j.vc {
        return j.getPointerByPatternWithViolenceCheck(pattern)
    }
    pointer := j.p
    if len(pattern) == 0 {
        return pointer
    }
    array := strings.Split(pattern, string(j.c))
    for k, v := range array {
        if r := j.checkPatternByPointer(v, pointer); r != nil {
            if k == len(array) - 1 {
                return r
            } else {
                pointer = r
            }
        } else {
            break
        }
    }
    return nil
}

// 判断给定的key在当前的pointer下是否有值，并返回对应的pointer,
// 注意这里返回的指针都是临时变量的内存地址
func (j *Json) checkPatternByPointer(key string, pointer *interface{}) *interface{} {
    switch (*pointer).(type) {
        case map[string]interface{}:
            if v, ok := (*pointer).(map[string]interface{})[key]; ok {
                return &v
            }
        case []interface{}:
            if gstr.IsNumeric(key) {
                n, err := strconv.Atoi(key)
                if err == nil && len((*pointer).([]interface{})) > n {
                    return &(*pointer).([]interface{})[n]
                }
            }
    }
    return nil
}

// 转换为map[string]interface{}类型,如果转换失败，返回nil
func (j *Json) ToMap() map[string]interface{} {
    j.mu.RLock()
    defer j.mu.RUnlock()
    switch (*(j.p)).(type) {
        case map[string]interface{}:
            return (*(j.p)).(map[string]interface{})
        default:
            return nil
    }
}

// 转换为[]interface{}类型,如果转换失败，返回nil
func (j *Json) ToArray() []interface{} {
    j.mu.RLock()
    defer j.mu.RUnlock()
    switch (*(j.p)).(type) {
    case []interface{}:
        return (*(j.p)).([]interface{})
    default:
        return nil
    }
}

func (j *Json) ToXml(rootTag...string) ([]byte, error) {
    return gxml.Encode(j.ToMap(), rootTag...)
}

func (j *Json) ToXmlString(rootTag...string) (string, error) {
    b, e := j.ToXml(rootTag...)
    return string(b), e
}

func (j *Json) ToXmlIndent(rootTag...string) ([]byte, error) {
    return gxml.EncodeWithIndent(j.ToMap(), rootTag...)
}

func (j *Json) ToXmlIndentString(rootTag...string) (string, error) {
    b, e := j.ToXmlIndent(rootTag...)
    return string(b), e
}

func (j *Json) ToJson() ([]byte, error) {
    j.mu.RLock()
    defer j.mu.RUnlock()
    return Encode(*(j.p))
}

func (j *Json) ToJsonString() (string, error) {
    b, e := j.ToJson()
    return string(b), e
}

func (j *Json) ToJsonIndent() ([]byte, error) {
    j.mu.RLock()
    defer j.mu.RUnlock()
    return json.MarshalIndent(*(j.p), "", "\t")
}

func (j *Json) ToJsonIndentString() (string, error) {
    b, e := j.ToJsonIndent()
    return string(b), e
}

func (j *Json) ToYaml() ([]byte, error) {
    j.mu.RLock()
    defer j.mu.RUnlock()
    return gyaml.Encode(*(j.p))
}

func (j *Json) ToYamlString() (string, error) {
    b, e := j.ToYaml()
    return string(b), e
}

func (j *Json) ToToml() ([]byte, error) {
    j.mu.RLock()
    defer j.mu.RUnlock()
    return gtoml.Encode(*(j.p))
}

func (j *Json) ToTomlString() (string, error) {
    b, e := j.ToToml()
    return string(b), e
}

// 转换为指定的struct对象
func (j *Json) ToStruct(o interface{}) error {
    j.mu.RLock()
    defer j.mu.RUnlock()
    return gconv.Struct(*(j.p), o)
}

// 打印Json对象
func (j *Json) Dump() error {
    j.mu.RLock()
    defer j.mu.RUnlock()
    if b, err := j.ToJsonIndent(); err != nil {
        return err
    } else {
        fmt.Println(string(b))
    }
    return nil
}