luaux-cli 0.1.0

//! luaux CLI.
//!
//! * `build <src> [out]` — compile `.luaux` to `.luau` and copy plain `.luau`
//!   through (§11.5).
//! * `check <src>` — the same, without writing anything.
//! * `watch <src> [out]` — rebuild on change, to run beside `rojo serve`.
//! * `init [dir]` — scaffold a `luaux.toml`.
//! * `scan <path>...` — report where the lexer believes LuauX begins. Pointed at a
//!   tree of plain `.luau`, every hit is a false positive; that is the Phase 0
//!   acceptance check (PLAN.md §5.2).

mod init;
mod pipeline;
mod select;
mod watch;

use pipeline::Options;
use std::path::{Path, PathBuf};
use std::process::ExitCode;

fn main() -> ExitCode {
    let args: Vec<String> = std::env::args().skip(1).collect();
    let rest: &[String] = args.get(1..).unwrap_or(&[]);

    match args.first().map(String::as_str) {
        Some("build") => build(rest, true),
        Some("check") => build(rest, false),
        Some("watch") => start_watch(rest),
        Some("init") => run_init(rest.first().map(Path::new).unwrap_or(Path::new("."))),
        Some("scan") if !rest.is_empty() => scan(rest),
        _ => {
            usage();
            ExitCode::from(2)
        }
    }
}

fn usage() {
    eprintln!("usage:");
    eprintln!("  luaux build [src] [out]   compile .luaux -> .luau");
    eprintln!("  luaux check [src]         compile without writing");
    eprintln!("  luaux watch [src] [out]   rebuild on change");
    eprintln!("  luaux init [dir]          scaffold a luaux.toml");
    eprintln!("  luaux scan <path>...      report where LuauX is detected");
    eprintln!();
    eprintln!("  paths default to [build] in/out in luaux.toml; arguments override them.");
    eprintln!("  with no [out], each X.luaux is written beside itself as X.luau.");
    eprintln!("  every non-source file is copied into [out] when one is given.");
}

/// Resolves paths and config together.
///
/// CLI arguments win over `[build] in`/`out`, so a config can set the usual
/// paths while `luaux build other/src` still overrides them. Config is looked up
/// from the source root when one was given, and from the working directory when
/// it was not — which is what makes a bare `luaux build` work.
fn plan(args: &[String], write: bool) -> Result<(Options, luaux::Config), String> {
    let anchor = args
        .first()
        .map(PathBuf::from)
        .unwrap_or_else(|| PathBuf::from("."));

    let config = pipeline::configure(&anchor)?;

    let source_root = match args.first() {
        Some(path) => PathBuf::from(path),
        None => config
            .build
            .input
            .clone()
            .ok_or_else(|| "no source given, and luaux.toml sets no [build] in".to_string())?,
    };

    let out_root = match args.get(1) {
        Some(path) => Some(PathBuf::from(path)),
        None => config.build.output.clone(),
    };

    if !source_root.exists() {
        return Err(format!("{}: not found", source_root.display()));
    }

    Ok((
        Options {
            source_root,
            out_root,
            write,
        },
        config,
    ))
}

fn build(args: &[String], write: bool) -> ExitCode {
    let (options, config) = match plan(args, write) {
        Ok(planned) => planned,
        Err(error) => {
            eprintln!("luaux: {error}");
            return ExitCode::FAILURE;
        }
    };

    let report = pipeline::run(&options, &config);
    println!("\n{}", report.summary());

    if report.ok() {
        ExitCode::SUCCESS
    } else {
        ExitCode::FAILURE
    }
}

fn start_watch(args: &[String]) -> ExitCode {
    let options = match plan(args, true) {
        Ok((options, _)) => options,
        Err(error) => {
            eprintln!("luaux: {error}");
            return ExitCode::FAILURE;
        }
    };

    match watch::run(options) {
        Ok(()) => ExitCode::SUCCESS,
        Err(error) => {
            eprintln!("luaux: {error}");
            ExitCode::FAILURE
        }
    }
}

fn run_init(directory: &Path) -> ExitCode {
    match init::run(directory) {
        Ok(()) => ExitCode::SUCCESS,
        Err(error) => {
            eprintln!("luaux: {error}");
            ExitCode::FAILURE
        }
    }
}

fn scan(paths: &[String]) -> ExitCode {
    let mut files: Vec<PathBuf> = Vec::new();

    for path in paths {
        if let Err(error) = pipeline::collect_files(Path::new(path), &mut files) {
            eprintln!("luaux: {path}: {error}");
            return ExitCode::FAILURE;
        }
    }

    files.retain(|path| {
        matches!(
            path.extension().and_then(|ext| ext.to_str()),
            Some("luau") | Some("lua")
        )
    });
    files.sort();
    files.dedup();

    let mut sites = 0usize;
    let mut failures = 0usize;
    let mut skipped = 0usize;

    for file in &files {
        let bytes = match std::fs::read(file) {
            Ok(bytes) => bytes,
            Err(error) => {
                eprintln!("luaux: {}: {error}", file.display());
                failures += 1;
                continue;
            }
        };

        // luaux requires UTF-8 source. Some Lua test corpora embed raw bytes in
        // string literals; those are out of scope rather than a lexer failure.
        let Ok(source) = String::from_utf8(bytes) else {
            skipped += 1;
            continue;
        };

        let tokens = match luaux::tokenize(&source) {
            Ok(tokens) => tokens,
            Err(error) => {
                eprintln!("luaux: {}: lex error: {error}", file.display());
                failures += 1;
                continue;
            }
        };

        for site in luaux::find_luaux_sites(&source, &tokens) {
            let (line, column) = line_and_column(&source, site.offset);
            println!(
                "{}:{}:{}: luaux starts here — {}",
                file.display(),
                line,
                column,
                snippet(&source, site.offset)
            );
            sites += 1;
        }
    }

    println!(
        "\n{} file(s), {} luaux site(s), {} failure(s), {} skipped (not utf-8)",
        files.len(),
        sites,
        failures,
        skipped
    );

    if failures > 0 {
        ExitCode::FAILURE
    } else {
        ExitCode::SUCCESS
    }
}

fn line_and_column(source: &str, offset: usize) -> (usize, usize) {
    let before = &source[..offset];
    let line = before.matches('\n').count() + 1;
    let column = before.rfind('\n').map_or(offset, |at| offset - at - 1) + 1;
    (line, column)
}

fn snippet(source: &str, offset: usize) -> &str {
    let start = source[..offset].rfind('\n').map_or(0, |at| at + 1);
    let end = source[offset..]
        .find('\n')
        .map_or(source.len(), |at| offset + at);
    source[start..end].trim()
}