[CN-Test-Gen] Synthesize code for bug replication

backend/cn/bin/main.ml

@@ -602,6 +602,7 @@ let run_tests
   coverage
   disable_passes
   trap
+  replicas
   =
   (* flags *)
   Cerb_debug.debug_level := debug_level;
@@ -652,7 +653,8 @@ let run_tests
           sized_null;
           coverage;
           disable_passes;
-          trap
+          trap;
+          replicas
         }
       in
       TestGeneration.set_config config;
@@ -1293,6 +1295,11 @@ module Testing_flags = struct
   let trap =
     let doc = "Raise SIGTRAP on test failure" in
     Arg.(value & flag & info [ "trap" ] ~doc)
+
+
+  let replicas =
+    let doc = "Attempt to synthesize C code to replicate bugs" in
+    Arg.(value & flag & info [ "replicas" ] ~doc)
 end
 
 module Seq_testing_flags = struct
@@ -1381,6 +1388,7 @@ let testing_cmd =
     $ Testing_flags.coverage
     $ Testing_flags.disable_passes
     $ Testing_flags.trap
+    $ Testing_flags.replicas
   in
   let doc =
     "Generates tests for all functions in [FILE] with CN specifications.\n\

backend/cn/lib/bugExplanation/bugExplanation.ml

@@ -0,0 +1,6 @@
+module CF = Cerb_frontend
+module A = CF.AilSyntax
+
+let synthesize_replicators = Replicators.synthesize
+
+let synthesize_shape_analyzers = ShapeAnalyzers.synthesize

backend/cn/lib/bugExplanation/bugExplanation.mli

@@ -0,0 +1,14 @@
+module CF = Cerb_frontend
+module A = CF.AilSyntax
+
+val synthesize_replicators
+  :  CF.GenTypes.genTypeCategory A.sigma ->
+  unit Mucore.file ->
+  Executable_spec_extract.instrumentation list ->
+  (A.sigma_declaration * CF.GenTypes.genTypeCategory A.sigma_function_definition) list
+
+val synthesize_shape_analyzers
+  :  CF.GenTypes.genTypeCategory A.sigma ->
+  unit Mucore.file ->
+  Executable_spec_extract.instrumentation list ->
+  (A.sigma_declaration * CF.GenTypes.genTypeCategory A.sigma_function_definition) list