package redis

import (
	"context"
	"fmt"
	"reflect"
	"strings"
	"time"

	redis "github.com/redis/go-redis/v9"
	"go.unistack.org/micro/v3/semconv"
	"go.unistack.org/micro/v3/store"
	pool "go.unistack.org/micro/v3/util/xpool"
)

var (
	DefaultPathSeparator = "/"

	DefaultClusterOptions = &redis.ClusterOptions{
		Username:        "",
		Password:        "", // no password set
		MaxRetries:      2,
		MaxRetryBackoff: 256 * time.Millisecond,
		DialTimeout:     1 * time.Second,
		ReadTimeout:     1 * time.Second,
		WriteTimeout:    1 * time.Second,
		PoolTimeout:     1 * time.Second,
		MinIdleConns:    10,
	}

	DefaultOptions = &redis.Options{
		Username:        "",
		Password:        "", // no password set
		DB:              0,  // use default DB
		MaxRetries:      2,
		MaxRetryBackoff: 256 * time.Millisecond,
		DialTimeout:     1 * time.Second,
		ReadTimeout:     1 * time.Second,
		WriteTimeout:    1 * time.Second,
		PoolTimeout:     1 * time.Second,
		MinIdleConns:    10,
	}
)

type Store struct {
	opts store.Options
	cli  *wrappedClient
	done chan struct{}
	pool pool.Pool[*strings.Builder]
}

type wrappedClient struct {
	*redis.Client
	*redis.ClusterClient
}

func (r *Store) Connect(ctx context.Context) error {
	var err error
	if r.cli.Client != nil {
		err = r.cli.Client.Ping(ctx).Err()
	}
	err = r.cli.ClusterClient.Ping(ctx).Err()
	setSpanError(ctx, err)
	return err
}

func (r *Store) Init(opts ...store.Option) error {
	for _, o := range opts {
		o(&r.opts)
	}

	err := r.configure()
	if err != nil {
		return err
	}

	return nil
}

func (r *Store) Client() *redis.Client {
	if r.cli.Client != nil {
		return r.cli.Client
	}
	return nil
}

func (r *Store) ClusterClient() *redis.ClusterClient {
	if r.cli.ClusterClient != nil {
		return r.cli.ClusterClient
	}
	return nil
}

func (r *Store) Disconnect(ctx context.Context) error {
	var err error
	select {
	case <-r.done:
		return err
	default:
		if r.cli.Client != nil {
			err = r.cli.Client.Close()
		} else if r.cli.ClusterClient != nil {
			err = r.cli.ClusterClient.Close()
		}
		close(r.done)
		return err
	}
}

func (r *Store) Exists(ctx context.Context, key string, opts ...store.ExistsOption) error {
	options := store.NewExistsOptions(opts...)

	timeout := r.opts.Timeout
	if options.Timeout > 0 {
		timeout = options.Timeout
	}

	if timeout > 0 {
		var cancel context.CancelFunc
		ctx, cancel = context.WithTimeout(ctx, timeout)
		defer cancel()
	}

	rkey := r.getKey(r.opts.Namespace, options.Namespace, key)

	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Inc()
	ts := time.Now()
	var err error
	var val int64
	if r.cli.Client != nil {
		val, err = r.cli.Client.Exists(ctx, rkey).Result()
	} else {
		val, err = r.cli.ClusterClient.Exists(ctx, rkey).Result()
	}
	setSpanError(ctx, err)
	te := time.Since(ts)
	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Dec()
	r.opts.Meter.Summary(semconv.StoreRequestLatencyMicroseconds, "name", options.Name).Update(te.Seconds())
	r.opts.Meter.Histogram(semconv.StoreRequestDurationSeconds, "name", options.Name).Update(te.Seconds())
	if err == redis.Nil || (err == nil && val == 0) {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "miss").Inc()
		return store.ErrNotFound
	} else if err == nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "hit").Inc()
	} else if err != nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "failure").Inc()
		return err
	}

	return nil
}

