Renamed remaining files

Author: vouillon

compiler/bin-wasm_of_ocaml/compile.ml

@@ -160,10 +160,10 @@ let generate_prelude ~out_file =
   let Driver.{ program; variable_uses; in_cps; deadcode_sentinal; _ } =
     Driver.optimize ~profile code
   in
-  let context = Wa_generate.start () in
+  let context = Generate.start () in
   let debug = Parse_bytecode.Debug.create ~include_cmis:false false in
   let _ =
-    Wa_generate.f
+    Generate.f
       ~context
       ~unit_name:(Some "prelude")
       ~live_vars:variable_uses
@@ -172,7 +172,7 @@ let generate_prelude ~out_file =
       ~debug
       program
   in
-  Wa_generate.output ch ~context;
+  Generate.output ch ~context;
   uinfo.provides
 
 let build_prelude z =
@@ -266,7 +266,7 @@ let run
     } =
   Config.set_target `Wasm;
   Jsoo_cmdline.Arg.eval common;
-  Wa_generate.init ();
+  Generate.init ();
   let output_file = fst output_file in
   if debug_mem () then Debug.start_profiling output_file;
   List.iter params ~f:(fun (s, v) -> Config.Param.set s v);
@@ -322,10 +322,10 @@ let run
     let Driver.{ program; variable_uses; in_cps; deadcode_sentinal; _ } =
       Driver.optimize ~profile code
     in
-    let context = Wa_generate.start () in
+    let context = Generate.start () in
     let debug = one.debug in
     let toplevel_name, generated_js =
-      Wa_generate.f
+      Generate.f
         ~context
         ~unit_name
         ~live_vars:variable_uses
@@ -334,8 +334,8 @@ let run
         ~debug
         program
     in
-    if standalone then Wa_generate.add_start_function ~context toplevel_name;
-    Wa_generate.output ch ~context;
+    if standalone then Generate.add_start_function ~context toplevel_name;
+    Generate.output ch ~context;
     if times () then Format.eprintf "compilation: %a@." Timer.print t;
     generated_js
   in

compiler/lib-wasm/curry.ml

@@ -21,7 +21,7 @@ open Code
 module W = Wasm_ast
 open Code_generation
 
-module Make (Target : Wa_target_sig.S) = struct
+module Make (Target : Target_sig.S) = struct
   open Target
 
   let func_type n =

compiler/lib-wasm/curry.mli

@@ -16,6 +16,6 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  *)
 
-module Make (_ : Wa_target_sig.S) : sig
+module Make (_ : Target_sig.S) : sig
   val f : context:Code_generation.context -> unit
 end

compiler/lib-wasm/wa_gc_target.ml renamed to compiler/lib-wasm/gc_target.ml

@@ -16,4 +16,4 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  *)
 
-include Wa_target_sig.S
+include Target_sig.S

compiler/lib-wasm/wa_gc_target.mli renamed to compiler/lib-wasm/gc_target.mli

@@ -21,7 +21,7 @@ open Code
 module W = Wasm_ast
 open Code_generation
 
-module Generate (Target : Wa_target_sig.S) = struct
+module Generate (Target : Target_sig.S) = struct
   open Target
 
   let transl_prim_arg x =
@@ -1214,27 +1214,27 @@ let fix_switch_branches p =
     p.blocks;
   !p'
 
-let start () = make_context ~value_type:Wa_gc_target.Value.value
+let start () = make_context ~value_type:Gc_target.Value.value
 
 let f ~context ~unit_name p ~live_vars ~in_cps ~deadcode_sentinal ~debug =
   let p = if Config.Flag.effects () then fix_switch_branches p else p in
-  let module G = Generate (Wa_gc_target) in
+  let module G = Generate (Gc_target) in
   G.f ~context ~unit_name ~live_vars ~in_cps ~deadcode_sentinal ~debug p
 
 let add_start_function =
-  let module G = Generate (Wa_gc_target) in
+  let module G = Generate (Gc_target) in
   G.add_start_function
 
 let add_init_function =
-  let module G = Generate (Wa_gc_target) in
+  let module G = Generate (Gc_target) in
   G.add_init_function
 
 let output ch ~context =
-  let module G = Generate (Wa_gc_target) in
+  let module G = Generate (Gc_target) in
   let fields = G.output ~context in
   Wat_output.f ch fields
 
 let wasm_output ch ~context =
-  let module G = Generate (Wa_gc_target) in
+  let module G = Generate (Gc_target) in
   let fields = G.output ~context in
   Wasm_output.f ch fields

compiler/lib-wasm/wa_generate.ml renamed to compiler/lib-wasm/generate.ml

@@ -387,9 +387,9 @@ let generate_start_function ~to_link ~out_file =
   let t1 = Timer.make () in
   Filename.gen_file out_file
   @@ fun ch ->
-  let context = Wa_generate.start () in
-  Wa_generate.add_init_function ~context ~to_link:("prelude" :: to_link);
-  Wa_generate.wasm_output ch ~context;
+  let context = Generate.start () in
+  Generate.add_init_function ~context ~to_link:("prelude" :: to_link);
+  Generate.wasm_output ch ~context;
   if times () then Format.eprintf "    generate start: %a@." Timer.print t1
 
 let output_js js =