`sig
type memory = Netsys_types.memory
val blit_memory_to_string :
Netsys_mem.memory -> int -> string -> int -> int -> unit
external blit_memory_to_string_unsafe :
Netsys_mem.memory -> int -> string -> int -> int -> unit
= "netsys_blit_memory_to_string" "noalloc"
val blit_string_to_memory :
string -> int -> Netsys_mem.memory -> int -> int -> unit
external blit_string_to_memory_unsafe :
string -> int -> Netsys_mem.memory -> int -> int -> unit
= "netsys_blit_string_to_memory" "noalloc"
val memory_of_string : string -> Netsys_mem.memory
val string_of_memory : Netsys_mem.memory -> string
val memory_address : Netsys_mem.memory -> nativeint
val memory_of_bigarray :
('a, 'b, 'c) Bigarray.Genarray.t -> Netsys_mem.memory
val memory_of_bigarray_1 :
('a, 'b, 'c) Bigarray.Array1.t -> Netsys_mem.memory
val memory_of_bigarray_2 :
('a, 'b, 'c) Bigarray.Array2.t -> Netsys_mem.memory
val memory_of_bigarray_3 :
('a, 'b, 'c) Bigarray.Array3.t -> Netsys_mem.memory
val getpagesize : unit -> int
val pagesize : int
val alloc_memory_pages :
?addr:nativeint -> ?exec:bool -> int -> Netsys_mem.memory
val alloc_aligned_memory : int -> int -> Netsys_mem.memory
val memory_map_file :
Unix.file_descr ->
?pos:int64 -> ?addr:nativeint -> bool -> int -> Netsys_mem.memory
val memory_unmap_file : Netsys_mem.memory -> unit
val zero_pages : Netsys_mem.memory -> int -> int -> unit
val grab : nativeint -> int -> Netsys_mem.memory
val as_value : Netsys_mem.memory -> int -> 'a
val as_obj : Netsys_mem.memory -> int -> Obj.t
val value_area : Netsys_mem.memory -> unit
val obj_address : Obj.t -> nativeint
val hdr_address : Obj.t -> nativeint
val cmp_string : string -> string -> int
exception Out_of_space
val init_header : Netsys_mem.memory -> int -> int -> int -> unit
val init_string : Netsys_mem.memory -> int -> int -> int * int
val init_string_bytelen : int -> int
val init_array : Netsys_mem.memory -> int -> int -> int * int
val init_float_array : Netsys_mem.memory -> int -> int -> int * int
val init_array_bytelen : int -> int
val init_float_array_bytelen : int -> int
type custom_ops = nativeint
type init_value_flag =
Copy_bigarray
| Copy_custom_int
| Copy_atom
| Copy_simulate
| Copy_conditionally
| Keep_atom
val init_value :
?targetaddr:nativeint ->
?target_custom_ops:(string * Netsys_mem.custom_ops) list ->
?cc:(nativeint * nativeint) list ->
Netsys_mem.memory ->
int -> 'a -> Netsys_mem.init_value_flag list -> int * int
val get_custom_ops : 'a -> string * Netsys_mem.custom_ops
val copy_value : Netsys_mem.init_value_flag list -> 'a -> 'a
type color = White | Gray | Blue | Black
val color : Obj.t -> Netsys_mem.color
val set_color : Obj.t -> Netsys_mem.color -> unit
val is_bigarray : Obj.t -> bool
val mem_read : Unix.file_descr -> Netsys_mem.memory -> int -> int -> int
val mem_write : Unix.file_descr -> Netsys_mem.memory -> int -> int -> int
val mem_recv :
Unix.file_descr ->
Netsys_mem.memory -> int -> int -> Unix.msg_flag list -> int
val mem_send :
Unix.file_descr ->
Netsys_mem.memory -> int -> int -> Unix.msg_flag list -> int
type memory_pool
val create_pool : int -> Netsys_mem.memory_pool
val pool_alloc_memory : Netsys_mem.memory_pool -> Netsys_mem.memory
val pool_alloc_memory2 :
Netsys_mem.memory_pool -> Netsys_mem.memory * (unit -> unit)
val pool_reclaim : Netsys_mem.memory_pool -> unit
val pool_block_size : Netsys_mem.memory_pool -> int
val default_block_size : int
val default_pool : Netsys_mem.memory_pool
val small_block_size : int
val small_pool : Netsys_mem.memory_pool
val pool_report : Netsys_mem.memory_pool -> string
end`