From 88e8eefb2d9c6a60e34419f2a07c428c937536d6 Mon Sep 17 00:00:00 2001 From: Stephan Seitz Date: Sun, 18 Apr 2021 02:17:56 +0200 Subject: [PATCH] highlights(fortran): extend queries --- queries/fortran/highlights.scm | 84 ++++++++++++++++++++++++++-------- 1 file changed, 64 insertions(+), 20 deletions(-) diff --git a/queries/fortran/highlights.scm b/queries/fortran/highlights.scm index e31981efa..05b10a7a9 100644 --- a/queries/fortran/highlights.scm +++ b/queries/fortran/highlights.scm @@ -1,4 +1,4 @@ -;; by @oponkork +;; by @oponkork with extensions by @theHamsta (identifier) @variable (string_literal) @string @@ -23,40 +23,49 @@ "grid_global" ] @type +[ + "module" + "endmodule" + "contains" + "public" + "private" +] @include + +[ +"implicit" +(none) +] @annotation + +[ + "function" + "endfunction" + "endprogram" + "subroutine" + "endsubroutine" +] @keyword.function + [ "bind" "call" - "contains" "continue" "cycle" - "endfunction" - "endmodule" - "endprogram" - "endsubroutine" "enumerator" "equivalence" "exit" "format" - "function" "goto" "include" "interface" - "module" "parameter" "print" "program" "read" "return" "stop" - "subroutine" "use" "write" - "implicit" - (none) (default) (procedure_qualifier) - (private_statement) - (public_statement) ] @keyword [ @@ -75,18 +84,53 @@ ] @repeat [ + "*" + "+" + "-" + "/" + "=" "<" ">" "<=" ">=" "==" "/=" +] @operator + +[ + "\\.and\\." + "\\.or\\." + "\\.lt\\." + "\\.gt\\." + "\\.ge\\." + "\\.le\\." + "\\.eq\\." + "\\.eqv\\." + "\\.neqv\\." ] @keyword.operator -; ;; Brackets -; [ -; "(" -; ")" -; "[" -; "]" -; ] @punctuation.bracket + ;; Brackets + [ + "(" + ")" + "[" + "]" + ] @punctuation.bracket + + ;; Delimiter + [ + "::" + "," + ] @punctuation.bracket + +(parameters + (identifier) @parameter) + +(subroutine_statement + (name) @function) + +(subroutine_call + (name) @function) + +(module_statement + (name) @namespace)