fix: only generate services from the current file

Author: c-cube

src/compilerlib/pb_codegen_all.ml

@@ -128,7 +128,8 @@ let generate_mutable_records (self : ocaml_mod) ocaml_types : unit =
       | _ -> ())
     ocaml_types
 
-let generate_service_struct service sc : unit =
+let generate_service_struct (service : Ot.service) sc : unit =
+  Pb_logger.log "Generating code for service %s\n" service.service_name;
   Pb_codegen_services.gen_service_struct service sc
 
 let generate_service_sig service sc : unit =

src/ocaml-protoc/ocaml_protoc_compilation.ml

@@ -94,13 +94,16 @@ let compile cmdline cmd_line_files_options : Ot.proto * _ =
      (compilation unit) *)
   let typed_proto =
     {
-      typed_proto with
       Tt.proto_types =
         List.filter
           (function
             | { Tt.file_name; _ } :: _ when file_name = proto_file_name -> true
             | _ -> false)
           typed_proto.proto_types;
+      proto_services =
+        List.filter
+          (fun s -> s.Tt.service_file_name = proto_file_name)
+          typed_proto.proto_services;
     }
   in