Files
ocaml-luv/ocaml-luv.patch
Olaf Hering 05cad6e080 This is needed for the new haxe version, I could not find other packages that depend on it.
- Update to version 0.5.13
  * Breaking
    + Luv.Resource.free_memory and Luv.Resource.total_memory now return
      options, in accordance with a clarification in libuv (#153).
    + Filename in callback of Luv.FS_event.start can be None, in accordance
      with a clarification in libuv (#155).
    + Rename fields of Luv.Time.timeval (dbd4e43).
  * Additions
    + Upgrade libuv to 1.48.0, including 1.47.0, 1.46.0, 1.45.0 and io_uring
      support (#153, #154, #155, #158).
    + Expose uv_cpumask_size as Luv.System_info.cpumask_size,
      uv_thread_setaffinity as Luv.Thread.setaffinity, uv_thread_getaffinity as
      Luv.Thread.getaffinity (#153).
    + Expose UV_ENODATA as  `ENODATA (#153).
    + Expose uv_metrics_info as Luv.Metrics.info (#153).
    + Expose uv_thread_getcpu as Luv.Thread.getcpu (#153).
    + Expose uv_get_available_memory as Luv.Resource.available_memory (#153).
    + Expose uv_os_get_passwd2 as ?uid parameter of Luv.Passwd.get_passwd (#153).
    + Expose uv_os_get_group as Luv.Passwd.get_group (#153).
    + Expose uv_clock_gettime as Luv.Time.clock_gettime (#153).
    + Expose uv_pipe_bind2 and uv_pipe_connect2 as ?no_truncate parameters of
      Luv.Pipe.bind and Luv.Pipe.connect (#154).
    + Expose EUNATCH as  `EUNATCH (#154).
    + Expose UTF-16/WTF-8 conversion functions in new module Luv.String (#155).
    + Expose uv_thread_setpriority as Luv.Thread.setpriority and
      uv_thread_getpriority as Luv.Thread.getpriority (#158).
    + Expose UV_PROCESS_WINDOWS_FILE_PATH_EXACT_NAME as
      ?windows_file_path_exact_name parameter of Luv.Process.spawn (#158).
- Refresh ocaml-luv.patch

OBS-URL: https://build.opensuse.org/package/show/devel:languages:ocaml/ocaml-luv?expand=0&rev=34
2025-05-15 06:50:05 +00:00

99 lines
3.5 KiB
Diff

Index: ocaml-luv-0.5.13/src/c/dune
===================================================================
--- ocaml-luv-0.5.13.orig/src/c/dune
+++ ocaml-luv-0.5.13/src/c/dune
@@ -139,6 +139,7 @@ let () = Jbuild_plugin.V1.send @@ {|
|}^ i_option ^{| /Fe\"%{targets}\"; \
else \
%{cc} %{c} \
+ -I '%{lib:integers:.}' \
-I '%{lib:ctypes:.}' \
-I %{ocaml_where} \
|}^ i_option ^{| -o %{targets}; \
Index: ocaml-luv-0.5.13/src/c/helpers.c
===================================================================
--- ocaml-luv-0.5.13.orig/src/c/helpers.c
+++ ocaml-luv-0.5.13/src/c/helpers.c
@@ -181,7 +181,8 @@ static void luv_getaddrinfo_trampoline(
}
static void luv_getnameinfo_trampoline(
- uv_getnameinfo_t *c_request, int status, char *hostname, char *service)
+ uv_getnameinfo_t *c_request, int status, const char *hostname,
+ const char *service)
{
caml_acquire_runtime_system();
value callback;
@@ -413,7 +414,7 @@ uv_getaddrinfo_cb luv_get_getaddrinfo_tr
return luv_getaddrinfo_trampoline;
}
-luv_getnameinfo_cb luv_get_getnameinfo_trampoline(void)
+uv_getnameinfo_cb luv_get_getnameinfo_trampoline(void)
{
return luv_getnameinfo_trampoline;
}
@@ -619,15 +620,6 @@ int luv_fs_poll_start(
return uv_fs_poll_start(handle, (uv_fs_poll_cb)poll_cb, path, interval);
}
-int luv_getnameinfo(
- uv_loop_t *loop, uv_getnameinfo_t *req, luv_getnameinfo_cb getnameinfo_cb,
- const struct sockaddr *addr, int flags)
-{
- return
- uv_getnameinfo(
- loop, req, (uv_getnameinfo_cb)getnameinfo_cb, addr, flags);
-}
-
int luv_read_start(
uv_stream_t *stream, uv_alloc_cb alloc_cb, luv_read_cb read_cb)
{
Index: ocaml-luv-0.5.13/src/c/helpers.h
===================================================================
--- ocaml-luv-0.5.13.orig/src/c/helpers.h
+++ ocaml-luv-0.5.13/src/c/helpers.h
@@ -55,9 +55,6 @@ typedef void (*luv_fs_event_cb)(
typedef void (*luv_fs_poll_cb)(
uv_fs_poll_t *handle, int status, uv_stat_t *prev, uv_stat_t *curr);
-typedef void (*luv_getnameinfo_cb)(
- uv_getnameinfo_t *req, int status, char *hostname, char *service);
-
typedef void (*luv_read_cb)(uv_stream_t *stream, ssize_t nread, uv_buf_t *buf);
typedef void (*luv_udp_recv_cb)(
@@ -78,7 +75,7 @@ uv_fs_cb luv_null_fs_callback_pointer(vo
luv_fs_event_cb luv_get_fs_event_trampoline(void);
luv_fs_poll_cb luv_get_fs_poll_trampoline(void);
uv_getaddrinfo_cb luv_get_getaddrinfo_trampoline(void);
-luv_getnameinfo_cb luv_get_getnameinfo_trampoline(void);
+uv_getnameinfo_cb luv_get_getnameinfo_trampoline(void);
uv_idle_cb luv_get_idle_trampoline(void);
luv_once_cb luv_get_once_trampoline(void);
uv_poll_cb luv_get_poll_trampoline(void);
@@ -173,10 +170,6 @@ int luv_fs_poll_start(
uv_fs_poll_t *handle, luv_fs_poll_cb poll_cb, const char *path,
unsigned int interval);
-int luv_getnameinfo(
- uv_loop_t *loop, uv_getnameinfo_t *req, luv_getnameinfo_cb getnameinfo_cb,
- const struct sockaddr *addr, int flags);
-
int luv_read_start(
uv_stream_t *stream, uv_alloc_cb alloc_cb, luv_read_cb read_cb);
Index: ocaml-luv-0.5.13/src/c/luv_c_function_descriptions.ml
===================================================================
--- ocaml-luv-0.5.13.orig/src/c/luv_c_function_descriptions.ml
+++ ocaml-luv-0.5.13/src/c/luv_c_function_descriptions.ml
@@ -1353,7 +1353,7 @@ struct
(void @-> returning trampoline)
let getnameinfo =
- foreign "luv_getnameinfo"
+ foreign "uv_getnameinfo"
(ptr Loop.t @->
ptr t @->
trampoline @->