1    object CommandPool =
2        def create device
3                   queue_family_index =
4            let create_info = CommandPoolCreateInfo
5                type = StructureType/CommandPoolCreateInfo
6                next = null
7                flags = CommandPoolCreateFlags@zero
8                =queue_family_index
9    
10           let mut command_pool = null
11           vk/create_command_pool device create_info@ptr null command_pool@mut_ptr
12           |> assert_success
13   
14           command_pool
15