Merge pull request #4829 from rescript-lang/easy_debug_script

make debugging easier: e.g, ../script/dbg stdlib-405/char.ml

Author: bobzhang

jscomp/common/js_config.ml

@@ -38,8 +38,11 @@ let cross_module_inline = ref false
 
 
 let diagnose = ref false
-let get_diagnose () = !diagnose
-(* let set_diagnose b = diagnose := b *)
+let get_diagnose () = 
+    !diagnose
+#if undefined BS_RELEASE_BUILD then
+  || Sys.getenv_opt "RES_DEBUG_FILE" <> None
+#end
 
 (* let (//) = Filename.concat *)
 

lib/4.06.1/unstable/bspack.ml

@@ -11999,8 +11999,9 @@ let cross_module_inline = ref false
 
 
 let diagnose = ref false
-let get_diagnose () = !diagnose
-(* let set_diagnose b = diagnose := b *)
+let get_diagnose () = 
+    !diagnose
+
 
 (* let (//) = Filename.concat *)
 

lib/4.06.1/unstable/js_compiler.ml

@@ -17701,8 +17701,9 @@ let cross_module_inline = ref false
 
 
 let diagnose = ref false
-let get_diagnose () = !diagnose
-(* let set_diagnose b = diagnose := b *)
+let get_diagnose () = 
+    !diagnose
+
 
 (* let (//) = Filename.concat *)
 

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -17701,8 +17701,9 @@ let cross_module_inline = ref false
 
 
 let diagnose = ref false
-let get_diagnose () = !diagnose
-(* let set_diagnose b = diagnose := b *)
+let get_diagnose () = 
+    !diagnose
+
 
 (* let (//) = Filename.concat *)
 

lib/4.06.1/whole_compiler.ml

@@ -294356,8 +294356,9 @@ let cross_module_inline = ref false
 
 
 let diagnose = ref false
-let get_diagnose () = !diagnose
-(* let set_diagnose b = diagnose := b *)
+let get_diagnose () = 
+    !diagnose
+
 
 (* let (//) = Filename.concat *)
 

scripts/dbg

@@ -6,7 +6,7 @@ var file = process.argv[2];
 console.log(file);
 var fmt = path.parse(file);
 
-process.env.BS_DEBUG_FILE = file;
+process.env.RES_DEBUG_FILE = 1;
 var ninja = path.join(__dirname, "..", process.platform, "ninja.exe");
 cp.execSync(`touch ${file} && ${ninja} ${fmt.dir}/${fmt.name}.cmj`, {
   stdio: [0, 1, 2]