package rpcx

import (
	"context"
	"fmt"
	"runtime"
	"sync"

	"go_dreamfactory/lego"
	"go_dreamfactory/lego/base"
	"go_dreamfactory/lego/core"
	"go_dreamfactory/lego/core/cbase"
	"go_dreamfactory/lego/sys/cron"
	"go_dreamfactory/lego/sys/event"
	"go_dreamfactory/lego/sys/log"
	"go_dreamfactory/lego/sys/registry"
	"go_dreamfactory/lego/sys/rpcx"
	"go_dreamfactory/lego/utils/container/sortslice"
	"go_dreamfactory/lego/utils/container/version"

	"github.com/smallnest/rpcx/client"
)

type RPCXService struct {
	cbase.ServiceBase                   //继承服务基类
	opts              *Options          //服务启动的配置信息数据
	serverList        sync.Map          //集群服务会话管理列表对象
	rpcxService       base.IRPCXService //服务自身 通过接口可以实现上层服务类重构底层接口
	IsInClustered     bool              //当前服务是否已加入到集群中
}

func (this *RPCXService) GetTag() string {
	return this.opts.Setting.Tag
}
func (this *RPCXService) GetId() string {
	return this.opts.Setting.Id
}
func (this *RPCXService) GetType() string {
	return this.opts.Setting.Type
}
func (this *RPCXService) GetIp() string {
	return this.opts.Setting.Ip
}
func (this *RPCXService) GetPort() int {
	return this.opts.Setting.Port
}
func (this *RPCXService) GetCategory() core.S_Category {
	return this.opts.Setting.Category
}

func (this *RPCXService) GetVersion() string {
	return this.opts.Version
}
func (this *RPCXService) GetSettings() core.ServiceSttings {
	return this.opts.Setting
}
func (this *RPCXService) GetRpcId() string {
	return ""
}

func (this *RPCXService) GetPreWeight() float64 {
	return float64(1) / float64(runtime.NumGoroutine())
}

func (this *RPCXService) SetPreWeight(weight int32) {

}

func (this *RPCXService) Options() *Options {
	return this.opts
}
func (this *RPCXService) Configure(opts ...Option) {
	this.opts = newOptions(opts...)
}

func (this *RPCXService) Init(service core.IService) (err error) {
	this.rpcxService = service.(base.IRPCXService)
	return this.ServiceBase.Init(service)
}

func (this *RPCXService) InitSys() {
	if err := log.OnInit(this.opts.Setting.Sys["log"]); err != nil {
		panic(fmt.Sprintf("Sys log Init err:%v", err))
	} else {
		log.Infof("Sys log Init success !")
	}
	if err := event.OnInit(this.opts.Setting.Sys["event"]); err != nil {
		log.Panicf(fmt.Sprintf("Sys event Init err:%v", err))
	} else {
		log.Infof("Sys event Init success !")
	}
	if err := registry.OnInit(this.opts.Setting.Sys["registry"], registry.SetService(this.rpcxService), registry.SetListener(this.rpcxService.(registry.IListener))); err != nil {
		log.Panicf(fmt.Sprintf("Sys registry Init err:%v", err))
	} else {
		log.Infof("Sys registry Init success !")
	}
	if err := rpcx.OnInit(this.opts.Setting.Sys["rpcx"], rpcx.SetServiceId(this.GetId()), rpcx.SetPort(this.GetPort())); err != nil {
		log.Panicf(fmt.Sprintf("Sys rpcx Init err:%v", err))
	} else {
		log.Infof("Sys rpcx Init success !")
	}
	event.Register(core.Event_ServiceStartEnd, func() { //阻塞 先注册服务集群 保证其他服务能及时发现
		if err := rpcx.Start(); err != nil {
			log.Panicf(fmt.Sprintf("Sys rpcx Start err:%v", err))
		}
		if err := registry.Start(); err != nil {
			log.Panicf(fmt.Sprintf("Sys registry Start err:%v", err))
		}
	})
}

func (this *RPCXService) Start() (err error) {
	if err = this.ServiceBase.Start(); err != nil {
		return
	}
	return
}

func (this *RPCXService) Run(mod ...core.IModule) {
	modules := make([]core.IModule, 0)
	modules = append(modules, mod...)
	this.ServiceBase.Run(modules...)
}

