package ruleguard

import (
	"bytes"
	"context"
	"fmt"
	"go/ast"
	"go/build"
	"go/printer"
	"go/token"
	"io/ioutil"
	"path/filepath"
	"reflect"
	"sort"
	"strconv"
	"strings"

	"github.com/quasilyte/go-ruleguard/ruleguard/goutil"
	"github.com/quasilyte/go-ruleguard/ruleguard/profiling"
	"github.com/quasilyte/go-ruleguard/ruleguard/quasigo"
	"github.com/quasilyte/go-ruleguard/ruleguard/typematch"
	"github.com/quasilyte/gogrep"
	"github.com/quasilyte/gogrep/nodetag"
)

type rulesRunner struct {
	state *engineState

	bgContext context.Context

	ctx   *RunContext
	rules *goRuleSet

	truncateLen int

	reportData ReportData

	gogrepState    gogrep.MatcherState
	gogrepSubState gogrep.MatcherState

	importer *goImporter

	filename string
	src      []byte

	// nodePath is a stack of ast.Nodes we visited to this point.
	// When we enter a new node, it's placed on the top of the stack.
	// When we leave that node, it's popped.
	// The stack is a slice that is allocated only once and reused
	// for the lifetime of the runner.
	// The only overhead it has is a slice append and pop operations
	// that are quire cheap.
	//
	// Note: we need this path to get a Node.Parent() for `$$` matches.
	// So it's used to climb up the tree there.
	// For named submatches we can't use it as the node can be located
	// deeper into the tree than the current node.
	// In those cases we need a more complicated algorithm.
	nodePath *nodePath

	filterParams filterParams
}

func newRunnerState(es *engineState) *RunnerState {
	gogrepState := gogrep.NewMatcherState()
	gogrepSubState := gogrep.NewMatcherState()
	state := &RunnerState{
		gogrepState:    gogrepState,
		gogrepSubState: gogrepSubState,
		nodePath:       newNodePath(),
		evalEnv:        es.env.GetEvalEnv(),
		typematchState: typematch.NewMatcherState(),
		object:         &rulesRunner{},
	}
	return state
}

func (state *RunnerState) Reset() {
	state.nodePath.stack = state.nodePath.stack[:0]
	state.evalEnv.Stack.Reset()
}

func newRulesRunner(ctx *RunContext, buildContext *build.Context, state *engineState, rules *goRuleSet) *rulesRunner {
	runnerState := ctx.State
	if runnerState == nil {
		runnerState = newRunnerState(state)
	} else {
		runnerState.Reset()
	}

	importer := newGoImporter(state, goImporterConfig{
		fset:         ctx.Fset,
		debugImports: ctx.DebugImports,
		debugPrint:   ctx.DebugPrint,
		buildContext: buildContext,
	})
	gogrepState := runnerState.gogrepState
	gogrepState.Types = ctx.Types
	gogrepSubState := runnerState.gogrepSubState
	gogrepSubState.Types = ctx.Types
	evalEnv := runnerState.evalEnv

	rr := runnerState.object
	*rr = rulesRunner{
		bgContext:      context.Background(),
		ctx:            ctx,
		importer:       importer,
		rules:          rules,
		gogrepState:    gogrepState,
		gogrepSubState: gogrepSubState,
		nodePath:       runnerState.nodePath,
		truncateLen:    ctx.TruncateLen,
		filterParams: filterParams{
			typematchState: runnerState.typematchState,
			env:            evalEnv,
			importer:       importer,
			ctx:            ctx,
		},
	}

	evalEnv.Stack.Push(&rr.filterParams)
	if ctx.TruncateLen == 0 {
		rr.truncateLen = 60
	}
	rr.filterParams.nodeText = rr.nodeText
	rr.filterParams.nodeString = rr.nodeString
	rr.filterParams.nodePath = rr.nodePath
	rr.filterParams.gogrepSubState = &rr.gogrepSubState

	return rr
}

func (rr *rulesRunner) nodeString(n ast.Node) string {
	b := rr.nodeText(n)
	return string(b)
}

