make the new completion mode dependent on a setting

Author: zth

package.json

@@ -206,6 +206,11 @@
           ],
           "default": null,
           "description": "Path to the directory where platform-specific ReScript binaries are. You can use it if you haven't or don't want to use the installed ReScript from node_modules in your project."
+        },
+        "rescript.settings.newCompletion": {
+          "type": "boolean",
+          "default": false,
+          "description": "(experimental) Enable new completion engine"
         }
       }
     },

server/src/config.ts

@@ -11,6 +11,7 @@ export interface extensionConfiguration {
   codeLens?: boolean;
   binaryPath?: string | null;
   platformPath?: string | null;
+  newCompletion?: boolean;
   signatureHelp?: {
     enabled?: boolean;
     forConstructorPayloads?: boolean;
@@ -39,6 +40,7 @@ let config: { extensionConfiguration: extensionConfiguration } = {
     codeLens: false,
     binaryPath: null,
     platformPath: null,
+    newCompletion: false,
     signatureHelp: {
       enabled: true,
       forConstructorPayloads: true,

server/src/server.ts

@@ -680,11 +680,15 @@ async function completion(msg: p.RequestMessage) {
   let code = getOpenedFileContent(params.textDocument.uri);
   let tmpname = utils.createFileInTempDir();
   fs.writeFileSync(tmpname, code, { encoding: "utf-8" });
-  await new Promise<void>((resolve) => {
-    ic.triggerIncrementalCompilationOfFile(filePath, code, send, () => {
-      resolve();
+
+  if (config.extensionConfiguration.newCompletion) {
+    await new Promise<void>((resolve) => {
+      ic.triggerIncrementalCompilationOfFile(filePath, code, send, () => {
+        resolve();
+      });
     });
-  });
+  }
+
   let response = utils.runAnalysisCommand(
     filePath,
     [

server/src/utils.ts

@@ -229,6 +229,10 @@ export let runAnalysisAfterSanityCheck = (
         config.extensionConfiguration.cache?.projectConfig?.enable === true
           ? "true"
           : undefined,
+      RESCRIPT_NEW_ANALYSIS_ENGINE:
+        config.extensionConfiguration.newCompletion === true
+          ? "true"
+          : undefined,
     },
   };