func (r *Store) Read(ctx context.Context, key string, val interface{}, opts ...store.ReadOption) error {
	options := store.NewReadOptions(opts...)

	timeout := r.opts.Timeout
	if options.Timeout > 0 {
		timeout = options.Timeout
	}

	if timeout > 0 {
		var cancel context.CancelFunc
		ctx, cancel = context.WithTimeout(ctx, timeout)
		defer cancel()
	}

	rkey := r.getKey(r.opts.Namespace, options.Namespace, key)

	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Inc()
	ts := time.Now()
	var buf []byte
	var err error
	if r.cli.Client != nil {
		buf, err = r.cli.Client.Get(ctx, rkey).Bytes()
	} else {
		buf, err = r.cli.ClusterClient.Get(ctx, rkey).Bytes()
	}
	setSpanError(ctx, err)
	te := time.Since(ts)
	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Dec()
	r.opts.Meter.Summary(semconv.StoreRequestLatencyMicroseconds, "name", options.Name).Update(te.Seconds())
	r.opts.Meter.Histogram(semconv.StoreRequestDurationSeconds, "name", options.Name).Update(te.Seconds())
	if err == redis.Nil || (err == nil && buf == nil) {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "miss").Inc()
		return store.ErrNotFound
	} else if err == nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "hit").Inc()
	} else if err != nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "failure").Inc()
		return err
	}

	switch b := val.(type) {
	case *[]byte:
		*b = buf
	case *string:
		*b = string(buf)
	default:
		if err = r.opts.Codec.Unmarshal(buf, val); err != nil {
			setSpanError(ctx, err)
		}
	}

	return err
}

func (r *Store) MRead(ctx context.Context, keys []string, vals interface{}, opts ...store.ReadOption) error {
	options := store.NewReadOptions(opts...)

	timeout := r.opts.Timeout
	if options.Timeout > 0 {
		timeout = options.Timeout
	}

	if timeout > 0 {
		var cancel context.CancelFunc
		ctx, cancel = context.WithTimeout(ctx, timeout)
		defer cancel()
	}

	var rkeys []string
	if r.opts.Namespace != "" || options.Namespace != "" {
		rkeys = make([]string, len(keys))
		for idx, key := range keys {
			rkeys[idx] = r.getKey(r.opts.Namespace, options.Namespace, key)
		}
	}

	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Inc()
	ts := time.Now()
	var rvals []interface{}
	var err error
	if r.opts.Namespace != "" || options.Namespace != "" {
		if r.cli.Client != nil {
			rvals, err = r.cli.Client.MGet(ctx, rkeys...).Result()
		} else {
			rvals, err = r.cli.ClusterClient.MGet(ctx, rkeys...).Result()
		}
	} else {
		if r.cli.Client != nil {
			rvals, err = r.cli.Client.MGet(ctx, keys...).Result()
		} else {
			rvals, err = r.cli.ClusterClient.MGet(ctx, keys...).Result()
		}
	}
	setSpanError(ctx, err)
	te := time.Since(ts)
	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Dec()
	r.opts.Meter.Summary(semconv.StoreRequestLatencyMicroseconds, "name", options.Name).Update(te.Seconds())
	r.opts.Meter.Histogram(semconv.StoreRequestDurationSeconds, "name", options.Name).Update(te.Seconds())
	if err == redis.Nil || (len(rvals) == 0) {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "miss").Inc()
		return store.ErrNotFound
	} else if err == nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "hit").Inc()
	} else if err != nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "failure").Inc()
		return err
	}

	vv := reflect.ValueOf(vals)
	vt := reflect.TypeOf(vals)
	switch vv.Kind() {
	case reflect.Ptr:
		vv = reflect.Indirect(vv)
		vt = vt.Elem()
	}
	if vv.Kind() != reflect.Slice {
		return store.ErrNotFound
	}
	nvv := reflect.MakeSlice(vt, len(rvals), len(rvals))
	vt = vt.Elem()
	for idx := 0; idx < len(rvals); idx++ {
		if rvals[idx] == nil {
			continue
		}

		itm := nvv.Index(idx)
		var buf []byte
		switch b := rvals[idx].(type) {
		case []byte:
			buf = b
		case string:
			buf = []byte(b)
		}
		// special case for raw data
		if vt.Kind() == reflect.Slice && vt.Elem().Kind() == reflect.Uint8 {
			itm.Set(reflect.MakeSlice(itm.Type(), len(buf), len(buf)))
			itm.SetBytes(buf)
			continue
		} else if vt.Kind() == reflect.String {
			itm.SetString(string(buf))
			continue
		}

		itm.Set(reflect.New(vt.Elem()))
		if err = r.opts.Codec.Unmarshal(buf, itm.Interface()); err != nil {
			setSpanError(ctx, err)
			return err
		}
	}
	vv.Set(nvv)

	return nil
}

