Add OCaml Support

[WayneYam]

Basic support for OCaml, including basic delimiters and let ... in, if ... else, match ... with, for and while blocks.

[S41d]

I started to write some of the rules for OCaml a while ago but never got to make a PR. Here's everything I had in rainbow-delimiters.scm in case it helps :

(parenthesized_pattern
  "(" @delimiter
  ")" @delimiter @sentinel) @container

(parenthesized_operator
  "(" @delimiter
  ")" @delimiter @sentinel) @container

(parenthesized_expression
  "(" @delimiter
  ")" @delimiter @sentinel) @container

(parenthesized_module_expression
  "(" @delimiter
  ")" @delimiter @sentinel) @container

(list_expression
  "[" @delimiter
  "]" @delimiter @sentinel) @container

(list_pattern
  "[" @delimiter
  "]" @delimiter @sentinel) @container

(array_expression
  "[|" @delimiter
  "|]" @delimiter @sentinel) @container

(array_pattern
  "[|" @delimiter
  "|]" @delimiter @sentinel) @container

(array_get_expression
  "(" @delimiter
  ")" @delimiter @sentinel) @container

(attribute
  "[@" @delimiter
  "]" @delimiter @sentinel) @container

(item_attribute
  "[@@" @delimiter
  "]" @delimiter @sentinel) @container

(floating_attribute
  "[@@@" @delimiter
  "]" @delimiter @sentinel) @container

(record_pattern
  "{" @delimiter
  "}" @delimiter @sentinel) @container

(record_expression
  "{" @delimiter
  "}" @delimiter @sentinel) @container

(record_declaration
  "{" @delimiter
  "}" @delimiter @sentinel) @container

(record_binding_pattern
  "{" @delimiter
  "}" @delimiter @sentinel) @container

(class_binding
  "[" @delimiter
  "]" @delimiter @sentinel) @container

(object_expression
  "(" @delimiter
  ")" @delimiter @sentinel) @container

; (parenthesized_expression
;   "begin" @delimiter
;   "end" @delimiter @sentinel) @container

(typed_pattern
  "(" @delimiter
  ")" @delimiter @sentinel) @container

(typed_expression
  "(" @delimiter
  ")" @delimiter @sentinel) @container

(parenthesized_type
  "(" @delimiter
  ")" @delimiter @sentinel) @container

(polymorphic_variant_type
  "[<" @delimiter
  "]" @delimiter @sentinel) @container

(polymorphic_variant_type
  "[>" @delimiter
  "]" @delimiter @sentinel) @container

(string_get_expression
  "[" @delimiter
  "]" @delimiter @sentinel) @container

(extension
  "[%" @delimiter
  "]" @delimiter @sentinel) @container

; this errors so we comment it out for now
; (quoted_extension
;   "{%" @delimiter
;   "}" @delimiter @sentinel) @container

(item_extension
  "[%%" @delimiter
  "]" @delimiter @sentinel) @container

(quoted_item_extension
  "{%%" @delimiter
  "}" @delimiter @sentinel) @container

(quoted_string
  "{" @delimiter
  "}" @sentinel) @container

(bigarray_get_expression
  "{" @delimiter
  "}" @delimiter @sentinel) @container

(object_copy_expression
  "{<" @delimiter
  ">}" @delimiter @sentinel) @container

[HiPhish]

Thank you for the PR, but can you please add a sample file which contains all the patterns you have defined? Place it in test/highlight/samples/ocaml. You can give it some generic names like regular.ml (or whatever the extension is). The file does not need to make particular sense, but it should compile if possible.

[WayneYam]

Thanks for replying.

I will first merge the other patterns that @S41d suggested, and then write a sample file, but it will take some time and I'm a little busy right now. It should be done in a week or so.

[WayneYam]

There seems to be some more delimiters (mainly just ()) but this should cover the most common ones

[HiPhish]

Should I review now?

[WayneYam]

Yes, please.

[HiPhish]

Looks good to me. If you can answer that one question I will go ahead and merge.

[HiPhish]

Merged, thank you.