func (this *RPCXService) Destroy() (err error) {
	if err = rpcx.Stop(); err != nil {
		return
	}
	if err = registry.Stop(); err != nil {
		return
	}
	cron.Stop()
	err = this.ServiceBase.Destroy()
	return
}

//注册服务会话 当有新的服务加入时
func (this *RPCXService) FindServiceHandlefunc(node registry.ServiceNode) {
	if _, ok := this.serverList.Load(node.Id); !ok {
		if s, err := NewServiceSession(&node); err != nil {
			log.Errorf("创建服务会话失败【%s】 err:%v", node.Id, err)
		} else {
			this.serverList.Store(node.Id, s)
		}
	}
	if this.IsInClustered {
		event.TriggerEvent(core.Event_FindNewService, node) //触发发现新的服务事件
	} else {
		if node.Id == this.opts.Setting.Id { //发现自己 加入集群成功
			this.IsInClustered = true
			event.TriggerEvent(core.Event_RegistryStart)
		}
	}
}

//更新服务会话 当有新的服务加入时
func (this *RPCXService) UpDataServiceHandlefunc(node registry.ServiceNode) {
	if ss, ok := this.serverList.Load(node.Id); ok { //已经在缓存中 需要更新节点信息
		session := ss.(base.IRPCXServiceSession)
		if session.GetRpcId() != node.RpcId {
			if s, err := NewServiceSession(&node); err != nil {
				log.Errorf("更新服务会话失败【%s】 err:%v", node.Id, err)
			} else {
				this.serverList.Store(node.Id, s)
			}
			event.TriggerEvent(core.Event_FindNewService, node) //触发发现新的服务事件
		} else {
			if session.GetVersion() != node.Version {
				session.SetVersion(node.Version)
			}
			if session.GetPreWeight() != node.PreWeight {
				session.SetPreWeight(node.PreWeight)
			}
			event.TriggerEvent(core.Event_UpDataOldService, node) //触发发现新的服务事件
		}
	}
}

//注销服务会话
func (this *RPCXService) LoseServiceHandlefunc(sId string) {
	session, ok := this.serverList.Load(sId)
	if ok && session != nil {
		session.(base.IRPCXServiceSession).Done()
		this.serverList.Delete(sId)
	}
	event.TriggerEvent(core.Event_LoseService, sId) //触发发现新的服务事件
}

func (this *RPCXService) getServiceSessionByType(sType string, sIp string) (ss []base.IRPCXServiceSession, err error) {
	ss = make([]base.IRPCXServiceSession, 0)
	if nodes := registry.GetServiceByType(sType); nodes == nil {
		log.Errorf("获取目标类型 type【%s】ip [%s] 服务集失败", sType, sIp)
		return nil, err
	} else {
		if sIp == core.AutoIp {
			for _, v := range nodes {
				if s, ok := this.serverList.Load(v.Id); ok {
					ss = append(ss, s.(base.IRPCXServiceSession))
				} else {
					s, err = NewServiceSession(v)
					if err != nil {
						log.Errorf("创建服务会话失败【%s】 err:%v", v.Id, err)
						continue
					} else {
						this.serverList.Store(v.Id, s)
						ss = append(ss, s.(base.IRPCXServiceSession))
					}
				}
			}
		} else {
			for _, v := range nodes {
				if v.IP == sIp {
					if s, ok := this.serverList.Load(v.Id); ok {
						ss = append(ss, s.(base.IRPCXServiceSession))
					} else {
						s, err = NewServiceSession(v)
						if err != nil {
							log.Errorf("创建服务会话失败【%s】 err:%v", v.Id, err)
							continue
						} else {
							this.serverList.Store(v.Id, s)
							ss = append(ss, s.(base.IRPCXServiceSession))
						}
					}
				}
			}
		}
	}
	return
}