func (rr *rulesRunner) nodeText(n ast.Node) []byte {
	if gogrep.IsEmptyNodeSlice(n) {
		return nil
	}

	from := rr.ctx.Fset.Position(n.Pos()).Offset
	to := rr.ctx.Fset.Position(n.End()).Offset
	src := rr.fileBytes()
	if (from >= 0 && from < len(src)) && (to >= 0 && to < len(src)) {
		return src[from:to]
	}

	// Go printer would panic on comments.
	if n, ok := n.(*ast.Comment); ok {
		return []byte(n.Text)
	}

	// Fallback to the printer.
	var buf bytes.Buffer
	if err := printer.Fprint(&buf, rr.ctx.Fset, n); err != nil {
		panic(err)
	}
	return buf.Bytes()
}

func (rr *rulesRunner) fileBytes() []byte {
	if rr.src != nil {
		return rr.src
	}

	// TODO(quasilyte): re-use src slice?
	src, err := ioutil.ReadFile(rr.filename)
	if err != nil || src == nil {
		// Assign a zero-length slice so rr.src
		// is never nil during the second fileBytes call.
		rr.src = make([]byte, 0)
	} else {
		rr.src = src
	}
	return rr.src
}

func (rr *rulesRunner) run(f *ast.File) error {
	// If it's not empty then we're leaking memory.
	// For every Push() there should be a Pop() call.
	if rr.nodePath.Len() != 0 {
		panic("internal error: node path is not empty")
	}

	rr.filename = rr.ctx.Fset.Position(f.Pos()).Filename
	rr.filterParams.filename = rr.filename
	rr.collectImports(f)

	if rr.rules.universal.categorizedNum != 0 {
		var inspector astWalker
		inspector.nodePath = rr.nodePath
		inspector.filterParams = &rr.filterParams
		inspector.Walk(f, func(n ast.Node, tag nodetag.Value) {
			rr.runRules(n, tag)
		})
	}

	if len(rr.rules.universal.commentRules) != 0 {
		for _, commentGroup := range f.Comments {
			for _, comment := range commentGroup.List {
				rr.runCommentRules(comment)
			}
		}
	}

	return nil
}

func (rr *rulesRunner) runCommentRules(comment *ast.Comment) {
	// We'll need that file to create a token.Pos from the artificial offset.
	file := rr.ctx.Fset.File(comment.Pos())

	for _, rule := range rr.rules.universal.commentRules {
		var m matchData
		if rule.captureGroups {
			result := rule.pat.FindStringSubmatchIndex(comment.Text)
			if result == nil {
				continue
			}
			for i, name := range rule.pat.SubexpNames() {
				if i == 0 || name == "" {
					continue
				}
				resultIndex := i * 2
				beginPos := result[resultIndex+0]
				endPos := result[resultIndex+1]
				// Negative index a special case when named group captured nothing.
				// Consider this pattern: `(?P<x>foo)|(bar)`.
				// If we have `bar` input string, <x> will remain empty.
				if beginPos < 0 || endPos < 0 {
					m.match.Capture = append(m.match.Capture, gogrep.CapturedNode{
						Name: name,
						Node: &ast.Comment{Slash: comment.Pos()},
					})
					continue
				}
				m.match.Capture = append(m.match.Capture, gogrep.CapturedNode{
					Name: name,
					Node: &ast.Comment{
						Slash: file.Pos(beginPos + file.Offset(comment.Pos())),
						Text:  comment.Text[beginPos:endPos],
					},
				})
			}
			m.match.Node = &ast.Comment{
				Slash: file.Pos(result[0] + file.Offset(comment.Pos())),
				Text:  comment.Text[result[0]:result[1]],
			}
		} else {
			// Fast path: no need to save any submatches.
			result := rule.pat.FindStringIndex(comment.Text)
			if result == nil {
				continue
			}
			m.match.Node = &ast.Comment{
				Slash: file.Pos(result[0] + file.Offset(comment.Pos())),
				Text:  comment.Text[result[0]:result[1]],
			}
		}

		accept := rr.handleCommentMatch(rule, m)
		if accept {
			break
		}
	}
}

func (rr *rulesRunner) runRules(n ast.Node, tag nodetag.Value) {
	// profiling.LabelsEnabled is constant, so labels-related
	// code should be a no-op inside normal build.
	// To enable labels, use "-tags pproflabels" build tag.

	for _, rule := range rr.rules.universal.rulesByTag[tag] {
		if profiling.LabelsEnabled {
			profiling.EnterWithLabels(rr.bgContext, rule.group.Name)
		}

		matched := false
		rule.pat.MatchNode(&rr.gogrepState, n, func(m gogrep.MatchData) {
			matched = rr.handleMatch(rule, m)
		})

		if profiling.LabelsEnabled {
			profiling.Leave(rr.bgContext)
		}

		if matched && !multiMatchTags[tag] {
			break
		}
	}
}

