Elixir: when tagging an exception, use the name of the module where it is defined

Signed-off-by: Masatake YAMATO <[email protected]>

Author: masatake

Units/parser-elixir.r/elixir-exceptions.b/README.md

@@ -0,0 +1,2 @@
+--sort=no
+--fields=+Ka

Units/parser-elixir.r/elixir-exceptions.b/expected.tags

@@ -0,0 +1,3 @@
+ModuleError	input.ex	/^defmodule ModuleError do$/;"	module
+ModuleError	input.ex	/^  defexception [:message]$/;"	exception	module:ModuleError
+exception	input.ex	/^  def exception(value) do$/;"	function	module:ModuleError	access:public

Units/parser-elixir.r/elixir-exceptions.d/args.ctags

@@ -1,9 +1,9 @@
-defmodule ErrorModule do
+defmodule ModuleError do
   defexception [:message]
 
   @impl true
   def exception(value) do
     msg = "did not get what was expected, got: #{inspect(value)}"
-    %ErrorModule{message: msg}
+    %ModuleError{message: msg}
   end
 end

Units/parser-elixir.r/elixir-exceptions.d/expected.tags

@@ -85,7 +85,17 @@ extern parserDefinition* ElixirParser (void)
 		{"^[ \t]*defdelegate[ \t]+([a-z_][a-zA-Z0-9_?!]*)", "\\1",
 		"d", "{scope=ref}", NULL, false},
 		{"^[ \t]*defexception[ \t]+([A-Z][a-zA-Z0-9_]*\\.)*([A-Z][a-zA-Z0-9_?!]*)", "\\2",
-		"e", "{scope=ref}", NULL, false},
+		"e", "{scope=ref}{exclusive}", NULL, false},
+		{"^[ \t]*defexception[ \t]+", "",
+		"", "{exclusive}"
+		"{{\n"
+		"    _scopetop {\n"
+		"        dup :kind /module eq {\n"
+		"            dup\n"
+		"            :name /exception _tag _commit exch scope:\n"
+		"        } if\n"
+		"    } if\n"
+		"}}", NULL, false},
 		{"^[ \t]*defguard[ \t]+(is_[a-zA-Z0-9_?!]+)", "\\1",
 		"g", "{scope=ref}{{. (public) access:}}", NULL, false},
 		{"^[ \t]*defguardp[ \t]+(is_[a-zA-Z0-9_?!]+)", "\\1",

Units/parser-elixir.r/elixir-exceptions.b/input.ex renamed to Units/parser-elixir.r/elixir-exceptions.d/input.ex

@@ -73,7 +73,15 @@
 --regex-Elixir=/^[ \t]*defp[ \t]+([a-z_][a-zA-Z0-9_?!]*)/\1/f/{scope=ref}{{. (private) access:}}
 --regex-Elixir=/^[ \t]*(@|def)callback[ \t]+([a-z_][a-zA-Z0-9_?!]*)/\2/c/{scope=ref}
 --regex-Elixir=/^[ \t]*defdelegate[ \t]+([a-z_][a-zA-Z0-9_?!]*)/\1/d/{scope=ref}
---regex-Elixir=/^[ \t]*defexception[ \t]+([A-Z][a-zA-Z0-9_]*\.)*([A-Z][a-zA-Z0-9_?!]*)/\2/e/{scope=ref}
+--regex-Elixir=/^[ \t]*defexception[ \t]+([A-Z][a-zA-Z0-9_]*\.)*([A-Z][a-zA-Z0-9_?!]*)/\2/e/{scope=ref}{exclusive}
+--regex-Elixir=/^[ \t]*defexception[ \t]+//{exclusive}{{
+    _scopetop {
+        dup :kind /module eq {
+            dup
+            :name /exception _tag _commit exch scope:
+        } if
+    } if
+}}
 --regex-Elixir=/^[ \t]*defguard[ \t]+(is_[a-zA-Z0-9_?!]+)/\1/g/{scope=ref}{{. (public) access:}}
 --regex-Elixir=/^[ \t]*defguardp[ \t]+(is_[a-zA-Z0-9_?!]+)/\1/g/{scope=ref}{{. (private) access:}}
 --regex-Elixir=/^[ \t]*defimpl[ \t]+([A-Z][a-zA-Z0-9_]*\.)*([A-Z][a-zA-Z0-9_?!]*)/\2/i/{scope=ref}