package sqlite3

import (
	"context"

	"github.com/ncruces/go-sqlite3/internal/util"
	"github.com/ncruces/go-sqlite3/vfs"
	"github.com/tetratelabs/wazero/api"
)

// Config makes configuration changes to a database connection.
// Only boolean configuration options are supported.
// Called with no arg reads the current configuration value,
// called with one arg sets and returns the new value.
//
// https://sqlite.org/c3ref/db_config.html
func (c *Conn) Config(op DBConfig, arg ...bool) (bool, error) {
	defer c.arena.mark()()
	argsPtr := c.arena.new(2 * ptrlen)

	var flag int
	switch {
	case len(arg) == 0:
		flag = -1
	case arg[0]:
		flag = 1
	}

	util.WriteUint32(c.mod, argsPtr+0*ptrlen, uint32(flag))
	util.WriteUint32(c.mod, argsPtr+1*ptrlen, argsPtr)

	r := c.call("sqlite3_db_config", uint64(c.handle),
		uint64(op), uint64(argsPtr))
	return util.ReadUint32(c.mod, argsPtr) != 0, c.error(r)
}

// ConfigLog sets up the error logging callback for the connection.
//
// https://sqlite.org/errlog.html
func (c *Conn) ConfigLog(cb func(code ExtendedErrorCode, msg string)) error {
	var enable uint64
	if cb != nil {
		enable = 1
	}
	r := c.call("sqlite3_config_log_go", enable)
	if err := c.error(r); err != nil {
		return err
	}
	c.log = cb
	return nil
}

func logCallback(ctx context.Context, mod api.Module, _, iCode, zMsg uint32) {
	if c, ok := ctx.Value(connKey{}).(*Conn); ok && c.log != nil {
		msg := util.ReadString(mod, zMsg, _MAX_LENGTH)
		c.log(xErrorCode(iCode), msg)
	}
}

// FileControl allows low-level control of database files.
// Only a subset of opcodes are supported.
//
// https://sqlite.org/c3ref/file_control.html
func (c *Conn) FileControl(schema string, op FcntlOpcode, arg ...any) (any, error) {
	defer c.arena.mark()()

	var schemaPtr uint32
	if schema != "" {
		schemaPtr = c.arena.string(schema)
	}

	switch op {
	case FCNTL_RESET_CACHE:
		r := c.call("sqlite3_file_control",
			uint64(c.handle), uint64(schemaPtr),
			uint64(op), 0)
		return nil, c.error(r)

	case FCNTL_PERSIST_WAL, FCNTL_POWERSAFE_OVERWRITE:
		var flag int
		switch {
		case len(arg) == 0:
			flag = -1
		case arg[0]:
			flag = 1
		}
		ptr := c.arena.new(4)
		util.WriteUint32(c.mod, ptr, uint32(flag))
		r := c.call("sqlite3_file_control",
			uint64(c.handle), uint64(schemaPtr),
			uint64(op), uint64(ptr))
		return util.ReadUint32(c.mod, ptr) != 0, c.error(r)

	case FCNTL_CHUNK_SIZE:
		ptr := c.arena.new(4)
		util.WriteUint32(c.mod, ptr, uint32(arg[0].(int)))
		r := c.call("sqlite3_file_control",
			uint64(c.handle), uint64(schemaPtr),
			uint64(op), uint64(ptr))
		return nil, c.error(r)

	case FCNTL_RESERVE_BYTES:
		bytes := -1
		if len(arg) > 0 {
			bytes = arg[0].(int)
		}
		ptr := c.arena.new(4)
		util.WriteUint32(c.mod, ptr, uint32(bytes))
		r := c.call("sqlite3_file_control",
			uint64(c.handle), uint64(schemaPtr),
			uint64(op), uint64(ptr))
		return int(util.ReadUint32(c.mod, ptr)), c.error(r)

	case FCNTL_DATA_VERSION:
		ptr := c.arena.new(4)
		r := c.call("sqlite3_file_control",
			uint64(c.handle), uint64(schemaPtr),
			uint64(op), uint64(ptr))
		return util.ReadUint32(c.mod, ptr), c.error(r)

	case FCNTL_LOCKSTATE:
		ptr := c.arena.new(4)
		r := c.call("sqlite3_file_control",
			uint64(c.handle), uint64(schemaPtr),
			uint64(op), uint64(ptr))
		return vfs.LockLevel(util.ReadUint32(c.mod, ptr)), c.error(r)

	case FCNTL_VFS_POINTER:
		ptr := c.arena.new(4)
		r := c.call("sqlite3_file_control",
			uint64(c.handle), uint64(schemaPtr),
			uint64(op), uint64(ptr))
		const zNameOffset = 16
		ptr = util.ReadUint32(c.mod, ptr)
		ptr = util.ReadUint32(c.mod, ptr+zNameOffset)
		name := util.ReadString(c.mod, ptr, _MAX_NAME)
		return vfs.Find(name), c.error(r)

	case FCNTL_FILE_POINTER, FCNTL_JOURNAL_POINTER:
		ptr := c.arena.new(4)
		r := c.call("sqlite3_file_control",
			uint64(c.handle), uint64(schemaPtr),
			uint64(op), uint64(ptr))
		const fileHandleOffset = 4
		ptr = util.ReadUint32(c.mod, ptr)
		ptr = util.ReadUint32(c.mod, ptr+fileHandleOffset)
		return util.GetHandle(c.ctx, ptr), c.error(r)
	}

	return nil, MISUSE
}

// Limit allows the size of various constructs to be
// limited on a connection by connection basis.
//
// https://sqlite.org/c3ref/limit.html
func (c *Conn) Limit(id LimitCategory, value int) int {
	r := c.call("sqlite3_limit", uint64(c.handle), uint64(id), uint64(value))
	return int(int32(r))
}