func (rr *rulesRunner) reject(rule goRule, reason string, m matchData) {
	if rule.group.Name != rr.ctx.Debug {
		return // This rule is not being debugged
	}

	pos := rr.ctx.Fset.Position(m.Node().Pos())
	rr.ctx.DebugPrint(fmt.Sprintf("%s:%d: [%s:%d] rejected by %s",
		pos.Filename, pos.Line, filepath.Base(rule.group.Filename), rule.line, reason))

	values := make([]gogrep.CapturedNode, len(m.CaptureList()))
	copy(values, m.CaptureList())
	sort.Slice(values, func(i, j int) bool {
		return values[i].Name < values[j].Name
	})

	for _, v := range values {
		name := v.Name
		node := v.Node

		if comment, ok := node.(*ast.Comment); ok {
			s := strings.ReplaceAll(comment.Text, "\n", `\n`)
			rr.ctx.DebugPrint(fmt.Sprintf("  $%s: %s", name, s))
			continue
		}

		var expr ast.Expr
		switch node := node.(type) {
		case ast.Expr:
			expr = node
		case *ast.ExprStmt:
			expr = node.X
		default:
			continue
		}

		typ := rr.ctx.Types.TypeOf(expr)
		typeString := "<unknown>"
		if typ != nil {
			typeString = typ.String()
		}
		s := strings.ReplaceAll(goutil.SprintNode(rr.ctx.Fset, expr), "\n", `\n`)
		rr.ctx.DebugPrint(fmt.Sprintf("  $%s %s: %s", name, typeString, s))
	}
}

func (rr *rulesRunner) handleCommentMatch(rule goCommentRule, m matchData) bool {
	if rule.base.filter.fn != nil {
		rr.filterParams.match = m
		filterResult := rule.base.filter.fn(&rr.filterParams)
		if !filterResult.Matched() {
			rr.reject(rule.base, filterResult.RejectReason(), m)
			return false
		}
	}

	message := rr.renderMessage(rule.base.msg, m, true)
	node := m.Node()
	if rule.base.location != "" {
		node, _ = m.CapturedByName(rule.base.location)
	}
	var suggestion *Suggestion
	if rule.base.suggestion != "" {
		suggestion = &Suggestion{
			Replacement: []byte(rr.renderMessage(rule.base.suggestion, m, false)),
			From:        node.Pos(),
			To:          node.End(),
		}
	}
	info := GoRuleInfo{
		Group: rule.base.group,
		Line:  rule.base.line,
	}
	rr.reportData.RuleInfo = info
	rr.reportData.Node = node
	rr.reportData.Message = message
	rr.reportData.Suggestion = suggestion

	rr.ctx.Report(&rr.reportData)
	return true
}

func (rr *rulesRunner) handleMatch(rule goRule, m gogrep.MatchData) bool {
	if rule.filter.fn != nil || rule.do != nil {
		rr.filterParams.match = matchData{match: m}
	}

	if rule.filter.fn != nil {
		filterResult := rule.filter.fn(&rr.filterParams)
		if !filterResult.Matched() {
			rr.reject(rule, filterResult.RejectReason(), matchData{match: m})
			return false
		}
	}

	node := m.Node
	if rule.location != "" {
		node, _ = m.CapturedByName(rule.location)
	}

	var messageText string
	var suggestText string
	if rule.do != nil {
		rr.filterParams.reportString = ""
		rr.filterParams.suggestString = ""
		_ = quasigo.Call(rr.filterParams.env, rule.do)
		messageText = rr.filterParams.reportString
		if messageText == "" {
			if rr.filterParams.suggestString != "" {
				messageText = "suggestion: " + rr.filterParams.suggestString
			} else {
				messageText = "<empty message>"
			}
		}
		if rr.filterParams.suggestString != "" {
			suggestText = rr.filterParams.suggestString
		}
	} else {
		messageText = rr.renderMessage(rule.msg, matchData{match: m}, true)
		if rule.suggestion != "" {
			suggestText = rr.renderMessage(rule.suggestion, matchData{match: m}, false)
		}
	}

	var suggestion *Suggestion
	if suggestText != "" {
		suggestion = &Suggestion{
			Replacement: []byte(suggestText),
			From:        node.Pos(),
			To:          node.End(),
		}
	}

	info := GoRuleInfo{
		Group: rule.group,
		Line:  rule.line,
	}
	rr.reportData.RuleInfo = info
	rr.reportData.Node = node
	rr.reportData.Message = messageText
	rr.reportData.Suggestion = suggestion

	rr.reportData.Func = rr.filterParams.currentFunc

	rr.ctx.Report(&rr.reportData)
	return true
}