func (r *Store) MDelete(ctx context.Context, keys []string, opts ...store.DeleteOption) error {
	options := store.NewDeleteOptions(opts...)

	timeout := r.opts.Timeout
	if options.Timeout > 0 {
		timeout = options.Timeout
	}

	if timeout > 0 {
		var cancel context.CancelFunc
		ctx, cancel = context.WithTimeout(ctx, timeout)
		defer cancel()
	}

	var rkeys []string
	if r.opts.Namespace != "" || options.Namespace != "" {
		rkeys = make([]string, len(keys))
		for idx, key := range keys {
			rkeys[idx] = r.getKey(r.opts.Namespace, options.Namespace, key)
		}
	}

	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Inc()
	ts := time.Now()
	var err error
	if r.opts.Namespace != "" || options.Namespace != "" {
		if r.cli.Client != nil {
			err = r.cli.Client.Del(ctx, rkeys...).Err()
		} else {
			err = r.cli.ClusterClient.Del(ctx, rkeys...).Err()
		}
	} else {
		if r.cli.Client != nil {
			err = r.cli.Client.Del(ctx, keys...).Err()
		} else {
			err = r.cli.ClusterClient.Del(ctx, keys...).Err()
		}
	}
	setSpanError(ctx, err)
	te := time.Since(ts)
	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Dec()
	r.opts.Meter.Summary(semconv.StoreRequestLatencyMicroseconds, "name", options.Name).Update(te.Seconds())
	r.opts.Meter.Histogram(semconv.StoreRequestDurationSeconds, "name", options.Name).Update(te.Seconds())
	if err == redis.Nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "miss").Inc()
		return store.ErrNotFound
	} else if err == nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "hit").Inc()
	} else if err != nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "failure").Inc()
		return err
	}

	return nil
}

func (r *Store) Delete(ctx context.Context, key string, opts ...store.DeleteOption) error {
	options := store.NewDeleteOptions(opts...)

	timeout := r.opts.Timeout
	if options.Timeout > 0 {
		timeout = options.Timeout
	}

	if timeout > 0 {
		var cancel context.CancelFunc
		ctx, cancel = context.WithTimeout(ctx, timeout)
		defer cancel()
	}

	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Inc()
	ts := time.Now()
	var err error
	if r.cli.Client != nil {
		err = r.cli.Client.Del(ctx, r.getKey(r.opts.Namespace, options.Namespace, key)).Err()
	} else {
		err = r.cli.ClusterClient.Del(ctx, r.getKey(r.opts.Namespace, options.Namespace, key)).Err()
	}
	setSpanError(ctx, err)
	te := time.Since(ts)
	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Dec()
	r.opts.Meter.Summary(semconv.StoreRequestLatencyMicroseconds, "name", options.Name).Update(te.Seconds())
	r.opts.Meter.Histogram(semconv.StoreRequestDurationSeconds, "name", options.Name).Update(te.Seconds())
	if err == redis.Nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "miss").Inc()
		return store.ErrNotFound
	} else if err == nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "hit").Inc()
	} else if err != nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "failure").Inc()
		return err
	}

	return nil
}

