Adds hover support for parameter values

Fixes Show constant parameter value in hover #116
Fixes Show constant parameter value in hover #1

Author: gnikit

CHANGELOG.md

@@ -1,5 +1,13 @@
 # CHANGELONG
 
+## 1.16.0
+
+### Adds
+
+- Adds value for `PARAMETER` variables on hover
+  ([#116](https://github.com/hansec/fortran-language-server/issues/116))
+  ([gnikit/fortls#1](https://github.com/gnikit/fortls/issues/1))
+
 ## 1.15.2
 
 ### Fixes

fortls/objects.py

@@ -1581,6 +1581,7 @@ def base_setup(
         self.link_obj = None
         self.type_obj = None
         self.is_const = False
+        self.param_val: str = None
         if link_obj is not None:
             self.link_name = link_obj.lower()
         else:
@@ -1664,6 +1665,9 @@ def get_hover(self, long=False, include_doc=True, drop_arg=-1):
         hover_str = ", ".join(
             [self.desc] + get_keywords(self.keywords, self.keyword_info)
         )
+        # Add parameter value in the output
+        if self.is_parameter() and self.param_val:
+            hover_str += f" :: {self.name} = {self.param_val}"
         if include_doc and (doc_str is not None):
             hover_str += "\n {0}".format("\n ".join(doc_str.splitlines()))
         return hover_str, True
@@ -1680,6 +1684,9 @@ def is_callable(self):
     def is_parameter(self):
         return self.is_const
 
+    def set_parameter_val(self, val: str):
+        self.param_val = val
+
     def check_definition(self, obj_tree, known_types={}, interface=False):
         # Check for type definition in scope
         type_match = DEF_KIND_REGEX.match(self.desc)

fortls/parse_fortran.py

@@ -93,6 +93,7 @@
     MOD_REGEX,
     NAT_VAR_REGEX,
     NON_DEF_REGEX,
+    PARAMETER_VAL_REGEX,
     PP_DEF_REGEX,
     PP_INCLUDE_REGEX,
     PP_REGEX,
@@ -1554,6 +1555,14 @@ def parser_debug_msg(msg: str, line: str, ln: int):
                             keyword_info=keyword_info,
                             link_obj=link_name,
                         )
+                        # If the object is fortran_var and a parameter include
+                        #  the value in hover
+                        if new_var.is_parameter():
+                            _, col = find_word_in_line(line, name_stripped)
+                            match = PARAMETER_VAL_REGEX.match(line[col:])
+                            if match:
+                                var = match.group(1).strip()
+                                new_var.set_parameter_val(var)
                     file_ast.add_variable(new_var)
                 parser_debug_msg("VARIABLE", line, line_number)
 

fortls/regex_patterns.py

@@ -72,6 +72,7 @@
     r"CONTIGUOUS)",
     re.I,
 )
+PARAMETER_VAL_REGEX = re.compile(r"[\w]*[\s\&]*=[\s\&]*([\w\.\*\-\+\\]*)", re.I)
 TATTR_LIST_REGEX = re.compile(
     r"[ ]*,[ ]*(PUBLIC|PRIVATE|ABSTRACT|EXTENDS\([a-z0-9_]*\))", re.I
 )