vulkan-extensions-khr_surface_protected_capabilities_c.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

-- This file is part of VulkAda.

-- VulkAda is free software: you can redistribute it and/or modify
-- it under the terms of the GNU Lesser General Public License as
-- published by the Free Software Foundation, either version 3 of
-- the License, or (at your option) any later version.

-- VulkAda is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU Lesser General Public License for more details.

-- You should have received a copy of the GNU Lesser General Public
-- License along with VulkAda.
-- If not, see <http://www.gnu.org/licenses/>.

-- Copyright 2025 Phaser Cat Games LLC

-- C interface to the surface protected capabilities extension

with Vulkan.C,
     Vulkan.Extensions.KHR;

private package Vulkan.Extensions.KHR_Surface_Protected_Capabilities_C is
    -- Extension record identifiers.
    subtype Structure is Structure_Type
        with Static_Predicate => Structure in
            Surface_Protected_Capabilities_Type;

    -- C interface records.
    type Surface_Protected_Capabilities_C is
    record
        Record_Type: In_Structure_Type := Surface_Protected_Capabilities_Type;
        Next: C.In_Structure_C_Access;
        Supports_Protected: Interfaces.Unsigned_32;
    end record
        with Convention => C;

    type Surface_Protected_Capabilities_C_Access is
        access Surface_Protected_Capabilities_C
        with Convention => C;

    -- Conversion subprograms.
    function To_C(Struct: in KHR.Surface_Protected_Capabilities)
        return Surface_Protected_Capabilities_C;
    procedure Free(Struct: in out Surface_Protected_Capabilities_C);

    -- Extension record conversion.
    function To_C(Next: in In_Structure_Access) return C.In_Structure_C_Access;
    procedure Free(Next: in out C.In_Structure_C_Access);
end Vulkan.Extensions.KHR_Surface_Protected_Capabilities_C;