scuffle-ffmpeg 0.3.5

use libc::c_void;

use crate::error::{FfmpegError, FfmpegErrorCode};
use crate::ffi::*;
use crate::smart_object::SmartPtr;
use crate::{AVIOFlag, AVSeekWhence};

const AVERROR_IO: i32 = AVERROR(EIO);

/// Safety: The function must be used with the same type as the one used to
/// generically create the function pointer
pub(crate) unsafe extern "C" fn read_packet<T: std::io::Read>(
    opaque: *mut libc::c_void,
    buf: *mut u8,
    buf_size: i32,
) -> i32 {
    // Safety: The pointer is valid given the way this function is constructed, the opaque pointer is a pointer to a T.
    let this = unsafe { &mut *(opaque as *mut T) };
    // Safety: the buffer has at least `buf_size` bytes.
    let buffer = unsafe { std::slice::from_raw_parts_mut(buf, buf_size as usize) };

    let ret = this.read(buffer).map(|n| n as i32).unwrap_or(AVERROR_IO);

    if ret == 0 {
        return AVERROR_EOF;
    }

    ret
}

/// Safety: The function must be used with the same type as the one used to
/// generically create the function pointer
pub(crate) unsafe extern "C" fn write_packet<T: std::io::Write>(
    opaque: *mut libc::c_void,
    buf: *const u8,
    buf_size: i32,
) -> i32 {
    // Safety: The pointer is valid given the way this function is constructed, the opaque pointer is a pointer to a T.
    let this = unsafe { &mut *(opaque as *mut T) };
    // Safety: the buffer has at least `buf_size` bytes.
    let buffer = unsafe { std::slice::from_raw_parts(buf, buf_size as usize) };

    this.write(buffer).map(|n| n as i32).unwrap_or(AVERROR_IO)
}

/// Safety: The function must be used with the same type as the one used to
/// generically create the function pointer
pub(crate) unsafe extern "C" fn seek<T: std::io::Seek>(opaque: *mut libc::c_void, offset: i64, whence: i32) -> i64 {
    // Safety: The pointer is valid given the way this function is constructed, the opaque pointer is a pointer to a T.
    let this = unsafe { &mut *(opaque as *mut T) };

    let mut whence = AVSeekWhence(whence);

    let seek_size = whence & AVSeekWhence::Size != 0;
    if seek_size {
        whence &= !AVSeekWhence::Size;
    }

    let seek_force = whence & AVSeekWhence::Force != 0;
    if seek_force {
        whence &= !AVSeekWhence::Force;
    }

    if seek_size {
        let Ok(pos) = this.stream_position() else {
            return AVERROR_IO as i64;
        };

        let Ok(end) = this.seek(std::io::SeekFrom::End(0)) else {
            return AVERROR_IO as i64;
        };

        if end != pos {
            let Ok(_) = this.seek(std::io::SeekFrom::Start(pos)) else {
                return AVERROR_IO as i64;
            };
        }

        return end as i64;
    }

    let whence = match whence {
        AVSeekWhence::Start => std::io::SeekFrom::Start(offset as u64),
        AVSeekWhence::Current => std::io::SeekFrom::Current(offset),
        AVSeekWhence::End => std::io::SeekFrom::End(offset),
        _ => return -1,
    };

    match this.seek(whence) {
        Ok(pos) => pos as i64,
        Err(_) => AVERROR_IO as i64,
    }
}

pub(crate) struct Inner<T: Send + Sync> {
    pub(crate) data: Option<Box<T>>,
    pub(crate) context: SmartPtr<AVFormatContext>,
    _io: SmartPtr<AVIOContext>,
}

pub(crate) struct InnerOptions {
    pub(crate) buffer_size: usize,
    pub(crate) read_fn: Option<unsafe extern "C" fn(*mut c_void, *mut u8, i32) -> i32>,
    pub(crate) write_fn: Option<unsafe extern "C" fn(*mut c_void, *const u8, i32) -> i32>,
    pub(crate) seek_fn: Option<unsafe extern "C" fn(*mut c_void, i64, i32) -> i64>,
    pub(crate) output_format: *const AVOutputFormat,
}

