package dbus

import (
	"context"
	"errors"
	"io"
	"os"
	"os/exec"
	"path"
	"path/filepath"
	"slices"
	"strconv"
	"strings"
	"syscall"

	"git.gensokyo.uk/security/fortify/helper"
	"git.gensokyo.uk/security/fortify/helper/bwrap"
	"git.gensokyo.uk/security/fortify/ldd"
)

// Start launches the D-Bus proxy.
func (p *Proxy) Start(ctx context.Context, output io.Writer, sandbox bool) error {
	p.lock.Lock()
	defer p.lock.Unlock()

	if p.seal == nil {
		return errors.New("proxy not sealed")
	}

	var h helper.Helper

	c, cancel := context.WithCancelCause(ctx)
	if !sandbox {
		h = helper.NewDirect(c, p.name, p.seal, true, argF, func(cmd *exec.Cmd) {
			cmdF(cmd, output, p.CmdF)

			// xdg-dbus-proxy does not need to inherit the environment
			cmd.Env = make([]string, 0)
		}, nil)
	} else {
		toolPath := p.name
		if filepath.Base(p.name) == p.name {
			if s, err := exec.LookPath(p.name); err != nil {
				return err
			} else {
				toolPath = s
			}
		}

		bc := &bwrap.Config{
			Hostname:      "fortify-dbus",
			Chdir:         "/",
			Syscall:       &bwrap.SyscallPolicy{DenyDevel: true, Multiarch: true},
			Clearenv:      true,
			NewSession:    true,
			DieWithParent: true,
		}

		// these lib paths are unpredictable, so mount them first so they cannot cover anything
		if toolPath != os.Args[0] {
			if entries, err := ldd.Exec(ctx, toolPath); err != nil {
				return err
			} else {
				for _, name := range ldd.Path(entries) {
					bc.Bind(name, name)
				}
			}
		}

		// upstream bus directories
		upstreamPaths := make([]string, 0, 2)
		for _, as := range []string{p.session[0], p.system[0]} {
			if len(as) > 0 && strings.HasPrefix(as, "unix:path=/") {
				// leave / intact
				upstreamPaths = append(upstreamPaths, path.Dir(as[10:]))
			}
		}
		slices.Sort(upstreamPaths)
		upstreamPaths = slices.Compact(upstreamPaths)
		for _, name := range upstreamPaths {
			bc.Bind(name, name)
		}

		// parent directories of bind paths
		sockDirPaths := make([]string, 0, 2)
		if d := path.Dir(p.session[1]); path.IsAbs(d) {
			sockDirPaths = append(sockDirPaths, d)
		}
		if d := path.Dir(p.system[1]); path.IsAbs(d) {
			sockDirPaths = append(sockDirPaths, d)
		}
		slices.Sort(sockDirPaths)
		sockDirPaths = slices.Compact(sockDirPaths)
		for _, name := range sockDirPaths {
			bc.Bind(name, name, false, true)
		}

		// xdg-dbus-proxy bin path
		binPath := path.Dir(toolPath)
		bc.Bind(binPath, binPath)
		h = helper.MustNewBwrap(c, toolPath,
			p.seal, true,
			argF, func(cmd *exec.Cmd) { cmdF(cmd, output, p.CmdF) },
			nil,
			bc, nil,
		)
		p.bwrap = bc
	}

	if err := h.Start(); err != nil {
		cancel(err)
		return err
	}

	p.helper = h
	p.ctx = c
	p.cancel = cancel
	return nil
}

var proxyClosed = errors.New("proxy closed")

// Wait blocks until xdg-dbus-proxy exits and releases resources.
func (p *Proxy) Wait() error {
	p.lock.RLock()
	defer p.lock.RUnlock()

	if p.helper == nil {
		return errors.New("dbus: not started")
	}

	errs := make([]error, 3)

	errs[0] = p.helper.Wait()
	if p.cancel == nil &&
		errors.Is(errs[0], context.Canceled) &&
		errors.Is(context.Cause(p.ctx), proxyClosed) {
		errs[0] = nil
	}

	// ensure socket removal so ephemeral directory is empty at revert
	if err := os.Remove(p.session[1]); err != nil && !errors.Is(err, os.ErrNotExist) {
		errs[1] = err
	}
	if p.sysP {
		if err := os.Remove(p.system[1]); err != nil && !errors.Is(err, os.ErrNotExist) {
			errs[2] = err
		}
	}

	return errors.Join(errs...)
}

// Close cancels the context passed to the helper instance attached to xdg-dbus-proxy.
func (p *Proxy) Close() {
	p.lock.Lock()
	defer p.lock.Unlock()

	if p.cancel == nil {
		panic("dbus: not started")
	}
	p.cancel(proxyClosed)
	p.cancel = nil
}

func argF(argsFd, statFd int) []string {
	if statFd == -1 {
		return []string{"--args=" + strconv.Itoa(argsFd)}
	} else {
		return []string{"--args=" + strconv.Itoa(argsFd), "--fd=" + strconv.Itoa(statFd)}
	}
}

func cmdF(cmd *exec.Cmd, output io.Writer, cmdF func(cmd *exec.Cmd)) {
	cmd.SysProcAttr = &syscall.SysProcAttr{Setpgid: true}
	if output != nil {
		cmd.Stdout, cmd.Stderr = output, output
	}
	if cmdF != nil {
		cmdF(cmd)
	}
}