gw-bin 0.4.2

use super::{utils::command::create_command, Action, ActionError};
use crate::context::Context;
use duct::{Expression, ReaderHandle};
use log::{debug, error, info, trace, warn};
use std::{
    io::{BufRead, BufReader},
    sync::{Arc, RwLock},
    thread::{self, sleep},
    time::Duration,
};
use thiserror::Error;

#[cfg(unix)]
use nix::{errno::Errno, sys::signal::Signal};
#[cfg(unix)]
use std::{os::unix::process::ExitStatusExt, str::FromStr};

const ACTION_NAME: &str = "PROCESS";

/// Custom error describing the error cases for the ProcessAction.
#[derive(Debug, Error, PartialEq, Eq)]
pub enum ProcessError {
    /// The command is invalid (usually mismatched quotations etc.).
    #[error("the command {0:?} cannot be parsed")]
    CommandParseFailure(String),
    /// Signal is not a valid UNIX signal.
    #[error("the signal {0} is not valid")]
    SignalParseFailure(String),
    /// The underlying Rust command creation failed. The parameter contains the error.
    #[error("the script cannot start: {0}")]
    StartFailure(String),
    /// Stopping the command failed.
    #[error("the script cannot be stopped: {0}")]
    StopFailure(String),
    /// Killing the command failed.
    #[cfg(unix)]
    #[error("killing the process failed with error: {0}")]
    KillFailed(#[from] Errno),
    /// The lock on the child is poisoned: this means the thread failed while holding the lock.
    #[error("the mutex is poisoned")]
    MutexPoisoned,
}

impl From<ProcessError> for ActionError {
    fn from(value: ProcessError) -> Self {
        match value {
            ProcessError::CommandParseFailure(_) | ProcessError::SignalParseFailure(_) => {
                ActionError::Misconfigured(value.to_string())
            }
            _ => ActionError::FailedAction(value.to_string()),
        }
    }
}

/// Parameters for the process.
#[derive(Debug, Clone)]
pub struct ProcessParams {
    directory: String,
    command: String,
    process: Expression,
    retries: u32,
    #[cfg(unix)]
    stop_signal: Signal,
    #[cfg(unix)]
    stop_timeout: Duration,
    runs_in_shell: bool,
}

impl ProcessParams {
    pub fn new(
        original_command: String,
        directory: String,
        runs_in_shell: bool,
    ) -> Result<ProcessParams, ProcessError> {
        let (command, process) = create_command(&original_command, runs_in_shell)
            .ok_or(ProcessError::CommandParseFailure(original_command.clone()))?;

        Ok(ProcessParams {
            directory,
            command,
            process,
            retries: 0,
            #[cfg(unix)]
            stop_signal: Signal::SIGTERM,
            #[cfg(unix)]
            stop_timeout: Duration::from_secs(10),
            runs_in_shell,
        })
    }

    pub fn set_retries(&mut self, retries: u32) {
        self.retries = retries;
    }

    #[cfg_attr(not(unix), allow(unused_variables))]
    pub fn set_stop_signal(&mut self, stop_signal: String) -> Result<(), ProcessError> {
        #[cfg(unix)]
        {
            self.stop_signal = Signal::from_str(&stop_signal)
                .map_err(|_| ProcessError::SignalParseFailure(stop_signal))?;
        }

        Ok(())
    }

    #[cfg_attr(not(unix), allow(unused_variables))]
    pub fn set_stop_timeout(&mut self, stop_timeout: Duration) {
        #[cfg(unix)]
        {
            self.stop_timeout = stop_timeout;
        }
    }
}

/// Struct that can handle the lifecycle of the process with restarting etc.
#[derive(Debug)]
#[cfg_attr(unix, allow(dead_code))]
pub struct Process {
    child: Arc<RwLock<Option<ReaderHandle>>>,
    #[cfg(unix)]
    stop_signal: Signal,
    #[cfg(unix)]
    stop_timeout: Duration,
}

impl Process {
    fn start_child(params: &ProcessParams) -> Result<ReaderHandle, ProcessError> {
        info!(
            "Starting process {:?} {}in {}.",
            params.command,
            if params.runs_in_shell {
                "in a shell "
            } else {
                ""
            },
            params.directory,
        );

        // Create child
        let child = params
            .process
            .dir(&params.directory)
            .stderr_to_stdout()
            .env("CI", "true")
            .env("GW_ACTION_NAME", ACTION_NAME)
            .env("GW_DIRECTORY", &params.directory)
            .unchecked()
            .reader()
            .map_err(|err| ProcessError::StartFailure(err.to_string()))?;

        if let Some(pid) = child.pids().first() {
            trace!("Started process with pid {pid}.",);
        }

        Ok(child)
    }

