Add call hierarchy LSP API.

Author: toinehartman

rascal-lsp/src/main/java/org/rascalmpl/vscode/lsp/parametric/ParametricTextDocumentService.java

@@ -46,6 +46,12 @@
 import org.apache.logging.log4j.core.util.IOUtils;
 import org.checkerframework.checker.nullness.qual.MonotonicNonNull;
 import org.checkerframework.checker.nullness.qual.Nullable;
+import org.eclipse.lsp4j.CallHierarchyIncomingCall;
+import org.eclipse.lsp4j.CallHierarchyIncomingCallsParams;
+import org.eclipse.lsp4j.CallHierarchyItem;
+import org.eclipse.lsp4j.CallHierarchyOutgoingCall;
+import org.eclipse.lsp4j.CallHierarchyOutgoingCallsParams;
+import org.eclipse.lsp4j.CallHierarchyPrepareParams;
 import org.eclipse.lsp4j.CodeAction;
 import org.eclipse.lsp4j.CodeActionParams;
 import org.eclipse.lsp4j.CodeLens;
@@ -580,6 +586,28 @@ public CompletableFuture<List<FoldingRange>> foldingRange(FoldingRangeRequestPar
             ), Collections::emptyList);
     }
 
+
+
+    @Override
+    public CompletableFuture<List<CallHierarchyIncomingCall>> callHierarchyIncomingCalls(
+            CallHierarchyIncomingCallsParams params) {
+        // TODO Auto-generated method stub
+        return IBaseTextDocumentService.super.callHierarchyIncomingCalls(params);
+    }
+
+    @Override
+    public CompletableFuture<List<CallHierarchyOutgoingCall>> callHierarchyOutgoingCalls(
+            CallHierarchyOutgoingCallsParams params) {
+        // TODO Auto-generated method stub
+        return IBaseTextDocumentService.super.callHierarchyOutgoingCalls(params);
+    }
+
+    @Override
+    public CompletableFuture<List<CallHierarchyItem>> prepareCallHierarchy(CallHierarchyPrepareParams params) {
+        // TODO Auto-generated method stub
+        return IBaseTextDocumentService.super.prepareCallHierarchy(params);
+    }
+
     @Override
     public synchronized void registerLanguage(LanguageParameter lang) {
         logger.info("registerLanguage({})", lang.getName());

rascal-lsp/src/main/rascal/library/util/LanguageServer.rsc

@@ -268,8 +268,22 @@ data LanguageService
     | references    (set[loc] (Focus _focus) referencesService)
     | implementation(set[loc] (Focus _focus) implementationService)
     | codeAction    (list[CodeAction] (Focus _focus) codeActionService)
+    | callHierarchy (set[CallHierarchyItem] (Focus _focus) callHierarchyService)
+    | incomingCalls (set[loc] (loc src, value _data) incomingCallsService)
+    | outgoingCalls (set[loc] (loc src, value _data) outgoingCallsService)
     ;
 
+data CallHierarchyItem
+    = item(
+        str name,
+        DocumentSymbolKind kind,
+        loc src,
+        loc selection,
+        list[DocumentSymbolTag] tags = [],
+        str detail = "",
+        value \data = ()
+    );
+
 @deprecated{Backward compatible with ((parsing)).}
 @synopsis{Construct a `parsing` ((LanguageService))}
 LanguageService parser(Parser parser) = parsing(parser);