func (r *Store) MWrite(ctx context.Context, keys []string, vals []interface{}, opts ...store.WriteOption) error {
	options := store.NewWriteOptions(opts...)

	timeout := r.opts.Timeout
	if options.Timeout > 0 {
		timeout = options.Timeout
	}

	if timeout > 0 {
		var cancel context.CancelFunc
		ctx, cancel = context.WithTimeout(ctx, timeout)
		defer cancel()
	}

	kvs := make([]string, 0, len(keys)*2)

	for idx, key := range keys {
		kvs = append(kvs, r.getKey(r.opts.Namespace, options.Namespace, key))

		switch vt := vals[idx].(type) {
		case string:
			kvs = append(kvs, vt)
		case []byte:
			kvs = append(kvs, string(vt))
		default:
			buf, err := r.opts.Codec.Marshal(vt)
			if err != nil {
				return err
			}
			kvs = append(kvs, string(buf))
		}
	}

	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Inc()
	ts := time.Now()

	pipeliner := func(pipe redis.Pipeliner) error {
		for idx := 0; idx < len(kvs); idx += 2 {
			if _, err := pipe.Set(ctx, kvs[idx], kvs[idx+1], options.TTL).Result(); err != nil {
				setSpanError(ctx, err)
				return err
			}
		}
		return nil
	}

	var err error
	var cmds []redis.Cmder

	if r.cli.Client != nil {
		cmds, err = r.cli.Client.Pipelined(ctx, pipeliner)
	} else {
		cmds, err = r.cli.ClusterClient.Pipelined(ctx, pipeliner)
	}
	setSpanError(ctx, err)
	te := time.Since(ts)
	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Dec()
	r.opts.Meter.Summary(semconv.StoreRequestLatencyMicroseconds, "name", options.Name).Update(te.Seconds())
	r.opts.Meter.Histogram(semconv.StoreRequestDurationSeconds, "name", options.Name).Update(te.Seconds())
	if err == redis.Nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "miss").Inc()
		return store.ErrNotFound
	} else if err == nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "hit").Inc()
	} else if err != nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "failure").Inc()
		return err
	}

	for _, cmd := range cmds {
		if err = cmd.Err(); err != nil {
			if err == redis.Nil {
				r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "miss").Inc()
				return store.ErrNotFound
			}
			setSpanError(ctx, err)
			r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "failure").Inc()
			return err
		}
	}

	return nil
}

func (r *Store) Write(ctx context.Context, key string, val interface{}, opts ...store.WriteOption) error {
	options := store.NewWriteOptions(opts...)

	timeout := r.opts.Timeout
	if options.Timeout > 0 {
		timeout = options.Timeout
	}

	if timeout > 0 {
		var cancel context.CancelFunc
		ctx, cancel = context.WithTimeout(ctx, timeout)
		defer cancel()
	}

	rkey := r.getKey(r.opts.Namespace, options.Namespace, key)

	var buf []byte
	switch vt := val.(type) {
	case string:
		buf = []byte(vt)
	case []byte:
		buf = vt
	default:
		var err error
		buf, err = r.opts.Codec.Marshal(val)
		if err != nil {
			return err
		}
	}

	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Inc()
	ts := time.Now()
	var err error
	if r.cli.Client != nil {
		err = r.cli.Client.Set(ctx, rkey, buf, options.TTL).Err()
	} else {
		err = r.cli.ClusterClient.Set(ctx, rkey, buf, options.TTL).Err()
	}
	setSpanError(ctx, err)
	te := time.Since(ts)
	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Dec()
	r.opts.Meter.Summary(semconv.StoreRequestLatencyMicroseconds, "name", options.Name).Update(te.Seconds())
	r.opts.Meter.Histogram(semconv.StoreRequestDurationSeconds, "name", options.Name).Update(te.Seconds())
	if err == redis.Nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "miss").Inc()
		return store.ErrNotFound
	} else if err == nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "hit").Inc()
	} else if err != nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "failure").Inc()
		return err
	}

	return err
}