    fn start(params: &ProcessParams) -> Result<Process, ProcessError> {
        let child = Arc::new(RwLock::new(Some(Process::start_child(params)?)));

        let command_id = params.command.clone();
        let max_retries = params.retries;
        let thread_params = params.clone();
        let thread_child = child.clone();
        thread::spawn(move || {
            let mut tries = max_retries + 1;

            loop {
                trace!("Locking the subprocess to get the stdout.");
                if let Some(stdout) = thread_child.read().unwrap().as_ref() {
                    let mut reader = BufReader::new(stdout).lines();
                    trace!("Reading lines from the stdout.");
                    while let Some(Ok(line)) = reader.next() {
                        debug!("[{command_id}] {line}");
                    }

                    #[cfg_attr(not(unix), allow(unused_variables))]
                    if let Ok(Some(output)) = stdout.try_wait() {
                        #[cfg(unix)]
                        if output.status.signal().is_some() {
                            trace!("Process is signalled, no retries necessary.");
                            return;
                        }
                    }
                } else {
                    error!("Failed taking the stdout of process.");
                    break;
                }

                tries -= 1;
                if tries == 0 {
                    break;
                }

                warn!(
                    "Process {:?} failed, retrying ({} retries left).",
                    thread_params.command, tries
                );

                sleep(Duration::from_millis(100));
                match Process::start_child(&thread_params) {
                    Ok(new_child) => {
                        trace!("Locking the subprocess to replace the child with the new process.");
                        if let Ok(mut unlocked_child) = thread_child.write() {
                            unlocked_child.replace(new_child);
                        } else {
                            error!("Failed locking the child, the mutex might be poisoned.");
                        }
                    }
                    Err(err) => {
                        error!("Failed retrying the process: {err}.");
                        break;
                    }
                }
            }

            trace!("Locking the subprocess to remove the child.");
            if let Ok(mut unlocked_child) = thread_child.write() {
                unlocked_child.take();
                trace!("The failed process is removed.");
            } else {
                error!("Failed locking the child, the mutex might be poisoned.");
            }

            error!(
                "Process {:?} {}, we are not retrying anymore.",
                thread_params.command,
                if max_retries > 0 {
                    format!("failed more than {max_retries} times")
                } else {
                    "failed with 0 retries".to_string()
                },
            );
        });

        Ok(Process {
            child,
            #[cfg(unix)]
            stop_signal: params.stop_signal,
            #[cfg(unix)]
            stop_timeout: params.stop_timeout,
        })
    }

    #[cfg(unix)]
    fn stop(&mut self) -> Result<(), ProcessError> {
        use duration_string::DurationString;
        use log::trace;
        use nix::sys::signal::kill;
        use nix::unistd::Pid;
        use std::thread::sleep;
        use std::time::Instant;

        trace!("Locking the subprocess to stop it.");
        if let Some(child) = self
            .child
            .read()
            .map_err(|_| ProcessError::MutexPoisoned)?
            .as_ref()
        {
            let pid = Pid::from_raw(
                *child
                    .pids()
                    .first()
                    .ok_or(ProcessError::StopFailure("pid not found".to_string()))?
                    as i32,
            );

            trace!(
                "Trying to stop process: sending {} to {}.",
                self.stop_signal,
                pid
            );
            kill(pid, self.stop_signal)?;

            let start_time = Instant::now();
            while start_time.elapsed() < self.stop_timeout {
                if let Ok(Some(output)) = child.try_wait() {
                    info!("Process stopped gracefully with status {}.", output.status);
                    return Ok(());
                }
                sleep(Duration::from_secs(1));
            }

            debug!(
                "Process didn't stop gracefully after {}. Killing process.",
                DurationString::from(self.stop_timeout)
            );

            child
                .kill()
                .map_err(|err| ProcessError::StopFailure(err.to_string()))?;

            info!("Process killed successfully.");
        } else {
            debug!("Cannot restart process, because it has already failed.");
        }

        Ok(())
    }

    #[cfg(not(unix))]
    fn stop(&mut self) -> Result<(), ProcessError> {
        trace!("Locking the subprocess to stop it.");
        if let Some(child) = self
            .child
            .read()
            .map_err(|_| ProcessError::MutexPoisoned)?
            .as_ref()
        {
            child
                .kill()
                .map_err(|err| ProcessError::StopFailure(err.to_string()))?;

            info!("Process stopped successfully.");
        } else {
            debug!("Cannot restart process, because it has already failed.");
        }

        Ok(())
    }
}

/// An action to run in the background and restart a subprocess.
#[derive(Debug)]
pub struct ProcessAction {
    params: ProcessParams,
    process: Process,
}

impl ProcessAction {
    /// Creates a new process in the background.
    pub fn new(params: ProcessParams) -> Result<ProcessAction, ProcessError> {
        let process = Process::start(&params)?;

        Ok(ProcessAction { params, process })
    }

