Feature/surround with monitor action

client/src/editor.ts

@@ -0,0 +1,66 @@
+import { ExtensionContext, Range, SnippetString, TextDocument, commands, window } from "vscode";
+
+export function initialise(context: ExtensionContext) {
+	context.subscriptions.push(
+		commands.registerCommand("vscode-rpgle.surroundWithMonitor", () => surroundWithSnippet(lines => [
+			"",
+			"monitor;",
+			...lines,
+			"on-excp '$1';",
+			"on-error$2;",
+			"endmon;",
+			""
+		]))
+	);
+}
+
+function surroundWithSnippet(snippetProvider: (lines: string[]) => string[]) {
+	const editor = window.activeTextEditor;
+	if (editor) {
+		const document = editor.document;
+		let line = editor.selection.start.line;
+		if (isFreeRPGLE(document, line)) {
+			// First let's find out if this line starts elsewhere
+			while ((line - 1) >= 0 && !document.lineAt(line).text.trim().endsWith(`;`) && line-- > 0);
+			const startLine = line;
+
+			// Now get all the relevant lines
+			const lines: string[] = [];
+			let initialIdentation = document.lineAt(line).firstNonWhitespaceCharacterIndex;
+			while (line < document.lineCount) {
+				const currentLine = document.lineAt(line++);
+				const text = currentLine.text;
+				//Keep identation
+				const indent = currentLine.firstNonWhitespaceCharacterIndex - initialIdentation;
+				lines.push(`${"".padEnd(2 + (indent > 0 ? indent : 0))}${text.trim()}`);
+				const maybeComment = text.lastIndexOf("//");
+				if (line > editor.selection.end.line && (maybeComment > -1 ? text.substring(maybeComment + 1) : text).endsWith(';')) {
+					break;
+				}
+			}
+
+			editor.insertSnippet(new SnippetString(snippetProvider(lines).join("\n")),
+				new Range(startLine, document.lineAt(startLine).firstNonWhitespaceCharacterIndex, line - 1, 9999));
+		}
+		else {
+			window.showWarningMessage("Selection is not valid Free RPGLE code");
+		}
+	}
+}
+
+function isFreeRPGLE(document: TextDocument, currentLine: number) {
+	if (document.lineAt(0).text.substring(0, 6).toLowerCase() === `**free`) {
+		return true;
+	}
+	else {
+		for (let i = currentLine; i < document.lineCount; i++) {
+			const line = document.lineAt(i).text;
+			if (line.length > 10 && line.substring(6, 11).toLowerCase() === '/free') {
+				return false;
+			}
+			else if (line.length > 14 && line.substring(6, 15).toLowerCase() === '/end-free') {
+				return true;
+			}
+		}
+	}
+}

client/src/extension.ts

@@ -4,10 +4,10 @@
  * ------------------------------------------------------------------------------------------ */
 
 import * as path from 'path';
-import { workspace, ExtensionContext, Uri, commands, RelativePattern } from 'vscode';
+import { ExtensionContext, workspace } from 'vscode';
 
-import * as Linter from "./linter";
 import * as columnAssist from "./columnAssist";
+import * as Linter from "./linter";
 
 
 import {
@@ -18,6 +18,7 @@ import {
 } from 'vscode-languageclient/node';
 
 import { projectFilesGlob } from './configuration';
+import { initialise as initialiseEditorCommands } from './editor';
 import buildRequestHandlers from './requests';
 
 let client: LanguageClient;
@@ -74,7 +75,7 @@ export function activate(context: ExtensionContext) {
 
 	Linter.initialise(context);
 	columnAssist.registerColumnAssist(context);
-
+	initialiseEditorCommands(context);
 	// context.subscriptions.push(...initBuilder(client));
 
 	console.log(`started`);

package.json

@@ -17,7 +17,11 @@
 		"vscode": "^1.70.0"
 	},
 	"keywords": [
-		"rpg", "rpgle", "ibmi", "iseries", "as400"
+		"rpg",
+		"rpgle",
+		"ibmi",
+		"iseries",
+		"as400"
 	],
 	"categories": [
 		"Programming Languages",
@@ -58,15 +62,44 @@
 				"command": "vscode-rpgle.openLintConfig",
 				"title": "Open RPGLE lint configuration",
 				"category": "RPGLE"
+			},
+			{
+				"command": "vscode-rpgle.surroundWithMonitor",
+				"title": "Surround with monitor",
+				"category": "RPGLE"
+			}
+		],
+		"submenus": [
+			{
+				"id": "vscode-rpgle.editor.menu",
+				"label": "RPGLE"
 			}
 		],
 		"menus": {
+			"vscode-rpgle.editor.menu": [
+				{
+					"command": "vscode-rpgle.surroundWithMonitor"
+				}
+			],
+			"commandPalette": [
+				{
+					"command": "vscode-rpgle.surroundWithMonitor",
+					"when": "editorLangId === rpgle"
+				}
+			],
 			"view/item/context": [
 				{
 					"command": "vscode-rpgle.openLintConfig",
 					"when": "view == objectBrowser && viewItem == filter",
 					"group": "1_LibActions@2"
 				}
+			],
+			"editor/context": [
+				{
+					"submenu": "vscode-rpgle.editor.menu",
+					"when": "editorLangId === rpgle",
+					"group": "01_rpgleActions@01"
+				}
 			]
 		}
 	},
@@ -103,4 +136,4 @@
 		"webpack": "^5.24.3",
 		"webpack-cli": "^4.5.0"
 	}
-}
+}