Olivine is a binding generator for Vulkan and OCaml. It generates OCaml code from the xml specification of the Vulkan API and a modest amount of a priori knowledge. The bindings themselves use the Ocaml Ctype library.
Olivine aims to generate thin but well-typed bindings.
Currently, the generated bindings covers all vulkan api except for the WSL extensions (i.e. the interface with the various windows systems) due to a lack of OCaml libraries covering the corresponding window systems.
Consequently, interaction with windows system is delegated to graphical interface libraries. Recent version of the SDL libary (≥ 2.06) and the tsdl bindings (≥0.9.6) comes with Vulkan suport.
If you want to experiment with the current generated bindings, you can try (this currently requires to disable opam sandboxing due to the donwloading of the vulkan spec)
opam pin add olivine https://github.com/Octachron/olivine.git
The examples can be run with either
make test-triangle
and
make test-tesseract
or by calling the executable by hand. Using make test-*
enable the Lunarg standard
validation layer for a more verbose log.
First, all names use a snake case convention from type names, enum names, function
names etc. Second the vk
prefix is not used in the generated binding. Instead,
the binding provides a nested module hierarchy of modules starting with a top
module called Vk
. If possible redundant prefix and suffix are eliminated.
The current module hierarchy modules is
Vk
├———— Const for constants
│
├———— Types for type definitions
│ └ Each type definition defines its own module
│
├———— Core for functions
│
└———— $Extension_name for extensions
└ Each extension is defined as an functor that takes as an argument
an instance or device module depending on the scope of the extension
Each type definition is mapped to a module Vk.Types.Type_name
which defines a main type t
.
All type definitions comes with a pretty-printer definition and
a variety of helper functions.
C Enums are mapped either to
VkResult
typeVkStructureType
used as a record extension is mapped to an open sum typeVulkan enum names are prefixed with the type name, olivine removes these prefixes.
Handle are mapped to an abstract type
Bitset are mapped to a olivine built-in through the Bitset.make
functor.
This type distinguish supports standard set operations and distinguish
between singleton and non-singleton values through a phantom type parameter
Unions are mapped to a Ctype union type. A constructor is generated for each field of the union type
Records are mapped to a Ctype record type.
Moreover getter functions and a labelled make
functions are generated
for the convenience sake. Like for functions (see next section), olivine
try to reconstruct higher level types from the types of record fields:
sType
,pNext
idiom used to extend records is mapped to a proper
open sum types.A array function (`t list -> t Ctypes.CArray) is also provided to ensure that the GC does not collect the values living on the C side too soon.
Ctypes view are generated for each function pointer typedef
Function binding are generated in three different modes: raw
, regular
or
native
.
The raw mode maps directly to the C function. The regular mode regularizes the format of structure elements. The native mode maps low-level C types to higher level types:
VkResult
output type are transformed to a Ocaml's result monad
and combined with output parameters when relevant. Note the result type
uses polymorphic variant to narrow its type to the effective return type.void f( size_t* n, ty array[])
where the first integer
argument can be used to retrieve the length of the output array is identified
and mapped to an array output.In presence of optional argument, a last unit argument is added
As an illustration the vkCreateInstance
function
VkResult
vkCreateInstance(
const VkCreateInstanceInfo*,
const VkAllocationCallbacks*, VkInstance*
)
is mapped to
val create_info:
Vk.Types.Instance_create_info.t ->
?allocator:Vk.Types.Allocation_callbacks.t Ctypes_static.ptr ->
unit ->
([ `Success ] * Vk.Types.Instance.t,
[ `Error_extension_not_present
| `Error_incompatible_driver
| `Error_initialization_failed
| `Error_layer_not_present
| `Error_out_of_device_memory
| `Error_out_of_host_memory ])
result