    fn run_inner(&mut self) -> Result<(), ProcessError> {
        self.process
            .stop()
            .map_err(|err| ProcessError::StopFailure(err.to_string()))?;
        self.process = Process::start(&self.params)?;

        Ok(())
    }
}

impl Action for ProcessAction {
    /// Kills and restarts the subprocess.
    fn run(&mut self, _context: &Context) -> Result<(), ActionError> {
        Ok(self.run_inner()?)
    }
}

#[cfg(test)]
#[cfg_attr(not(unix), allow(unused_imports))]
mod tests {
    use super::*;
    use std::{fs, time::Instant};
    use thread::sleep;

    const SLEEP_PARSING: &str = "sleep 100";
    const SLEEP_INVALID: &str = "sleep '100";
    const EXIT_NONZERO: &str = "exit 1";

    #[cfg(unix)]
    const SLEEP: &str = "sleep 100";

    #[cfg(not(unix))]
    const SLEEP: &str = "timeout /t 100";

    #[test]
    fn it_should_start_a_new_process() -> Result<(), ProcessError> {
        let params = ProcessParams::new(String::from(SLEEP_PARSING), String::from("."), false)?;
        let mut action = ProcessAction::new(params)?;
        action.process.stop()?;

        assert_eq!("sleep", action.params.command);
        assert_eq!(".", action.params.directory);

        Ok(())
    }

    #[test]
    fn it_should_fail_if_command_is_invalid() -> Result<(), ProcessError> {
        let failing_command = String::from(SLEEP_INVALID);
        let failing_params = ProcessParams::new(failing_command.clone(), String::from("."), false);

        assert_eq!(
            ProcessError::CommandParseFailure(failing_command),
            failing_params.unwrap_err(),
        );

        Ok(())
    }

    #[test]
    #[cfg(unix)]
    fn it_should_fail_if_signal_is_invalid() -> Result<(), ProcessError> {
        let failing_signal = String::from("SIGWTF");
        let failing_params = ProcessParams::new(String::from(SLEEP), String::from("."), false)?
            .set_stop_signal(failing_signal.clone());

        assert_eq!(
            ProcessError::SignalParseFailure(failing_signal),
            failing_params.unwrap_err(),
        );

        Ok(())
    }

    #[test]
    fn it_should_restart_the_process_gracefully() -> Result<(), ProcessError> {
        let stop_timeout = Duration::from_secs(5);
        let params = ProcessParams::new(String::from(SLEEP), String::from("."), false)?;
        let mut action = ProcessAction::new(params)?;

        let initial_time = Instant::now();
        let first_pid = action
            .process
            .child
            .read()
            .unwrap()
            .as_ref()
            .unwrap()
            .pids();
        action.run_inner()?;
        let second_pid = action
            .process
            .child
            .read()
            .unwrap()
            .as_ref()
            .unwrap()
            .pids();
        action.process.stop()?;

        assert_ne!(
            first_pid, second_pid,
            "First and second run should have different pids."
        );
        assert!(
            initial_time.elapsed() <= stop_timeout,
            "The stop timeout should not be elapsed."
        );

        Ok(())
    }

    #[test]
    fn it_should_retry_the_process_if_it_exits_until_the_retry_count() -> Result<(), ProcessError> {
        let params = ProcessParams::new(String::from(EXIT_NONZERO), String::from("."), true)?;
        let action = ProcessAction::new(params)?;

        sleep(Duration::from_secs(1));

        let is_child_exited = action.process.child.read().unwrap().as_ref().is_none();

        assert!(is_child_exited, "The child should exit.");

        Ok(())
    }

    #[test]
    #[cfg(unix)]
    fn it_should_reset_the_retries() -> Result<(), ProcessError> {
        let tailed_file = "./test_directories/tailed_file";
        let params =
            ProcessParams::new(format!("tail -f {tailed_file}"), String::from("."), false)?;

        // First time it should fail, because the file doesn't exist yet
        let mut action = ProcessAction::new(params)?;

        // Create the file and restart it quickly to see the retries reset
        fs::write(tailed_file, "").unwrap();
        action.run_inner()?;

        let is_child_running = action.process.child.read().unwrap().as_ref().is_some();
        assert!(is_child_running, "The child should be running.");

        action.process.stop()?;
        fs::remove_file(tailed_file).unwrap();

        Ok(())
    }
}