rzmq 0.5.25

use crate::error::ZmqError;
use crate::runtime::{ActorDropGuard, ActorType, MailboxReceiver, SystemEvent};
use crate::socket::core::state::ShutdownPhase;
use crate::socket::core::{command_processor, event_processor, shutdown, SocketCore};
use crate::socket::ISocket;
use crate::Command;

use std::sync::Arc;
use std::time::Duration;
use tokio::sync::broadcast;
use tokio::time::{interval, Interval};

/// The main actor loop for `SocketCore`.
/// It listens for user commands on its mailbox and system events on the event bus.
pub(crate) async fn run_command_loop(
  core_arc: Arc<SocketCore>,
  socket_logic_strong: Arc<dyn ISocket>,
  command_receiver: MailboxReceiver,
  mut system_event_rx: broadcast::Receiver<SystemEvent>,
) {
  let core_handle = core_arc.handle;
  let context_clone_for_stop = core_arc.context.clone(); // For publishing ActorStopping
  let socket_type_for_log = core_arc.core_state.read().socket_type; // Get once for logging

  tracing::info!(
      handle = core_handle,
      socket_type = ?socket_type_for_log,
      "SocketCore actor main loop starting."
  );

  // Publish ActorStarted event after spawning
  let mut actor_drop_guard = ActorDropGuard::new(
    context_clone_for_stop.clone(),
    core_handle,
    ActorType::SocketCore,
    None,
    None,
  );

  // Linger check interval
  let mut maintenance_interval: Interval = interval(Duration::from_millis(100)); // Adjusted interval
  maintenance_interval.set_missed_tick_behavior(tokio::time::MissedTickBehavior::Delay);

  let mut final_error_for_actorstop: Option<ZmqError> = None;

  // The main loop
  let _loop_result: Result<(), ()> = async { // Changed to Result<(), ()> for loop structure
    loop {
      let current_shutdown_phase = {
        // Lock acquired and dropped quickly
        core_arc.shutdown_coordinator.lock().await.state // Access state directly
      };

      if current_shutdown_phase == ShutdownPhase::Finished {
        tracing::debug!(
          handle = core_handle,
          "SocketCore shutdown sequence fully finished. Breaking command loop."
        );
        break; // Exit the main loop
      }

      tokio::select! {
        biased; // Prioritize shutdown-related events or commands

        // --- 1. System Event Processing ---
        // Only listen to system events if not fully finished shutting down.
        event_result = system_event_rx.recv(), if current_shutdown_phase != ShutdownPhase::Finished => {
            match event_result {
                Ok(event) => {
                    // Delegate to event_processor module
                    if let Err(e) = event_processor::process_system_event(
                        core_arc.clone(),
                        &socket_logic_strong,
                        event,
                    ).await {
                        tracing::error!(handle = core_handle, "Fatal error processing system event: {}. Initiating shutdown.", e);
                        final_error_for_actorstop = Some(e);
                        // Ensure shutdown is initiated if not already
                        let coord = core_arc.shutdown_coordinator.lock().await;
                        if coord.state == ShutdownPhase::Running {
                            drop(coord); // Release before async call
                            shutdown::initiate_core_shutdown(core_arc.clone(), &socket_logic_strong, true).await;
                        }

                        // Loop will break due to ShutdownPhase::Finished or next error check
                    }
                }
                Err(broadcast::error::RecvError::Lagged(n)) => {
                    tracing::warn!(handle = core_handle, skipped = n, "System event bus lagged for SocketCore!");
                    // Potentially treat as critical error and initiate shutdown if not already underway
                    if current_shutdown_phase == ShutdownPhase::Running {
                        final_error_for_actorstop = Some(ZmqError::Internal("SocketCore: Event bus lagged".into()));
                        shutdown::initiate_core_shutdown(core_arc.clone(), &socket_logic_strong, true).await;
                    }
                }
                Err(broadcast::error::RecvError::Closed) => {
                    tracing::error!(handle = core_handle, "System event bus closed unexpectedly!");
                    final_error_for_actorstop = Some(ZmqError::Internal("SocketCore: Event bus closed".into()));
                    if current_shutdown_phase == ShutdownPhase::Running {
                        shutdown::initiate_core_shutdown(core_arc.clone(), &socket_logic_strong, true).await;
                    }
                    // Loop will break due to ShutdownPhase::Finished or next error check
                }
            }
        }

        // --- 2. User Command Processing ---
        // Only process commands if not fully finished.
        cmd_result = command_receiver.recv(), if current_shutdown_phase != ShutdownPhase::Finished => {
          match cmd_result {
            Ok(command) => {
              // Delegate to command_processor module
              if let Err(e) = command_processor::process_socket_command(
                core_arc.clone(),
                &socket_logic_strong,
                command,
              ).await {
                tracing::error!(handle = core_handle, "Fatal error processing command: {}. Initiating shutdown.", e);
                final_error_for_actorstop = Some(e);
                let coord = core_arc.shutdown_coordinator.lock().await;
                if coord.state == ShutdownPhase::Running {
                  drop(coord);
                  shutdown::initiate_core_shutdown(core_arc.clone(), &socket_logic_strong, true).await;
                }
              }
            }
            Err(_) => { // Command mailbox closed
              tracing::info!(handle = core_handle, "SocketCore command mailbox closed. Initiating shutdown.");
              final_error_for_actorstop = Some(ZmqError::Internal("SocketCore: Command mailbox closed".into()));
              let coord = core_arc.shutdown_coordinator.lock().await;
              if coord.state == ShutdownPhase::Running {
                drop(coord);
                shutdown::initiate_core_shutdown(core_arc.clone(), &socket_logic_strong, true).await;
              }
              // Loop will break due to ShutdownPhase::Finished or next error check
            }
          }
        }

        // --- 3. Maintenance (Linger & Reconnects) ---
        _ = maintenance_interval.tick() => {
          // A. Reconnection Logic (Only if Running)
          if current_shutdown_phase == ShutdownPhase::Running {
            let mut uris_to_retry = Vec::new();
            let now = std::time::Instant::now();
            
            {
              let mut state = core_arc.core_state.write();
              for (uri, recon_state) in state.reconnect_states.iter_mut() {
                if recon_state.is_due(now) {
                  uris_to_retry.push(uri.clone());
                  // Mark as processed so we don't respawn it again next tick.
                  // The attempt count is preserved. It will be reset only on connection success.
                  recon_state.next_attempt_at = None; 
                }
              }
            }

            for uri in uris_to_retry {
              tracing::debug!(handle=core_handle, uri=%uri, "Backoff timer expired. Respawning connecter.");
              crate::socket::core::command_processor::respawn_connecter_actor(
                core_arc.clone(),
                socket_logic_strong.clone(),
                uri
              ).await;
            }
          }

          // B. Linger Logic (Only if Lingering)
          if current_shutdown_phase == ShutdownPhase::Lingering {
            // Delegate to shutdown module
            if let Err(e) = shutdown::check_and_advance_linger(
              core_arc.clone(),
              &socket_logic_strong,
            ).await {
              tracing::error!(handle = core_handle, "Error during linger check: {}. Forcing cleanup.", e);
              final_error_for_actorstop = final_error_for_actorstop.clone().or(Some(e));
              
              // Force advance to cleaning phase if linger check itself errors badly
              let mut coord = core_arc.shutdown_coordinator.lock().await;
              if coord.state == ShutdownPhase::Lingering {
                {
                  let mut core_state_write_guard = core_arc.core_state.write();
                  shutdown::advance_to_cleaning_phase(&mut coord, core_handle, &mut core_state_write_guard);
                }
                #[cfg(feature = "inproc")]
                let pipes_to_clean_val = coord.inproc_connections_to_cleanup.clone();
                #[cfg(not(feature = "inproc"))]
                let pipes_to_clean_val = Vec::new(); 
                drop(coord);

                shutdown::perform_final_pipe_cleanup(core_arc.clone(), &socket_logic_strong, pipes_to_clean_val).await;
              } else {
                drop(coord);
              }
            }
          }

          // === REAPER: Clean up zombie actors ===

          // 1. READ PASS (Fast, concurrent)
          let mut dead_endpoints = Vec::new();
          {
            let core_read = core_arc.core_state.read();
            for (uri, info) in core_read.endpoints.iter() {
              if let Some(handle) = &info.task_handle {
                if handle.is_finished() {
                  dead_endpoints.push((uri.clone(), info.handle_id));
                }
              }
            }
          } // lock dropped

          // 2. WRITE PASS (Only if needed)
          if !dead_endpoints.is_empty() {
            tracing::warn!(
              count = dead_endpoints.len(),
              "Reaper found zombie endpoints. Performing cleanup."
            );
            
            for (uri, expected_handle_id) in dead_endpoints {
              // Double-check endpoint still exists with same handle_id to avoid races
              let should_cleanup = {
                let core_read = core_arc.core_state.read();
                core_read.endpoints.get(&uri)
                  .map(|info| info.handle_id == expected_handle_id)
                  .unwrap_or(false)
              };
              
              if !should_cleanup {
                tracing::debug!(
                  core_handle = core_handle,
                  expected_sca_handle = expected_handle_id,
                  uri = %uri,
                  "Reaper: Endpoint already removed or changed. Skipping."
                );
                continue;
              }
              
              tracing::info!(
                core_handle = core_handle,
                sca_handle = expected_handle_id,
                uri = %uri,
                "Reaper cleaning up zombie endpoint"
              );
              
              // --- Capture Reconnect Flag ---
              let should_reconnect = crate::socket::core::pipe_manager::cleanup_stopped_child_resources(
                core_arc.clone(),
                &socket_logic_strong,
                expected_handle_id,
                ActorType::Session,
                Some(&uri),
                None, // We assume clean exit or unknown error if task is finished
                false 
              ).await;

              // If the cleanup logic says we should reconnect (because it was an outbound session), do it.
              if should_reconnect {
                let mut state = core_arc.core_state.write();
                
                // Check if already reconnected by another part of the system
                if state.endpoints.contains_key(&uri) {
                  tracing::debug!(
                    core_handle = core_handle,
                    uri = %uri,
                    "Reaper: Endpoint already reconnected. Skipping."
                  );
                  continue;
                }
                
                let options = state.options.clone();
                
                // Check if reconnect is actually enabled
                let Some(base) = options.reconnect_ivl else {
                  tracing::debug!(
                    core_handle = core_handle,
                    uri = %uri,
                    "Reaper: Reconnect disabled (RECONNECT_IVL is None)."
                  );
                  continue;
                };
                
                let max = options.reconnect_ivl_max.unwrap_or(std::time::Duration::from_secs(60));
                let recon_state = state.reconnect_states.entry(uri.clone()).or_default();
                let delay = recon_state.on_connection_failure(base, max);
                
                tracing::info!(
                  core_handle = core_handle,
                  uri = %uri,
                  attempt = recon_state.current_attempts,
                  next_attempt_in = ?delay,
                  "Reaper: Zombie session cleaned. Scheduled for reconnect."
                );
              }
            }
          }
        }
      } // end tokio::select!
    } // end loop
    Ok(()) // Loop finished (normally implies shutdown complete)
  }.await;

  // --- Post-Loop Cleanup & ActorStopping Event ---
  // This section runs after the main loop breaks (due to shutdown or fatal error).
  tracing::debug!(
    handle = core_handle,
    "SocketCore loop exited. Performing final cleanup and ISocket::close()."
  );

  // 1. Close the public-facing API resources to unblock any waiting user tasks.
  if let Err(e) = socket_logic_strong.process_command(Command::Stop).await {
    tracing::error!(
      handle = core_handle,
      "Error during final ISocket::close(): {}",
      e
    );
    if final_error_for_actorstop.is_none() {
      final_error_for_actorstop = Some(e);
    }
  }


  // If loop exited due to an error that wasn't already part of a graceful shutdown,
  // ensure shutdown is initiated and as much cleanup as possible happens.
  let mut final_coord_guard = core_arc.shutdown_coordinator.lock().await;
  if final_coord_guard.state != ShutdownPhase::Finished {
    tracing::warn!(
        handle = core_handle,
        current_phase = ?final_coord_guard.state,
        "SocketCore loop exited prematurely or shutdown not fully completed. Attempting final cleanup."
    );
    // Attempt to run the final cleanup stages if not already done.
    // Ensure the state reaches Finished.
    final_coord_guard.state = ShutdownPhase::Finished;
    core_arc.is_running_flag.store(false, std::sync::atomic::Ordering::Relaxed);
  }
  drop(final_coord_guard);

  // Unregister this socket from the context (if it was registered)
  core_arc.context.inner().unregister_socket(core_handle);

  // Unregister any bound inproc names.
  #[cfg(feature = "inproc")]
  {
    // Take the names to avoid holding lock during async operations
    let bound_names_to_unregister = {
      let mut core_s_guard = core_arc.core_state.write();
      std::mem::take(&mut core_s_guard.bound_inproc_names)
    };
    if !bound_names_to_unregister.is_empty() {
      tracing::debug!(
        handle = core_handle,
        "SocketCore unregistering inproc names: {:?}",
        bound_names_to_unregister
      );
      for name_val in bound_names_to_unregister {
        // ContextInner::unregister_inproc is synchronous.
        core_arc.context.inner().unregister_inproc(&name_val);
      }
    }
  }

  // Publish the final ActorStopping event for this SocketCore.
  if let Some(err) = final_error_for_actorstop {
    actor_drop_guard.set_error(err);
  } else {
    actor_drop_guard.waive();
  }

  tracing::info!(
      handle = core_handle,
      socket_type = ?socket_type_for_log,
      "SocketCore actor task FULLY STOPPED."
  );
}