From 7031c09abb9e122dfa726d08df691f7fb04c59a2 Mon Sep 17 00:00:00 2001 From: Jimmy Date: Fri, 11 Oct 2024 01:08:02 +0800 Subject: [PATCH 1/3] support ocaml block comment --- core/Parsing.Documents.fs | 1 + 1 file changed, 1 insertion(+) diff --git a/core/Parsing.Documents.fs b/core/Parsing.Documents.fs index d456176..2a88c49 100644 --- a/core/Parsing.Documents.fs +++ b/core/Parsing.Documents.fs @@ -170,6 +170,7 @@ let mutable languages = [ lang "MATLAB" "" "" <| sc [line "%(?![%{}])"; block ("%\{", "%\}")] lang "Objective-C" "" ".m|.mm" java + lang "OCaml" "ocaml|ocaml.interface" ".ml|.mli" <| sc [block (@"(\(\* )", @"\*\)")] lang "Octave" "" "" <| sc [block ("#\{", "#\}"); block ("%\{", "%\}"); line "##?"; line "%[^!]"] lang "Pascal" "delphi" ".pas" <| sc [block (@"\(\*", @"\*\)"); block (@"\{(?!\$)", @"\}"); line "///?"] // Putting Perl & Perl6 together. Perl6 also has a form of block comment which still From f250e73fd9a13c2ed146f523d15c54da1b7880e8 Mon Sep 17 00:00:00 2001 From: Jimmy Date: Fri, 11 Oct 2024 01:31:14 +0800 Subject: [PATCH 2/3] support ocaml doc comments --- core/Parsing.Documents.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/Parsing.Documents.fs b/core/Parsing.Documents.fs index 2a88c49..8cbb2b7 100644 --- a/core/Parsing.Documents.fs +++ b/core/Parsing.Documents.fs @@ -170,7 +170,7 @@ let mutable languages = [ lang "MATLAB" "" "" <| sc [line "%(?![%{}])"; block ("%\{", "%\}")] lang "Objective-C" "" ".m|.mm" java - lang "OCaml" "ocaml|ocaml.interface" ".ml|.mli" <| sc [block (@"(\(\* )", @"\*\)")] + lang "OCaml" "ocaml|ocaml.interface" ".ml|.mli" <| sc [block (@"(\(\*+_? )", @"\*\)")] lang "Octave" "" "" <| sc [block ("#\{", "#\}"); block ("%\{", "%\}"); line "##?"; line "%[^!]"] lang "Pascal" "delphi" ".pas" <| sc [block (@"\(\*", @"\*\)"); block (@"\{(?!\$)", @"\}"); line "///?"] // Putting Perl & Perl6 together. Perl6 also has a form of block comment which still From 8cb760abf78180c61eca6fadd400d5dcb569052e Mon Sep 17 00:00:00 2001 From: Jimmy Date: Wed, 16 Oct 2024 01:32:15 +0800 Subject: [PATCH 3/3] allow text before the block comment --- core/Parsing.Documents.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/Parsing.Documents.fs b/core/Parsing.Documents.fs index 8cbb2b7..d59e055 100644 --- a/core/Parsing.Documents.fs +++ b/core/Parsing.Documents.fs @@ -170,7 +170,7 @@ let mutable languages = [ lang "MATLAB" "" "" <| sc [line "%(?![%{}])"; block ("%\{", "%\}")] lang "Objective-C" "" ".m|.mm" java - lang "OCaml" "ocaml|ocaml.interface" ".ml|.mli" <| sc [block (@"(\(\*+_? )", @"\*\)")] + lang "OCaml" "ocaml|ocaml.interface" ".ml|.mli" <| sc [block (@"(.*\(\*+_? )", @"\*\)")] lang "Octave" "" "" <| sc [block ("#\{", "#\}"); block ("%\{", "%\}"); line "##?"; line "%[^!]"] lang "Pascal" "delphi" ".pas" <| sc [block (@"\(\*", @"\*\)"); block (@"\{(?!\$)", @"\}"); line "///?"] // Putting Perl & Perl6 together. Perl6 also has a form of block comment which still