// SetAuthorizer registers an authorizer callback with the database connection.
//
// https://sqlite.org/c3ref/set_authorizer.html
func (c *Conn) SetAuthorizer(cb func(action AuthorizerActionCode, name3rd, name4th, schema, inner string) AuthorizerReturnCode) error {
	var enable uint64
	if cb != nil {
		enable = 1
	}
	r := c.call("sqlite3_set_authorizer_go", uint64(c.handle), enable)
	if err := c.error(r); err != nil {
		return err
	}
	c.authorizer = cb
	return nil

}

func authorizerCallback(ctx context.Context, mod api.Module, pDB uint32, action AuthorizerActionCode, zName3rd, zName4th, zSchema, zInner uint32) (rc AuthorizerReturnCode) {
	if c, ok := ctx.Value(connKey{}).(*Conn); ok && c.handle == pDB && c.authorizer != nil {
		var name3rd, name4th, schema, inner string
		if zName3rd != 0 {
			name3rd = util.ReadString(mod, zName3rd, _MAX_NAME)
		}
		if zName4th != 0 {
			name4th = util.ReadString(mod, zName4th, _MAX_NAME)
		}
		if zSchema != 0 {
			schema = util.ReadString(mod, zSchema, _MAX_NAME)
		}
		if zInner != 0 {
			inner = util.ReadString(mod, zInner, _MAX_NAME)
		}
		rc = c.authorizer(action, name3rd, name4th, schema, inner)
	}
	return rc
}

// Trace registers a trace callback function against the database connection.
//
// https://sqlite.org/c3ref/trace_v2.html
func (c *Conn) Trace(mask TraceEvent, cb func(evt TraceEvent, arg1 any, arg2 any) error) error {
	r := c.call("sqlite3_trace_go", uint64(c.handle), uint64(mask))
	if err := c.error(r); err != nil {
		return err
	}
	c.trace = cb
	return nil
}

func traceCallback(ctx context.Context, mod api.Module, evt TraceEvent, pDB, pArg1, pArg2 uint32) (rc uint32) {
	if c, ok := ctx.Value(connKey{}).(*Conn); ok && c.handle == pDB && c.trace != nil {
		var arg1, arg2 any
		if evt == TRACE_CLOSE {
			arg1 = c
		} else {
			for _, s := range c.stmts {
				if pArg1 == s.handle {
					arg1 = s
					switch evt {
					case TRACE_STMT:
						arg2 = s.SQL()
					case TRACE_PROFILE:
						arg2 = int64(util.ReadUint64(mod, pArg2))
					}
					break
				}
			}
		}
		if arg1 != nil {
			_, rc = errorCode(c.trace(evt, arg1, arg2), ERROR)
		}
	}
	return rc
}

// WalCheckpoint checkpoints a WAL database.
//
// https://sqlite.org/c3ref/wal_checkpoint_v2.html
func (c *Conn) WalCheckpoint(schema string, mode CheckpointMode) (nLog, nCkpt int, err error) {
	defer c.arena.mark()()
	nLogPtr := c.arena.new(ptrlen)
	nCkptPtr := c.arena.new(ptrlen)
	schemaPtr := c.arena.string(schema)
	r := c.call("sqlite3_wal_checkpoint_v2",
		uint64(c.handle), uint64(schemaPtr), uint64(mode),
		uint64(nLogPtr), uint64(nCkptPtr))
	nLog = int(int32(util.ReadUint32(c.mod, nLogPtr)))
	nCkpt = int(int32(util.ReadUint32(c.mod, nCkptPtr)))
	return nLog, nCkpt, c.error(r)
}

// WalAutoCheckpoint configures WAL auto-checkpoints.
//
// https://sqlite.org/c3ref/wal_autocheckpoint.html
func (c *Conn) WalAutoCheckpoint(pages int) error {
	r := c.call("sqlite3_wal_autocheckpoint", uint64(c.handle), uint64(pages))
	return c.error(r)
}

// WalHook registers a callback function to be invoked
// each time data is committed to a database in WAL mode.
//
// https://sqlite.org/c3ref/wal_hook.html
func (c *Conn) WalHook(cb func(db *Conn, schema string, pages int) error) {
	var enable uint64
	if cb != nil {
		enable = 1
	}
	c.call("sqlite3_wal_hook_go", uint64(c.handle), enable)
	c.wal = cb
}

func walCallback(ctx context.Context, mod api.Module, _, pDB, zSchema uint32, pages int32) (rc uint32) {
	if c, ok := ctx.Value(connKey{}).(*Conn); ok && c.handle == pDB && c.wal != nil {
		schema := util.ReadString(mod, zSchema, _MAX_NAME)
		err := c.wal(c, schema, int(pages))
		_, rc = errorCode(err, ERROR)
	}
	return rc
}

// AutoVacuumPages registers a autovacuum compaction amount callback.
//
// https://sqlite.org/c3ref/autovacuum_pages.html
func (c *Conn) AutoVacuumPages(cb func(schema string, dbPages, freePages, bytesPerPage uint) uint) error {
	funcPtr := util.AddHandle(c.ctx, cb)
	r := c.call("sqlite3_autovacuum_pages_go", uint64(c.handle), uint64(funcPtr))
	return c.error(r)
}

func autoVacuumCallback(ctx context.Context, mod api.Module, pApp, zSchema, nDbPage, nFreePage, nBytePerPage uint32) uint32 {
	fn := util.GetHandle(ctx, pApp).(func(schema string, dbPages, freePages, bytesPerPage uint) uint)
	schema := util.ReadString(mod, zSchema, _MAX_NAME)
	return uint32(fn(schema, uint(nDbPage), uint(nFreePage), uint(nBytePerPage)))
}