Update.

dboris · Nov 5, 2024 · af17a9f · af17a9f
1 parent 28f577d
commit af17a9f
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 6 deletions.
diff --git a/camlkit-bindings-generator.opam b/camlkit-bindings-generator.opam
@@ -16,7 +16,7 @@ depends: [
   "dune" {>= "3.13"}
   "ctypes"
   "ctypes-foreign"
-  "camlkit-base" {>= "0.2.0"}
+  "camlkit-base" {>= "0.3.0"}
   "markup"
   "lambdasoup"
   "menhir"

diff --git a/dune-project b/dune-project
@@ -23,7 +23,7 @@
   dune
   ctypes
   ctypes-foreign
-  (camlkit-base (>= "0.2.0"))
+  (camlkit-base (>= "0.3.0"))
   markup
   lambdasoup
   menhir

diff --git a/generate/main.ml b/generate/main.ml
@@ -63,7 +63,6 @@ let () =
   else if not (String.equal method_def_cls "") then
     emit_class_method_def method_def_cls ~open_modules ~meta:method_def_meta
   else if proto then
-    (* emit_protocols ~open_modules *)
-    failwith "Disabled until next release of camlkit"
+    emit_protocols ~open_modules
   else
     print_endline usage
diff --git a/lib/lib.ml b/lib/lib.ml
@@ -275,7 +275,7 @@ let emit_class_method_def class_name ~open_modules ~meta =
   close_out file
 ;;
 
-(* let emit_protocols ~open_modules =
+let emit_protocols ~open_modules =
   Inspect.registered_protocols ()
   |> List.filter_map (fun p ->
     let pname = Protocol.get_name p in
@@ -306,4 +306,4 @@ let emit_class_method_def class_name ~open_modules ~meta =
               Printf.fprintf file
                 "let %s imp = Define.method_spec ~cmd:(selector \"%s\") ~typ:(%s) ~enc:\"%s\" imp\n"
                 (valid_name name) cmd (Encode.string_of_objc_type typ) enc));
-        close_out file *)
+        close_out file