lawkit 2.6.1

use crate::colors;
use crate::common_options::get_optimized_reader;
use clap::ArgMatches;
use lawkit_core::{
    common::{
        filtering::{apply_number_filter, NumberFilter},
        input::{parse_input_auto, parse_text_input},
        memory::{streaming_zipf_analysis, MemoryConfig},
        risk::RiskLevel,
        streaming_io::OptimizedFileReader,
    },
    error::{BenfError, Result},
    laws::zipf::{
        analyze_numeric_zipf, analyze_text_zipf, analyze_text_zipf_from_frequencies, ZipfResult,
    },
};

pub fn run(matches: &ArgMatches) -> Result<()> {
    let is_text_mode = matches.get_flag("text");

    // Determine input source based on arguments
    if matches.get_flag("verbose") {
        eprintln!(
            "Debug: input argument = {:?}",
            matches.get_one::<String>("input")
        );
        eprintln!("Debug: text mode = {is_text_mode}");
    }

    if let Some(input) = matches.get_one::<String>("input") {
        // Use auto-detection for file vs string input
        if is_text_mode {
            // Text mode: read file or use as text directly
            let buffer = if input == "-" {
                match get_optimized_reader(None) {
                    Ok(data) => data,
                    Err(e) => {
                        eprintln!("Error reading input: {e}");
                        std::process::exit(1);
                    }
                }
            } else {
                match get_optimized_reader(Some(input)) {
                    Ok(data) => data,
                    Err(e) => {
                        eprintln!("Error reading input: {e}");
                        std::process::exit(1);
                    }
                }
            };

            match analyze_text_zipf(&buffer, input) {
                Ok(result) => {
                    output_results(matches, &result);
                    std::process::exit(result.risk_level.exit_code());
                }
                Err(e) => {
                    eprintln!("Analysis error: {e}");
                    std::process::exit(1);
                }
            }
        } else {
            // Numeric mode
            match parse_input_auto(input) {
                Ok(numbers) => {
                    if numbers.is_empty() {
                        eprintln!("Error: No valid numbers found in input");
                        std::process::exit(1);
                    }

                    let result =
                        match analyze_numbers_with_options(matches, input.to_string(), &numbers) {
                            Ok(result) => result,
                            Err(e) => {
                                eprintln!("Analysis error: {e}");
                                std::process::exit(1);
                            }
                        };

                    output_results(matches, &result);
                    std::process::exit(result.risk_level.exit_code());
                }
                Err(e) => {
                    eprintln!("Error processing input '{input}': {e}");
                    std::process::exit(1);
                }
            }
        }
    } else {
        // Read from stdin - use automatic optimization based on data characteristics
        if matches.get_flag("verbose") {
            eprintln!("Debug: Reading from stdin, using automatic optimization");
            eprintln!(
                "Debug: Using automatic optimization (streaming + incremental + memory efficiency)"
            );
        }

        if is_text_mode {
            // Text mode with streaming
            let mut reader = OptimizedFileReader::from_stdin();
            let memory_config = MemoryConfig::default();

            // Process text line by line and extract words
            let mut words = Vec::new();
            match reader.read_lines_streaming(|line: String| {
                // Extract words from line
                let line_words: Vec<String> =
                    line.split_whitespace().map(|s| s.to_string()).collect();
                words.extend(line_words);
                Ok(None::<()>)
            }) {
                Ok(_) => {}
                Err(e) => {
                    eprintln!("Error reading stream: {e}");
                    std::process::exit(1);
                }
            }

            if matches.get_flag("verbose") {
                eprintln!("Debug: Collected {} words from stream", words.len());
            }

            // Use streaming analysis
            let chunk_result = match streaming_zipf_analysis(words.into_iter(), &memory_config) {
                Ok(result) => {
                    if matches.get_flag("verbose") {
                        eprintln!(
                            "Debug: Streaming analysis successful - {} items processed",
                            result.total_items
                        );
                    }
                    result
                }
                Err(e) => {
                    eprintln!("Streaming analysis error: {e}");
                    std::process::exit(1);
                }
            };

            if matches.get_flag("verbose") {
                eprintln!(
                    "Debug: Processed {} items in {} chunks",
                    chunk_result.total_items, chunk_result.chunks_processed
                );
                eprintln!("Debug: Memory used: {:.2} MB", chunk_result.memory_used_mb);
                eprintln!(
                    "Debug: Processing time: {} ms",
                    chunk_result.processing_time_ms
                );
            }

            // Convert IncrementalZipf to ZipfResult
            let frequencies = chunk_result.result.get_sorted_frequencies();
            let result = match analyze_text_zipf_from_frequencies(&frequencies, "stdin") {
                Ok(result) => result,
                Err(e) => {
                    eprintln!("Analysis error: {e}");
                    std::process::exit(1);
                }
            };

            output_results(matches, &result);
            std::process::exit(result.risk_level.exit_code());
        } else {
            // Numeric mode
            let buffer = match get_optimized_reader(None) {
                Ok(data) => data,
                Err(e) => {
                    eprintln!("Error reading input: {e}");
                    std::process::exit(1);
                }
            };
            let numbers = match parse_text_input(&buffer) {
                Ok(numbers) => {
                    if matches.get_flag("verbose") {
                        eprintln!("Debug: Collected {} numbers from input", numbers.len());
                    }
                    numbers
                }
                Err(e) => {
                    eprintln!("Analysis error: {e}");
                    std::process::exit(1);
                }
            };

            if numbers.is_empty() {
                eprintln!("Error: No valid numbers found in input");
                std::process::exit(1);
            }

            let result = match analyze_numbers_with_options(matches, "stdin".to_string(), &numbers)
            {
                Ok(result) => result,
                Err(e) => {
                    eprintln!("Analysis error: {e}");
                    std::process::exit(1);
                }
            };

            output_results(matches, &result);
            std::process::exit(result.risk_level.exit_code());
        }
    }
}

