Module Make.BA_
Contents
Instructions: Use this module in your project
In the IDE (CLion, Visual Studio Code, Xcode, etc.) you use for your DkSDK project:
Add the following to your project's
dependencies/CMakeLists.txt
:DkSDKProject_DeclareAvailable(capnp CONSTRAINT "= 3.5.0" FINDLIBS capnp capnp.unix) DkSDKProject_MakeAvailable(capnp)
Add the
Findlib::capnp
library to any desired targets insrc/*/CMakeLists.txt
:target_link_libraries(YourPackage_YourLibraryName # ... existing libraries, if any ... Findlib::capnp)
Click your IDE's
Build
button
Not using DkSDK?
FIRST, do one or all of the following:
Run:
opam install capnp.3.5.0
Edit your
dune-project
and add:(package (name YourExistingPackage) (depends ; ... existing dependenices ... (capnp (>= 3.5.0))))
Then run:
dune build *.opam # if this fails, run: dune build
Edit your
<package>.opam
file and add:depends: [ # ... existing dependencies ... "capnp" {>= "3.5.0"} ]
Then run:
opam install . --deps-only
FINALLY, add the capnp
library to any desired (library)
and/or (executable)
targets in your **/dune
files:
(library
(name YourLibrary)
; ... existing library options ...
(libraries
; ... existing libraries ...
capnp))
(executable
(name YourExecutable)
; ... existing executable options ...
(libraries
; ... existing libraries ...
capnp))
module
NM`` =
NM
module
DM`` =
Message.BytesMessage
module
NC
:
sig
...
end
module
DefaultsCopier
:
sig
...
end
module
BOps
:
sig
...
end
val
uint8_list_of_string : ``null_terminated:bool
->
``dest_message:
rw
NM.Message.t
->
``string
->
rw
NM.ListStorage.t
val
void_list_codecs : ``unit
NC.ListCodecs.t
val
bit_list_codecs : ``bool
NC.ListCodecs.t
val
int8_list_codecs : ``int
NC.ListCodecs.t
val
int16_list_codecs : ``int
NC.ListCodecs.t
val
int32_list_codecs :
Stdlib.Int32.t
NC.ListCodecs.t
val
int64_list_codecs :
Stdlib.Int64.t
NC.ListCodecs.t
val
uint8_list_codecs : ``int
NC.ListCodecs.t
val
uint16_list_codecs : ``int
NC.ListCodecs.t
val
uint32_list_codecs :
Stdint.Uint32.t
NC.ListCodecs.t
val
uint64_list_codecs :
Stdint.Uint64.t
NC.ListCodecs.t
val
float32_list_codecs : ``float
NC.ListCodecs.t
val
float64_list_codecs : ``float
NC.ListCodecs.t
val
text_list_codecs : ``string
NC.ListCodecs.t
val
blob_list_codecs : ``string
NC.ListCodecs.t
val
struct_list_codecs : ``(
Message.rw
,
'a
)``
NC.StructStorage.t
NC.ListCodecs.t
module
Discr
:
sig
...
end
val
set_opt_discriminant :
rw
NM.Slice.t
->
Discr.t
option``
->
unit
val
get_data_region : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
rw
NM.Slice.t
val
get_bit : ``default:bool
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``byte_ofs:int
->
``bit_ofs:int
->
bool
val
get_int8 : ``default:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
int
val
get_int16 : ``default:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
int
val
get_int32 : ``default:int32
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
int32
val
get_int64 : ``default:int64
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
int64
val
get_uint8 : ``default:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
int
val
get_uint16 : ``default:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
int
val
get_uint32 : ``default:
Uint32.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
Uint32.t
val
get_uint64 : ``default:
Uint64.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
Uint64.t
val
get_float32 : ``default_bits:int32
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
float
val
get_float64 : ``default_bits:int64
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
float
val
set_void : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
unit
val
set_bit : ``?discr:
Discr.t
->
``default:bool
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``byte_ofs:int
->
``bit_ofs:int
->
``bool
->
unit
val
set_int8 : ``?discr:
Discr.t
->
``default:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
unit
val
set_int16 : ``?discr:
Discr.t
->
``default:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
unit
val
set_int32 : ``?discr:
Discr.t
->
``default:int32
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int32
->
unit
val
set_int64 : ``?discr:
Discr.t
->
``default:int64
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int64
->
unit
val
set_uint8 : ``?discr:
Discr.t
->
``default:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
unit
val
set_uint16 : ``?discr:
Discr.t
->
``default:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
unit
val
set_uint32 : ``?discr:
Discr.t
->
``default:
Uint32.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
Uint32.t
->
unit
val
set_uint64 : ``?discr:
Discr.t
->
``default:
Uint64.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
Uint64.t
->
unit
val
set_float32 : ``?discr:
Discr.t
->
``default_bits:int32
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``float
->
unit
val
set_float64 : ``?discr:
Discr.t
->
``default_bits:int64
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``float
->
unit
val
has_field : ``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
bool
val
get_text : ``default:string
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
string
val
get_blob : ``default:string
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
string
val
init_list_storage : ``storage_type:
Capnp__.ListStorageType.t
->
``num_elements:int
->
rw
NM.Slice.t
->
rw
NM.ListStorage.t
val
get_list : ``?struct_sizes:
Capnp__.BuilderOps.StructSizes.t
->
``?default:
ro
DM.ListStorage.t
->
``storage_type:
Capnp__.ListStorageType.t
->
``codecs:
'a
NC.ListCodecs.t
->
``(
rw
,
'b
)``
NM.StructStorage.t
->
``int
->
``(
rw
,
'a0
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_void_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, unit,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_bit_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, bool,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_int8_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_int16_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_int32_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, int32,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_int64_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, int64,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_uint8_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_uint16_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_uint32_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
,
Uint32.t
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_uint64_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
,
Uint64.t
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_float32_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, float,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_float64_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, float,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_text_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, string,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_blob_list : ``?default:
ro
DM.ListStorage.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, string,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_struct_list : ``?default:
ro
DM.ListStorage.t
->
``data_words:int
->
``pointer_words:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
, ``(
rw
,
'b
)``
NM.StructStorage.t
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
get_struct : ``?default:``(
ro
,
'a
)``
DM.StructStorage.t
->
``data_words:int
->
``pointer_words:int
->
``(
rw
,
'b
)``
NM.StructStorage.t
->
``int
->
``(
rw
,
'a0
)``
NM.StructStorage.t
val
get_pointer : ``?default:
ro
DM.Slice.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
rw
NM.Slice.t
val
get_interface : ``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
'b
NM.Capability.t
option
val
set_text : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``string
->
unit
val
set_blob : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``string
->
unit
val
set_list_from_storage : ``?struct_sizes:
Capnp__.BuilderOps.StructSizes.t
->
``storage_type:
Capnp__.ListStorageType.t
->
``codecs:
'a
NC.ListCodecs.t
->
``(
rw
,
'b
)``
NM.StructStorage.t
->
``int
->
'cap
NM.ListStorage.t
option``
->
``(
rw
,
'a0
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_list : ``?discr:
Discr.t
->
``?struct_sizes:
Capnp__.BuilderOps.StructSizes.t
->
``storage_type:
Capnp__.ListStorageType.t
->
``codecs:
'a
NC.ListCodecs.t
->
``(
rw
,
'b
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
,
'a0
,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
,
'a1
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_void_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, unit,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, unit,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_bit_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, bool,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, bool,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_int8_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, int,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_int16_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, int,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_int32_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, int32,
'cap
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, int32,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_int64_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, int64,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, int64,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_uint8_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, int,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_uint16_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, int,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_uint32_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
,
Uint32.t
,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
,
Uint32.t
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_uint64_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
,
Uint64.t
,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
,
Uint64.t
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_float32_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, float,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, float,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_float64_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, float,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, float,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_text_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, string,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, string,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_blob_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, string,
'cap2
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, string,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_struct_list : ``?discr:
Discr.t
->
``data_words:int
->
``pointer_words:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
'cap1
, ``(
Message.rw
,
'b
)``
NM.StructStorage.t
,
Message.rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
->
``(
rw
, ``(
rw
,
'c
)``
NM.StructStorage.t
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
set_struct : ``?discr:
Discr.t
->
``data_words:int
->
``pointer_words:int
->
``(
rw
,
'b
)``
NM.StructStorage.t
->
``int
->
``(
'cap
,
'a
)``
NM.StructStorage.t
option``
->
``(
rw
,
'a0
)``
NM.StructStorage.t
val
set_pointer : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
'cap
NM.Slice.t
option``
->
rw
NM.Slice.t
val
set_interface : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
'b
NM.Capability.t
option``
->
unit
val
init_blob : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
unit
val
init_list : ``?discr:
Discr.t
->
``storage_type:
Capnp__.ListStorageType.t
->
``codecs:
'a
NC.ListCodecs.t
->
``(
rw
,
'b
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
,
'a0
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_void_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, unit,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_bit_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, bool,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_int8_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_int16_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_int32_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, int32,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_int64_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, int64,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_uint8_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_uint16_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, int,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_uint32_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
,
Uint32.t
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_uint64_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
,
Uint64.t
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_float32_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, float,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_float64_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, float,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_text_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, string,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_blob_list : ``?discr:
Discr.t
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, string,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_struct_list : ``?discr:
Discr.t
->
``data_words:int
->
``pointer_words:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``int
->
``(
rw
, ``(
rw
,
'b
)``
NM.StructStorage.t
,
rw
NM.ListStorage.t
)``
Capnp__.InnerArray.t
val
init_struct : ``?discr:
Discr.t
->
``data_words:int
->
``pointer_words:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
->
``int
->
``(
rw
,
'b
)``
NM.StructStorage.t
val
init_struct_pointer :
Message.rw
NM.Slice.t
->
``data_words:int
->
``pointer_words:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
val
get_root_struct :
rw
NM.Message.t
->
``data_words:int
->
``pointer_words:int
->
``(
rw
,
'a
)``
NM.StructStorage.t
val
alloc_root_struct : ``?message_size:int
->
``data_words:int
->
``pointer_words:int
->
``unit
->
``(
rw
,
'a
)``
NM.StructStorage.t
val
pointers_struct :
'a
NM.Slice.t
->
``(
'b
,
'c
)``
NM.StructStorage.t
val
cast_struct : ``(
'a
,
'b
)``
NM.StructStorage.t
->
``(
'a
,
'c
)``
NM.StructStorage.t