func (rr *rulesRunner) collectImports(f *ast.File) {
	rr.filterParams.imports = make(map[string]struct{}, len(f.Imports))
	for _, spec := range f.Imports {
		s, err := strconv.Unquote(spec.Path.Value)
		if err != nil {
			continue
		}
		rr.filterParams.imports[s] = struct{}{}
	}
}

func (rr *rulesRunner) renderMessage(msg string, m matchData, truncate bool) string {
	if !strings.Contains(msg, "$") {
		return msg
	}

	var capture []gogrep.CapturedNode
	if len(m.CaptureList()) != 0 {
		capture = make([]gogrep.CapturedNode, 0, len(m.CaptureList()))
		for _, c := range m.CaptureList() {
			n := c.Node
			// Some captured nodes are typed, but nil.
			// We can't really get their text, so skip them here.
			// For example, pattern `func $_() $results { $*_ }` may
			// match a nil *ast.FieldList for $results if executed
			// against a function with no results.
			if reflect.ValueOf(n).IsNil() && !gogrep.IsEmptyNodeSlice(n) {
				continue
			}
			capture = append(capture, c)
		}
		if len(capture) > 1 {
			sort.Slice(capture, func(i, j int) bool {
				return len(capture[i].Name) > len(capture[j].Name)
			})
		}
	}

	result := make([]byte, 0, len(msg)*2)
	i := 0
	for {
		j := strings.IndexByte(msg[i:], '$')
		if j == -1 {
			result = append(result, msg[i:]...)
			break
		}
		dollarPos := i + j
		result = append(result, msg[i:dollarPos]...)
		var n ast.Node
		var nameLen int
		if strings.HasPrefix(msg[dollarPos+1:], "$") {
			n = m.Node()
			nameLen = 1
		} else {
			for _, c := range capture {
				if strings.HasPrefix(msg[dollarPos+1:], c.Name) {
					n = c.Node
					nameLen = len(c.Name)
					break
				}
			}
		}
		if n != nil {
			text := rr.nodeText(n)
			text = rr.fixedText(text, n, msg[dollarPos+1+nameLen:])
			if truncate {
				text = truncateText(text, rr.truncateLen)
			}
			result = append(result, text...)
		} else {
			result = append(result, '$')
		}
		i = dollarPos + len("$") + nameLen
	}

	return string(result)
}

func (rr *rulesRunner) fixedText(text []byte, n ast.Node, following string) []byte {
	// pattern=`$x.y` $x=`&buf` following=`.y`
	// Insert $x as `buf`, so we get `buf.y` instead of incorrect `&buf.y`.
	if n, ok := n.(*ast.UnaryExpr); ok && n.Op == token.AND {
		shouldFix := false
		switch n.X.(type) {
		case *ast.Ident, *ast.IndexExpr, *ast.SelectorExpr:
			shouldFix = true
		}
		if shouldFix && strings.HasPrefix(following, ".") {
			return bytes.TrimPrefix(text, []byte("&"))
		}
	}

	return text
}

var longTextPlaceholder = []byte("<...>")

func truncateText(s []byte, maxLen int) []byte {
	if len(s) <= maxLen-len(longTextPlaceholder) {
		return s
	}
	maxLen -= len(longTextPlaceholder)
	leftLen := maxLen / 2
	rightLen := (maxLen % 2) + leftLen
	left := s[:leftLen]
	right := s[len(s)-rightLen:]

	result := make([]byte, 0, len(left)+len(longTextPlaceholder)+len(right))
	result = append(result, left...)
	result = append(result, longTextPlaceholder...)
	result = append(result, right...)

	return result
}

var multiMatchTags = [nodetag.NumBuckets]bool{
	nodetag.BlockStmt:  true,
	nodetag.CaseClause: true,
	nodetag.CommClause: true,
	nodetag.File:       true,
}