fn output_results(matches: &clap::ArgMatches, result: &ZipfResult) {
    let format = matches.get_one::<String>("format").unwrap();
    let quiet = matches.get_flag("quiet");
    let verbose = matches.get_flag("verbose");
    let no_color = matches.get_flag("no-color");

    match format.as_str() {
        "text" => print_text_output(result, quiet, verbose, no_color),
        "json" => print_json_output(result),
        "csv" => print_csv_output(result),
        "yaml" => print_yaml_output(result),
        "toml" => print_toml_output(result),
        "xml" => print_xml_output(result),
        _ => {
            eprintln!("Error: Unsupported output format: {format}");
            std::process::exit(2);
        }
    }
}

fn print_text_output(result: &ZipfResult, quiet: bool, verbose: bool, no_color: bool) {
    if quiet {
        println!("zipf_exponent: {:.3}", result.zipf_exponent);
        println!("correlation: {:.3}", result.correlation_coefficient);
        println!("distribution_quality: {:.3}", result.distribution_quality);
        return;
    }

    println!("Zipf Law Analysis Results");
    println!();
    println!("Dataset: {}", result.dataset_name);
    println!("Numbers analyzed: {}", result.numbers_analyzed);
    match result.risk_level {
        RiskLevel::Critical => println!("{}", colors::level_critical("Dataset analysis", no_color)),
        RiskLevel::High => println!("{}", colors::level_high("Dataset analysis", no_color)),
        RiskLevel::Medium => println!("{}", colors::level_medium("Dataset analysis", no_color)),
        RiskLevel::Low => println!("{}", colors::level_low("Dataset analysis", no_color)),
    }

    println!();
    println!("Rank-Frequency Distribution:");
    println!("{}", format_rank_frequency_chart(result));

    if verbose {
        println!();
        println!("Zipf Metrics:");
        println!("  Zipf exponent: {:.3}", result.zipf_exponent);
        println!(
            "  Correlation coefficient: {:.3}",
            result.correlation_coefficient
        );
        println!("  Distribution quality: {:.3}", result.distribution_quality);
        println!("  Power law fit: {:.3}", result.power_law_fit);

        println!();
        println!("Distribution Statistics:");
        println!("  Total observations: {}", result.total_observations);
        println!("  Unique items: {}", result.unique_items);
        println!("  Top item frequency: {:.1}%", result.top_item_frequency);
        println!("  Concentration index: {:.3}", result.concentration_index);
        println!("  Diversity index (Shannon): {:.3}", result.diversity_index);

        println!();
        println!("Interpretation:");
        print_zipf_interpretation(result);
    }
}

