ultraviolet1x 0.12.1

data/syntax/ocaml.syntax

@@ -0,0 +1,764 @@
+--- 
+name: OCaml
+fileTypes: 
+- ml
+- mli
+scopeName: source.ocaml
+repository: 
+  moduleref: 
+    patterns: 
+    - name: meta.module-reference.ocaml
+      beginCaptures: 
+        "1": 
+          name: support.other.module.ocaml
+        "2": 
+          name: punctuation.separator.module-reference.ocaml
+      match: \b([A-Z][a-zA-Z0-9'_]*)(\.)
+  variables: 
+    patterns: 
+    - name: variable.parameter.unit.ocaml
+      match: \(\)
+    - include: "#constants"
+    - include: "#moduleref"
+    - name: variable.parameter.labeled.ocaml
+      begin: (~)([a-z][a-zA-Z0-9'_]*)(\s*:\s*)?
+      beginCaptures: 
+        "1": 
+          name: punctuation.definition.labeled-parameter.ocaml
+        "2": 
+          name: entity.name.tag.label.ocaml
+        "3": 
+          name: punctuation.separator.label.ocaml
+      end: \s
+      patterns: 
+      - include: "#variables"
+    - name: variable.parameter.optional.ocaml
+      captures: 
+        "1": 
+          name: punctuation.definition.optional-parameter.ocaml
+        "2": 
+          name: entity.name.tag.label.optional.ocaml
+      match: (\?)([a-z][a-zA-Z0-9_]*)
+    - name: variable.parameter.optional.ocaml
+      endCaptures: 
+        "1": 
+          name: punctuation.definition.optional-parameter.ocaml
+      begin: (\?)(\()([a-z_][a-zA-Z0-9'_]*)\s*(=)
+      beginCaptures: 
+        "1": 
+          name: punctuation.definition.optional-parameter.ocaml
+        "2": 
+          name: punctuation.definition.optional-parameter.ocaml
+        "3": 
+          name: entity.name.tag.label.optional.ocaml
+        "4": 
+          name: punctuation.separator.optional-parameter-assignment.ocaml
+      end: (\))
+      patterns: 
+      - include: $self
+    - name: meta.parameter.type-constrained.ocaml
+      endCaptures: 
+        "1": 
+          name: punctuation.section.type-constraint.ocaml
+      begin: (\()(?=(~[a-z][a-zA-Z0-9_]*:|("(\\"|[^"])*")|[^\(\)~"])+(?<!:)(:>|:(?![:=])))
+      beginCaptures: 
+        "1": 
+          name: punctuation.section.type-constraint.ocaml
+      end: (\))
+      patterns: 
+      - name: storage.type.ocaml
+        begin: (?<!:)(:>|:(?![:=]))
+        beginCaptures: 
+          "1": 
+            name: punctuation.separator.type-constraint.ocaml
+        end: (?=\))
+        patterns: 
+        - name: meta.paren.group
+          begin: \(
+          end: \)
+      - include: "#variables"
+    - include: "#comments"
+    - name: meta.paren-group.ocaml
+      begin: \(
+      end: \)
+      patterns: 
+      - include: "#variables"
+    - name: variable.parameter.tuple.ocaml
+      endCaptures: 
+        "1": 
+          name: punctuation.definition.tuple.ocaml
+      begin: (\()
+      beginCaptures: 
+        "1": 
+          name: punctuation.definition.tuple.ocaml
+      end: (\))
+      patterns: 
+      - include: "#matchpatterns"
+      - include: "#variables"
+      - name: punctuation.separator.tuple.ocaml
+        match: ","
+    - name: variable.parameter.record.ocaml
+      endCaptures: 
+        "1": 
+          name: punctuation.definition.record.ocaml
+      begin: (\{)
+      beginCaptures: 
+        "1": 
+          name: punctuation.definition.record.ocaml
+      end: (\})
+      patterns: 
+      - include: "#moduleref"
+      - name: meta.recordfield.match.ocaml
+        endCaptures: 
+          "1": 
+            name: punctuation.separator.record.ocaml
+        begin: \b([a-z][a-zA-Z0-9'_]*)\s*(=)
+        beginCaptures: 
+          "1": 
+            name: entity.name.tag.record.ocaml
+          "2": 
+            name: punctuation.separator.record.field-assignment.ocaml
+        end: (;)|(?=\})
+        patterns: 
+        - include: "#matchpatterns"
+    - include: "#storagetypes"
+    - name: variable.parameter.ocaml
+      match: \b[a-z_][a-zA-Z0-9'_]*
+  typedefs: 
+    patterns: 
+    - name: punctuation.separator.variant-definition.ocaml
+      match: \|
+    - include: "#comments"
+    - name: meta.paren-group.ocaml
+      begin: \(
+      end: \)
+      patterns: 
+      - include: "#typedefs"
+    - name: keyword.other.ocaml
+      match: \bof\b
+    - include: "#storagetypes"
+    - name: storage.type.ocaml
+      match: (?<=\s|\()['a-z_][a-zA-Z0-9_]*\b
+    - name: meta.module.type.ocaml
+      captures: 
+        "1": 
+          name: support.other.module.ocaml
+        "2": 
+          name: storage.type.module.ocaml
+      match: \b((?:[A-Z][a-zA-Z0-9'_]*)(?:\.[A-Z][a-zA-Z0-9'_]+)*)(\.[a-zA-Z0-9'_]+)
+    - name: meta.polymorphic-variant.definition.ocaml
+      endCaptures: 
+        "1": 
+          name: punctuation.definition.polymorphic-variant.ocaml
+      begin: (\[(>|<)?)
+      beginCaptures: 
+        "1": 
+          name: punctuation.definition.polymorphic-variant.ocaml
+      end: (\])
+      patterns: 
+      - include: "#typedefs"
+    - include: $self
+    - name: punctuation.separator.algebraic-type.ocaml
+      match: \|
+  storagetypes: 
+    patterns: 
+    - name: storage.type.ocaml
+      match: \b(int|char|float|string|list|array|bool|unit|exn|option|int32|int64|nativeint|format4|lazy_t)\b
+    - name: storage.type.variant.polymorphic.ocaml
+      match: "#[a-z_][a-zA-Z0-9_]*"
+  module-signature: 
+    patterns: 
+    - name: meta.module.signature.val.ocaml
+      begin: (val)\s+([a-z_][a-zA-Z0-9_']*)\s*(:)
+      beginCaptures: 
+        "1": 
+          name: keyword.other.ocaml
+        "2": 
+          name: entity.name.type.value-signature.ocaml
+        "3": 
+          name: punctuation.separator.type-constraint.ocaml
+      end: (?=\b(type|val|external|class|module|end)\b)|^\s*$
+      patterns: 
+      - name: variable.parameter.optional.ocaml
+        captures: 
+          "1": 
+            name: punctuation.definition.optional-parameter.ocaml
+          "2": 
+            name: entity.name.tag.label.optional.ocaml
+          "3": 
+            name: punctuation.separator.optional-parameter.ocaml
+        match: (\?)([a-z][a-zA-Z0-9_]*)\s*(:)
+      - name: variable.parameter.labeled.ocaml
+        begin: (~)([a-z][a-zA-Z0-9'_]*)\s*(:)\s*
+        beginCaptures: 
+          "1": 
+            name: punctuation.definition.labeled-parameter.ocaml
+          "2": 
+            name: entity.name.tag.label.ocaml
+          "3": 
+            name: punctuation.separator.label.ocaml
+        end: \s
+        patterns: 
+        - include: "#variables"
+      - include: "#typedefs"
+    - name: meta.module.signature.external.ocaml
+      begin: (external)\s+([a-z_][a-zA-Z0-9_']*)\s*(:)
+      beginCaptures: 
+        "1": 
+          name: keyword.other.ocaml
+        "2": 
+          name: entity.name.type.external-signature.ocaml
+        "3": 
+          name: punctuation.separator.type-constraint.ocaml
+      end: (?=\b(type|val|external|class|module|end)\b)|^\s*$
+      patterns: 
+      - name: variable.parameter.optional.ocaml
+        captures: 
+          "1": 
+            name: punctuation.definition.optional-parameter.ocaml
+          "2": 
+            name: entity.name.tag.label.optional.ocaml
+          "3": 
+            name: punctuation.separator.optional-parameter.ocaml
+        match: (\?)([a-z][a-zA-Z0-9_]*)\s*(:)
+      - name: variable.parameter.labeled.ocaml
+        begin: (~)([a-z][a-zA-Z0-9'_]*)\s*(:)\s*
+        beginCaptures: 
+          "1": 
+            name: punctuation.definition.labeled-parameter.ocaml
+          "2": 
+            name: entity.name.tag.label.ocaml
+          "3": 
+            name: punctuation.separator.label.ocaml
+        end: \s
+        patterns: 
+        - include: "#variables"
+      - include: "#strings"
+      - include: "#typedefs"
+  matchpatterns: 
+    patterns: 
+    - name: constant.language.universal-match.ocaml
+      match: \b_\b
+    - name: punctuation.separator.match-pattern.ocaml
+      match: \|(?=\s*\S)
+    - name: meta.match-option.ocaml
+      endCaptures: 
+        "1": 
+          name: punctuation.definition.match-option.ocaml
+      begin: (\()(?=(?!=.*?->).*?\|)
+      beginCaptures: 
+        "1": 
+          name: punctuation.definition.match-option.ocaml
+      end: (\))
+      patterns: 
+      - name: punctuation.separator.match-option.ocaml
+        match: \|
+      - include: "#matchpatterns"
+    - include: "#moduleref"
+    - include: "#constants"
+    - include: "#variables"
+    - include: $self
+  comments: 
+    patterns: 
+    - name: comment.block.ocaml
+      captures: 
+        "1": 
+          name: comment.block.empty.ocaml
+      match: \(\*\*?(\*)\)
+    - name: comment.block.ocaml
+      begin: \(\*
+      end: \*\)
+      patterns: 
+      - include: "#comments"
+    - name: comment.block.ocamlyacc
+      begin: /\*
+      end: \*/
+      patterns: 
+      - include: "#comments"
+    - name: comment.block.string.quoted.double.ocaml
+      begin: (?=[^\\])(")
+      end: "\""
+      patterns: 
+      - name: comment.block.string.constant.character.escape.ocaml
+        match: \\(x[a-fA-F0-9][a-fA-F0-9]|[0-2]\d\d|[bnrt'"\\])
+  lists: 
+    patterns: 
+    - name: meta.list.ocaml
+      endCaptures: 
+        "1": 
+          name: punctuation.definition.list.end.ocaml
+      begin: (\[)(?!\||<|>)
+      beginCaptures: 
+        "1": 
+          name: punctuation.definition.list.begin.ocaml
+      end: (?<!\||>)(])
+      patterns: 
+      - include: "#lists"
+      - include: $self
+  strings: 
+    patterns: 
+    - name: string.quoted.double.ocaml
+      endCaptures: 
+        "1": 
+          name: punctuation.definition.string.end.ocaml
+      begin: (?=[^\\])(")
+      beginCaptures: 
+        "1": 
+          name: punctuation.definition.string.begin.ocaml
+      end: (")
+      patterns: 
+      - name: punctuation.separator.string.ignore-eol.ocaml
+        match: \\$[ \t]*
+      - name: constant.character.string.escape.ocaml
+        match: \\(x[a-fA-F0-9][a-fA-F0-9]|[0-2]\d\d|[bnrt'"\\])
+      - name: constant.character.regexp.escape.ocaml
+        match: \\[\|\(\)1-9$^.*+?\[\]]
+      - name: invalid.illegal.character.string.escape
+        match: \\(?!(x[a-fA-F0-9][a-fA-F0-9]|[0-2]\d\d|[bnrt'"\\]|[\|\(\)1-9$^.*+?\[\]]|$[ \t]*))(?:.)
+  constants: 
+    patterns: 
+    - name: constant.language.pseudo-variable.ocaml
+      captures: 
+        "1": 
+          name: meta.empty-typing-pair.ocaml
+        "2": 
+          name: meta.empty-typing-pair.parens.ocaml
+        "3": 
+          name: meta.empty-typing-pair.ocaml
+      match: (?:\[\s*(\])|\((\))|\(\s*(\)))
+    - name: constant.language.boolean.ocaml
+      match: \b(true|false)\b
+    - name: constant.numeric.floating-point.ocaml
+      match: \b-?[0-9][0-9_]*((\.([0-9][0-9_]*([eE][+-]??[0-9][0-9_]*)?)?)|([eE][+-]??[0-9][0-9_]*))
+    - name: constant.numeric.integer.nativeint.ocaml
+      match: \b(-?((0(x|X)[0-9a-fA-F][0-9a-fA-F_]*)|(0(o|O)[0-7][0-7_]*)|(0(b|B)[01][01_]*)|([0-9][0-9_]*)))n
+    - name: constant.numeric.integer.int64.ocaml
+      match: \b(-?((0(x|X)[0-9a-fA-F][0-9a-fA-F_]*)|(0(o|O)[0-7][0-7_]*)|(0(b|B)[01][01_]*)|([0-9][0-9_]*)))L
+    - name: constant.numeric.integer.int32.ocaml
+      match: \b(-?((0(x|X)[0-9a-fA-F][0-9a-fA-F_]*)|(0(o|O)[0-7][0-7_]*)|(0(b|B)[01][01_]*)|([0-9][0-9_]*)))l
+    - name: constant.numeric.integer.ocaml
+      match: \b(-?((0(x|X)[0-9a-fA-F][0-9a-fA-F_]*)|(0(o|O)[0-7][0-7_]*)|(0(b|B)[01][01_]*)|([0-9][0-9_]*)))
+    - name: constant.character.ocaml
+      match: "'(.|\\\\(x[a-fA-F0-9][a-fA-F0-9]|[0-2]\\d\\d|[bnrt'\"\\\\]))'"
+  arrays: 
+    patterns: 
+    - name: meta.array.ocaml
+      endCaptures: 
+        "1": 
+          name: punctuation.definition.array.end.ocaml
+      begin: (\[\|)
+      beginCaptures: 
+        "1": 
+          name: punctuation.definition.array.begin.ocaml
+      end: (\|])
+      patterns: 
+      - include: "#arrays"
+      - include: $self
+uuid: F816FA69-6EE8-11D9-BF2D-000D93589AF6
+foldingStartMarker: (\b(module|class|)\s.*?=\s*$|\bbegin|sig|struct|(object(\s*\(_?[a-z]+\))?)\s*$|\bwhile\s.*?\bdo\s*$|^let(?:\s+rec)?\s+[a-z_][a-zA-Z0-9_]*\s+(?!=)\S)
+patterns: 
+- name: meta.module.binding
+  captures: 
+    "1": 
+      name: keyword.other.module-binding.ocaml
+    "2": 
+      name: keyword.other.module-definition.ocaml
+    "3": 
+      name: support.other.module.ocaml
+    "4": 
+      name: punctuation.separator.module-binding.ocmal
+  match: \b(let)\s+(module)\s+([A-Z][a-zA-Z0-9'_]*)\s*(=)
+- name: meta.function.ocaml
+  endCaptures: 
+    "1": 
+      name: punctuation.separator.function.type-constraint.ocaml
+    "2": 
+      name: storage.type.ocaml
+    "3": 
+      name: keyword.operator.ocaml
+    "4": 
+      name: keyword.operator.ocaml
+  begin: \b(let|and)\s+(?!\(\*)((rec\s+)([a-z_][a-zA-Z0-9_']*)\b|([a-z_][a-zA-Z0-9_']*|\([^)]+\))(?=\s)((?=\s*=\s*(?=fun(?:ction)\b))|(?!\s*=)))
+  beginCaptures: 
+    "1": 
+      name: keyword.other.function-definition.ocaml
+    "3": 
+      name: keyword.other.funtion-definition.ocaml
+    "4": 
+      name: entity.name.function.ocaml
+    "5": 
+      name: entity.name.function.ocaml
+  end: (?:(:)\s*([^=]+))?(?:(=)|(=)\s*(?=fun(?:ction)\b))
+  patterns: 
+  - include: "#variables"
+- name: meta.function.anonymous.ocaml
+  endCaptures: 
+    "1": 
+      name: punctuation.definition.function.anonymous.ocaml
+  begin: (\()(?=fun\s)
+  beginCaptures: 
+    "1": 
+      name: punctuation.definition.function.anonymous.ocaml
+  end: (\))
+  patterns: 
+  - name: meta.function.anonymous.definition.ocaml
+    endCaptures: 
+      "1": 
+        name: punctuation.separator.function-definition.ocaml
+    begin: (?<=\()(fun)\s
+    beginCaptures: 
+      "1": 
+        name: keyword.other.function-definition.ocaml
+    end: (->)
+    patterns: 
+    - include: "#variables"
+  - include: $self
+- name: meta.type-definition-group.ocaml
+  begin: ^\s*(?=type\s)
+  end: \b(?=let|end)|^\s*$
+  patterns: 
+  - name: meta.type-definition.ocaml
+    begin: \b(type|and)\s+([^=]*)(=)?
+    beginCaptures: 
+      "1": 
+        name: keyword.other.type-definition.ocaml
+      "2": 
+        name: storage.type.user-defined.ocaml
+      "3": 
+        name: punctuation.separator.type-definition.ocaml
+    end: (?=\b(type|and|let|end)\b)|(?=^\s*$)
+    patterns: 
+    - include: "#typedefs"
+- name: meta.pattern-match.ocaml
+  endCaptures: 
+    "1": 
+      name: punctuation.separator.match-definition.ocaml
+    "2": 
+      name: keyword.control.match-condition.ocaml
+  begin: \b(with|function)(?=(\s*$|.*->))\b|((?<!\|)(\|)(?!\|)(?=.*->))
+  beginCaptures: 
+    "1": 
+      name: keyword.control.match-definition.ocaml
+    "2": 
+      name: keyword.other.function-definition.ocaml
+    "3": 
+      name: keyword.control.match-definition.ocaml
+  end: (?:(->)|\b(when)\b|\s(?=\|))
+  patterns: 
+  - include: "#matchpatterns"
+- name: meta.class.type-definition.ocaml
+  captures: 
+    "1": 
+      name: keyword.other.class-type-definition.ocaml
+    "2": 
+      name: entity.name.type.class-type.ocaml
+    "4": 
+      name: storage.type.user-defined.ocaml
+  match: ^[ \t]*(class\s+type\s+)((\[\s*('[A-Za-z][a-zA-Z0-9_']*(?:\s*,\s*'[A-Za-z][a-zA-Z0-9_']*)*)\s*\]\s+)?[a-z_][a-zA-Z0-9'_]*)
+- name: meta.class.ocaml
+  endCaptures: 
+    "1": 
+      name: keyword.operator.ocaml
+  begin: ^[ \t]*(class)(?:\s+(?!(?:virtual)\s+))((\[\s*('[A-Za-z][a-zA-Z0-9_']*(?:\s*,\s*'[A-Za-z][a-zA-Z0-9_']*)*)\s*\]\s+)?[a-z_][a-zA-Z0-9'_]*)
+  beginCaptures: 
+    "1": 
+      name: keyword.other.class-definition.ocaml
+    "2": 
+      name: entity.name.type.class.ocaml
+    "4": 
+      name: storage.type.user-defined.ocaml
+  end: (=)
+  patterns: 
+  - include: "#variables"
+- name: meta.class.virtual.ocaml
+  endCaptures: 
+    "1": 
+      name: keyword.operator.ocaml
+  begin: ^[ \t]*(class\s+virtual\s+)((\[\s*('[A-Za-z][a-zA-Z0-9_']*(?:\s*,\s*'[A-Za-z][a-zA-Z0-9_']*)*)\s*\]\s+)?[a-z_][a-zA-Z0-9'_]*)
+  beginCaptures: 
+    "1": 
+      name: keyword.other.class-definition.ocaml
+    "2": 
+      name: entity.name.type.class.ocaml
+    "4": 
+      name: storage.type.user-defined.ocaml
+  end: (=)
+  patterns: 
+  - include: "#variables"
+- name: meta.class.virtual.type-definition.ocaml
+  captures: 
+    "1": 
+      name: keyword.other.class-type-definition.ocaml
+    "2": 
+      name: entity.name.type.class-type.ocaml
+    "4": 
+      name: storage.type.user-defined.ocaml
+  match: ^[ \t]*(class\s+type\s+virtual)((\[\s*('[A-Za-z][a-zA-Z0-9_']*(?:\s*,\s*'[A-Za-z][a-zA-Z0-9_']*)*)\s*\]\s+)?[a-z_][a-zA-Z0-9'_]*)
+- name: meta.record.ocaml
+  endCaptures: 
+    "1": 
+      name: punctuation.definition.record.ocaml
+  begin: (\{)
+  beginCaptures: 
+    "1": 
+      name: punctuation.definition.record.ocaml
+  end: (\})
+  patterns: 
+  - name: keyword.other.language.ocaml
+    match: \bwith\b
+  - name: meta.record.definition.ocaml
+    endCaptures: 
+      "1": 
+        name: keyword.operator.ocaml
+    begin: (\bmutable\s+)?\b([a-z_][a-zA-Z0-9_']*)\s*(:)
+    beginCaptures: 
+      "1": 
+        name: keyword.other.storage.modifier.ocaml
+      "2": 
+        name: source.ocaml
+      "3": 
+        name: punctuation.definition.record.ocaml
+    end: (;|(?=}))
+    patterns: 
+    - include: "#typedefs"
+  - include: $self
+- name: meta.object.ocaml
+  endCaptures: 
+    "1": 
+      name: keyword.control.object.ocaml
+    "2": 
+      name: punctuation.terminator.expression.ocaml
+  begin: \b(object)\s*(?:(\()(_?[a-z]+)(\)))?\s*$
+  beginCaptures: 
+    "1": 
+      name: keyword.other.object-definition.ocaml
+    "2": 
+      name: punctuation.definition.self-binding.ocaml
+    "3": 
+      name: entity.name.type.self-binding.ocaml
+    "4": 
+      name: punctuation.definition.self-binding.ocaml
+  end: \b(end)\b
+  patterns: 
+  - name: meta.method.ocaml
+    endCaptures: 
+      "1": 
+        name: keyword.operator.ocaml
+    begin: \b(method)\s+(virtual\s+)?(private\s+)?([a-z_][a-zA-Z0-9'_]*)
+    beginCaptures: 
+      "1": 
+        name: keyword.other.method-definition.ocaml
+      "2": 
+        name: keyword.other.method-definition.ocaml
+      "3": 
+        name: keyword.other.method-restriction.ocaml
+      "4": 
+        name: entity.name.function.method.ocaml
+    end: (=|:)
+    patterns: 
+    - include: "#variables"
+  - name: meta.object.type-constraint.ocaml
+    endCaptures: 
+      "1": 
+        name: storage.type.polymorphic-variant.ocaml
+      "2": 
+        name: storage.type.ocaml
+      "3": 
+        name: storage.type.user-defined.ocaml
+    begin: (constraint)\s+([a-z_'][a-zA-Z0-9'_]*)\s+(=)
+    beginCaptures: 
+      "1": 
+        name: keyword.other.language.ocaml
+      "2": 
+        name: storage.type.user-defined.ocaml
+      "3": 
+        name: keyword.operator.ocaml
+    end: (#[a-z_][a-zA-Z0-9'_]*)|(int|char|float|string|list|array|bool|unit|exn|option|int32|int64|nativeint|format4|lazy_t)|([a-z_][a-zA-Z0-9'_]*)\s*$
+  - include: $self
+- name: meta.method-call.ocaml
+  captures: 
+    "1": 
+      name: punctuation.separator.method-call.ocaml
+  match: (?<=\w|\)|')(#)[a-z_][a-zA-Z0-9'_]*
+- name: meta.module.ocaml
+  captures: 
+    "1": 
+      name: keyword.other.module-definition.ocaml
+    "2": 
+      name: entity.name.type.module.ocaml
+    "3": 
+      name: punctuation.separator.module-definition.ocaml
+    "4": 
+      name: entity.name.type.module-type.ocaml
+  match: ^[ \t]*(module)\s+([A-Z_][a-zA-Z0-9'_]*)(?:\s*(:)\s*([A-Z][a-zA-Z0-9'_]*)?)?
+- name: meta.module.type.ocaml
+  captures: 
+    "1": 
+      name: keyword.other.module-type-definition.ocaml
+    "2": 
+      name: entity.name.type.module-type.ocaml
+  match: ^[ \t]*(module\s+type\s+)([A-Z][a-zA-Z0-9'_]*)
+- name: meta.module.signature.ocaml
+  endCaptures: 
+    "1": 
+      name: keyword.other.module.signature.ocaml
+    "2": 
+      name: punctuation.terminator.expression.ocaml
+    "3": 
+      name: keyword.operator.ocaml
+  begin: \b(sig)\b
+  beginCaptures: 
+    "1": 
+      name: keyword.other.module.signature.ocaml
+  end: \b(end)\b
+  patterns: 
+  - include: "#module-signature"
+  - include: $self
+- name: meta.module.structure.ocaml
+  endCaptures: 
+    "1": 
+      name: keyword.other.module.structure.ocaml
+  begin: \b(struct)\b
+  beginCaptures: 
+    "1": 
+      name: keyword.other.module.structure.ocaml
+  end: \b(end)\b
+  patterns: 
+  - include: $self
+- include: "#moduleref"
+- name: meta.module.open.ocaml
+  begin: \b(open)\s+([A-Z][a-zA-Z0-9'_]*)(?=(\.[A-Z][a-zA-Z0-9_]*)*)
+  beginCaptures: 
+    "1": 
+      name: keyword.other.ocaml
+    "2": 
+      name: support.other.module.ocaml
+  end: (\s|$)
+  patterns: 
+  - name: support.other.module.ocaml
+    captures: 
+      "1": 
+        name: punctuation.separator.module-reference.ocaml
+    match: (\.)([A-Z][a-zA-Z0-9'_]*)
+- name: meta.exception.ocaml
+  captures: 
+    "1": 
+      name: keyword.other.ocaml
+    "2": 
+      name: entity.name.type.exception.ocaml
+  match: \b(exception)\s+([A-Z][a-zA-Z0-9'_]*)\b
+- name: source.camlp4.embedded.ocaml
+  endCaptures: 
+    "1": 
+      name: punctuation.definition.camlp4-stream.ocaml
+  begin: (?=(\[<)(?![^\[]+?[^>]]))
+  end: (>])
+  patterns: 
+  - include: source.camlp4.ocaml
+- include: "#strings"
+- include: "#constants"
+- include: "#comments"
+- include: "#lists"
+- include: "#arrays"
+- name: meta.type-constraint.ocaml
+  endCaptures: 
+    "1": 
+      name: punctuation.separator.type-constraint.ocaml
+    "2": 
+      name: storage.type.ocaml
+    "3": 
+      name: punctuation.section.type-constraint.ocaml
+  begin: (\()(?=(~[a-z][a-zA-Z0-9_]*:|("(\\"|[^"])*")|[^\(\)~"])+(?<!:)(:>|:(?![:=])))
+  beginCaptures: 
+    "1": 
+      name: punctuation.section.type-constraint.ocaml
+  end: (?<!:)(:>|:(?![:=]))(.*?)(\))
+  patterns: 
+  - include: $self
+- name: keyword.other.directive.ocaml
+  match: ^[ \t]*#[a-zA-Z]+
+- name: keyword.other.directive.line-number.ocaml
+  match: ^[ \t]*#[0-9]*
+- include: "#storagetypes"
+- name: keyword.other.storage.modifier.ocaml
+  match: \b(mutable|ref)\b
+- name: entity.name.type.variant.polymorphic.ocaml
+  match: "`[A-Za-z][a-zA-Z0-9'_]*\\b"
+- name: entity.name.type.variant.ocaml
+  match: \b[A-Z][a-zA-Z0-9'_]*\b
+- name: keyword.operator.symbol.ocaml
+  match: "!=|:=|>|<"
+- name: keyword.operator.infix.floating-point.ocaml
+  match: "[*+/-]\\."
+- name: keyword.operator.prefix.floating-point.ocaml
+  match: ~-\.
+- name: punctuation.definition.list.constructor.ocaml
+  match: "::"
+- name: punctuation.terminator.expression.ocaml
+  match: ;;
+- name: punctuation.separator.ocaml
+  match: ;
+- name: punctuation.separator.function-return.ocaml
+  match: ->
+- name: keyword.operator.infix.ocaml
+  match: "[=<>@^&+\\-*/$%|][|!$%&*+./:<=>?@^~-]*"
+- name: keyword.operator.prefix.ocaml
+  match: \bnot\b|!|[!\?~][!$%&*+./:<=>?@^~-]+
+- name: entity.name.tag.label.ocaml
+  captures: 
+    "1": 
+      name: punctuation.separator.argument-label.ocaml
+  match: ~[a-z][a-z0-9'_]*(:)?
+- name: meta.begin-end-group.ocaml
+  endCaptures: 
+    "1": 
+      name: keyword.control.begin-end.ocaml
+  begin: \b(begin)\b
+  beginCaptures: 
+    "1": 
+      name: keyword.control.begin-end.ocaml
+  end: \b(end)\b
+  patterns: 
+  - include: $self
+- name: meta.for-loop.ocaml
+  endCaptures: 
+    "1": 
+      name: keyword.control.for-loop.ocaml
+  begin: \b(for)\b
+  beginCaptures: 
+    "1": 
+      name: keyword.control.for-loop.ocaml
+  end: \b(done)\b
+  patterns: 
+  - name: keyword.control.loop.ocaml
+    match: \bdo\b
+  - include: $self
+- name: meta.while-loop.ocaml
+  endCaptures: 
+    "1": 
+      name: keyword.control.while-loop.ocaml
+  begin: \b(while)\b
+  beginCaptures: 
+    "1": 
+      name: keyword.control.while-loop.ocaml
+  end: \b(done)\b
+  patterns: 
+  - name: keyword.control.loop.ocaml
+    match: \bdo\b
+  - include: $self
+- name: meta.paren-group.ocaml
+  begin: \(
+  end: \)
+  patterns: 
+  - include: $self
+- name: keyword.operator.ocaml
+  match: \b(and|land|lor|lsl|lsr|lxor|mod|or)\b
+- name: keyword.control.ocaml
+  match: \b(downto|if|else|match|then|to|when|with|try)\b
+- name: keyword.other.ocaml
+  match: \b(as|assert|class|constraint|exception|functor|in|include|inherit|initializer|lazy|let|mod|module|mutable|new|object|open|private|rec|sig|struct|type|val|virtual)\b
+- include: "#module-signature"
+- name: invalid.illegal.unrecognized-character.ocaml
+  match: "(\xE2\x80\x99|\xE2\x80\x98|\xE2\x80\x9C|\xE2\x80\x9D)"
+foldingStopMarker: (\bend(\s+in)?[ \t]*(;{1,2}|=)?|\bdone;?|^\s*;;|^\s*in)[ \t]*$
+keyEquivalent: ^~O