|
24 | 24 | (#.(lispify "TCP_CA_Recovery" 'enumvalue :keyword) #.3) |
25 | 25 | (#.(lispify "TCP_CA_Loss" 'enumvalue :keyword) #.4)) |
26 | 26 |
|
| 27 | +(cffi:defcenum #.(lispify "uv_loop_option" 'enumname) |
| 28 | + #.(lispify "UV_LOOP_BLOCK_SIGNAL" 'enumvalue :keyword)) |
| 29 | + |
27 | 30 | (cffi:defcenum #.(lispify "uv_run_mode" 'enumname) |
28 | 31 | (#.(lispify "UV_RUN_DEFAULT" 'enumvalue :keyword) #.0) |
29 | 32 | #.(lispify "UV_RUN_ONCE" 'enumvalue :keyword) |
|
51 | 54 | (cffi:defcfun ("uv_loop_alive" #.(lispify "uv_loop_alive" 'function)) :int |
52 | 55 | (loop :pointer)) |
53 | 56 |
|
| 57 | +(cffi:defcfun ("uv_loop_configure" #.(lispify "uv_loop_configure" 'function)) :int |
| 58 | + (loop :pointer) |
| 59 | + (option #.(lispify "uv_loop_option" 'enumname)) |
| 60 | + &rest) |
| 61 | + |
54 | 62 | (cffi:defcfun ("uv_run" #.(lispify "uv_run" 'function)) :int |
55 | 63 | (arg0 :pointer) |
56 | 64 | (mode #.(lispify "uv_run_mode" 'enumname))) |
|
282 | 290 | (cffi:defcfun ("uv_udp_recv_stop" #.(lispify "uv_udp_recv_stop" 'function)) :int |
283 | 291 | (handle :pointer)) |
284 | 292 |
|
| 293 | +(cffi:defcenum #.(lispify "uv_tty_mode_t" 'enumname) |
| 294 | + #.(lispify "UV_TTY_MODE_NORMAL" 'enumvalue :keyword) |
| 295 | + #.(lispify "UV_TTY_MODE_RAW" 'enumvalue :keyword) |
| 296 | + #.(lispify "UV_TTY_MODE_IO" 'enumvalue :keyword)) |
| 297 | + |
285 | 298 | (cffi:defcfun ("uv_tty_init" #.(lispify "uv_tty_init" 'function)) :int |
286 | 299 | (arg0 :pointer) |
287 | 300 | (arg1 :pointer) |
|
290 | 303 |
|
291 | 304 | (cffi:defcfun ("uv_tty_set_mode" #.(lispify "uv_tty_set_mode" 'function)) :int |
292 | 305 | (arg0 :pointer) |
293 | | - (mode :int)) |
| 306 | + (mode #.(lispify "uv_tty_mode_t" 'enumname))) |
294 | 307 |
|
295 | 308 | (cffi:defcfun ("uv_tty_reset_mode" #.(lispify "uv_tty_reset_mode" 'function)) :int) |
296 | 309 |
|
|
323 | 336 |
|
324 | 337 | (cffi:defcfun ("uv_pipe_getsockname" #.(lispify "uv_pipe_getsockname" 'function)) :int |
325 | 338 | (handle :pointer) |
326 | | - (buf :string) |
327 | | - (len :pointer)) |
| 339 | + (buffer :string) |
| 340 | + (size :pointer)) |
| 341 | + |
| 342 | +(cffi:defcfun ("uv_pipe_getpeername" #.(lispify "uv_pipe_getpeername" 'function)) :int |
| 343 | + (handle :pointer) |
| 344 | + (buffer :string) |
| 345 | + (size :pointer)) |
328 | 346 |
|
329 | 347 | (cffi:defcfun ("uv_pipe_pending_instances" #.(lispify "uv_pipe_pending_instances" 'function)) :void |
330 | 348 | (handle :pointer) |
|
786 | 804 |
|
787 | 805 | (cffi:defcfun ("uv_fs_poll_getpath" #.(lispify "uv_fs_poll_getpath" 'function)) :int |
788 | 806 | (handle :pointer) |
789 | | - (buf :string) |
790 | | - (len :pointer)) |
| 807 | + (buffer :string) |
| 808 | + (size :pointer)) |
791 | 809 |
|
792 | 810 | (cffi:defcstruct #.(lispify "uv_signal_s_tree_entry_s" 'classname) |
793 | 811 | (#.(lispify "rbe_left" 'slotname) :pointer) |
|
825 | 843 |
|
826 | 844 | (cffi:defcfun ("uv_fs_event_getpath" #.(lispify "uv_fs_event_getpath" 'function)) :int |
827 | 845 | (handle :pointer) |
828 | | - (buf :string) |
829 | | - (len :pointer)) |
| 846 | + (buffer :string) |
| 847 | + (size :pointer)) |
830 | 848 |
|
831 | 849 | (cffi:defcfun ("uv_ip4_addr" #.(lispify "uv_ip4_addr" 'function)) :int |
832 | 850 | (ip :string) |
|
0 commit comments