fn print_zipf_interpretation(result: &ZipfResult) {
    use lawkit_core::common::risk::RiskLevel;

    match result.risk_level {
        RiskLevel::Low => {
            println!("[PASS] Ideal Zipf distribution - follows Zipf's law");
            println!("   Distribution follows the expected 1/rank pattern");
        }
        RiskLevel::Medium => {
            println!("[WARN] Slight deviation from Zipf's law");
            println!("   Monitoring recommended for distribution pattern");
        }
        RiskLevel::High => {
            println!("[FAIL] Significant deviation from Zipf's law");
            println!("   Consider rebalancing distribution");
        }
        RiskLevel::Critical => {
            println!("[CRITICAL] Critical deviation from Zipf's law");
            println!("   Distribution strategy review needed");
        }
    }

    // Zipf指数に基づく解釈
    if result.zipf_exponent > 1.5 {
        println!("   INFO: High concentration - extreme dominance pattern");
    } else if result.zipf_exponent < 0.5 {
        println!("   INFO: Low concentration - more uniform distribution");
    }

    // 相関係数に基づく解釈
    if result.correlation_coefficient < 0.5 {
        println!("   ALERT: Poor fit to Zipf's law - irregular distribution");
    } else if result.correlation_coefficient > 0.8 {
        println!("   INFO: Excellent fit to Zipf's law");
    }
}

fn print_json_output(result: &ZipfResult) {
    use serde_json::json;

    let output = json!({
        "dataset": result.dataset_name,
        "numbers_analyzed": result.numbers_analyzed,
        "risk_level": format!("{:?}", result.risk_level),
        "zipf_exponent": result.zipf_exponent,
        "correlation_coefficient": result.correlation_coefficient,
        "distribution_quality": result.distribution_quality,
        "total_observations": result.total_observations,
        "unique_items": result.unique_items,
        "top_item_frequency": result.top_item_frequency,
        "concentration_index": result.concentration_index,
        "diversity_index": result.diversity_index,
        "power_law_fit": result.power_law_fit,
        "rank_frequency_pairs": result.rank_frequency_pairs
    });

    println!("{}", serde_json::to_string_pretty(&output).unwrap());
}

fn print_csv_output(result: &ZipfResult) {
    println!("dataset,numbers_analyzed,risk_level,zipf_exponent,correlation_coefficient,distribution_quality,power_law_fit");
    println!(
        "{},{},{:?},{:.3},{:.3},{:.3},{:.3}",
        result.dataset_name,
        result.numbers_analyzed,
        result.risk_level,
        result.zipf_exponent,
        result.correlation_coefficient,
        result.distribution_quality,
        result.power_law_fit
    );
}

fn print_yaml_output(result: &ZipfResult) {
    println!("dataset: \"{}\"", result.dataset_name);
    println!("numbers_analyzed: {}", result.numbers_analyzed);
    println!("risk_level: \"{:?}\"", result.risk_level);
    println!("zipf_exponent: {:.3}", result.zipf_exponent);
    println!(
        "correlation_coefficient: {:.3}",
        result.correlation_coefficient
    );
    println!("distribution_quality: {:.3}", result.distribution_quality);
    println!("power_law_fit: {:.3}", result.power_law_fit);
}

fn print_toml_output(result: &ZipfResult) {
    println!("dataset = \"{}\"", result.dataset_name);
    println!("numbers_analyzed = {}", result.numbers_analyzed);
    println!("risk_level = \"{:?}\"", result.risk_level);
    println!("zipf_exponent = {:.3}", result.zipf_exponent);
    println!(
        "correlation_coefficient = {:.3}",
        result.correlation_coefficient
    );
    println!("distribution_quality = {:.3}", result.distribution_quality);
    println!("power_law_fit = {:.3}", result.power_law_fit);
}