//默认路由规则
func (this *RPCXService) DefauleRpcRouteRules(stype string, sip string) (ss base.IRPCXServiceSession, err error) {
	if s, e := this.getServiceSessionByType(stype, sip); e != nil {
		return nil, e
	} else {
		ss := make([]interface{}, len(s))
		for i, v := range s {
			ss[i] = v
		}
		if len(ss) > 0 {
			//排序找到最优服务
			sortslice.Sort(ss, func(a interface{}, b interface{}) int8 {
				as := a.(base.IRPCXServiceSession)
				bs := b.(base.IRPCXServiceSession)
				if iscompare := version.CompareStrVer(as.GetVersion(), bs.GetVersion()); iscompare != 0 {
					return iscompare
				} else {
					if as.GetPreWeight() < bs.GetPreWeight() {
						return 1
					} else if as.GetPreWeight() > bs.GetPreWeight() {
						return -1
					} else {
						return 0
					}
				}
			})
			return ss[0].(base.IRPCXServiceSession), nil
		} else {
			return nil, fmt.Errorf("未找到IP[%s]类型%s】的服务信息", sip, stype)
		}
	}
}

//注册服务对象
func (this *RPCXService) Register(rcvr interface{}) (err error) {
	err = rpcx.Register(rcvr)
	return
}

//注册服务方法
func (this *RPCXService) RegisterFunction(fn interface{}) (err error) {
	err = rpcx.RegisterFunction(fn)
	return
}

//注册服务方法 自定义方法名称
func (this *RPCXService) RegisterFunctionName(name string, fn interface{}) (err error) {
	err = rpcx.RegisterFunctionName(name, fn)
	return
}

//同步 执行目标远程服务方法
func (this *RPCXService) RpcCallById(sId string, serviceMethod string, ctx context.Context, args interface{}, reply interface{}) (err error) {
	defer lego.Recover(fmt.Sprintf("RpcCallById sId:%s rkey:%v arg %v", sId, serviceMethod, args))
	ss, ok := this.serverList.Load(sId)
	if !ok {
		if node, err := registry.GetServiceById(sId); err != nil {
			log.Errorf("未找到目标服务【%s】节点 err:%v", sId, err)
			return fmt.Errorf("No Found " + sId)
		} else {
			ss, err = NewServiceSession(node)
			if err != nil {
				return fmt.Errorf(fmt.Sprintf("创建服务会话失败【%s】 err:%v", sId, err))
			} else {
				this.serverList.Store(node.Id, ss)
			}
		}
	}
	err = ss.(base.IRPCXServiceSession).Call(ctx, serviceMethod, args, reply)
	return
}

//异步 执行目标远程服务方法
func (this *RPCXService) RpcGoById(sId string, serviceMethod string, ctx context.Context, args interface{}, reply interface{}) (call *client.Call, err error) {
	defer lego.Recover(fmt.Sprintf("RpcGoById sId:%s rkey:%v arg %v", sId, serviceMethod, args))
	ss, ok := this.serverList.Load(sId)
	if !ok {
		if node, err := registry.GetServiceById(sId); err != nil {
			log.Errorf("未找到目标服务【%s】节点 err:%v", sId, err)
			return nil, fmt.Errorf("No Found " + sId)
		} else {
			ss, err = NewServiceSession(node)
			if err != nil {
				return nil, fmt.Errorf(fmt.Sprintf("创建服务会话失败【%s】 err:%v", sId, err))
			} else {
				this.serverList.Store(node.Id, ss)
			}
		}
	}
	call, err = ss.(base.IRPCXServiceSession).Go(ctx, serviceMethod, args, reply)
	return
}

func (this *RPCXService) RpcCallByType(sType string, serviceMethod string, ctx context.Context, args interface{}, reply interface{}) (err error) {
	defer lego.Recover(fmt.Sprintf("RpcCallByType sType:%s rkey:%s arg %v", sType, serviceMethod, args))
	ss, err := this.rpcxService.DefauleRpcRouteRules(sType, core.AutoIp)
	if err != nil {
		log.Errorf("未找到目标服务【%s】节点 err:%v", sType, err)
		return err
	}
	err = ss.Call(ctx, serviceMethod, args, reply)
	return
}

func (this *RPCXService) RpcGoByType(sType string, serviceMethod string, ctx context.Context, args interface{}, reply interface{}) (call *client.Call, err error) {
	defer lego.Recover(fmt.Sprintf("RpcCallByType sType:%s rkey:%s arg %v", sType, serviceMethod, args))
	ss, err := this.rpcxService.DefauleRpcRouteRules(sType, core.AutoIp)
	if err != nil {
		log.Errorf("未找到目标服务【%s】节点 err:%v", sType, err)
		return nil, err
	}
	call, err = ss.Go(ctx, serviceMethod, args, reply)
	return
}