impl Default for InnerOptions {
    fn default() -> Self {
        Self {
            buffer_size: 4096,
            read_fn: None,
            write_fn: None,
            seek_fn: None,
            output_format: std::ptr::null(),
        }
    }
}

impl<T: Send + Sync> Inner<T> {
    /// Creates a new `Inner` instance.
    pub(crate) fn new(data: T, options: InnerOptions) -> Result<Self, FfmpegError> {
        // Safety: av_malloc is safe to call
        let buffer = unsafe { av_malloc(options.buffer_size) };

        fn buffer_destructor(ptr: &mut *mut c_void) {
            // We own this resource so we need to free it
            // Safety: this buffer was allocated via `av_malloc` so we need to free it.
            unsafe { av_free(*ptr) };
            // We clear the old pointer so it doesn't get freed again.
            *ptr = std::ptr::null_mut();
        }

        // This is only a temporary smart_ptr because we will change the ownership to be owned by the io context. & freed, by the io context.
        // Safety: av_malloc gives a valid pointer & the destructor has been setup to free the buffer.
        let buffer = unsafe { SmartPtr::wrap_non_null(buffer, buffer_destructor) }.ok_or(FfmpegError::Alloc)?;

        let mut data = Box::new(data);

        // Safety: avio_alloc_context is safe to call, and all the function pointers are valid
        let destructor = |ptr: &mut *mut AVIOContext| {
            // Safety: the pointer is always valid.
            let mut_ref = unsafe { ptr.as_mut() };
            if let Some(ptr) = mut_ref {
                buffer_destructor(&mut (ptr.buffer as *mut c_void));
            }

            // Safety: avio_context_free is safe to call & the pointer was allocated by `av_create_io_context`
            unsafe { avio_context_free(ptr) };
            *ptr = std::ptr::null_mut();
        };

        // Safety: avio_alloc_context is safe to call & the destructor has been setup to free the buffer.
        let io = unsafe {
            avio_alloc_context(
                buffer.as_ptr() as *mut u8,
                options.buffer_size as i32,
                if options.write_fn.is_some() { 1 } else { 0 },
                data.as_mut() as *mut _ as *mut c_void,
                options.read_fn,
                options.write_fn,
                options.seek_fn,
            )
        };

        // Safety: `avio_alloc_context` returns a valid pointer & the destructor has been setup to free both the buffer & the io context.
        let mut io = unsafe { SmartPtr::wrap_non_null(io, destructor) }.ok_or(FfmpegError::Alloc)?;

        // The buffer is now owned by the IO context. We need to go into_inner here to prevent the destructor from being called before we use it.
        buffer.into_inner();

        let mut context = if options.write_fn.is_some() {
            let mut context = SmartPtr::null(|mut_ref| {
                let ptr = *mut_ref;
                // Safety: The pointer here is valid.
                unsafe { avformat_free_context(ptr) };
                *mut_ref = std::ptr::null_mut();
            });

            // Safety: avformat_alloc_output_context2 is safe to call
            FfmpegErrorCode(unsafe {
                avformat_alloc_output_context2(
                    context.as_mut(),
                    options.output_format,
                    std::ptr::null(),
                    std::ptr::null_mut(),
                )
            })
            .result()?;

            if context.as_ptr().is_null() {
                return Err(FfmpegError::Alloc);
            }

            context
        } else {
            // Safety: avformat_alloc_context is safe to call
            let context = unsafe { avformat_alloc_context() };

            let destructor = |mut_ref: &mut *mut AVFormatContext| {
                let ptr = *mut_ref;
                // Safety: The pointer here is valid and was allocated by `avformat_alloc_context`.
                unsafe { avformat_free_context(ptr) };
                *mut_ref = std::ptr::null_mut();
            };

            // Safety: `avformat_alloc_context` returns a valid pointer & the destructor has been setup to free the context.
            unsafe { SmartPtr::wrap_non_null(context, destructor) }.ok_or(FfmpegError::Alloc)?
        };

        // The io context will live as long as the format context
        context.as_deref_mut().expect("Context is null").pb = io.as_mut_ptr();

        Ok(Self {
            data: Some(data),
            context,
            _io: io,
        })
    }
}