fn print_xml_output(result: &ZipfResult) {
    println!("<?xml version=\"1.0\" encoding=\"UTF-8\"?>");
    println!("<zipf_analysis>");
    println!("  <dataset>{}</dataset>", result.dataset_name);
    println!(
        "  <numbers_analyzed>{}</numbers_analyzed>",
        result.numbers_analyzed
    );
    println!("  <risk_level>{:?}</risk_level>", result.risk_level);
    println!(
        "  <zipf_exponent>{:.3}</zipf_exponent>",
        result.zipf_exponent
    );
    println!(
        "  <correlation_coefficient>{:.3}</correlation_coefficient>",
        result.correlation_coefficient
    );
    println!(
        "  <distribution_quality>{:.3}</distribution_quality>",
        result.distribution_quality
    );
    println!(
        "  <power_law_fit>{:.3}</power_law_fit>",
        result.power_law_fit
    );
    println!("</zipf_analysis>");
}

/// Analyze numbers with filtering and custom options
fn analyze_numbers_with_options(
    matches: &clap::ArgMatches,
    dataset_name: String,
    numbers: &[f64],
) -> Result<ZipfResult> {
    // Apply number filtering if specified
    let filtered_numbers = if let Some(filter_str) = matches.get_one::<String>("filter") {
        let filter = NumberFilter::parse(filter_str)
            .map_err(|e| BenfError::ParseError(format!("無効なフィルタ: {e}")))?;

        let filtered = apply_number_filter(numbers, &filter);

        // Inform user about filtering results
        if filtered.len() != numbers.len() {
            eprintln!(
                "フィルタリング結果: {} 個の数値が {} 個に絞り込まれました ({})",
                numbers.len(),
                filtered.len(),
                filter.description()
            );
        }

        filtered
    } else {
        numbers.to_vec()
    };

    // Parse minimum count requirement
    let min_count = if let Some(min_count_str) = matches.get_one::<String>("min-count") {
        min_count_str
            .parse::<usize>()
            .map_err(|_| BenfError::ParseError("無効な最小数値数".to_string()))?
    } else {
        5
    };

    // Check minimum count requirement
    if filtered_numbers.len() < min_count {
        return Err(BenfError::InsufficientData(filtered_numbers.len()));
    }

    // Perform Zipf analysis
    analyze_numeric_zipf(&filtered_numbers, &dataset_name)
}

fn format_rank_frequency_chart(result: &ZipfResult) -> String {
    let mut output = String::new();
    const CHART_WIDTH: usize = 50;

    if result.rank_frequency_pairs.is_empty() {
        return "No data available for chart".to_string();
    }

    // 最大頻度を取得（正規化用）
    let max_frequency = result
        .rank_frequency_pairs
        .iter()
        .map(|(_, freq)| *freq)
        .fold(0.0, f64::max);

    if max_frequency == 0.0 {
        return "All frequencies are zero".to_string();
    }

    // ランク-頻度ペアを表示（上位10項目）
    for (rank, frequency) in result.rank_frequency_pairs.iter().take(10) {
        let normalized_freq = frequency / max_frequency;
        let bar_length = (normalized_freq * CHART_WIDTH as f64).round() as usize;
        let bar_length = bar_length.min(CHART_WIDTH);

        // Calculate expected value based on ideal Zipf law (1/rank)
        let expected_freq = max_frequency / *rank as f64;
        let expected_normalized = expected_freq / max_frequency;
        let expected_line_pos = (expected_normalized * CHART_WIDTH as f64).round() as usize;
        let expected_line_pos = expected_line_pos.min(CHART_WIDTH - 1);

        // Create bar with filled portion, expected value line, and background
        let mut bar_chars = Vec::new();
        for pos in 0..CHART_WIDTH {
            if pos == expected_line_pos {
                bar_chars.push('┃'); // Expected value line (ideal Zipf)
            } else if pos < bar_length {
                bar_chars.push('█'); // Filled portion
            } else {
                bar_chars.push('░'); // Background portion
            }
        }
        let full_bar: String = bar_chars.iter().collect();

        // パーセンテージ計算
        let percentage = (frequency / result.total_observations as f64) * 100.0;
        let expected_percentage = (expected_freq / result.total_observations as f64) * 100.0;

        output.push_str(&format!(
            "#{rank:2}: {full_bar} {percentage:>6.2}% (expected: {expected_percentage:.2}%)\n"
        ));
    }

    // Zipf法則の適合度情報
    output.push_str(&format!(
        "\nZipf Exponent: {:.3} (ideal: 1.0), Correlation: {:.3}",
        result.zipf_exponent, result.correlation_coefficient
    ));

    output
}