Improve and test tags (#108)

Author: 314eter

queries/tags.scm

@@ -4,18 +4,19 @@
 (
   (comment)? @doc .
   (module_definition (module_binding (module_name) @name) @definition.module)
-  (#strip! @doc "^\\(\\*\\*?\\s*|\\s\\*\\)$")
+  (#strip! @doc "^\\(\\*+\\s*|\\s*\\*+\\)$")
 )
 
 (module_path (module_name) @name) @reference.module
+(extended_module_path (module_name) @name) @reference.module
 
 ; Module types
 ;--------------
 
 (
   (comment)? @doc .
   (module_type_definition (module_type_name) @name) @definition.interface
-  (#strip! @doc "^\\(\\*\\*?\\s*|\\s\\*\\)$")
+  (#strip! @doc "^\\(\\*+\\s*|\\s*\\*+\\)$")
 )
 
 (module_type_path (module_type_name) @name) @reference.implementation
@@ -35,13 +36,13 @@
         body: [(fun_expression) (function_expression)])
     ] @definition.function
   )
-  (#strip! @doc "^\\(\\*\\*?\\s*|\\s\\*\\)$")
+  (#strip! @doc "^\\(\\*+\\s*|\\s*\\*+\\)$")
 )
 
 (
   (comment)? @doc .
   (external (value_name) @name) @definition.function
-  (#strip! @doc "^\\(\\*\\*?\\s*|\\s\\*\\)$")
+  (#strip! @doc "^\\(\\*+\\s*|\\s*\\*+\\)$")
 )
 
 (application_expression
@@ -65,7 +66,7 @@
   (value_definition
     (let_binding
       pattern: (parenthesized_operator (_) @name)) @definition.function)
-  (#strip! @doc "^\\(\\*\\*?\\s*|\\s\\*\\)$")
+  (#strip! @doc "^\\(\\*+\\s*|\\s*\\*+\\)$")
 )
 
 [
@@ -95,7 +96,7 @@
     (class_definition (class_binding (class_name) @name) @definition.class)
     (class_type_definition (class_type_binding (class_type_name) @name) @definition.class)
   ]
-  (#strip! @doc "^\\(\\*\\*?\\s*|\\s\\*\\)$")
+  (#strip! @doc "^\\(\\*+\\s*|\\s*\\*+\\)$")
 )
 
 [
@@ -109,7 +110,7 @@
 (
   (comment)? @doc .
   (method_definition (method_name) @name) @definition.method
-  (#strip! @doc "^\\(\\*\\*?\\s*|\\s\\*\\)$")
+  (#strip! @doc "^\\(\\*+\\s*|\\s*\\*+\\)$")
 )
 
 (method_invocation (method_name) @name) @reference.call

test/tags/classes.ml

@@ -0,0 +1,12 @@
+class zero = object
+   (* ^ definition.class *)
+  val v = 0
+  method get = v
+      (* ^ definition.method *)
+end
+
+let v = new zero
+         (* ^ reference.class *)
+
+let x = v#get
+       (* ^ reference.call *)

test/tags/functions.ml

@@ -0,0 +1,15 @@
+let f x = Fun.id x
+ (* ^ definition.function *)
+           (* ^ reference.call *)
+
+let f = fun x -> f @@ x |> f
+ (* ^ definition.function *)
+              (* ^ reference.call *)
+                        (* ^ reference.call *)
+
+external f : 'a -> 'a = "id"
+      (* ^ definition.function *)
+
+let ( + ) a b = a + b
+   (* ^ definition.function *)
+               (* ^ reference.call *)

test/tags/modules.ml

@@ -0,0 +1,21 @@
+module M : Map.S = Map.Make (Int)
+    (* ^ definition.module *)
+        (* ^ reference.module *)
+            (* ^ reference.implementation *)
+                (* ^ reference.module *)
+                    (* ^ reference.module *)
+                          (* ^ reference.module *)
+
+module F (X: Map.OrderedType) = struct
+    (* ^ definition.module *)
+          (* ^ reference.module *)
+              (* ^ reference.implementation *)
+  let compare = X.compare
+             (* ^ reference.module *)
+end
+
+module type T = sig end
+         (* ^ definition.interface *)
+
+module rec M : T = struct end and N : T = struct end
+                               (* ^ definition.module *)