// Package probe implements media metadata probing.
package probe

import (
	"context"
	"encoding/json"
	"errors"
	"fmt"
	"os"
	"os/exec"
	"strconv"
	"time"

	"codeberg.org/snonux/player/internal/mediatype"
	"codeberg.org/snonux/player/internal/model"
	"github.com/rwcarlsen/goexif/exif"
)

const (
	defaultProbeWaitDelay  = 10 * time.Second
	defaultProbeMaxRetries = 2
	defaultProbeRetryDelay = 500 * time.Millisecond
)

// Prober extracts metadata from a media file.
type Prober interface {
	Probe(ctx context.Context, path string) (*model.Metadata, error)
}

// FFProber wraps the ffprobe command-line tool.
type FFProber struct {
	maxRetries int
	retryDelay time.Duration
	waitDelay  time.Duration
}

var _ Prober = (*FFProber)(nil)

// NewFFProber creates a new FFProber with bounded retries and a process wait delay.
func NewFFProber() *FFProber {
	return &FFProber{
		maxRetries: defaultProbeMaxRetries,
		retryDelay: defaultProbeRetryDelay,
		waitDelay:  defaultProbeWaitDelay,
	}
}

// Probe runs ffprobe against the given path with retries and parses the resulting JSON.
func (f *FFProber) Probe(ctx context.Context, path string) (*model.Metadata, error) {
	var lastErr error
	attempts := f.maxRetries + 1
	if attempts <= 0 {
		attempts = 1
	}

	for i := 0; i < attempts; i++ {
		if err := ctx.Err(); err != nil {
			return nil, err
		}

		meta, err := f.probeOnce(ctx, path)
		if err == nil {
			return meta, nil
		}
		lastErr = err

		// Don't retry on context cancellation.
		if errors.Is(err, context.Canceled) || errors.Is(err, context.DeadlineExceeded) {
			break
		}

		if i < attempts-1 {
			delay := f.retryDelay * time.Duration(1<<i)
			const maxDelay = 30 * time.Second
			if delay > maxDelay {
				delay = maxDelay
			}
			// Use time.NewTimer instead of time.After so the underlying
			// timer is released promptly when ctx.Done fires first,
			// rather than leaking until the delay elapses.
			t := time.NewTimer(delay)
			select {
			case <-t.C:
				// Retry path: timer fired naturally, no Stop needed.
			case <-ctx.Done():
				t.Stop()
				return nil, ctx.Err()
			}
		}
	}
	return nil, lastErr
}

// probeOnce performs a single ffprobe invocation.
func (f *FFProber) probeOnce(ctx context.Context, path string) (*model.Metadata, error) {
	cmd := exec.CommandContext(ctx, "ffprobe",
		"-v", "error",
		"-show_format",
		"-show_streams",
		"-of", "json",
		path,
	)
	cmd.WaitDelay = f.waitDelay
	out, err := cmd.Output()
	if err != nil {
		if exitErr, ok := err.(*exec.ExitError); ok && len(exitErr.Stderr) > 0 {
			return nil, fmt.Errorf("ffprobe %s: %w: %s", path, err, string(exitErr.Stderr))
		}
		return nil, fmt.Errorf("ffprobe %s: %w", path, err)
	}
	meta, err := parseFFprobeOutput(out)
	if err != nil {
		return nil, err
	}
	// For images, also extract EXIF data.
	if mediatype.IsImageExt(path) {
		extractEXIF(path, meta)
	}
	return meta, nil
}

type ffprobeOutput struct {
	Format struct {
		Duration string `json:"duration"`
		BitRate  string `json:"bit_rate"`
	} `json:"format"`
	Streams []struct {
		CodecName string `json:"codec_name"`
		Width     int    `json:"width"`
		Height    int    `json:"height"`
		CodecType string `json:"codec_type"`
	} `json:"streams"`
}

func parseFFprobeOutput(data []byte) (*model.Metadata, error) {
	var out ffprobeOutput
	if err := json.Unmarshal(data, &out); err != nil {
		return nil, fmt.Errorf("unmarshal ffprobe output: %w", err)
	}

	meta := &model.Metadata{}
	if out.Format.Duration != "" {
		if d, err := strconv.ParseFloat(out.Format.Duration, 64); err == nil {
			meta.Duration = d
		}
	}
	if out.Format.BitRate != "" {
		if b, err := strconv.Atoi(out.Format.BitRate); err == nil {
			meta.Bitrate = b
		}
	}

	for _, s := range out.Streams {
		if s.CodecType == "video" {
			if meta.Codec == "" {
				meta.Codec = s.CodecName
			}
			if s.Width > 0 && s.Height > 0 {
				meta.Resolution = fmt.Sprintf("%dx%d", s.Width, s.Height)
				meta.Width = s.Width
				meta.Height = s.Height
			}
			break
		}
	}

	// Fallback to first stream codec if no video stream found.
	if meta.Codec == "" && len(out.Streams) > 0 {
		meta.Codec = out.Streams[0].CodecName
	}

	return meta, nil
}

func extractEXIF(path string, meta *model.Metadata) {
	f, err := os.Open(path)
	if err != nil {
		return
	}
	defer f.Close()

	x, err := exif.Decode(f)
	if err != nil {
		return
	}

	if v, err := x.Get(exif.Make); err == nil {
		if s, err := v.StringVal(); err == nil {
			meta.EXIFCamera = s
		}
	}
	if v, err := x.Get(exif.Model); err == nil {
		if s, err := v.StringVal(); err == nil {
			if meta.EXIFCamera != "" {
				meta.EXIFCamera = meta.EXIFCamera + " " + s
			} else {
				meta.EXIFCamera = s
			}
		}
	}
	if v, err := x.Get(exif.LensModel); err == nil {
		if s, err := v.StringVal(); err == nil {
			meta.EXIFLens = s
		}
	}
	if v, err := x.Get(exif.DateTimeOriginal); err == nil {
		if s, err := v.StringVal(); err == nil {
			meta.EXIFDate = s
		}
	}
	if v, err := x.Get(exif.ISOSpeedRatings); err == nil {
		if i, err := v.Int(0); err == nil {
			meta.EXIFISO = strconv.Itoa(i)
		}
	}
	if v, err := x.Get(exif.FNumber); err == nil {
		if r, err := v.Rat(0); err == nil {
			num := float64(r.Num().Int64())
			denom := float64(r.Denom().Int64())
			meta.EXIFFNumber = fmt.Sprintf("f/%.1f", num/denom)
		}
	}
	if v, err := x.Get(exif.ExposureTime); err == nil {
		if r, err := v.Rat(0); err == nil {
			meta.EXIFExposure = fmt.Sprintf("%s/%s s", r.Num().String(), r.Denom().String())
		}
	}
	if v, err := x.Get(exif.FocalLength); err == nil {
		if r, err := v.Rat(0); err == nil {
			num := float64(r.Num().Int64())
			denom := float64(r.Denom().Int64())
			meta.EXIFFocalLength = fmt.Sprintf("%.1f mm", num/denom)
		}
	}
}

// MockProber is a test fake for Prober.
type MockProber struct {
	ProbeFunc func(ctx context.Context, path string) (*model.Metadata, error)
}

// Probe delegates to ProbeFunc or returns zero-value metadata.
func (m *MockProber) Probe(ctx context.Context, path string) (*model.Metadata, error) {
	if m.ProbeFunc != nil {
		return m.ProbeFunc(ctx, path)
	}
	return &model.Metadata{}, nil
}