go to super class

Author: daimor

Diff for: CHANGELOG.md

@@ -12,10 +12,12 @@
 - Go to definition now goes to real file if such presented, or opens from the server
 - Basic syntax highlighting for CSP files, only as HTML
 - Added some snippets for class
-- View subclasses for current class, available in command palette
+- Go to Subclass for the current class, available in command palette
+- Go to Super class for the current class, available in command palette
 - Go To any class/method in the workspace including server (by Cmd+T/Ctrl+T)
 - some small fixes in the highlighting, and selecting words/variables
 - Intellisense. Show list of methods for ##class(SomeClass)
+- Go to macros definition
 
 ## [0.7.7]
 

Diff for: commands/subclass.ts

@@ -26,7 +26,7 @@ export async function subclass(): Promise<void> {
   return api
     .actionQuery('CALL %Dictionary.ClassDefinitionQuery_SubclassOf(?)', [className])
     .then(data => {
-      const list = data.result.content || [];
+      const list = data.result.content.slice(0, 100) || [];
       if (!list.length) {
         return;
       }

Diff for: commands/superclass.ts

@@ -0,0 +1,34 @@
+import * as vscode from 'vscode';
+import { config } from '../extension';
+import { currentFile } from '../utils';
+import { DocumentContentProvider } from '../providers/DocumentContentProvider';
+import { ClassDefinition } from '../utils/classDefinition';
+
+export async function superclass(): Promise<void> {
+  if (!config('conn').active) {
+    return;
+  }
+  const file = currentFile();
+  if (!file || !file.name.toLowerCase().endsWith('.cls')) {
+    return;
+  }
+
+  const open = item => {
+    let uri = DocumentContentProvider.getUri(item + '.cls');
+    vscode.window.showTextDocument(uri);
+  };
+
+  const classDefinition = new ClassDefinition(file.name);
+  return classDefinition
+    .super()
+    .then(data => {
+      const list = data || [];
+      if (!list.length) {
+        return;
+      }
+      vscode.window.showQuickPick(list).then(item => {
+        open(item);
+      });
+    })
+    .catch(err => console.error(err));
+}

Diff for: extension.ts

@@ -8,6 +8,7 @@ import { importAndCompile } from './commands/compile';
 import { exportAll, exportExplorerItem } from './commands/export';
 import { xml2doc } from './commands/xml2doc';
 import { subclass } from './commands/subclass';
+import { superclass } from './commands/superclass';
 
 import { ObjectScriptClassSymbolProvider } from './providers/ObjectScriptClassSymbolProvider';
 import { ObjectScriptRoutineSymbolProvider } from './providers/ObjectScriptRoutineSymbolProvider';
@@ -131,6 +132,7 @@ export async function activate(context: vscode.ExtensionContext): Promise<void>
     vscode.commands.registerCommand('vscode-objectscript.export', exportAll),
     vscode.commands.registerCommand('vscode-objectscript.viewOthers', viewOthers),
     vscode.commands.registerCommand('vscode-objectscript.subclass', subclass),
+    vscode.commands.registerCommand('vscode-objectscript.superclass', superclass),
     vscode.commands.registerCommand('vscode-objectscript.touchBar.viewOthers', viewOthers),
     vscode.commands.registerCommand('vscode-objectscript.explorer.refresh', () => explorerProvider.refresh()),
     vscode.commands.registerCommand('vscode-objectscript.explorer.openClass', vscode.window.showTextDocument),

Diff for: package.json

@@ -86,6 +86,10 @@
           "command": "vscode-objectscript.subclass",
           "when": "vscode-objectscript.connectActive"
         },
+        {
+          "command": "vscode-objectscript.superclass",
+          "when": "vscode-objectscript.connectActive"
+        },
         {
           "command": "vscode-objectscript.previewXml",
           "when": "vscode-objectscript.connectActive"
@@ -285,7 +289,12 @@
       {
         "category": "ObjectScript",
         "command": "vscode-objectscript.subclass",
-        "title": "View subclasses"
+        "title": "Go to Subclass..."
+      },
+      {
+        "category": "ObjectScript",
+        "command": "vscode-objectscript.superclass",
+        "title": "Go to Super class..."
       },
       {
         "command": "vscode-objectscript.touchBar.compile",

Diff for: utils/classDefinition.ts

@@ -10,7 +10,7 @@ export class ClassDefinition {
   constructor(className: string) {
     if (className.endsWith('.cls')) {
       className = className.replace(/\.cls$/i, '');
-  }
+    }
     this._className = ClassDefinition.normalizeClassName(className, false);
     this._classFileName = ClassDefinition.normalizeClassName(className, true);
   }
@@ -33,6 +33,20 @@ export class ClassDefinition {
     return api.actionIndex([this._classFileName]).then(data => getMethods(data.result.content));
   }
 
+  async super(): Promise<string[]> {
+    const api = new AtelierAPI();
+    let sql = `SELECT PrimarySuper FROM %Dictionary.CompiledClass WHERE Name = ?`;
+    return api
+      .actionQuery(sql, [this._className])
+      .then(data =>
+        data.result.content.reduce(
+          (list: string[], el: { PrimarySuper: string }) =>
+            list.concat(el.PrimarySuper.split('~').filter(el => el.length)),
+          []
+        )
+      );
+  }
+
   async includeCode(): Promise<string[]> {
     const api = new AtelierAPI();
     let sql = `SELECT LIST(IncludeCode) List FROM %Dictionary.CompiledClass WHERE Name %INLIST (