impl Inner<()> {
    /// Empty context cannot be used until its initialized and setup correctly
    /// Safety: this function is marked as unsafe because it must be initialized and setup correctltly before returning it to the user.
    pub(crate) unsafe fn empty() -> Self {
        Self {
            data: Some(Box::new(())),
            context: SmartPtr::null(|mut_ref| {
                // We own this resource so we need to free it
                let ptr = *mut_ref;
                // Safety: The pointer here is valid.
                unsafe { avformat_free_context(ptr) };
                *mut_ref = std::ptr::null_mut();
            }),
            _io: SmartPtr::null(|_| {}),
        }
    }

    /// Opens an output stream to a file path.
    pub(crate) fn open_output(path: &str) -> Result<Self, FfmpegError> {
        let path = std::ffi::CString::new(path).expect("Failed to convert path to CString");

        // Safety: We immediately initialize the inner and setup the context.
        let mut this = unsafe { Self::empty() };

        // Safety: avformat_alloc_output_context2 is safe to call and all arguments are valid
        FfmpegErrorCode(unsafe {
            avformat_alloc_output_context2(this.context.as_mut(), std::ptr::null(), std::ptr::null(), path.as_ptr())
        })
        .result()?;

        // We are not moving the pointer so this is safe
        if this.context.as_ptr().is_null() {
            return Err(FfmpegError::Alloc);
        }

        // Safety: avio_open is safe to call and all arguments are valid
        FfmpegErrorCode(unsafe {
            avio_open(
                &mut this.context.as_deref_mut_except().pb,
                path.as_ptr(),
                AVIOFlag::Write.into(),
            )
        })
        .result()?;

        this.context.set_destructor(|mut_ref| {
            // We own this resource so we need to free it
            let ptr = *mut_ref;
            // Safety: The pointer here is valid.
            let mut_ptr_ref = unsafe { ptr.as_mut() };

            if let Some(mut_ptr_ref) = mut_ptr_ref {
                // Safety: The pointer here is valid. And we need to clean this up before we do `avformat_free_context`.
                unsafe { avio_closep(&mut mut_ptr_ref.pb) };
            }

            // Safety: The pointer here is valid.
            unsafe { avformat_free_context(ptr) };
            *mut_ref = std::ptr::null_mut();
        });

        Ok(this)
    }
}

#[cfg(test)]
#[cfg_attr(all(test, coverage_nightly), coverage(off))]
mod tests {
    use std::ffi::CString;
    use std::io::Cursor;
    use std::sync::Once;
    use std::sync::atomic::{AtomicUsize, Ordering};

    use libc::c_void;
    use tempfile::Builder;

    use crate::AVSeekWhence;
    use crate::error::FfmpegError;
    use crate::ffi::av_guess_format;
    use crate::io::internal::{AVERROR_EOF, Inner, InnerOptions, read_packet, seek, write_packet};

    #[test]
    fn test_read_packet_eof() {
        let mut data: Cursor<Vec<u8>> = Cursor::new(vec![]);
        let mut buf = [0u8; 10];

        // Safety: The pointer is valid.
        unsafe {
            let result =
                read_packet::<Cursor<Vec<u8>>>((&raw mut data) as *mut libc::c_void, buf.as_mut_ptr(), buf.len() as i32);

            assert_eq!(result, AVERROR_EOF);
        }
    }

    #[test]
    fn test_write_packet_success() {
        let mut data = Cursor::new(vec![0u8; 10]);
        let buf = [1u8, 2, 3, 4, 5];

        // Safety: The pointer is valid.
        unsafe {
            let result = write_packet::<Cursor<Vec<u8>>>((&raw mut data) as *mut c_void, buf.as_ptr(), buf.len() as i32);
            assert_eq!(result, buf.len() as i32);

            let written_data = data.get_ref();
            assert_eq!(&written_data[..buf.len()], &buf);
        }
    }

