annotate svk/api.nim @ 1487:f786797a0cbe default tip

did: stuff
author sam <sam@basx.dev>
date Thu, 15 May 2025 00:10:08 +0700
parents 0ba3f0b2be2e
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1487
f786797a0cbe did: stuff
sam <sam@basx.dev>
parents: 1486
diff changeset
1 import std/tables
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
2 import std/strutils
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
3 import std/logging
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
4 import std/os
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
5
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
6 include ./vkapi
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
7
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
8 const VULKAN_VERSION = VK_MAKE_API_VERSION(0, 1, 3, 0)
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
9
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
10 template checkVkResult*(call: untyped) =
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
11 when defined(release):
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
12 discard call
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
13 else:
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
14 # yes, a bit cheap, but this is only for nice debug output
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
15 var callstr = astToStr(call).replace("\n", "")
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
16 while callstr.find(" ") >= 0:
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
17 callstr = callstr.replace(" ", " ")
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
18 debug "Calling vulkan: ", callstr
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
19 let value = call
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
20 if value != VK_SUCCESS:
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
21 error "Vulkan error: ", astToStr(call), " returned ", $value
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
22 raise newException(
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
23 Exception, "Vulkan error: " & astToStr(call) & " returned " & $value
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
24 )
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
25
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
26 type SVkInstance* = object
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
27 vkInstance: VkInstance
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
28 debugMessenger: VkDebugUtilsMessengerEXT
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
29
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
30 proc `=copy`(a: var SVkInstance, b: SVkInstance) {.error.}
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
31
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
32 proc `=destroy`(a: SVkInstance) =
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
33 if a.vkInstance.pointer != nil:
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
34 if a.debugMessenger.pointer != nil:
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
35 vkDestroyDebugUtilsMessengerEXT(a.vkInstance, a.debugMessenger, nil)
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
36 a.vkInstance.vkDestroyInstance(nil)
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
37
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
38 proc debugCallback(
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
39 messageSeverity: VkDebugUtilsMessageSeverityFlagBitsEXT,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
40 messageTypes: VkDebugUtilsMessageTypeFlagsEXT,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
41 pCallbackData: ptr VkDebugUtilsMessengerCallbackDataEXT,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
42 userData: pointer,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
43 ): VkBool32 {.cdecl.} =
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
44 const LOG_LEVEL_MAPPING = {
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
45 VK_DEBUG_UTILS_MESSAGE_SEVERITY_VERBOSE_BIT_EXT: lvlDebug,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
46 VK_DEBUG_UTILS_MESSAGE_SEVERITY_INFO_BIT_EXT: lvlInfo,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
47 VK_DEBUG_UTILS_MESSAGE_SEVERITY_WARNING_BIT_EXT: lvlWarn,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
48 VK_DEBUG_UTILS_MESSAGE_SEVERITY_ERROR_BIT_EXT: lvlError,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
49 }.toTable
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
50 log LOG_LEVEL_MAPPING[messageSeverity]
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
51 if messageSeverity == VK_DEBUG_UTILS_MESSAGE_SEVERITY_ERROR_BIT_EXT:
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
52 # stderr.write getStackTrace()
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
53 # stderr.writeLine LOG_LEVEL_MAPPING[messageSeverity], &"{toEnums messageTypes}: {pCallbackData.pMessage}"
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
54 let errorMsg = $pCallbackData.pMessage & ": " & getStackTrace()
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
55 raise newException(Exception, errorMsg)
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
56 return VK_FALSE
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
57
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
58 proc svkCreateInstance*(
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
59 applicationName: string,
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
60 enabledLayers: openArray[string] = [],
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
61 enabledExtensions: openArray[string] =
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
62 if defined(release):
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
63 @["VK_KHR_surface"]
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
64 else:
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
65 @["VK_KHR_surface", "VK_EXT_debug_utils"],
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
66 engineName = "semicongine",
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
67 withSwapchain = true,
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
68 ): SVkInstance =
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
69 putEnv("VK_LOADER_LAYERS_ENABLE", "*validation")
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
70 putEnv(
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
71 "VK_LAYER_ENABLES",
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
72 "VALIDATION_CHECK_ENABLE_VENDOR_SPECIFIC_AMD,VALIDATION_CHECK_ENABLE_VENDOR_SPECIFIC_NVIDIA,VK_VALIDATION_FEATURE_ENABLE_SYNCHRONIZATION_VALIDATION_EXTVK_VALIDATION_FEATURE_ENABLE_GPU_ASSISTED_EXT,VK_VALIDATION_FEATURE_ENABLE_SYNCHRONIZATION_VALIDATION_EXT",
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
73 )
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
74 initVulkanLoader()
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
75
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
76 let
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
77 appinfo = VkApplicationInfo(
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
78 pApplicationName: applicationName,
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
79 pEngineName: engineName,
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
80 apiVersion: VULKAN_VERSION,
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
81 )
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
82 enabledLayersC = allocCStringArray(enabledLayers)
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
83 enabledExtensionsC = allocCStringArray(enabledExtensions)
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
84 createinfo = VkInstanceCreateInfo(
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
85 pApplicationInfo: addr appinfo,
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
86 enabledLayerCount: enabledLayers.len.uint32,
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
87 ppEnabledLayerNames: enabledLayersC,
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
88 enabledExtensionCount: enabledExtensions.len.uint32,
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
89 ppEnabledExtensionNames: enabledExtensionsC,
1485
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
90 )
6e062a84c157 add: more api-starting
sam <sam@basx.dev>
parents:
diff changeset
91 checkVkResult vkCreateInstance(addr createinfo, nil, addr result.vkInstance)
1486
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
92
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
93 enabledLayersC.deallocCStringArray()
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
94 enabledExtensionsC.deallocCStringArray()
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
95
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
96 load_VK_VERSION_1_0(result.vkInstance)
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
97 load_VK_VERSION_1_1(result.vkInstance)
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
98 load_VK_VERSION_1_2(result.vkInstance)
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
99 load_VK_VERSION_1_3(result.vkInstance)
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
100
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
101 for extension in enabledExtensions:
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
102 loadExtension(result.vkInstance, extension)
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
103 if withSwapchain:
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
104 load_VK_KHR_swapchain(result.vkInstance)
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
105
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
106 when not defined(release):
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
107 var debugMessengerCreateInfo = VkDebugUtilsMessengerCreateInfoEXT(
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
108 messageSeverity: VkDebugUtilsMessageSeverityFlagBitsEXT.items.toSeq.toBits,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
109 messageType: VkDebugUtilsMessageTypeFlagBitsEXT.items.toSeq.toBits,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
110 pfnUserCallback: debugCallback,
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
111 )
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
112 checkVkResult vkCreateDebugUtilsMessengerEXT(
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
113 result.vkInstance, addr debugMessengerCreateInfo, nil, addr result.debugMessenger
0ba3f0b2be2e did: more
sam <sam@basx.dev>
parents: 1485
diff changeset
114 )