package httphi

import (
	"bytes"
	"io"
	"strings"
	"unsafe"

	"github.com/soypat/lneto"
	"github.com/soypat/lneto/http/httpraw"
	"github.com/soypat/lneto/internal"
)

// Handle is a extremely low-level HTTP handling method used internally in [Router].
// Requires exchange to be acquired and configured. Will panic if any argument is nil.
// Handle does not close the connection on any outcome: the caller owns it.
// backoff can be set for dealing with non-blocking connections. If backoff set to nil
// then a zero-length-read will result in Handle returning [io.ErrNoProgress].
func Handle(exch *Exchange, mux Mux, backoff lneto.BackoffStrategy) error {
	if !exch.acquired.Load() {
		return lneto.ErrBadState
	}
	reqhdr := &exch.reqHdr
	reqhdr.Reset(nil, 0) // Assume exchange has been configured and reuse memory.
	var consecutiveBackoffs uint
	for {
		n, err := reqhdr.ReadFromLimited(exch.rw, reqhdr.BufferFree())
		if err != nil {
			exch.readErr = err
			exch.handleError(err)
			return err
		} else if n == 0 {
			if backoff == nil {
				return io.ErrNoProgress
			}
			backoff.Do(consecutiveBackoffs)
			consecutiveBackoffs++
			continue
		}
		consecutiveBackoffs = 0
		const asRequest = false
		needMore, err := reqhdr.TryParse(asRequest)
		if needMore {
			continue // Request header split across reads, accumulate the rest.
		} else if err != nil {
			exch.handleError(err)
			return err
		}
		break // Done!
	}
	// Setup Exchange fields necessary for correct functioning.
	parsed := reqhdr.BufferParsed()
	exch.respRemains = reqhdr.BufferReceived() - parsed
	exch.respHeaderOff = uint16(parsed)
	exch.respHeaderLen = 0
	proto := b2s(reqhdr.Protocol())
	if len(proto) == 0 {
		// HTTP/0.9 not tolerated RFC 9112 3.
		exch.WriteHeader(int(StatusBadRequest))
		return errNoRequestProto
	} else if proto != "HTTP/1.1" && proto != "HTTP/1.0" {
		// RFC 9112 2.6.
		exch.WriteHeader(int(StatusHTTPVersionNotSupported))
		return errBadRequestProto
	}
	// Mux on the request path: the query string is the handler's business.
	path := reqhdr.RequestPath()
	meth := reqhdr.Method()
	matchedPattern, handler := mux.LookupHandler(MethodFromBytes(meth), path, exch.pathValues)
	if handler != nil {
		exch.matchedPattern = matchedPattern
		handler(exch)
		if !exch.hijacked {
			exch.FlushHeader()
		}
	} else {
		exch.WriteHeader(404)
	}
	return nil
}

func (exch *Exchange) handleError(err error) {
	if err == httpraw.ErrHeaderTooMany || err == httpraw.ErrBufferExhausted || exch.reqHdr.BufferFree() == 0 {
		// The peer is owed an answer: no larger buffer is coming, so
		// say so instead of dropping the connection, RFC 6585 5.
		exch.StageHeader("Content-Length", "0")
		exch.WriteHeader(int(StatusRequestHeaderFieldsTooLarge))
	}
}

// HandlerFunc serves a single request, playing the part of http.Handler.
// The exchange is only valid for the duration of the call: it is released to
// the router's pool on return, so a handler must not retain it nor any slice it
// handed out.
type HandlerFunc func(ex *Exchange)

// Mux resolves a request to the handler that serves it. [Handle] calls
// LookupHandler with the request-target's path, not the whole target, and
// replies 404 when it returns nil.
type Mux interface {
	// LookupHandler matches the requestPath and method to a handler and returns it and the
	// pattern it matched. dstPathVals are set to non-zero values by Mux and can later be accessed by [Exchange.PathValue]
	// requestPath is a buffer owned by the [Exchange] usually and should not be held after LookupHandler returns.
	LookupHandler(get Method, requestPath []byte, dstPathVals []pathValue) (matchedPattern string, handler HandlerFunc)
}

// MuxSlice is a [Mux] backed by a slice of registered endpoints, matched by
// exact path. Lookup is linear in the number of registrations.
type MuxSlice struct {
	// TODO: binary search worth it?
	_handlers []struct {
		method     Method
		path       string
		handler    HandlerFunc
		setPathVal bool
	}
}

type pathValue struct {
	Key   string // owned by mux.
	Value []byte // points to raw exchange buffer.
}

// pathSeparator is shared so [SetPathValues] never converts a literal per call.
var pathSeparator = []byte{'/'}

