feat: add settings.compiler.flags

integ/spec/common.ts

@@ -69,6 +69,9 @@ export async function initState(): Promise<CommonState> {
     const lfortranPathSetting: Setting =
       await settingsEditor.findSettingByID("LFortranLanguageServer.compiler.lfortranPath");
     await lfortranPathSetting.setValue("./lfortran/src/bin/lfortran");
+    const compilerFlagsSetting: Setting =
+      await settingsEditor.findSettingByID("LFortranLanguageServer.compiler.flags");
+    await compilerFlagsSetting.setValue("");
     const fontFamily: Setting =
       await settingsEditor.findSettingByID("editor.fontFamily");
     await fontFamily.setValue('consolas, "DejaVu Sans Mono", monospace');

package.json

@@ -63,6 +63,12 @@
           "default": "lfortran",
           "description": "The path to the LFortran compiler executable."
         },
+        "LFortranLanguageServer.compiler.flags": {
+          "scope": "resource",
+          "type": "string",
+          "default": "",
+          "description": "Additional flags to pass to the LFortran compiler ( space separated )."
+        },
         "LFortranLanguageServer.log.level": {
           "scope": "resource",
           "type": "string",

server/src/lfortran-accessors.ts

@@ -282,6 +282,9 @@ export class LFortranCLIAccessor implements LFortranAccessor {
     const start: number = performance.now();
 
     const flags = ["--show-document-symbols", "--continue-compilation"];
+    if (settings.compiler.flags !== "") {
+      flags.push(settings.compiler.flags);
+    }
     const stdout = await this.runCompiler(settings, flags, text, "[]");
 
     let symbols: SymbolInformation[];
@@ -340,6 +343,9 @@ export class LFortranCLIAccessor implements LFortranAccessor {
         "--column=" + (column + 1),
         "--continue-compilation"
       ];
+      if (settings.compiler.flags !== "") {
+        flags.push(settings.compiler.flags);
+      }
       const stdout = await this.runCompiler(settings, flags, text, "[]");
       const results = JSON.parse(stdout);
       for (let i = 0, k = results.length; i < k; i++) {
@@ -395,6 +401,9 @@ export class LFortranCLIAccessor implements LFortranAccessor {
     let stdout: string | null = null;
     try {
       const flags = ["--show-errors", "--continue-compilation"];
+      if (settings.compiler.flags !== "") {
+        flags.push(settings.compiler.flags);
+      }
       stdout =
         await this.runCompiler(settings, flags, text, "[]", true);
       if (stdout.length > 0) {
@@ -470,6 +479,9 @@ export class LFortranCLIAccessor implements LFortranAccessor {
         "--column=" + (column + 1),
         "--continue-compilation"
       ];
+      if (settings.compiler.flags !== "") {
+        flags.push(settings.compiler.flags);
+      }
       const stdout = await this.runCompiler(settings, flags, text, "[]");
       const obj = JSON.parse(stdout);
       for (let i = 0, k = obj.length; i < k; i++) {

server/src/lfortran-types.ts

@@ -5,6 +5,7 @@ export interface LFortranSettings {
   maxNumberOfProblems: number;
   compiler: {
     lfortranPath: string;
+    flags: string;
   };
   log: {
     level: string;