    #[test]
    fn test_seek_force() {
        let mut cursor = Cursor::new(vec![0u8; 100]);
        let opaque = &raw mut cursor as *mut c_void;
        assert_eq!(cursor.position(), 0);
        let offset = 10;
        let mut whence = AVSeekWhence::Current | AVSeekWhence::Force;
        // Safety: The pointer is valid.
        let result = unsafe { seek::<Cursor<Vec<u8>>>(opaque, offset, whence.into()) };

        assert_eq!(result, { offset });
        whence &= !AVSeekWhence::Force;
        assert_eq!(whence, AVSeekWhence::Current);
        assert_eq!(cursor.position(), offset as u64);
    }

    #[test]
    fn test_seek_seek_end() {
        let mut cursor = Cursor::new(vec![0u8; 100]);
        let opaque = &raw mut cursor as *mut libc::c_void;
        let offset = -10;
        // Safety: The pointer is valid.
        let result = unsafe { seek::<Cursor<Vec<u8>>>(opaque, offset, AVSeekWhence::End.into()) };

        assert_eq!(result, 90);
        assert_eq!(cursor.position(), 90);
    }

    #[test]
    fn test_seek_invalid_whence() {
        let mut cursor = Cursor::new(vec![0u8; 100]);
        let opaque = &raw mut cursor as *mut libc::c_void;
        // Safety: The pointer is valid.
        let result = unsafe { seek::<Cursor<Vec<u8>>>(opaque, 0, 999) };

        assert_eq!(result, -1);
        assert_eq!(cursor.position(), 0);
    }

    #[test]
    fn test_avformat_alloc_output_context2_error() {
        static BUF_SIZE_TRACKER: AtomicUsize = AtomicUsize::new(0);
        static CALL_COUNT: AtomicUsize = AtomicUsize::new(0);
        static INIT: Once = Once::new();

        INIT.call_once(|| {
            BUF_SIZE_TRACKER.store(0, Ordering::SeqCst);
            CALL_COUNT.store(0, Ordering::SeqCst);
        });

        unsafe extern "C" fn dummy_write_fn(_opaque: *mut libc::c_void, _buf: *const u8, _buf_size: i32) -> i32 {
            CALL_COUNT.fetch_add(1, Ordering::SeqCst);
            BUF_SIZE_TRACKER.store(_buf_size as usize, Ordering::SeqCst);
            0 // simulate success
        }

        let invalid_format = CString::new("invalid_format").expect("Failed to create CString");
        let options = InnerOptions {
            buffer_size: 4096,
            write_fn: Some(dummy_write_fn),
            // Safety: av_guess_format is safe to call
            output_format: unsafe { av_guess_format(invalid_format.as_ptr(), std::ptr::null(), std::ptr::null()) },
            ..Default::default()
        };
        let data = ();
        let result = Inner::new(data, options);

        assert!(result.is_err(), "Expected an error but got Ok");

        let call_count = CALL_COUNT.load(Ordering::SeqCst);
        assert_eq!(call_count, 0, "Expected dummy_write_fn to not be called.");

        if let Err(error) = result {
            match error {
                FfmpegError::Code(_) => {
                    eprintln!("Expected avformat_alloc_output_context2 error occurred.");
                }
                _ => panic!("Unexpected error variant: {error:?}"),
            }
        }
    }

    #[test]
    fn test_open_output_valid_path() {
        let temp_file = Builder::new()
            .suffix(".mp4")
            .tempfile()
            .expect("Failed to create a temporary file");
        let test_path = temp_file.path();
        let result = Inner::open_output(test_path.to_str().unwrap());

        assert!(result.is_ok(), "Expected success but got error");
    }

    #[test]
    fn test_open_output_invalid_path() {
        let test_path = "";
        let result = Inner::open_output(test_path);

        assert!(result.is_err(), "Expected Err, got Ok");
    }

    #[test]
    fn test_open_output_avformat_alloc_error() {
        let test_path = tempfile::tempdir().unwrap().path().join("restricted_output.mp4");
        let test_path_str = test_path.to_str().unwrap();
        let result = Inner::open_output(test_path_str);
        if let Err(error) = &result {
            eprintln!("Function returned an error: {error:?}");
        }

        assert!(
            matches!(result, Err(FfmpegError::Code(_))),
            "Expected FfmpegError::Code but received a different error."
        );
    }
}