func (r *Store) List(ctx context.Context, opts ...store.ListOption) ([]string, error) {
	options := store.NewListOptions(opts...)
	if len(options.Namespace) == 0 {
		options.Namespace = r.opts.Namespace
	}

	rkey := r.getKey(options.Namespace, "", options.Prefix+"*")
	if options.Suffix != "" {
		rkey += options.Suffix
	}

	timeout := r.opts.Timeout
	if options.Timeout > 0 {
		timeout = options.Timeout
	}

	if timeout > 0 {
		var cancel context.CancelFunc
		ctx, cancel = context.WithTimeout(ctx, timeout)
		defer cancel()
	}

	// TODO: add support for prefix/suffix/limit
	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Inc()
	ts := time.Now()
	var keys []string
	var err error

	if r.cli.Client != nil {
		keys, err = r.cli.Client.Keys(ctx, rkey).Result()
	} else {
		err = r.cli.ClusterClient.ForEachMaster(ctx, func(nctx context.Context, cli *redis.Client) error {
			nkeys, nerr := cli.Keys(nctx, rkey).Result()
			if nerr != nil {
				return nerr
			}
			keys = append(keys, nkeys...)
			return nil
		})
	}
	setSpanError(ctx, err)
	te := time.Since(ts)
	r.opts.Meter.Counter(semconv.StoreRequestInflight, "name", options.Name).Dec()
	r.opts.Meter.Summary(semconv.StoreRequestLatencyMicroseconds, "name", options.Name).Update(te.Seconds())
	r.opts.Meter.Histogram(semconv.StoreRequestDurationSeconds, "name", options.Name).Update(te.Seconds())
	if err == redis.Nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "miss").Inc()
		return nil, store.ErrNotFound
	} else if err == nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "hit").Inc()
	} else if err != nil {
		r.opts.Meter.Counter(semconv.StoreRequestTotal, "name", options.Name, "status", "failure").Inc()
		return nil, err
	}

	prefix := r.opts.Namespace
	if options.Namespace != "" {
		prefix = options.Namespace
	}
	if prefix == "" {
		return keys, nil
	}

	for idx, key := range keys {
		keys[idx] = strings.TrimPrefix(key, prefix)
	}

	return keys, nil
}

func (r *Store) Options() store.Options {
	return r.opts
}

func (r *Store) Name() string {
	return r.opts.Name
}

func (r *Store) String() string {
	return "redis"
}

func NewStore(opts ...store.Option) *Store {
	return &Store{done: make(chan struct{}), opts: store.NewOptions(opts...)}
}

func (r *Store) configure() error {
	var redisOptions *redis.Options
	var redisClusterOptions *redis.ClusterOptions
	var err error

	nodes := r.opts.Addrs

	if len(nodes) == 0 {
		nodes = []string{"redis://127.0.0.1:6379"}
	}

	if r.cli != nil && r.opts.Context == nil {
		return nil
	}

	if r.opts.Context != nil {
		if c, ok := r.opts.Context.Value(configKey{}).(*redis.Options); ok {
			redisOptions = c
			if r.opts.TLSConfig != nil {
				redisOptions.TLSConfig = r.opts.TLSConfig
			}
		}

		if c, ok := r.opts.Context.Value(clusterConfigKey{}).(*redis.ClusterOptions); ok {
			redisClusterOptions = c
			if r.opts.TLSConfig != nil {
				redisClusterOptions.TLSConfig = r.opts.TLSConfig
			}
		}
	}

	if redisOptions != nil && redisClusterOptions != nil {
		return fmt.Errorf("must specify only one option Config or ClusterConfig")
	}

	if redisOptions == nil && redisClusterOptions == nil && r.cli != nil {
		return nil
	}

	if redisOptions == nil && redisClusterOptions == nil && len(nodes) == 1 {
		redisOptions, err = redis.ParseURL(nodes[0])
		if err != nil {
			redisOptions = DefaultOptions
			redisOptions.Addr = r.opts.Addrs[0]
			redisOptions.TLSConfig = r.opts.TLSConfig
		}
	} else if redisOptions == nil && redisClusterOptions == nil && len(nodes) > 1 {
		redisClusterOptions = DefaultClusterOptions
		redisClusterOptions.Addrs = r.opts.Addrs
		redisClusterOptions.TLSConfig = r.opts.TLSConfig
	}

	if redisOptions != nil {
		c := redis.NewClient(redisOptions)
		setTracing(c, r.opts.Tracer)
		r.cli = &wrappedClient{Client: c}
	} else if redisClusterOptions != nil {
		c := redis.NewClusterClient(redisClusterOptions)
		setTracing(c, r.opts.Tracer)
		r.cli = &wrappedClient{ClusterClient: c}
	}

	r.pool = pool.NewPool(func() *strings.Builder { return &strings.Builder{} })

	r.statsMeter()

	return nil
}

func (r *Store) getKey(mainNamespace string, opNamespace string, key string) string {
	b := r.pool.Get()
	defer r.pool.Put(b)
	b.Reset()

	if opNamespace == "" {
		opNamespace = mainNamespace
	}
	if opNamespace != "" {
		b.WriteString(opNamespace)
		b.WriteString(DefaultPathSeparator)
	}
	b.WriteString(key)
	return b.String()
}