// SetPathValues matches requestPath against pattern and binds its wildcards
// into dstPathVals, read back with [Exchange.PathValue]. Wildcards are whole
// segments as per http.ServeMux: "{name}" takes one non-empty segment,
// "{name...}" the rest including slashes, "{$}" only the path's end, and a
// trailing slash is an anonymous "{...}". i.e: "/b/{bucket}/o/{obj...}".
//
// Unlike ServeMux, segments are compared and bound raw, so "/users/{id}" binds
// "x%2Fy" and not "x/y". Which paths match is unaffected. Bound values alias
// requestPath rather than copy it.
func SetPathValues(dstPathVals []pathValue, pattern string, requestPath []byte) (matched, pathValSliceTooShort bool) {
	if len(pattern) == 0 || pattern[0] != '/' || len(requestPath) == 0 || requestPath[0] != '/' {
		return false, false
	}
	pattern, requestPath = pattern[1:], requestPath[1:]
	n := 0
	for {
		if len(pattern) == 0 {
			// Nothing left after a slash: an anonymous "..." taking the rest,
			// which is why "/files/" matches "/files/a/b" and "/" matches all.
			return true, false
		}
		patSeg, patRest, patMore := strings.Cut(pattern, "/")
		reqSeg, reqRest, reqMore := bytes.Cut(requestPath, pathSeparator)
		name, isMulti, isWildcard := pathWildcard(patSeg)
		switch {
		case isWildcard && name == "$":
			// Matches the end of the path and nothing else, so it must be the
			// last segment of the pattern and leave no path behind.
			return !patMore && len(requestPath) == 0, false

		case isWildcard && isMulti:
			// Takes the remainder including slashes, possibly empty.
			if name != "" {
				if n >= len(dstPathVals) {
					return false, true
				}
				dstPathVals[n] = pathValue{Key: name, Value: requestPath}
				n++
			}
			return true, false

		case isWildcard:
			if len(reqSeg) == 0 {
				return false, false // One segment means a non-empty one.
			}
			if n >= len(dstPathVals) {
				return false, true
			}
			dstPathVals[n] = pathValue{Key: name, Value: reqSeg}
			n++

		default:
			if b2s(reqSeg) != patSeg {
				return false, false
			}
		}
		if patMore != reqMore {
			// One side has a further segment and the other does not, so
			// "/health" misses "/health/" and "/files/" misses "/files".
			return false, false
		} else if !patMore {
			return true, false // Both spent on the same segment.
		}
		pattern, requestPath = patRest, reqRest
	}
}

// pathWildcard picks apart a "{name}" or "{name...}" pattern segment. It
// reports ok false for a literal segment, so "/b_{bucket}" is literal text and
// not a wildcard, matching ServeMux's rule that wildcards be whole segments.
func pathWildcard(segment string) (name string, isMulti, ok bool) {
	if len(segment) < 2 || segment[0] != '{' || segment[len(segment)-1] != '}' {
		return "", false, false
	}
	name = segment[1 : len(segment)-1]
	if rest, found := strings.CutSuffix(name, "..."); found {
		return rest, true, true
	}
	return name, false, true
}

// Reset discards all registered handlers, reusing the backing array and growing
// it to fit capacity registrations.
func (sm *MuxSlice) Reset(capacity int) {
	internal.SliceReuse(&sm._handlers, capacity)
}

// LookupHandler returns the handler registered for request path, or nil if none matches.
// The first registration matching both method and uri wins.
func (sm *MuxSlice) LookupHandler(method Method, path []byte, dstPathVals []pathValue) (matched string, _ HandlerFunc) {
	for _, endpoint := range sm._handlers {
		if endpoint.method != MethUndefined && endpoint.method != method {
			continue
		}
		// Method matches.
		if endpoint.setPathVal {
			if ok, _ := SetPathValues(dstPathVals, endpoint.path, path); ok {
				return endpoint.path, endpoint.handler
			}
		} else if b2s(path) == endpoint.path {
			return endpoint.path, endpoint.handler
		}
	}
	return "", nil
}

// Handle registers handler for reg, either a bare path matching any method or a
// method and path separated by a space, i.e: "/health" or "GET /health".
// Handle does not check for duplicate registrations: the first one added wins.
func (sm *MuxSlice) Handle(optMethodAndPath string, handler HandlerFunc) {
	v := internal.SliceReclaim(&sm._handlers)
	method := MethUndefined
	methodOrURL, url, methodFound := strings.Cut(optMethodAndPath, " ")
	if methodFound {
		method = MethodFrom(methodOrURL)
	} else {
		url = methodOrURL
	}
	v.method = method
	v.path = url
	v.handler = handler
}

// Method is a HTTP request method, parsed by [MethodFrom].
type Method uint8

const (
	MethUndefined Method = iota // undefined
	MethGet                     // GET
	// lol.
	MethHead // HEAD
	MethPost // POST
	MethPut  // PUT
	// RFC 5789
	MethPatch   // PATCH
	MethDelete  // DELETE
	MethConnect // CONNECT
	MethOptions // OPTIONS
	MethTrace   // TRACE
	MethUnknown // unknown
)

// MethodFrom returns the [Method] matching meth, [MethUndefined] if meth is
// empty and [MethUnknown] if it names a method this package does not know.
// Comparison is case sensitive: methods are uppercase, RFC 9110 9.1.
func MethodFrom(meth string) (res Method) {
	if len(meth) == 0 {
		return MethUndefined
	}
	switch meth {
	case "GET":
		res = MethGet
	case "HEAD":
		res = MethHead
	case "POST":
		res = MethPost
	case "PUT":
		res = MethPut
	case "PATCH":
		res = MethPatch
	case "DELETE":
		res = MethDelete
	case "CONNECT":
		res = MethConnect
	case "OPTIONS":
		res = MethOptions
	case "TRACE":
		res = MethTrace
	default:
		res = MethUnknown
	}
	return res
}

// MethodFromBytes is a [MethodFrom] wrapper with bytes argument instead of string.
func MethodFromBytes(meth []byte) (res Method) {
	if len(meth) == 0 {
		return MethUndefined
	}
	return MethodFrom(b2s(meth))
}

// b2s converts byte slice to a string without memory allocation.
// See https://groups.google.com/forum/#!msg/Golang-Nuts/ENgbUzYvCuU/90yGx7GUAgAJ .
func b2s(b []byte) string {
	return unsafe.String(unsafe.SliceData(b), len(b))
}