base editor mode config option

Author: zth

compiler/bsc/rescript_compiler_main.ml

@@ -392,6 +392,12 @@ let buckle_script_flags : (string * Bsc_args.spec * string) array =
        print the transformed ReScript code to stdout" );
     ("-format", string_call format_file, "*internal* Format as Res syntax");
     ("-only-parse", set Clflags.only_parse, "*internal* stop after parsing");
+    ( "-editor-mode",
+      unit_call (fun () ->
+          Clflags.editor_mode := true;
+          Clflags.ignore_parse_errors := true;
+          Js_config.cmi_only := true),
+      "*internal* Enable editor mode." );
     ( "-ignore-parse-errors",
       set Clflags.ignore_parse_errors,
       "*internal* continue after parse errors" );

compiler/ml/clflags.ml

@@ -40,6 +40,8 @@ and dump_lambda = ref false (* -dlambda *)
 
 and only_parse = ref false (* -only-parse *)
 
+and editor_mode = ref false (* -editor-mode *)
+
 and ignore_parse_errors = ref false (* -ignore-parse-errors *)
 
 let dont_write_files = ref false (* set to true under ocamldoc *)

compiler/ml/clflags.mli

@@ -25,6 +25,7 @@ val dont_write_files : bool ref
 val keep_locs : bool ref
 val only_parse : bool ref
 val ignore_parse_errors : bool ref
+val editor_mode : bool ref
 
 val parse_color_setting : string -> Misc.Color.setting option
 val color : Misc.Color.setting option ref