From a78527d5bf759eda80e358ac322fe5c21a608f7b Mon Sep 17 00:00:00 2001 From: Mikhalkovich Stanislav Date: Sat, 21 Mar 2020 20:53:02 +0300 Subject: [PATCH] =?UTF-8?q?=D0=9F=D0=B5=D1=80=D0=B5=D1=81=D0=B1=D0=BE?= =?UTF-8?q?=D1=80=D0=BA=D0=B0=20=D0=BF=D1=80=D0=BE=D0=B5=D0=BA=D1=82=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Configuration/GlobalAssemblyInfo.cs | 2 +- Configuration/Version.defs | 2 +- Release/pabcversion.txt | 2 +- ReleaseGenerators/PascalABCNET_version.nsh | 2 +- TestSuite/CompilationSamples/OpenCL.pas | 1540 +++-- TestSuite/CompilationSamples/OpenCLABC.pas | 19 +- TestSuite/CompilationSamples/OpenGL.pas | 6217 ++++++++++++++----- TestSuite/CompilationSamples/PABCSystem.pas | 28 +- TestSuite/TakeLast.pas | 3 + 9 files changed, 5862 insertions(+), 1953 deletions(-) create mode 100644 TestSuite/TakeLast.pas diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index f1a872a76..c4d915a34 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/Configuration/GlobalAssemblyInfo.cs @@ -15,7 +15,7 @@ internal static class RevisionClass public const string Major = "3"; public const string Minor = "6"; public const string Build = "2"; - public const string Revision = "2388"; + public const string Revision = "2390"; public const string MainVersion = Major + "." + Minor; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; diff --git a/Configuration/Version.defs b/Configuration/Version.defs index 4139803e9..a92c16a0f 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ %COREVERSION%=2 -%REVISION%=2388 +%REVISION%=2390 %MINOR%=6 %MAJOR%=3 diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt index f7870a6a5..80d6a3bf1 100644 --- a/Release/pabcversion.txt +++ b/Release/pabcversion.txt @@ -1 +1 @@ -3.6.2.2388 +3.6.2.2390 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index d4697e4d3..cb1c783ef 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.6.2.2388' +!define VERSION '3.6.2.2390' diff --git a/TestSuite/CompilationSamples/OpenCL.pas b/TestSuite/CompilationSamples/OpenCL.pas index 51bd01a12..f523b5ee3 100644 --- a/TestSuite/CompilationSamples/OpenCL.pas +++ b/TestSuite/CompilationSamples/OpenCL.pas @@ -134,10 +134,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(AcceleratorInfoIntel).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->AcceleratorInfoIntel(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'AcceleratorInfoIntel[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($4090) then Result := 'ACCELERATOR_DESCRIPTOR_INTEL' else + if self.val = UInt32($4091) then Result := 'ACCELERATOR_REFERENCE_COUNT_INTEL' else + if self.val = UInt32($4092) then Result := 'ACCELERATOR_CONTEXT_INTEL' else + if self.val = UInt32($4093) then Result := 'ACCELERATOR_TYPE_INTEL' else + Result := self.val.ToString; end; end; @@ -152,10 +153,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(AcceleratorTypeIntel).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->AcceleratorTypeIntel(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'AcceleratorTypeIntel[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'ACCELERATOR_TYPE_MOTION_ESTIMATION_INTEL' else + Result := self.val.ToString; end; end; @@ -178,10 +177,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(AddressingMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->AddressingMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'AddressingMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1130) then Result := 'ADDRESS_NONE' else + if self.val = UInt32($1131) then Result := 'ADDRESS_CLAMP_TO_EDGE' else + if self.val = UInt32($1132) then Result := 'ADDRESS_CLAMP' else + if self.val = UInt32($1133) then Result := 'ADDRESS_REPEAT' else + if self.val = UInt32($1134) then Result := 'ADDRESS_MIRRORED_REPEAT' else + Result := self.val.ToString; end; end; @@ -202,10 +203,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(Bool).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->Bool(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'Bool[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'FALSE' else + if self.val = UInt32($0000) then Result := 'NON_BLOCKING' else + if self.val = UInt32($0001) then Result := 'BLOCKING' else + if self.val = UInt32($0001) then Result := 'TRUE' else + Result := self.val.ToString; end; end; @@ -220,10 +222,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BufferCreateType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BufferCreateType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BufferCreateType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1220) then Result := 'BUFFER_CREATE_TYPE_REGION' else + Result := self.val.ToString; end; end; @@ -232,22 +232,23 @@ uses System.Runtime.CompilerServices; public val: Int32; public constructor(val: Int32) := self.val := val; - private static _BUILD_IN_PROGRESS := new BuildStatus($FFFFFFFFFFFFFFFD); - private static _BUILD_ERROR := new BuildStatus($FFFFFFFFFFFFFFFE); - private static _BUILD_NONE := new BuildStatus($FFFFFFFFFFFFFFFF); private static _BUILD_SUCCESS := new BuildStatus($0000); + private static _BUILD_NONE := new BuildStatus(-1); + private static _BUILD_ERROR := new BuildStatus(-2); + private static _BUILD_IN_PROGRESS := new BuildStatus(-3); - public static property BUILD_IN_PROGRESS: BuildStatus read _BUILD_IN_PROGRESS; - public static property BUILD_ERROR: BuildStatus read _BUILD_ERROR; - public static property BUILD_NONE: BuildStatus read _BUILD_NONE; public static property BUILD_SUCCESS: BuildStatus read _BUILD_SUCCESS; + public static property BUILD_NONE: BuildStatus read _BUILD_NONE; + public static property BUILD_ERROR: BuildStatus read _BUILD_ERROR; + public static property BUILD_IN_PROGRESS: BuildStatus read _BUILD_IN_PROGRESS; public function ToString: string; override; begin - var res := typeof(BuildStatus).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BuildStatus(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BuildStatus[{ self.val=default(Int32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = Int32($0000) then Result := 'BUILD_SUCCESS' else + if self.val = Int32(-1) then Result := 'BUILD_NONE' else + if self.val = Int32(-2) then Result := 'BUILD_ERROR' else + if self.val = Int32(-3) then Result := 'BUILD_IN_PROGRESS' else + Result := self.val.ToString; end; end; @@ -314,10 +315,34 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ChannelOrder).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ChannelOrder(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ChannelOrder[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($10B0) then Result := 'R' else + if self.val = UInt32($10B1) then Result := 'A' else + if self.val = UInt32($10B2) then Result := 'RG' else + if self.val = UInt32($10B3) then Result := 'RA' else + if self.val = UInt32($10B4) then Result := 'RGB' else + if self.val = UInt32($10B5) then Result := 'RGBA' else + if self.val = UInt32($10B6) then Result := 'BGRA' else + if self.val = UInt32($10B7) then Result := 'ARGB' else + if self.val = UInt32($10B8) then Result := 'INTENSITY' else + if self.val = UInt32($10B9) then Result := 'LUMINANCE' else + if self.val = UInt32($10BA) then Result := 'Rx' else + if self.val = UInt32($10BB) then Result := 'RGx' else + if self.val = UInt32($10BC) then Result := 'RGBx' else + if self.val = UInt32($10BD) then Result := 'DEPTH' else + if self.val = UInt32($10BE) then Result := 'DEPTH_STENCIL' else + if self.val = UInt32($10BF) then Result := 'sRGB' else + if self.val = UInt32($10C0) then Result := 'sRGBx' else + if self.val = UInt32($10C1) then Result := 'sRGBA' else + if self.val = UInt32($10C2) then Result := 'sBGRA' else + if self.val = UInt32($10C3) then Result := 'ABGR' else + if self.val = UInt32($4076) then Result := 'YUYV_INTEL' else + if self.val = UInt32($4077) then Result := 'UYVY_INTEL' else + if self.val = UInt32($4078) then Result := 'YVYU_INTEL' else + if self.val = UInt32($4079) then Result := 'VYUY_INTEL' else + if self.val = UInt32($40D0) then Result := 'NV21_IMG' else + if self.val = UInt32($40D1) then Result := 'YV12_IMG' else + if self.val = UInt32($410E) then Result := 'NV12_INTEL' else + Result := self.val.ToString; end; end; @@ -364,10 +389,24 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ChannelType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ChannelType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ChannelType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($10D0) then Result := 'SNORM_INT8' else + if self.val = UInt32($10D1) then Result := 'SNORM_INT16' else + if self.val = UInt32($10D2) then Result := 'UNORM_INT8' else + if self.val = UInt32($10D3) then Result := 'UNORM_INT16' else + if self.val = UInt32($10D4) then Result := 'UNORM_SHORT_565' else + if self.val = UInt32($10D5) then Result := 'UNORM_SHORT_555' else + if self.val = UInt32($10D6) then Result := 'UNORM_INT_101010' else + if self.val = UInt32($10D7) then Result := 'SIGNED_INT8' else + if self.val = UInt32($10D8) then Result := 'SIGNED_INT16' else + if self.val = UInt32($10D9) then Result := 'SIGNED_INT32' else + if self.val = UInt32($10DA) then Result := 'UNSIGNED_INT8' else + if self.val = UInt32($10DB) then Result := 'UNSIGNED_INT16' else + if self.val = UInt32($10DC) then Result := 'UNSIGNED_INT32' else + if self.val = UInt32($10DD) then Result := 'HALF_FLOAT' else + if self.val = UInt32($10DE) then Result := 'FLOAT' else + if self.val = UInt32($10DF) then Result := 'UNORM_INT24' else + if self.val = UInt32($10E0) then Result := 'UNORM_INT_101010_2' else + Result := self.val.ToString; end; end; @@ -388,10 +427,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CommandExecutionStatus).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CommandExecutionStatus(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CommandExecutionStatus[{ self.val=default(Int32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = Int32($0000) then Result := 'COMPLETE' else + if self.val = Int32($0001) then Result := 'RUNNING' else + if self.val = Int32($0002) then Result := 'SUBMITTED' else + if self.val = Int32($0003) then Result := 'QUEUED' else + Result := self.val.ToString; end; public function IS_ERROR := val < 0; @@ -418,10 +458,13 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CommandQueueInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CommandQueueInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CommandQueueInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1090) then Result := 'QUEUE_CONTEXT' else + if self.val = UInt32($1091) then Result := 'QUEUE_DEVICE' else + if self.val = UInt32($1092) then Result := 'QUEUE_REFERENCE_COUNT' else + if self.val = UInt32($1093) then Result := 'QUEUE_PROPERTIES' else + if self.val = UInt32($1094) then Result := 'QUEUE_SIZE' else + if self.val = UInt32($1095) then Result := 'QUEUE_DEVICE_DEFAULT' else + Result := self.val.ToString; end; end; @@ -430,35 +473,44 @@ uses System.Runtime.CompilerServices; public val: UInt64; public constructor(val: UInt64) := self.val := val; - private static _QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL := new CommandQueueProperties($FFFFFFFF80000000); private static _QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE := new CommandQueueProperties($0001); private static _QUEUE_PROFILING_ENABLE := new CommandQueueProperties($0002); private static _QUEUE_ON_DEVICE := new CommandQueueProperties($0004); private static _QUEUE_ON_DEVICE_DEFAULT := new CommandQueueProperties($0008); private static _QUEUE_RESERVED_QCOM := new CommandQueueProperties($40000000); + private static _QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL := new CommandQueueProperties($FFFFFFFF80000000); - public static property QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL: CommandQueueProperties read _QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL; public static property QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE: CommandQueueProperties read _QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE; public static property QUEUE_PROFILING_ENABLE: CommandQueueProperties read _QUEUE_PROFILING_ENABLE; public static property QUEUE_ON_DEVICE: CommandQueueProperties read _QUEUE_ON_DEVICE; public static property QUEUE_ON_DEVICE_DEFAULT: CommandQueueProperties read _QUEUE_ON_DEVICE_DEFAULT; public static property QUEUE_RESERVED_QCOM: CommandQueueProperties read _QUEUE_RESERVED_QCOM; + public static property QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL: CommandQueueProperties read _QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL; public static function operator or(f1,f2: CommandQueueProperties) := new CommandQueueProperties(f1.val or f2.val); - public property HAS_FLAG_QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL: boolean read self.val and $FFFFFFFF80000000 <> 0; public property HAS_FLAG_QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE: boolean read self.val and $0001 <> 0; public property HAS_FLAG_QUEUE_PROFILING_ENABLE: boolean read self.val and $0002 <> 0; public property HAS_FLAG_QUEUE_ON_DEVICE: boolean read self.val and $0004 <> 0; public property HAS_FLAG_QUEUE_ON_DEVICE_DEFAULT: boolean read self.val and $0008 <> 0; public property HAS_FLAG_QUEUE_RESERVED_QCOM: boolean read self.val and $40000000 <> 0; + public property HAS_FLAG_QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL: boolean read self.val and $FFFFFFFF80000000 <> 0; public function ToString: string; override; begin - var res := typeof(CommandQueueProperties).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'CommandQueueProperties[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt64($0001) = UInt64($0001) then res += 'QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'QUEUE_PROFILING_ENABLE+'; + if self.val and UInt64($0004) = UInt64($0004) then res += 'QUEUE_ON_DEVICE+'; + if self.val and UInt64($0008) = UInt64($0008) then res += 'QUEUE_ON_DEVICE_DEFAULT+'; + if self.val and UInt64($40000000) = UInt64($40000000) then res += 'QUEUE_RESERVED_QCOM+'; + if self.val and UInt64($FFFFFFFF80000000) = UInt64($FFFFFFFF80000000) then res += 'QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -497,6 +549,7 @@ uses System.Runtime.CompilerServices; private static _COMMAND_SVM_MEMFILL := new CommandType($120B); private static _COMMAND_SVM_MAP := new CommandType($120C); private static _COMMAND_SVM_UNMAP := new CommandType($120D); + private static _COMMAND_SVM_MIGRATE_MEM := new CommandType($120E); private static _COMMAND_GL_FENCE_SYNC_OBJECT_KHR := new CommandType($200D); private static _COMMAND_ACQUIRE_DX9_MEDIA_SURFACES_KHR := new CommandType($202B); private static _COMMAND_RELEASE_DX9_MEDIA_SURFACES_KHR := new CommandType($202C); @@ -544,6 +597,7 @@ uses System.Runtime.CompilerServices; public static property COMMAND_SVM_MEMFILL: CommandType read _COMMAND_SVM_MEMFILL; public static property COMMAND_SVM_MAP: CommandType read _COMMAND_SVM_MAP; public static property COMMAND_SVM_UNMAP: CommandType read _COMMAND_SVM_UNMAP; + public static property COMMAND_SVM_MIGRATE_MEM: CommandType read _COMMAND_SVM_MIGRATE_MEM; public static property COMMAND_GL_FENCE_SYNC_OBJECT_KHR: CommandType read _COMMAND_GL_FENCE_SYNC_OBJECT_KHR; public static property COMMAND_ACQUIRE_DX9_MEDIA_SURFACES_KHR: CommandType read _COMMAND_ACQUIRE_DX9_MEDIA_SURFACES_KHR; public static property COMMAND_RELEASE_DX9_MEDIA_SURFACES_KHR: CommandType read _COMMAND_RELEASE_DX9_MEDIA_SURFACES_KHR; @@ -563,10 +617,54 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CommandType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CommandType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CommandType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($11F0) then Result := 'COMMAND_NDRANGE_KERNEL' else + if self.val = UInt32($11F1) then Result := 'COMMAND_TASK' else + if self.val = UInt32($11F2) then Result := 'COMMAND_NATIVE_KERNEL' else + if self.val = UInt32($11F3) then Result := 'COMMAND_READ_BUFFER' else + if self.val = UInt32($11F4) then Result := 'COMMAND_WRITE_BUFFER' else + if self.val = UInt32($11F5) then Result := 'COMMAND_COPY_BUFFER' else + if self.val = UInt32($11F6) then Result := 'COMMAND_READ_IMAGE' else + if self.val = UInt32($11F7) then Result := 'COMMAND_WRITE_IMAGE' else + if self.val = UInt32($11F8) then Result := 'COMMAND_COPY_IMAGE' else + if self.val = UInt32($11F9) then Result := 'COMMAND_COPY_IMAGE_TO_BUFFER' else + if self.val = UInt32($11FA) then Result := 'COMMAND_COPY_BUFFER_TO_IMAGE' else + if self.val = UInt32($11FB) then Result := 'COMMAND_MAP_BUFFER' else + if self.val = UInt32($11FC) then Result := 'COMMAND_MAP_IMAGE' else + if self.val = UInt32($11FD) then Result := 'COMMAND_UNMAP_MEM_OBJECT' else + if self.val = UInt32($11FE) then Result := 'COMMAND_MARKER' else + if self.val = UInt32($11FF) then Result := 'COMMAND_ACQUIRE_GL_OBJECTS' else + if self.val = UInt32($1200) then Result := 'COMMAND_RELEASE_GL_OBJECTS' else + if self.val = UInt32($1201) then Result := 'COMMAND_READ_BUFFER_RECT' else + if self.val = UInt32($1202) then Result := 'COMMAND_WRITE_BUFFER_RECT' else + if self.val = UInt32($1203) then Result := 'COMMAND_COPY_BUFFER_RECT' else + if self.val = UInt32($1204) then Result := 'COMMAND_USER' else + if self.val = UInt32($1205) then Result := 'COMMAND_BARRIER' else + if self.val = UInt32($1206) then Result := 'COMMAND_MIGRATE_MEM_OBJECTS' else + if self.val = UInt32($1207) then Result := 'COMMAND_FILL_BUFFER' else + if self.val = UInt32($1208) then Result := 'COMMAND_FILL_IMAGE' else + if self.val = UInt32($1209) then Result := 'COMMAND_SVM_FREE' else + if self.val = UInt32($120A) then Result := 'COMMAND_SVM_MEMCPY' else + if self.val = UInt32($120B) then Result := 'COMMAND_SVM_MEMFILL' else + if self.val = UInt32($120C) then Result := 'COMMAND_SVM_MAP' else + if self.val = UInt32($120D) then Result := 'COMMAND_SVM_UNMAP' else + if self.val = UInt32($120E) then Result := 'COMMAND_SVM_MIGRATE_MEM' else + if self.val = UInt32($200D) then Result := 'COMMAND_GL_FENCE_SYNC_OBJECT_KHR' else + if self.val = UInt32($202B) then Result := 'COMMAND_ACQUIRE_DX9_MEDIA_SURFACES_KHR' else + if self.val = UInt32($202C) then Result := 'COMMAND_RELEASE_DX9_MEDIA_SURFACES_KHR' else + if self.val = UInt32($4017) then Result := 'COMMAND_ACQUIRE_D3D10_OBJECTS_KHR' else + if self.val = UInt32($4018) then Result := 'COMMAND_RELEASE_D3D10_OBJECTS_KHR' else + if self.val = UInt32($4020) then Result := 'COMMAND_ACQUIRE_D3D11_OBJECTS_KHR' else + if self.val = UInt32($4021) then Result := 'COMMAND_RELEASE_D3D11_OBJECTS_KHR' else + if self.val = UInt32($402A) then Result := 'COMMAND_ACQUIRE_DX9_OBJECTS_INTEL' else + if self.val = UInt32($402B) then Result := 'COMMAND_RELEASE_DX9_OBJECTS_INTEL' else + if self.val = UInt32($4040) then Result := 'COMMAND_MIGRATE_MEM_OBJECT_EXT' else + if self.val = UInt32($409A) then Result := 'COMMAND_ACQUIRE_VA_API_MEDIA_SURFACES_INTEL' else + if self.val = UInt32($409B) then Result := 'COMMAND_RELEASE_VA_API_MEDIA_SURFACES_INTEL' else + if self.val = UInt32($4204) then Result := 'COMMAND_MEMFILL_INTEL' else + if self.val = UInt32($4205) then Result := 'COMMAND_MEMCPY_INTEL' else + if self.val = UInt32($4206) then Result := 'COMMAND_MIGRATEMEM_INTEL' else + if self.val = UInt32($4207) then Result := 'COMMAND_MEMADVISE_INTEL' else + Result := self.val.ToString; end; end; @@ -609,10 +707,22 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ContextInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ContextInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ContextInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1080) then Result := 'CONTEXT_REFERENCE_COUNT' else + if self.val = UInt32($1081) then Result := 'CONTEXT_DEVICES' else + if self.val = UInt32($1082) then Result := 'CONTEXT_PROPERTIES' else + if self.val = UInt32($1083) then Result := 'CONTEXT_NUM_DEVICES' else + if self.val = UInt32($2025) then Result := 'CONTEXT_ADAPTER_D3D9_KHR' else + if self.val = UInt32($2026) then Result := 'CONTEXT_ADAPTER_D3D9EX_KHR' else + if self.val = UInt32($2027) then Result := 'CONTEXT_ADAPTER_DXVA_KHR' else + if self.val = UInt32($4014) then Result := 'CONTEXT_D3D10_DEVICE_KHR' else + if self.val = UInt32($401D) then Result := 'CONTEXT_D3D11_DEVICE_KHR' else + if self.val = UInt32($4026) then Result := 'CONTEXT_D3D9_DEVICE_INTEL' else + if self.val = UInt32($402C) then Result := 'CONTEXT_D3D10_PREFER_SHARED_RESOURCES_KHR' else + if self.val = UInt32($402D) then Result := 'CONTEXT_D3D11_PREFER_SHARED_RESOURCES_KHR' else + if self.val = UInt32($4072) then Result := 'CONTEXT_D3D9EX_DEVICE_INTEL' else + if self.val = UInt32($4073) then Result := 'CONTEXT_DXVA_DEVICE_INTEL' else + if self.val = UInt32($4097) then Result := 'CONTEXT_VA_API_DISPLAY_INTEL' else + Result := self.val.ToString; end; end; @@ -646,10 +756,17 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ContextProperties).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ContextProperties(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ContextProperties[{ self.val=default(IntPtr) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = IntPtr($1084) then Result := 'CONTEXT_PLATFORM' else + if self.val = IntPtr($1085) then Result := 'CONTEXT_INTEROP_USER_SYNC' else + if self.val = IntPtr($2008) then Result := 'GL_CONTEXT_KHR' else + if self.val = IntPtr($2009) then Result := 'EGL_DISPLAY_KHR' else + if self.val = IntPtr($200A) then Result := 'GLX_DISPLAY_KHR' else + if self.val = IntPtr($200B) then Result := 'WGL_HDC_KHR' else + if self.val = IntPtr($200C) then Result := 'CGL_SHAREGROUP_KHR' else + if self.val = IntPtr($2032) then Result := 'CONTEXT_TERMINATE_KHR' else + if self.val = IntPtr($40B0) then Result := 'PRINTF_CALLBACK_ARM' else + if self.val = IntPtr($40B1) then Result := 'PRINTF_BUFFERSIZE_ARM' else + Result := self.val.ToString; end; end; @@ -683,10 +800,19 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DeviceAffinityDomain).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'DeviceAffinityDomain[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt64($0001) = UInt64($0001) then res += 'DEVICE_AFFINITY_DOMAIN_NUMA+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'DEVICE_AFFINITY_DOMAIN_L4_CACHE+'; + if self.val and UInt64($0004) = UInt64($0004) then res += 'DEVICE_AFFINITY_DOMAIN_L3_CACHE+'; + if self.val and UInt64($0008) = UInt64($0008) then res += 'DEVICE_AFFINITY_DOMAIN_L2_CACHE+'; + if self.val and UInt64($0010) = UInt64($0010) then res += 'DEVICE_AFFINITY_DOMAIN_L1_CACHE+'; + if self.val and UInt64($0020) = UInt64($0020) then res += 'DEVICE_AFFINITY_DOMAIN_NEXT_PARTITIONABLE+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -708,10 +834,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DeviceExecCapabilities).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'DeviceExecCapabilities[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt64($0001) = UInt64($0001) then res += 'EXEC_KERNEL+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'EXEC_NATIVE_KERNEL+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -751,10 +882,21 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DeviceFPConfig).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'DeviceFPConfig[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt64($0001) = UInt64($0001) then res += 'FP_DENORM+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'FP_INF_NAN+'; + if self.val and UInt64($0004) = UInt64($0004) then res += 'FP_ROUND_TO_NEAREST+'; + if self.val and UInt64($0008) = UInt64($0008) then res += 'FP_ROUND_TO_ZERO+'; + if self.val and UInt64($0010) = UInt64($0010) then res += 'FP_ROUND_TO_INF+'; + if self.val and UInt64($0020) = UInt64($0020) then res += 'FP_FMA+'; + if self.val and UInt64($0040) = UInt64($0040) then res += 'FP_SOFT_FLOAT+'; + if self.val and UInt64($0080) = UInt64($0080) then res += 'FP_CORRECTLY_ROUNDED_DIVIDE_SQRT+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -859,6 +1001,16 @@ uses System.Runtime.CompilerServices; private static _DEVICE_IL_VERSION_KHR := new DeviceInfo($105B); private static _DEVICE_MAX_NUM_SUB_GROUPS := new DeviceInfo($105C); private static _DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS := new DeviceInfo($105D); + private static _DEVICE_ATOMIC_MEMORY_CAPABILITIES := new DeviceInfo($1063); + private static _DEVICE_ATOMIC_FENCE_CAPABILITIES := new DeviceInfo($1064); + private static _DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT := new DeviceInfo($1065); + private static _DEVICE_OPENCL_C_VERSIONS := new DeviceInfo($1066); + private static _DEVICE_MAX_WRITE_IMAGE3D_ARGS := new DeviceInfo($1067); + private static _DEVICE_WORK_GROUP_COLLECTIVE_FUNCTIONS_SUPPORT := new DeviceInfo($1068); + private static _DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT := new DeviceInfo($1069); + private static _DEVICE_OPENCL_C_FEATURES := new DeviceInfo($106F); + private static _DEVICE_DEVICE_ENQUEUE_SUPPORT := new DeviceInfo($1070); + private static _DEVICE_PIPE_SUPPORT := new DeviceInfo($1071); private static _PROGRAM_IL_KHR := new DeviceInfo($1169); private static _DEVICE_TERMINATE_CAPABILITY_KHR := new DeviceInfo($2031); private static _DEVICE_MAX_NAMED_BARRIER_COUNT_KHR := new DeviceInfo($2035); @@ -988,6 +1140,16 @@ uses System.Runtime.CompilerServices; public static property DEVICE_IL_VERSION_KHR: DeviceInfo read _DEVICE_IL_VERSION_KHR; public static property DEVICE_MAX_NUM_SUB_GROUPS: DeviceInfo read _DEVICE_MAX_NUM_SUB_GROUPS; public static property DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS: DeviceInfo read _DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS; + public static property DEVICE_ATOMIC_MEMORY_CAPABILITIES: DeviceInfo read _DEVICE_ATOMIC_MEMORY_CAPABILITIES; + public static property DEVICE_ATOMIC_FENCE_CAPABILITIES: DeviceInfo read _DEVICE_ATOMIC_FENCE_CAPABILITIES; + public static property DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT: DeviceInfo read _DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT; + public static property DEVICE_OPENCL_C_VERSIONS: DeviceInfo read _DEVICE_OPENCL_C_VERSIONS; + public static property DEVICE_MAX_WRITE_IMAGE3D_ARGS: DeviceInfo read _DEVICE_MAX_WRITE_IMAGE3D_ARGS; + public static property DEVICE_WORK_GROUP_COLLECTIVE_FUNCTIONS_SUPPORT: DeviceInfo read _DEVICE_WORK_GROUP_COLLECTIVE_FUNCTIONS_SUPPORT; + public static property DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT: DeviceInfo read _DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT; + public static property DEVICE_OPENCL_C_FEATURES: DeviceInfo read _DEVICE_OPENCL_C_FEATURES; + public static property DEVICE_DEVICE_ENQUEUE_SUPPORT: DeviceInfo read _DEVICE_DEVICE_ENQUEUE_SUPPORT; + public static property DEVICE_PIPE_SUPPORT: DeviceInfo read _DEVICE_PIPE_SUPPORT; public static property PROGRAM_IL_KHR: DeviceInfo read _PROGRAM_IL_KHR; public static property DEVICE_TERMINATE_CAPABILITY_KHR: DeviceInfo read _DEVICE_TERMINATE_CAPABILITY_KHR; public static property DEVICE_MAX_NAMED_BARRIER_COUNT_KHR: DeviceInfo read _DEVICE_MAX_NAMED_BARRIER_COUNT_KHR; @@ -1023,10 +1185,145 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DeviceInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DeviceInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DeviceInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1000) then Result := 'DEVICE_TYPE' else + if self.val = UInt32($1001) then Result := 'DEVICE_VENDOR_ID' else + if self.val = UInt32($1002) then Result := 'DEVICE_MAX_COMPUTE_UNITS' else + if self.val = UInt32($1003) then Result := 'DEVICE_MAX_WORK_ITEM_DIMENSIONS' else + if self.val = UInt32($1004) then Result := 'DEVICE_MAX_WORK_GROUP_SIZE' else + if self.val = UInt32($1005) then Result := 'DEVICE_MAX_WORK_ITEM_SIZES' else + if self.val = UInt32($1006) then Result := 'DEVICE_PREFERRED_VECTOR_WIDTH_CHAR' else + if self.val = UInt32($1007) then Result := 'DEVICE_PREFERRED_VECTOR_WIDTH_SHORT' else + if self.val = UInt32($1008) then Result := 'DEVICE_PREFERRED_VECTOR_WIDTH_INT' else + if self.val = UInt32($1009) then Result := 'DEVICE_PREFERRED_VECTOR_WIDTH_LONG' else + if self.val = UInt32($100A) then Result := 'DEVICE_PREFERRED_VECTOR_WIDTH_FLOAT' else + if self.val = UInt32($100B) then Result := 'DEVICE_PREFERRED_VECTOR_WIDTH_DOUBLE' else + if self.val = UInt32($100C) then Result := 'DEVICE_MAX_CLOCK_FREQUENCY' else + if self.val = UInt32($100D) then Result := 'DEVICE_ADDRESS_BITS' else + if self.val = UInt32($100E) then Result := 'DEVICE_MAX_READ_IMAGE_ARGS' else + if self.val = UInt32($100F) then Result := 'DEVICE_MAX_WRITE_IMAGE_ARGS' else + if self.val = UInt32($1010) then Result := 'DEVICE_MAX_MEM_ALLOC_SIZE' else + if self.val = UInt32($1011) then Result := 'DEVICE_IMAGE2D_MAX_WIDTH' else + if self.val = UInt32($1012) then Result := 'DEVICE_IMAGE2D_MAX_HEIGHT' else + if self.val = UInt32($1013) then Result := 'DEVICE_IMAGE3D_MAX_WIDTH' else + if self.val = UInt32($1014) then Result := 'DEVICE_IMAGE3D_MAX_HEIGHT' else + if self.val = UInt32($1015) then Result := 'DEVICE_IMAGE3D_MAX_DEPTH' else + if self.val = UInt32($1016) then Result := 'DEVICE_IMAGE_SUPPORT' else + if self.val = UInt32($1017) then Result := 'DEVICE_MAX_PARAMETER_SIZE' else + if self.val = UInt32($1018) then Result := 'DEVICE_MAX_SAMPLERS' else + if self.val = UInt32($1019) then Result := 'DEVICE_MEM_BASE_ADDR_ALIGN' else + if self.val = UInt32($101A) then Result := 'DEVICE_MIN_DATA_TYPE_ALIGN_SIZE' else + if self.val = UInt32($101B) then Result := 'DEVICE_SINGLE_FP_CONFIG' else + if self.val = UInt32($101C) then Result := 'DEVICE_GLOBAL_MEM_CACHE_TYPE' else + if self.val = UInt32($101D) then Result := 'DEVICE_GLOBAL_MEM_CACHELINE_SIZE' else + if self.val = UInt32($101E) then Result := 'DEVICE_GLOBAL_MEM_CACHE_SIZE' else + if self.val = UInt32($101F) then Result := 'DEVICE_GLOBAL_MEM_SIZE' else + if self.val = UInt32($1020) then Result := 'DEVICE_MAX_CONSTANT_BUFFER_SIZE' else + if self.val = UInt32($1021) then Result := 'DEVICE_MAX_CONSTANT_ARGS' else + if self.val = UInt32($1022) then Result := 'DEVICE_LOCAL_MEM_TYPE' else + if self.val = UInt32($1023) then Result := 'DEVICE_LOCAL_MEM_SIZE' else + if self.val = UInt32($1024) then Result := 'DEVICE_ERROR_CORRECTION_SUPPORT' else + if self.val = UInt32($1025) then Result := 'DEVICE_PROFILING_TIMER_RESOLUTION' else + if self.val = UInt32($1026) then Result := 'DEVICE_ENDIAN_LITTLE' else + if self.val = UInt32($1027) then Result := 'DEVICE_AVAILABLE' else + if self.val = UInt32($1028) then Result := 'DEVICE_COMPILER_AVAILABLE' else + if self.val = UInt32($1029) then Result := 'DEVICE_EXECUTION_CAPABILITIES' else + if self.val = UInt32($102A) then Result := 'DEVICE_QUEUE_ON_HOST_PROPERTIES' else + if self.val = UInt32($102A) then Result := 'DEVICE_QUEUE_PROPERTIES' else + if self.val = UInt32($102B) then Result := 'DEVICE_NAME' else + if self.val = UInt32($102C) then Result := 'DEVICE_VENDOR' else + if self.val = UInt32($102D) then Result := 'DRIVER_VERSION' else + if self.val = UInt32($102E) then Result := 'DEVICE_PROFILE' else + if self.val = UInt32($102F) then Result := 'DEVICE_VERSION' else + if self.val = UInt32($1030) then Result := 'DEVICE_EXTENSIONS' else + if self.val = UInt32($1031) then Result := 'DEVICE_PLATFORM' else + if self.val = UInt32($1032) then Result := 'DEVICE_DOUBLE_FP_CONFIG' else + if self.val = UInt32($1033) then Result := 'DEVICE_HALF_FP_CONFIG' else + if self.val = UInt32($1034) then Result := 'DEVICE_PREFERRED_VECTOR_WIDTH_HALF' else + if self.val = UInt32($1035) then Result := 'DEVICE_HOST_UNIFIED_MEMORY' else + if self.val = UInt32($1036) then Result := 'DEVICE_NATIVE_VECTOR_WIDTH_CHAR' else + if self.val = UInt32($1037) then Result := 'DEVICE_NATIVE_VECTOR_WIDTH_SHORT' else + if self.val = UInt32($1038) then Result := 'DEVICE_NATIVE_VECTOR_WIDTH_INT' else + if self.val = UInt32($1039) then Result := 'DEVICE_NATIVE_VECTOR_WIDTH_LONG' else + if self.val = UInt32($103A) then Result := 'DEVICE_NATIVE_VECTOR_WIDTH_FLOAT' else + if self.val = UInt32($103B) then Result := 'DEVICE_NATIVE_VECTOR_WIDTH_DOUBLE' else + if self.val = UInt32($103C) then Result := 'DEVICE_NATIVE_VECTOR_WIDTH_HALF' else + if self.val = UInt32($103D) then Result := 'DEVICE_OPENCL_C_VERSION' else + if self.val = UInt32($103E) then Result := 'DEVICE_LINKER_AVAILABLE' else + if self.val = UInt32($103F) then Result := 'DEVICE_BUILT_IN_KERNELS' else + if self.val = UInt32($1040) then Result := 'DEVICE_IMAGE_MAX_BUFFER_SIZE' else + if self.val = UInt32($1041) then Result := 'DEVICE_IMAGE_MAX_ARRAY_SIZE' else + if self.val = UInt32($1042) then Result := 'DEVICE_PARENT_DEVICE' else + if self.val = UInt32($1043) then Result := 'DEVICE_PARTITION_MAX_SUB_DEVICES' else + if self.val = UInt32($1044) then Result := 'DEVICE_PARTITION_PROPERTIES' else + if self.val = UInt32($1045) then Result := 'DEVICE_PARTITION_AFFINITY_DOMAIN' else + if self.val = UInt32($1046) then Result := 'DEVICE_PARTITION_TYPE' else + if self.val = UInt32($1047) then Result := 'DEVICE_REFERENCE_COUNT' else + if self.val = UInt32($1048) then Result := 'DEVICE_PREFERRED_INTEROP_USER_SYNC' else + if self.val = UInt32($1049) then Result := 'DEVICE_PRINTF_BUFFER_SIZE' else + if self.val = UInt32($104A) then Result := 'DEVICE_IMAGE_PITCH_ALIGNMENT' else + if self.val = UInt32($104B) then Result := 'DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT' else + if self.val = UInt32($104C) then Result := 'DEVICE_MAX_READ_WRITE_IMAGE_ARGS' else + if self.val = UInt32($104D) then Result := 'DEVICE_MAX_GLOBAL_VARIABLE_SIZE' else + if self.val = UInt32($104E) then Result := 'DEVICE_QUEUE_ON_DEVICE_PROPERTIES' else + if self.val = UInt32($104F) then Result := 'DEVICE_QUEUE_ON_DEVICE_PREFERRED_SIZE' else + if self.val = UInt32($1050) then Result := 'DEVICE_QUEUE_ON_DEVICE_MAX_SIZE' else + if self.val = UInt32($1051) then Result := 'DEVICE_MAX_ON_DEVICE_QUEUES' else + if self.val = UInt32($1052) then Result := 'DEVICE_MAX_ON_DEVICE_EVENTS' else + if self.val = UInt32($1053) then Result := 'DEVICE_SVM_CAPABILITIES' else + if self.val = UInt32($1054) then Result := 'DEVICE_GLOBAL_VARIABLE_PREFERRED_TOTAL_SIZE' else + if self.val = UInt32($1055) then Result := 'DEVICE_MAX_PIPE_ARGS' else + if self.val = UInt32($1056) then Result := 'DEVICE_PIPE_MAX_ACTIVE_RESERVATIONS' else + if self.val = UInt32($1057) then Result := 'DEVICE_PIPE_MAX_PACKET_SIZE' else + if self.val = UInt32($1058) then Result := 'DEVICE_PREFERRED_PLATFORM_ATOMIC_ALIGNMENT' else + if self.val = UInt32($1059) then Result := 'DEVICE_PREFERRED_GLOBAL_ATOMIC_ALIGNMENT' else + if self.val = UInt32($105A) then Result := 'DEVICE_PREFERRED_LOCAL_ATOMIC_ALIGNMENT' else + if self.val = UInt32($105B) then Result := 'DEVICE_IL_VERSION' else + if self.val = UInt32($105B) then Result := 'DEVICE_IL_VERSION_KHR' else + if self.val = UInt32($105C) then Result := 'DEVICE_MAX_NUM_SUB_GROUPS' else + if self.val = UInt32($105D) then Result := 'DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS' else + if self.val = UInt32($1063) then Result := 'DEVICE_ATOMIC_MEMORY_CAPABILITIES' else + if self.val = UInt32($1064) then Result := 'DEVICE_ATOMIC_FENCE_CAPABILITIES' else + if self.val = UInt32($1065) then Result := 'DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT' else + if self.val = UInt32($1066) then Result := 'DEVICE_OPENCL_C_VERSIONS' else + if self.val = UInt32($1067) then Result := 'DEVICE_MAX_WRITE_IMAGE3D_ARGS' else + if self.val = UInt32($1068) then Result := 'DEVICE_WORK_GROUP_COLLECTIVE_FUNCTIONS_SUPPORT' else + if self.val = UInt32($1069) then Result := 'DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT' else + if self.val = UInt32($106F) then Result := 'DEVICE_OPENCL_C_FEATURES' else + if self.val = UInt32($1070) then Result := 'DEVICE_DEVICE_ENQUEUE_SUPPORT' else + if self.val = UInt32($1071) then Result := 'DEVICE_PIPE_SUPPORT' else + if self.val = UInt32($1169) then Result := 'PROGRAM_IL_KHR' else + if self.val = UInt32($2031) then Result := 'DEVICE_TERMINATE_CAPABILITY_KHR' else + if self.val = UInt32($2035) then Result := 'DEVICE_MAX_NAMED_BARRIER_COUNT_KHR' else + if self.val = UInt32($4000) then Result := 'DEVICE_COMPUTE_CAPABILITY_MAJOR_NV' else + if self.val = UInt32($4001) then Result := 'DEVICE_COMPUTE_CAPABILITY_MINOR_NV' else + if self.val = UInt32($4002) then Result := 'DEVICE_REGISTERS_PER_BLOCK_NV' else + if self.val = UInt32($4003) then Result := 'DEVICE_WARP_SIZE_NV' else + if self.val = UInt32($4004) then Result := 'DEVICE_GPU_OVERLAP_NV' else + if self.val = UInt32($4005) then Result := 'DEVICE_KERNEL_EXEC_TIMEOUT_NV' else + if self.val = UInt32($4006) then Result := 'DEVICE_INTEGRATED_MEMORY_NV' else + if self.val = UInt32($4036) then Result := 'DEVICE_PROFILING_TIMER_OFFSET_AMD' else + if self.val = UInt32($4054) then Result := 'DEVICE_PARENT_DEVICE_EXT' else + if self.val = UInt32($4055) then Result := 'DEVICE_PARTITION_TYPES_EXT' else + if self.val = UInt32($4056) then Result := 'DEVICE_AFFINITY_DOMAINS_EXT' else + if self.val = UInt32($4057) then Result := 'DEVICE_REFERENCE_COUNT_EXT' else + if self.val = UInt32($4058) then Result := 'DEVICE_PARTITION_STYLE_EXT' else + if self.val = UInt32($407E) then Result := 'DEVICE_ME_VERSION_INTEL' else + if self.val = UInt32($40BF) then Result := 'DEVICE_COMPUTE_UNITS_BITFIELD_ARM' else + if self.val = UInt32($40E0) then Result := 'DEVICE_SPIR_VERSIONS' else + if self.val = UInt32($4104) then Result := 'DEVICE_SIMULTANEOUS_INTEROPS_INTEL' else + if self.val = UInt32($4105) then Result := 'DEVICE_NUM_SIMULTANEOUS_INTEROPS_INTEL' else + if self.val = UInt32($4108) then Result := 'DEVICE_SUB_GROUP_SIZES_INTEL' else + if self.val = UInt32($410B) then Result := 'DEVICE_AVC_ME_VERSION_INTEL' else + if self.val = UInt32($410C) then Result := 'DEVICE_AVC_ME_SUPPORTS_TEXTURE_SAMPLER_USE_INTEL' else + if self.val = UInt32($410D) then Result := 'DEVICE_AVC_ME_SUPPORTS_PREEMPTION_INTEL' else + if self.val = UInt32($417E) then Result := 'DEVICE_PLANAR_YUV_MAX_WIDTH_INTEL' else + if self.val = UInt32($417F) then Result := 'DEVICE_PLANAR_YUV_MAX_HEIGHT_INTEL' else + if self.val = UInt32($4190) then Result := 'DEVICE_HOST_MEM_CAPABILITIES_INTEL' else + if self.val = UInt32($4191) then Result := 'DEVICE_DEVICE_MEM_CAPABILITIES_INTEL' else + if self.val = UInt32($4192) then Result := 'DEVICE_SINGLE_DEVICE_SHARED_MEM_CAPABILITIES_INTEL' else + if self.val = UInt32($4193) then Result := 'DEVICE_CROSS_DEVICE_SHARED_MEM_CAPABILITIES_INTEL' else + if self.val = UInt32($4194) then Result := 'DEVICE_SHARED_SYSTEM_MEM_CAPABILITIES_INTEL' else + Result := self.val.ToString; end; end; @@ -1043,10 +1340,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DeviceLocalMemType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DeviceLocalMemType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DeviceLocalMemType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0001) then Result := 'LOCAL' else + if self.val = UInt32($0002) then Result := 'GLOBAL' else + Result := self.val.ToString; end; end; @@ -1065,10 +1361,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DeviceMemCacheType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DeviceMemCacheType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DeviceMemCacheType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NONE' else + if self.val = UInt32($0001) then Result := 'READ_ONLY_CACHE' else + if self.val = UInt32($0002) then Result := 'READ_WRITE_CACHE' else + Result := self.val.ToString; end; end; @@ -1090,10 +1386,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DevicePartitionProperty).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DevicePartitionProperty(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DevicePartitionProperty[{ self.val=default(IntPtr) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = IntPtr($0000) then Result := 'DEVICE_PARTITION_BY_COUNTS_LIST_END' else + if self.val = IntPtr($1086) then Result := 'DEVICE_PARTITION_EQUALLY' else + if self.val = IntPtr($1087) then Result := 'DEVICE_PARTITION_BY_COUNTS' else + if self.val = IntPtr($1088) then Result := 'DEVICE_PARTITION_BY_AFFINITY_DOMAIN' else + Result := self.val.ToString; end; end; @@ -1102,17 +1399,17 @@ uses System.Runtime.CompilerServices; public val: UInt64; public constructor(val: UInt64) := self.val := val; - private static _PARTITION_BY_NAMES_LIST_END_EXT := new DevicePartitionPropertyExt($FFFFFFFFFFFFFFFF); private static _PARTITION_BY_COUNTS_LIST_END_EXT := new DevicePartitionPropertyExt($0000); private static _PROPERTIES_LIST_END_EXT := new DevicePartitionPropertyExt($0000); + private static _PARTITION_BY_NAMES_LIST_END_EXT := new DevicePartitionPropertyExt(-1); private static _DEVICE_PARTITION_EQUALLY_EXT := new DevicePartitionPropertyExt($4050); private static _DEVICE_PARTITION_BY_COUNTS_EXT := new DevicePartitionPropertyExt($4051); private static _DEVICE_PARTITION_BY_NAMES_EXT := new DevicePartitionPropertyExt($4052); private static _DEVICE_PARTITION_BY_AFFINITY_DOMAIN_EXT := new DevicePartitionPropertyExt($4053); - public static property PARTITION_BY_NAMES_LIST_END_EXT: DevicePartitionPropertyExt read _PARTITION_BY_NAMES_LIST_END_EXT; public static property PARTITION_BY_COUNTS_LIST_END_EXT: DevicePartitionPropertyExt read _PARTITION_BY_COUNTS_LIST_END_EXT; public static property PROPERTIES_LIST_END_EXT: DevicePartitionPropertyExt read _PROPERTIES_LIST_END_EXT; + public static property PARTITION_BY_NAMES_LIST_END_EXT: DevicePartitionPropertyExt read _PARTITION_BY_NAMES_LIST_END_EXT; public static property DEVICE_PARTITION_EQUALLY_EXT: DevicePartitionPropertyExt read _DEVICE_PARTITION_EQUALLY_EXT; public static property DEVICE_PARTITION_BY_COUNTS_EXT: DevicePartitionPropertyExt read _DEVICE_PARTITION_BY_COUNTS_EXT; public static property DEVICE_PARTITION_BY_NAMES_EXT: DevicePartitionPropertyExt read _DEVICE_PARTITION_BY_NAMES_EXT; @@ -1120,10 +1417,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DevicePartitionPropertyExt).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DevicePartitionPropertyExt(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DevicePartitionPropertyExt[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt64($0000) then Result := 'PARTITION_BY_COUNTS_LIST_END_EXT' else + if self.val = UInt64($0000) then Result := 'PROPERTIES_LIST_END_EXT' else + if self.val = UInt64(-1) then Result := 'PARTITION_BY_NAMES_LIST_END_EXT' else + if self.val = UInt64($4050) then Result := 'DEVICE_PARTITION_EQUALLY_EXT' else + if self.val = UInt64($4051) then Result := 'DEVICE_PARTITION_BY_COUNTS_EXT' else + if self.val = UInt64($4052) then Result := 'DEVICE_PARTITION_BY_NAMES_EXT' else + if self.val = UInt64($4053) then Result := 'DEVICE_PARTITION_BY_AFFINITY_DOMAIN_EXT' else + Result := self.val.ToString; end; end; @@ -1151,10 +1452,17 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DeviceSVMCapabilities).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'DeviceSVMCapabilities[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt64($0001) = UInt64($0001) then res += 'DEVICE_SVM_COARSE_GRAIN_BUFFER+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'DEVICE_SVM_FINE_GRAIN_BUFFER+'; + if self.val and UInt64($0004) = UInt64($0004) then res += 'DEVICE_SVM_FINE_GRAIN_SYSTEM+'; + if self.val and UInt64($0008) = UInt64($0008) then res += 'DEVICE_SVM_ATOMICS+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -1188,10 +1496,19 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DeviceType).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'DeviceType[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt64($0001) = UInt64($0001) then res += 'DEVICE_TYPE_DEFAULT+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'DEVICE_TYPE_CPU+'; + if self.val and UInt64($0004) = UInt64($0004) then res += 'DEVICE_TYPE_GPU+'; + if self.val and UInt64($0008) = UInt64($0008) then res += 'DEVICE_TYPE_ACCELERATOR+'; + if self.val and UInt64($0010) = UInt64($0010) then res += 'DEVICE_TYPE_CUSTOM+'; + if self.val and UInt64($FFFFFFFF) = UInt64($FFFFFFFF) then res += 'DEVICE_TYPE_ALL+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -1208,10 +1525,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(Dx9DeviceSetIntel).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->Dx9DeviceSetIntel(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'Dx9DeviceSetIntel[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($4024) then Result := 'PREFERRED_DEVICES_FOR_DX9_INTEL' else + if self.val = UInt32($4025) then Result := 'ALL_DEVICES_FOR_DX9_INTEL' else + Result := self.val.ToString; end; end; @@ -1230,10 +1546,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(Dx9DeviceSourceIntel).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->Dx9DeviceSourceIntel(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'Dx9DeviceSourceIntel[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($4022) then Result := 'D3D9_DEVICE_INTEL' else + if self.val = UInt32($4070) then Result := 'D3D9EX_DEVICE_INTEL' else + if self.val = UInt32($4071) then Result := 'DXVA_DEVICE_INTEL' else + Result := self.val.ToString; end; end; @@ -1249,10 +1565,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(EglImagePropertiesKhr).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->EglImagePropertiesKhr(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'EglImagePropertiesKhr[{ self.val=default(IntPtr) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = IntPtr($4107) then Result := 'EGL_YUV_PLANE_INTEL' else + Result := self.val.ToString; end; end; @@ -1261,206 +1575,299 @@ uses System.Runtime.CompilerServices; public val: Int32; public constructor(val: Int32) := self.val := val; - private static _PIPE_EMPTY_INTEL := new ErrorCode($FFFFFFFFFFFFFBAD); - private static _PIPE_FULL_INTEL := new ErrorCode($FFFFFFFFFFFFFBAE); - private static _VA_API_MEDIA_SURFACE_NOT_ACQUIRED_INTEL := new ErrorCode($FFFFFFFFFFFFFBB3); - private static _VA_API_MEDIA_SURFACE_ALREADY_ACQUIRED_INTEL := new ErrorCode($FFFFFFFFFFFFFBB4); - private static _INVALID_VA_API_MEDIA_SURFACE_INTEL := new ErrorCode($FFFFFFFFFFFFFBB5); - private static _INVALID_VA_API_MEDIA_ADAPTER_INTEL := new ErrorCode($FFFFFFFFFFFFFBB6); - private static _ACCELERATOR_TYPE_NOT_SUPPORTED_INTEL := new ErrorCode($FFFFFFFFFFFFFBB7); - private static _INVALID_ACCELERATOR_DESCRIPTOR_INTEL := new ErrorCode($FFFFFFFFFFFFFBB8); - private static _INVALID_ACCELERATOR_TYPE_INTEL := new ErrorCode($FFFFFFFFFFFFFBB9); - private static _INVALID_ACCELERATOR_INTEL := new ErrorCode($FFFFFFFFFFFFFBBA); - private static _INVALID_EGL_OBJECT_KHR := new ErrorCode($FFFFFFFFFFFFFBBB); - private static _EGL_RESOURCE_NOT_ACQUIRED_KHR := new ErrorCode($FFFFFFFFFFFFFBBC); - private static _INVALID_PARTITION_NAME_EXT := new ErrorCode($FFFFFFFFFFFFFBDD); - private static _INVALID_PARTITION_COUNT_EXT := new ErrorCode($FFFFFFFFFFFFFBDE); - private static _DEVICE_PARTITION_FAILED_EXT := new ErrorCode($FFFFFFFFFFFFFBDF); - private static _DX9_MEDIA_SURFACE_NOT_ACQUIRED_KHR := new ErrorCode($FFFFFFFFFFFFFC0B); - private static _DX9_RESOURCE_NOT_ACQUIRED_INTEL := new ErrorCode($FFFFFFFFFFFFFC0B); - private static _DX9_MEDIA_SURFACE_ALREADY_ACQUIRED_KHR := new ErrorCode($FFFFFFFFFFFFFC0C); - private static _DX9_RESOURCE_ALREADY_ACQUIRED_INTEL := new ErrorCode($FFFFFFFFFFFFFC0C); - private static _INVALID_DX9_MEDIA_SURFACE_KHR := new ErrorCode($FFFFFFFFFFFFFC0D); - private static _INVALID_DX9_RESOURCE_INTEL := new ErrorCode($FFFFFFFFFFFFFC0D); - private static _INVALID_DX9_DEVICE_INTEL := new ErrorCode($FFFFFFFFFFFFFC0E); - private static _INVALID_DX9_MEDIA_ADAPTER_KHR := new ErrorCode($FFFFFFFFFFFFFC0E); - private static _D3D11_RESOURCE_NOT_ACQUIRED_KHR := new ErrorCode($FFFFFFFFFFFFFC0F); - private static _D3D11_RESOURCE_ALREADY_ACQUIRED_KHR := new ErrorCode($FFFFFFFFFFFFFC10); - private static _INVALID_D3D11_RESOURCE_KHR := new ErrorCode($FFFFFFFFFFFFFC11); - private static _INVALID_D3D11_DEVICE_KHR := new ErrorCode($FFFFFFFFFFFFFC12); - private static _D3D10_RESOURCE_NOT_ACQUIRED_KHR := new ErrorCode($FFFFFFFFFFFFFC13); - private static _D3D10_RESOURCE_ALREADY_ACQUIRED_KHR := new ErrorCode($FFFFFFFFFFFFFC14); - private static _INVALID_D3D10_RESOURCE_KHR := new ErrorCode($FFFFFFFFFFFFFC15); - private static _INVALID_D3D10_DEVICE_KHR := new ErrorCode($FFFFFFFFFFFFFC16); - private static _PLATFORM_NOT_FOUND_KHR := new ErrorCode($FFFFFFFFFFFFFC17); - private static _INVALID_GL_SHAREGROUP_REFERENCE_KHR := new ErrorCode($FFFFFFFFFFFFFC18); - private static _MAX_SIZE_RESTRICTION_EXCEEDED := new ErrorCode($FFFFFFFFFFFFFFB8); - private static _INVALID_SPEC_ID := new ErrorCode($FFFFFFFFFFFFFFB9); - private static _INVALID_DEVICE_QUEUE := new ErrorCode($FFFFFFFFFFFFFFBA); - private static _INVALID_PIPE_SIZE := new ErrorCode($FFFFFFFFFFFFFFBB); - private static _INVALID_DEVICE_PARTITION_COUNT := new ErrorCode($FFFFFFFFFFFFFFBC); - private static _INVALID_LINKER_OPTIONS := new ErrorCode($FFFFFFFFFFFFFFBD); - private static _INVALID_COMPILER_OPTIONS := new ErrorCode($FFFFFFFFFFFFFFBE); - private static _INVALID_IMAGE_DESCRIPTOR := new ErrorCode($FFFFFFFFFFFFFFBF); - private static _INVALID_PROPERTY := new ErrorCode($FFFFFFFFFFFFFFC0); - private static _INVALID_GLOBAL_WORK_SIZE := new ErrorCode($FFFFFFFFFFFFFFC1); - private static _INVALID_MIP_LEVEL := new ErrorCode($FFFFFFFFFFFFFFC2); - private static _INVALID_BUFFER_SIZE := new ErrorCode($FFFFFFFFFFFFFFC3); - private static _INVALID_GL_OBJECT := new ErrorCode($FFFFFFFFFFFFFFC4); - private static _INVALID_OPERATION := new ErrorCode($FFFFFFFFFFFFFFC5); - private static _INVALID_EVENT := new ErrorCode($FFFFFFFFFFFFFFC6); - private static _INVALID_EVENT_WAIT_LIST := new ErrorCode($FFFFFFFFFFFFFFC7); - private static _INVALID_GLOBAL_OFFSET := new ErrorCode($FFFFFFFFFFFFFFC8); - private static _INVALID_WORK_ITEM_SIZE := new ErrorCode($FFFFFFFFFFFFFFC9); - private static _INVALID_WORK_GROUP_SIZE := new ErrorCode($FFFFFFFFFFFFFFCA); - private static _INVALID_WORK_DIMENSION := new ErrorCode($FFFFFFFFFFFFFFCB); - private static _INVALID_KERNEL_ARGS := new ErrorCode($FFFFFFFFFFFFFFCC); - private static _INVALID_ARG_SIZE := new ErrorCode($FFFFFFFFFFFFFFCD); - private static _INVALID_ARG_VALUE := new ErrorCode($FFFFFFFFFFFFFFCE); - private static _INVALID_ARG_INDEX := new ErrorCode($FFFFFFFFFFFFFFCF); - private static _INVALID_KERNEL := new ErrorCode($FFFFFFFFFFFFFFD0); - private static _INVALID_KERNEL_DEFINITION := new ErrorCode($FFFFFFFFFFFFFFD1); - private static _INVALID_KERNEL_NAME := new ErrorCode($FFFFFFFFFFFFFFD2); - private static _INVALID_PROGRAM_EXECUTABLE := new ErrorCode($FFFFFFFFFFFFFFD3); - private static _INVALID_PROGRAM := new ErrorCode($FFFFFFFFFFFFFFD4); - private static _INVALID_BUILD_OPTIONS := new ErrorCode($FFFFFFFFFFFFFFD5); - private static _INVALID_BINARY := new ErrorCode($FFFFFFFFFFFFFFD6); - private static _INVALID_SAMPLER := new ErrorCode($FFFFFFFFFFFFFFD7); - private static _INVALID_IMAGE_SIZE := new ErrorCode($FFFFFFFFFFFFFFD8); - private static _INVALID_IMAGE_FORMAT_DESCRIPTOR := new ErrorCode($FFFFFFFFFFFFFFD9); - private static _INVALID_MEM_OBJECT := new ErrorCode($FFFFFFFFFFFFFFDA); - private static _INVALID_HOST_PTR := new ErrorCode($FFFFFFFFFFFFFFDB); - private static _INVALID_COMMAND_QUEUE := new ErrorCode($FFFFFFFFFFFFFFDC); - private static _INVALID_QUEUE_PROPERTIES := new ErrorCode($FFFFFFFFFFFFFFDD); - private static _INVALID_CONTEXT := new ErrorCode($FFFFFFFFFFFFFFDE); - private static _INVALID_DEVICE := new ErrorCode($FFFFFFFFFFFFFFDF); - private static _INVALID_PLATFORM := new ErrorCode($FFFFFFFFFFFFFFE0); - private static _INVALID_DEVICE_TYPE := new ErrorCode($FFFFFFFFFFFFFFE1); - private static _INVALID_VALUE := new ErrorCode($FFFFFFFFFFFFFFE2); - private static _KERNEL_ARG_INFO_NOT_AVAILABLE := new ErrorCode($FFFFFFFFFFFFFFED); - private static _DEVICE_PARTITION_FAILED := new ErrorCode($FFFFFFFFFFFFFFEE); - private static _LINK_PROGRAM_FAILURE := new ErrorCode($FFFFFFFFFFFFFFEF); - private static _LINKER_NOT_AVAILABLE := new ErrorCode($FFFFFFFFFFFFFFF0); - private static _COMPILE_PROGRAM_FAILURE := new ErrorCode($FFFFFFFFFFFFFFF1); - private static _EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST := new ErrorCode($FFFFFFFFFFFFFFF2); - private static _MISALIGNED_SUB_BUFFER_OFFSET := new ErrorCode($FFFFFFFFFFFFFFF3); - private static _MAP_FAILURE := new ErrorCode($FFFFFFFFFFFFFFF4); - private static _BUILD_PROGRAM_FAILURE := new ErrorCode($FFFFFFFFFFFFFFF5); - private static _IMAGE_FORMAT_NOT_SUPPORTED := new ErrorCode($FFFFFFFFFFFFFFF6); - private static _IMAGE_FORMAT_MISMATCH := new ErrorCode($FFFFFFFFFFFFFFF7); - private static _MEM_COPY_OVERLAP := new ErrorCode($FFFFFFFFFFFFFFF8); - private static _PROFILING_INFO_NOT_AVAILABLE := new ErrorCode($FFFFFFFFFFFFFFF9); - private static _OUT_OF_HOST_MEMORY := new ErrorCode($FFFFFFFFFFFFFFFA); - private static _OUT_OF_RESOURCES := new ErrorCode($FFFFFFFFFFFFFFFB); - private static _MEM_OBJECT_ALLOCATION_FAILURE := new ErrorCode($FFFFFFFFFFFFFFFC); - private static _COMPILER_NOT_AVAILABLE := new ErrorCode($FFFFFFFFFFFFFFFD); - private static _DEVICE_NOT_AVAILABLE := new ErrorCode($FFFFFFFFFFFFFFFE); - private static _DEVICE_NOT_FOUND := new ErrorCode($FFFFFFFFFFFFFFFF); private static _SUCCESS := new ErrorCode($0000); + private static _DEVICE_NOT_FOUND := new ErrorCode(-1); + private static _DEVICE_NOT_AVAILABLE := new ErrorCode(-2); + private static _COMPILER_NOT_AVAILABLE := new ErrorCode(-3); + private static _MEM_OBJECT_ALLOCATION_FAILURE := new ErrorCode(-4); + private static _OUT_OF_RESOURCES := new ErrorCode(-5); + private static _OUT_OF_HOST_MEMORY := new ErrorCode(-6); + private static _PROFILING_INFO_NOT_AVAILABLE := new ErrorCode(-7); + private static _MEM_COPY_OVERLAP := new ErrorCode(-8); + private static _IMAGE_FORMAT_MISMATCH := new ErrorCode(-9); + private static _IMAGE_FORMAT_NOT_SUPPORTED := new ErrorCode(-10); + private static _BUILD_PROGRAM_FAILURE := new ErrorCode(-11); + private static _MAP_FAILURE := new ErrorCode(-12); + private static _MISALIGNED_SUB_BUFFER_OFFSET := new ErrorCode(-13); + private static _EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST := new ErrorCode(-14); + private static _COMPILE_PROGRAM_FAILURE := new ErrorCode(-15); + private static _LINKER_NOT_AVAILABLE := new ErrorCode(-16); + private static _LINK_PROGRAM_FAILURE := new ErrorCode(-17); + private static _DEVICE_PARTITION_FAILED := new ErrorCode(-18); + private static _KERNEL_ARG_INFO_NOT_AVAILABLE := new ErrorCode(-19); + private static _INVALID_VALUE := new ErrorCode(-30); + private static _INVALID_DEVICE_TYPE := new ErrorCode(-31); + private static _INVALID_PLATFORM := new ErrorCode(-32); + private static _INVALID_DEVICE := new ErrorCode(-33); + private static _INVALID_CONTEXT := new ErrorCode(-34); + private static _INVALID_QUEUE_PROPERTIES := new ErrorCode(-35); + private static _INVALID_COMMAND_QUEUE := new ErrorCode(-36); + private static _INVALID_HOST_PTR := new ErrorCode(-37); + private static _INVALID_MEM_OBJECT := new ErrorCode(-38); + private static _INVALID_IMAGE_FORMAT_DESCRIPTOR := new ErrorCode(-39); + private static _INVALID_IMAGE_SIZE := new ErrorCode(-40); + private static _INVALID_SAMPLER := new ErrorCode(-41); + private static _INVALID_BINARY := new ErrorCode(-42); + private static _INVALID_BUILD_OPTIONS := new ErrorCode(-43); + private static _INVALID_PROGRAM := new ErrorCode(-44); + private static _INVALID_PROGRAM_EXECUTABLE := new ErrorCode(-45); + private static _INVALID_KERNEL_NAME := new ErrorCode(-46); + private static _INVALID_KERNEL_DEFINITION := new ErrorCode(-47); + private static _INVALID_KERNEL := new ErrorCode(-48); + private static _INVALID_ARG_INDEX := new ErrorCode(-49); + private static _INVALID_ARG_VALUE := new ErrorCode(-50); + private static _INVALID_ARG_SIZE := new ErrorCode(-51); + private static _INVALID_KERNEL_ARGS := new ErrorCode(-52); + private static _INVALID_WORK_DIMENSION := new ErrorCode(-53); + private static _INVALID_WORK_GROUP_SIZE := new ErrorCode(-54); + private static _INVALID_WORK_ITEM_SIZE := new ErrorCode(-55); + private static _INVALID_GLOBAL_OFFSET := new ErrorCode(-56); + private static _INVALID_EVENT_WAIT_LIST := new ErrorCode(-57); + private static _INVALID_EVENT := new ErrorCode(-58); + private static _INVALID_OPERATION := new ErrorCode(-59); + private static _INVALID_GL_OBJECT := new ErrorCode(-60); + private static _INVALID_BUFFER_SIZE := new ErrorCode(-61); + private static _INVALID_MIP_LEVEL := new ErrorCode(-62); + private static _INVALID_GLOBAL_WORK_SIZE := new ErrorCode(-63); + private static _INVALID_PROPERTY := new ErrorCode(-64); + private static _INVALID_IMAGE_DESCRIPTOR := new ErrorCode(-65); + private static _INVALID_COMPILER_OPTIONS := new ErrorCode(-66); + private static _INVALID_LINKER_OPTIONS := new ErrorCode(-67); + private static _INVALID_DEVICE_PARTITION_COUNT := new ErrorCode(-68); + private static _INVALID_PIPE_SIZE := new ErrorCode(-69); + private static _INVALID_DEVICE_QUEUE := new ErrorCode(-70); + private static _INVALID_SPEC_ID := new ErrorCode(-71); + private static _MAX_SIZE_RESTRICTION_EXCEEDED := new ErrorCode(-72); + private static _INVALID_GL_SHAREGROUP_REFERENCE_KHR := new ErrorCode(-1000); + private static _PLATFORM_NOT_FOUND_KHR := new ErrorCode(-1001); + private static _INVALID_D3D10_DEVICE_KHR := new ErrorCode(-1002); + private static _INVALID_D3D10_RESOURCE_KHR := new ErrorCode(-1003); + private static _D3D10_RESOURCE_ALREADY_ACQUIRED_KHR := new ErrorCode(-1004); + private static _D3D10_RESOURCE_NOT_ACQUIRED_KHR := new ErrorCode(-1005); + private static _INVALID_D3D11_DEVICE_KHR := new ErrorCode(-1006); + private static _INVALID_D3D11_RESOURCE_KHR := new ErrorCode(-1007); + private static _D3D11_RESOURCE_ALREADY_ACQUIRED_KHR := new ErrorCode(-1008); + private static _D3D11_RESOURCE_NOT_ACQUIRED_KHR := new ErrorCode(-1009); + private static _INVALID_DX9_DEVICE_INTEL := new ErrorCode(-1010); + private static _INVALID_DX9_MEDIA_ADAPTER_KHR := new ErrorCode(-1010); + private static _INVALID_DX9_MEDIA_SURFACE_KHR := new ErrorCode(-1011); + private static _INVALID_DX9_RESOURCE_INTEL := new ErrorCode(-1011); + private static _DX9_MEDIA_SURFACE_ALREADY_ACQUIRED_KHR := new ErrorCode(-1012); + private static _DX9_RESOURCE_ALREADY_ACQUIRED_INTEL := new ErrorCode(-1012); + private static _DX9_MEDIA_SURFACE_NOT_ACQUIRED_KHR := new ErrorCode(-1013); + private static _DX9_RESOURCE_NOT_ACQUIRED_INTEL := new ErrorCode(-1013); + private static _DEVICE_PARTITION_FAILED_EXT := new ErrorCode(-1057); + private static _INVALID_PARTITION_COUNT_EXT := new ErrorCode(-1058); + private static _INVALID_PARTITION_NAME_EXT := new ErrorCode(-1059); + private static _EGL_RESOURCE_NOT_ACQUIRED_KHR := new ErrorCode(-1092); + private static _INVALID_EGL_OBJECT_KHR := new ErrorCode(-1093); + private static _INVALID_ACCELERATOR_INTEL := new ErrorCode(-1094); + private static _INVALID_ACCELERATOR_TYPE_INTEL := new ErrorCode(-1095); + private static _INVALID_ACCELERATOR_DESCRIPTOR_INTEL := new ErrorCode(-1096); + private static _ACCELERATOR_TYPE_NOT_SUPPORTED_INTEL := new ErrorCode(-1097); + private static _INVALID_VA_API_MEDIA_ADAPTER_INTEL := new ErrorCode(-1098); + private static _INVALID_VA_API_MEDIA_SURFACE_INTEL := new ErrorCode(-1099); + private static _VA_API_MEDIA_SURFACE_ALREADY_ACQUIRED_INTEL := new ErrorCode(-1100); + private static _VA_API_MEDIA_SURFACE_NOT_ACQUIRED_INTEL := new ErrorCode(-1101); + private static _PIPE_FULL_INTEL := new ErrorCode(-1106); + private static _PIPE_EMPTY_INTEL := new ErrorCode(-1107); - public static property PIPE_EMPTY_INTEL: ErrorCode read _PIPE_EMPTY_INTEL; - public static property PIPE_FULL_INTEL: ErrorCode read _PIPE_FULL_INTEL; - public static property VA_API_MEDIA_SURFACE_NOT_ACQUIRED_INTEL: ErrorCode read _VA_API_MEDIA_SURFACE_NOT_ACQUIRED_INTEL; - public static property VA_API_MEDIA_SURFACE_ALREADY_ACQUIRED_INTEL: ErrorCode read _VA_API_MEDIA_SURFACE_ALREADY_ACQUIRED_INTEL; - public static property INVALID_VA_API_MEDIA_SURFACE_INTEL: ErrorCode read _INVALID_VA_API_MEDIA_SURFACE_INTEL; - public static property INVALID_VA_API_MEDIA_ADAPTER_INTEL: ErrorCode read _INVALID_VA_API_MEDIA_ADAPTER_INTEL; - public static property ACCELERATOR_TYPE_NOT_SUPPORTED_INTEL: ErrorCode read _ACCELERATOR_TYPE_NOT_SUPPORTED_INTEL; - public static property INVALID_ACCELERATOR_DESCRIPTOR_INTEL: ErrorCode read _INVALID_ACCELERATOR_DESCRIPTOR_INTEL; - public static property INVALID_ACCELERATOR_TYPE_INTEL: ErrorCode read _INVALID_ACCELERATOR_TYPE_INTEL; - public static property INVALID_ACCELERATOR_INTEL: ErrorCode read _INVALID_ACCELERATOR_INTEL; - public static property INVALID_EGL_OBJECT_KHR: ErrorCode read _INVALID_EGL_OBJECT_KHR; - public static property EGL_RESOURCE_NOT_ACQUIRED_KHR: ErrorCode read _EGL_RESOURCE_NOT_ACQUIRED_KHR; - public static property INVALID_PARTITION_NAME_EXT: ErrorCode read _INVALID_PARTITION_NAME_EXT; - public static property INVALID_PARTITION_COUNT_EXT: ErrorCode read _INVALID_PARTITION_COUNT_EXT; - public static property DEVICE_PARTITION_FAILED_EXT: ErrorCode read _DEVICE_PARTITION_FAILED_EXT; - public static property DX9_MEDIA_SURFACE_NOT_ACQUIRED_KHR: ErrorCode read _DX9_MEDIA_SURFACE_NOT_ACQUIRED_KHR; - public static property DX9_RESOURCE_NOT_ACQUIRED_INTEL: ErrorCode read _DX9_RESOURCE_NOT_ACQUIRED_INTEL; - public static property DX9_MEDIA_SURFACE_ALREADY_ACQUIRED_KHR: ErrorCode read _DX9_MEDIA_SURFACE_ALREADY_ACQUIRED_KHR; - public static property DX9_RESOURCE_ALREADY_ACQUIRED_INTEL: ErrorCode read _DX9_RESOURCE_ALREADY_ACQUIRED_INTEL; - public static property INVALID_DX9_MEDIA_SURFACE_KHR: ErrorCode read _INVALID_DX9_MEDIA_SURFACE_KHR; - public static property INVALID_DX9_RESOURCE_INTEL: ErrorCode read _INVALID_DX9_RESOURCE_INTEL; + public static property SUCCESS: ErrorCode read _SUCCESS; + public static property DEVICE_NOT_FOUND: ErrorCode read _DEVICE_NOT_FOUND; + public static property DEVICE_NOT_AVAILABLE: ErrorCode read _DEVICE_NOT_AVAILABLE; + public static property COMPILER_NOT_AVAILABLE: ErrorCode read _COMPILER_NOT_AVAILABLE; + public static property MEM_OBJECT_ALLOCATION_FAILURE: ErrorCode read _MEM_OBJECT_ALLOCATION_FAILURE; + public static property OUT_OF_RESOURCES: ErrorCode read _OUT_OF_RESOURCES; + public static property OUT_OF_HOST_MEMORY: ErrorCode read _OUT_OF_HOST_MEMORY; + public static property PROFILING_INFO_NOT_AVAILABLE: ErrorCode read _PROFILING_INFO_NOT_AVAILABLE; + public static property MEM_COPY_OVERLAP: ErrorCode read _MEM_COPY_OVERLAP; + public static property IMAGE_FORMAT_MISMATCH: ErrorCode read _IMAGE_FORMAT_MISMATCH; + public static property IMAGE_FORMAT_NOT_SUPPORTED: ErrorCode read _IMAGE_FORMAT_NOT_SUPPORTED; + public static property BUILD_PROGRAM_FAILURE: ErrorCode read _BUILD_PROGRAM_FAILURE; + public static property MAP_FAILURE: ErrorCode read _MAP_FAILURE; + public static property MISALIGNED_SUB_BUFFER_OFFSET: ErrorCode read _MISALIGNED_SUB_BUFFER_OFFSET; + public static property EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST: ErrorCode read _EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST; + public static property COMPILE_PROGRAM_FAILURE: ErrorCode read _COMPILE_PROGRAM_FAILURE; + public static property LINKER_NOT_AVAILABLE: ErrorCode read _LINKER_NOT_AVAILABLE; + public static property LINK_PROGRAM_FAILURE: ErrorCode read _LINK_PROGRAM_FAILURE; + public static property DEVICE_PARTITION_FAILED: ErrorCode read _DEVICE_PARTITION_FAILED; + public static property KERNEL_ARG_INFO_NOT_AVAILABLE: ErrorCode read _KERNEL_ARG_INFO_NOT_AVAILABLE; + public static property INVALID_VALUE: ErrorCode read _INVALID_VALUE; + public static property INVALID_DEVICE_TYPE: ErrorCode read _INVALID_DEVICE_TYPE; + public static property INVALID_PLATFORM: ErrorCode read _INVALID_PLATFORM; + public static property INVALID_DEVICE: ErrorCode read _INVALID_DEVICE; + public static property INVALID_CONTEXT: ErrorCode read _INVALID_CONTEXT; + public static property INVALID_QUEUE_PROPERTIES: ErrorCode read _INVALID_QUEUE_PROPERTIES; + public static property INVALID_COMMAND_QUEUE: ErrorCode read _INVALID_COMMAND_QUEUE; + public static property INVALID_HOST_PTR: ErrorCode read _INVALID_HOST_PTR; + public static property INVALID_MEM_OBJECT: ErrorCode read _INVALID_MEM_OBJECT; + public static property INVALID_IMAGE_FORMAT_DESCRIPTOR: ErrorCode read _INVALID_IMAGE_FORMAT_DESCRIPTOR; + public static property INVALID_IMAGE_SIZE: ErrorCode read _INVALID_IMAGE_SIZE; + public static property INVALID_SAMPLER: ErrorCode read _INVALID_SAMPLER; + public static property INVALID_BINARY: ErrorCode read _INVALID_BINARY; + public static property INVALID_BUILD_OPTIONS: ErrorCode read _INVALID_BUILD_OPTIONS; + public static property INVALID_PROGRAM: ErrorCode read _INVALID_PROGRAM; + public static property INVALID_PROGRAM_EXECUTABLE: ErrorCode read _INVALID_PROGRAM_EXECUTABLE; + public static property INVALID_KERNEL_NAME: ErrorCode read _INVALID_KERNEL_NAME; + public static property INVALID_KERNEL_DEFINITION: ErrorCode read _INVALID_KERNEL_DEFINITION; + public static property INVALID_KERNEL: ErrorCode read _INVALID_KERNEL; + public static property INVALID_ARG_INDEX: ErrorCode read _INVALID_ARG_INDEX; + public static property INVALID_ARG_VALUE: ErrorCode read _INVALID_ARG_VALUE; + public static property INVALID_ARG_SIZE: ErrorCode read _INVALID_ARG_SIZE; + public static property INVALID_KERNEL_ARGS: ErrorCode read _INVALID_KERNEL_ARGS; + public static property INVALID_WORK_DIMENSION: ErrorCode read _INVALID_WORK_DIMENSION; + public static property INVALID_WORK_GROUP_SIZE: ErrorCode read _INVALID_WORK_GROUP_SIZE; + public static property INVALID_WORK_ITEM_SIZE: ErrorCode read _INVALID_WORK_ITEM_SIZE; + public static property INVALID_GLOBAL_OFFSET: ErrorCode read _INVALID_GLOBAL_OFFSET; + public static property INVALID_EVENT_WAIT_LIST: ErrorCode read _INVALID_EVENT_WAIT_LIST; + public static property INVALID_EVENT: ErrorCode read _INVALID_EVENT; + public static property INVALID_OPERATION: ErrorCode read _INVALID_OPERATION; + public static property INVALID_GL_OBJECT: ErrorCode read _INVALID_GL_OBJECT; + public static property INVALID_BUFFER_SIZE: ErrorCode read _INVALID_BUFFER_SIZE; + public static property INVALID_MIP_LEVEL: ErrorCode read _INVALID_MIP_LEVEL; + public static property INVALID_GLOBAL_WORK_SIZE: ErrorCode read _INVALID_GLOBAL_WORK_SIZE; + public static property INVALID_PROPERTY: ErrorCode read _INVALID_PROPERTY; + public static property INVALID_IMAGE_DESCRIPTOR: ErrorCode read _INVALID_IMAGE_DESCRIPTOR; + public static property INVALID_COMPILER_OPTIONS: ErrorCode read _INVALID_COMPILER_OPTIONS; + public static property INVALID_LINKER_OPTIONS: ErrorCode read _INVALID_LINKER_OPTIONS; + public static property INVALID_DEVICE_PARTITION_COUNT: ErrorCode read _INVALID_DEVICE_PARTITION_COUNT; + public static property INVALID_PIPE_SIZE: ErrorCode read _INVALID_PIPE_SIZE; + public static property INVALID_DEVICE_QUEUE: ErrorCode read _INVALID_DEVICE_QUEUE; + public static property INVALID_SPEC_ID: ErrorCode read _INVALID_SPEC_ID; + public static property MAX_SIZE_RESTRICTION_EXCEEDED: ErrorCode read _MAX_SIZE_RESTRICTION_EXCEEDED; + public static property INVALID_GL_SHAREGROUP_REFERENCE_KHR: ErrorCode read _INVALID_GL_SHAREGROUP_REFERENCE_KHR; + public static property PLATFORM_NOT_FOUND_KHR: ErrorCode read _PLATFORM_NOT_FOUND_KHR; + public static property INVALID_D3D10_DEVICE_KHR: ErrorCode read _INVALID_D3D10_DEVICE_KHR; + public static property INVALID_D3D10_RESOURCE_KHR: ErrorCode read _INVALID_D3D10_RESOURCE_KHR; + public static property D3D10_RESOURCE_ALREADY_ACQUIRED_KHR: ErrorCode read _D3D10_RESOURCE_ALREADY_ACQUIRED_KHR; + public static property D3D10_RESOURCE_NOT_ACQUIRED_KHR: ErrorCode read _D3D10_RESOURCE_NOT_ACQUIRED_KHR; + public static property INVALID_D3D11_DEVICE_KHR: ErrorCode read _INVALID_D3D11_DEVICE_KHR; + public static property INVALID_D3D11_RESOURCE_KHR: ErrorCode read _INVALID_D3D11_RESOURCE_KHR; + public static property D3D11_RESOURCE_ALREADY_ACQUIRED_KHR: ErrorCode read _D3D11_RESOURCE_ALREADY_ACQUIRED_KHR; + public static property D3D11_RESOURCE_NOT_ACQUIRED_KHR: ErrorCode read _D3D11_RESOURCE_NOT_ACQUIRED_KHR; public static property INVALID_DX9_DEVICE_INTEL: ErrorCode read _INVALID_DX9_DEVICE_INTEL; public static property INVALID_DX9_MEDIA_ADAPTER_KHR: ErrorCode read _INVALID_DX9_MEDIA_ADAPTER_KHR; - public static property D3D11_RESOURCE_NOT_ACQUIRED_KHR: ErrorCode read _D3D11_RESOURCE_NOT_ACQUIRED_KHR; - public static property D3D11_RESOURCE_ALREADY_ACQUIRED_KHR: ErrorCode read _D3D11_RESOURCE_ALREADY_ACQUIRED_KHR; - public static property INVALID_D3D11_RESOURCE_KHR: ErrorCode read _INVALID_D3D11_RESOURCE_KHR; - public static property INVALID_D3D11_DEVICE_KHR: ErrorCode read _INVALID_D3D11_DEVICE_KHR; - public static property D3D10_RESOURCE_NOT_ACQUIRED_KHR: ErrorCode read _D3D10_RESOURCE_NOT_ACQUIRED_KHR; - public static property D3D10_RESOURCE_ALREADY_ACQUIRED_KHR: ErrorCode read _D3D10_RESOURCE_ALREADY_ACQUIRED_KHR; - public static property INVALID_D3D10_RESOURCE_KHR: ErrorCode read _INVALID_D3D10_RESOURCE_KHR; - public static property INVALID_D3D10_DEVICE_KHR: ErrorCode read _INVALID_D3D10_DEVICE_KHR; - public static property PLATFORM_NOT_FOUND_KHR: ErrorCode read _PLATFORM_NOT_FOUND_KHR; - public static property INVALID_GL_SHAREGROUP_REFERENCE_KHR: ErrorCode read _INVALID_GL_SHAREGROUP_REFERENCE_KHR; - public static property MAX_SIZE_RESTRICTION_EXCEEDED: ErrorCode read _MAX_SIZE_RESTRICTION_EXCEEDED; - public static property INVALID_SPEC_ID: ErrorCode read _INVALID_SPEC_ID; - public static property INVALID_DEVICE_QUEUE: ErrorCode read _INVALID_DEVICE_QUEUE; - public static property INVALID_PIPE_SIZE: ErrorCode read _INVALID_PIPE_SIZE; - public static property INVALID_DEVICE_PARTITION_COUNT: ErrorCode read _INVALID_DEVICE_PARTITION_COUNT; - public static property INVALID_LINKER_OPTIONS: ErrorCode read _INVALID_LINKER_OPTIONS; - public static property INVALID_COMPILER_OPTIONS: ErrorCode read _INVALID_COMPILER_OPTIONS; - public static property INVALID_IMAGE_DESCRIPTOR: ErrorCode read _INVALID_IMAGE_DESCRIPTOR; - public static property INVALID_PROPERTY: ErrorCode read _INVALID_PROPERTY; - public static property INVALID_GLOBAL_WORK_SIZE: ErrorCode read _INVALID_GLOBAL_WORK_SIZE; - public static property INVALID_MIP_LEVEL: ErrorCode read _INVALID_MIP_LEVEL; - public static property INVALID_BUFFER_SIZE: ErrorCode read _INVALID_BUFFER_SIZE; - public static property INVALID_GL_OBJECT: ErrorCode read _INVALID_GL_OBJECT; - public static property INVALID_OPERATION: ErrorCode read _INVALID_OPERATION; - public static property INVALID_EVENT: ErrorCode read _INVALID_EVENT; - public static property INVALID_EVENT_WAIT_LIST: ErrorCode read _INVALID_EVENT_WAIT_LIST; - public static property INVALID_GLOBAL_OFFSET: ErrorCode read _INVALID_GLOBAL_OFFSET; - public static property INVALID_WORK_ITEM_SIZE: ErrorCode read _INVALID_WORK_ITEM_SIZE; - public static property INVALID_WORK_GROUP_SIZE: ErrorCode read _INVALID_WORK_GROUP_SIZE; - public static property INVALID_WORK_DIMENSION: ErrorCode read _INVALID_WORK_DIMENSION; - public static property INVALID_KERNEL_ARGS: ErrorCode read _INVALID_KERNEL_ARGS; - public static property INVALID_ARG_SIZE: ErrorCode read _INVALID_ARG_SIZE; - public static property INVALID_ARG_VALUE: ErrorCode read _INVALID_ARG_VALUE; - public static property INVALID_ARG_INDEX: ErrorCode read _INVALID_ARG_INDEX; - public static property INVALID_KERNEL: ErrorCode read _INVALID_KERNEL; - public static property INVALID_KERNEL_DEFINITION: ErrorCode read _INVALID_KERNEL_DEFINITION; - public static property INVALID_KERNEL_NAME: ErrorCode read _INVALID_KERNEL_NAME; - public static property INVALID_PROGRAM_EXECUTABLE: ErrorCode read _INVALID_PROGRAM_EXECUTABLE; - public static property INVALID_PROGRAM: ErrorCode read _INVALID_PROGRAM; - public static property INVALID_BUILD_OPTIONS: ErrorCode read _INVALID_BUILD_OPTIONS; - public static property INVALID_BINARY: ErrorCode read _INVALID_BINARY; - public static property INVALID_SAMPLER: ErrorCode read _INVALID_SAMPLER; - public static property INVALID_IMAGE_SIZE: ErrorCode read _INVALID_IMAGE_SIZE; - public static property INVALID_IMAGE_FORMAT_DESCRIPTOR: ErrorCode read _INVALID_IMAGE_FORMAT_DESCRIPTOR; - public static property INVALID_MEM_OBJECT: ErrorCode read _INVALID_MEM_OBJECT; - public static property INVALID_HOST_PTR: ErrorCode read _INVALID_HOST_PTR; - public static property INVALID_COMMAND_QUEUE: ErrorCode read _INVALID_COMMAND_QUEUE; - public static property INVALID_QUEUE_PROPERTIES: ErrorCode read _INVALID_QUEUE_PROPERTIES; - public static property INVALID_CONTEXT: ErrorCode read _INVALID_CONTEXT; - public static property INVALID_DEVICE: ErrorCode read _INVALID_DEVICE; - public static property INVALID_PLATFORM: ErrorCode read _INVALID_PLATFORM; - public static property INVALID_DEVICE_TYPE: ErrorCode read _INVALID_DEVICE_TYPE; - public static property INVALID_VALUE: ErrorCode read _INVALID_VALUE; - public static property KERNEL_ARG_INFO_NOT_AVAILABLE: ErrorCode read _KERNEL_ARG_INFO_NOT_AVAILABLE; - public static property DEVICE_PARTITION_FAILED: ErrorCode read _DEVICE_PARTITION_FAILED; - public static property LINK_PROGRAM_FAILURE: ErrorCode read _LINK_PROGRAM_FAILURE; - public static property LINKER_NOT_AVAILABLE: ErrorCode read _LINKER_NOT_AVAILABLE; - public static property COMPILE_PROGRAM_FAILURE: ErrorCode read _COMPILE_PROGRAM_FAILURE; - public static property EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST: ErrorCode read _EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST; - public static property MISALIGNED_SUB_BUFFER_OFFSET: ErrorCode read _MISALIGNED_SUB_BUFFER_OFFSET; - public static property MAP_FAILURE: ErrorCode read _MAP_FAILURE; - public static property BUILD_PROGRAM_FAILURE: ErrorCode read _BUILD_PROGRAM_FAILURE; - public static property IMAGE_FORMAT_NOT_SUPPORTED: ErrorCode read _IMAGE_FORMAT_NOT_SUPPORTED; - public static property IMAGE_FORMAT_MISMATCH: ErrorCode read _IMAGE_FORMAT_MISMATCH; - public static property MEM_COPY_OVERLAP: ErrorCode read _MEM_COPY_OVERLAP; - public static property PROFILING_INFO_NOT_AVAILABLE: ErrorCode read _PROFILING_INFO_NOT_AVAILABLE; - public static property OUT_OF_HOST_MEMORY: ErrorCode read _OUT_OF_HOST_MEMORY; - public static property OUT_OF_RESOURCES: ErrorCode read _OUT_OF_RESOURCES; - public static property MEM_OBJECT_ALLOCATION_FAILURE: ErrorCode read _MEM_OBJECT_ALLOCATION_FAILURE; - public static property COMPILER_NOT_AVAILABLE: ErrorCode read _COMPILER_NOT_AVAILABLE; - public static property DEVICE_NOT_AVAILABLE: ErrorCode read _DEVICE_NOT_AVAILABLE; - public static property DEVICE_NOT_FOUND: ErrorCode read _DEVICE_NOT_FOUND; - public static property SUCCESS: ErrorCode read _SUCCESS; + public static property INVALID_DX9_MEDIA_SURFACE_KHR: ErrorCode read _INVALID_DX9_MEDIA_SURFACE_KHR; + public static property INVALID_DX9_RESOURCE_INTEL: ErrorCode read _INVALID_DX9_RESOURCE_INTEL; + public static property DX9_MEDIA_SURFACE_ALREADY_ACQUIRED_KHR: ErrorCode read _DX9_MEDIA_SURFACE_ALREADY_ACQUIRED_KHR; + public static property DX9_RESOURCE_ALREADY_ACQUIRED_INTEL: ErrorCode read _DX9_RESOURCE_ALREADY_ACQUIRED_INTEL; + public static property DX9_MEDIA_SURFACE_NOT_ACQUIRED_KHR: ErrorCode read _DX9_MEDIA_SURFACE_NOT_ACQUIRED_KHR; + public static property DX9_RESOURCE_NOT_ACQUIRED_INTEL: ErrorCode read _DX9_RESOURCE_NOT_ACQUIRED_INTEL; + public static property DEVICE_PARTITION_FAILED_EXT: ErrorCode read _DEVICE_PARTITION_FAILED_EXT; + public static property INVALID_PARTITION_COUNT_EXT: ErrorCode read _INVALID_PARTITION_COUNT_EXT; + public static property INVALID_PARTITION_NAME_EXT: ErrorCode read _INVALID_PARTITION_NAME_EXT; + public static property EGL_RESOURCE_NOT_ACQUIRED_KHR: ErrorCode read _EGL_RESOURCE_NOT_ACQUIRED_KHR; + public static property INVALID_EGL_OBJECT_KHR: ErrorCode read _INVALID_EGL_OBJECT_KHR; + public static property INVALID_ACCELERATOR_INTEL: ErrorCode read _INVALID_ACCELERATOR_INTEL; + public static property INVALID_ACCELERATOR_TYPE_INTEL: ErrorCode read _INVALID_ACCELERATOR_TYPE_INTEL; + public static property INVALID_ACCELERATOR_DESCRIPTOR_INTEL: ErrorCode read _INVALID_ACCELERATOR_DESCRIPTOR_INTEL; + public static property ACCELERATOR_TYPE_NOT_SUPPORTED_INTEL: ErrorCode read _ACCELERATOR_TYPE_NOT_SUPPORTED_INTEL; + public static property INVALID_VA_API_MEDIA_ADAPTER_INTEL: ErrorCode read _INVALID_VA_API_MEDIA_ADAPTER_INTEL; + public static property INVALID_VA_API_MEDIA_SURFACE_INTEL: ErrorCode read _INVALID_VA_API_MEDIA_SURFACE_INTEL; + public static property VA_API_MEDIA_SURFACE_ALREADY_ACQUIRED_INTEL: ErrorCode read _VA_API_MEDIA_SURFACE_ALREADY_ACQUIRED_INTEL; + public static property VA_API_MEDIA_SURFACE_NOT_ACQUIRED_INTEL: ErrorCode read _VA_API_MEDIA_SURFACE_NOT_ACQUIRED_INTEL; + public static property PIPE_FULL_INTEL: ErrorCode read _PIPE_FULL_INTEL; + public static property PIPE_EMPTY_INTEL: ErrorCode read _PIPE_EMPTY_INTEL; public function ToString: string; override; begin - var res := typeof(ErrorCode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ErrorCode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ErrorCode[{ self.val=default(Int32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = Int32($0000) then Result := 'SUCCESS' else + if self.val = Int32(-1) then Result := 'DEVICE_NOT_FOUND' else + if self.val = Int32(-2) then Result := 'DEVICE_NOT_AVAILABLE' else + if self.val = Int32(-3) then Result := 'COMPILER_NOT_AVAILABLE' else + if self.val = Int32(-4) then Result := 'MEM_OBJECT_ALLOCATION_FAILURE' else + if self.val = Int32(-5) then Result := 'OUT_OF_RESOURCES' else + if self.val = Int32(-6) then Result := 'OUT_OF_HOST_MEMORY' else + if self.val = Int32(-7) then Result := 'PROFILING_INFO_NOT_AVAILABLE' else + if self.val = Int32(-8) then Result := 'MEM_COPY_OVERLAP' else + if self.val = Int32(-9) then Result := 'IMAGE_FORMAT_MISMATCH' else + if self.val = Int32(-10) then Result := 'IMAGE_FORMAT_NOT_SUPPORTED' else + if self.val = Int32(-11) then Result := 'BUILD_PROGRAM_FAILURE' else + if self.val = Int32(-12) then Result := 'MAP_FAILURE' else + if self.val = Int32(-13) then Result := 'MISALIGNED_SUB_BUFFER_OFFSET' else + if self.val = Int32(-14) then Result := 'EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST' else + if self.val = Int32(-15) then Result := 'COMPILE_PROGRAM_FAILURE' else + if self.val = Int32(-16) then Result := 'LINKER_NOT_AVAILABLE' else + if self.val = Int32(-17) then Result := 'LINK_PROGRAM_FAILURE' else + if self.val = Int32(-18) then Result := 'DEVICE_PARTITION_FAILED' else + if self.val = Int32(-19) then Result := 'KERNEL_ARG_INFO_NOT_AVAILABLE' else + if self.val = Int32(-30) then Result := 'INVALID_VALUE' else + if self.val = Int32(-31) then Result := 'INVALID_DEVICE_TYPE' else + if self.val = Int32(-32) then Result := 'INVALID_PLATFORM' else + if self.val = Int32(-33) then Result := 'INVALID_DEVICE' else + if self.val = Int32(-34) then Result := 'INVALID_CONTEXT' else + if self.val = Int32(-35) then Result := 'INVALID_QUEUE_PROPERTIES' else + if self.val = Int32(-36) then Result := 'INVALID_COMMAND_QUEUE' else + if self.val = Int32(-37) then Result := 'INVALID_HOST_PTR' else + if self.val = Int32(-38) then Result := 'INVALID_MEM_OBJECT' else + if self.val = Int32(-39) then Result := 'INVALID_IMAGE_FORMAT_DESCRIPTOR' else + if self.val = Int32(-40) then Result := 'INVALID_IMAGE_SIZE' else + if self.val = Int32(-41) then Result := 'INVALID_SAMPLER' else + if self.val = Int32(-42) then Result := 'INVALID_BINARY' else + if self.val = Int32(-43) then Result := 'INVALID_BUILD_OPTIONS' else + if self.val = Int32(-44) then Result := 'INVALID_PROGRAM' else + if self.val = Int32(-45) then Result := 'INVALID_PROGRAM_EXECUTABLE' else + if self.val = Int32(-46) then Result := 'INVALID_KERNEL_NAME' else + if self.val = Int32(-47) then Result := 'INVALID_KERNEL_DEFINITION' else + if self.val = Int32(-48) then Result := 'INVALID_KERNEL' else + if self.val = Int32(-49) then Result := 'INVALID_ARG_INDEX' else + if self.val = Int32(-50) then Result := 'INVALID_ARG_VALUE' else + if self.val = Int32(-51) then Result := 'INVALID_ARG_SIZE' else + if self.val = Int32(-52) then Result := 'INVALID_KERNEL_ARGS' else + if self.val = Int32(-53) then Result := 'INVALID_WORK_DIMENSION' else + if self.val = Int32(-54) then Result := 'INVALID_WORK_GROUP_SIZE' else + if self.val = Int32(-55) then Result := 'INVALID_WORK_ITEM_SIZE' else + if self.val = Int32(-56) then Result := 'INVALID_GLOBAL_OFFSET' else + if self.val = Int32(-57) then Result := 'INVALID_EVENT_WAIT_LIST' else + if self.val = Int32(-58) then Result := 'INVALID_EVENT' else + if self.val = Int32(-59) then Result := 'INVALID_OPERATION' else + if self.val = Int32(-60) then Result := 'INVALID_GL_OBJECT' else + if self.val = Int32(-61) then Result := 'INVALID_BUFFER_SIZE' else + if self.val = Int32(-62) then Result := 'INVALID_MIP_LEVEL' else + if self.val = Int32(-63) then Result := 'INVALID_GLOBAL_WORK_SIZE' else + if self.val = Int32(-64) then Result := 'INVALID_PROPERTY' else + if self.val = Int32(-65) then Result := 'INVALID_IMAGE_DESCRIPTOR' else + if self.val = Int32(-66) then Result := 'INVALID_COMPILER_OPTIONS' else + if self.val = Int32(-67) then Result := 'INVALID_LINKER_OPTIONS' else + if self.val = Int32(-68) then Result := 'INVALID_DEVICE_PARTITION_COUNT' else + if self.val = Int32(-69) then Result := 'INVALID_PIPE_SIZE' else + if self.val = Int32(-70) then Result := 'INVALID_DEVICE_QUEUE' else + if self.val = Int32(-71) then Result := 'INVALID_SPEC_ID' else + if self.val = Int32(-72) then Result := 'MAX_SIZE_RESTRICTION_EXCEEDED' else + if self.val = Int32(-1000) then Result := 'INVALID_GL_SHAREGROUP_REFERENCE_KHR' else + if self.val = Int32(-1001) then Result := 'PLATFORM_NOT_FOUND_KHR' else + if self.val = Int32(-1002) then Result := 'INVALID_D3D10_DEVICE_KHR' else + if self.val = Int32(-1003) then Result := 'INVALID_D3D10_RESOURCE_KHR' else + if self.val = Int32(-1004) then Result := 'D3D10_RESOURCE_ALREADY_ACQUIRED_KHR' else + if self.val = Int32(-1005) then Result := 'D3D10_RESOURCE_NOT_ACQUIRED_KHR' else + if self.val = Int32(-1006) then Result := 'INVALID_D3D11_DEVICE_KHR' else + if self.val = Int32(-1007) then Result := 'INVALID_D3D11_RESOURCE_KHR' else + if self.val = Int32(-1008) then Result := 'D3D11_RESOURCE_ALREADY_ACQUIRED_KHR' else + if self.val = Int32(-1009) then Result := 'D3D11_RESOURCE_NOT_ACQUIRED_KHR' else + if self.val = Int32(-1010) then Result := 'INVALID_DX9_DEVICE_INTEL' else + if self.val = Int32(-1010) then Result := 'INVALID_DX9_MEDIA_ADAPTER_KHR' else + if self.val = Int32(-1011) then Result := 'INVALID_DX9_MEDIA_SURFACE_KHR' else + if self.val = Int32(-1011) then Result := 'INVALID_DX9_RESOURCE_INTEL' else + if self.val = Int32(-1012) then Result := 'DX9_MEDIA_SURFACE_ALREADY_ACQUIRED_KHR' else + if self.val = Int32(-1012) then Result := 'DX9_RESOURCE_ALREADY_ACQUIRED_INTEL' else + if self.val = Int32(-1013) then Result := 'DX9_MEDIA_SURFACE_NOT_ACQUIRED_KHR' else + if self.val = Int32(-1013) then Result := 'DX9_RESOURCE_NOT_ACQUIRED_INTEL' else + if self.val = Int32(-1057) then Result := 'DEVICE_PARTITION_FAILED_EXT' else + if self.val = Int32(-1058) then Result := 'INVALID_PARTITION_COUNT_EXT' else + if self.val = Int32(-1059) then Result := 'INVALID_PARTITION_NAME_EXT' else + if self.val = Int32(-1092) then Result := 'EGL_RESOURCE_NOT_ACQUIRED_KHR' else + if self.val = Int32(-1093) then Result := 'INVALID_EGL_OBJECT_KHR' else + if self.val = Int32(-1094) then Result := 'INVALID_ACCELERATOR_INTEL' else + if self.val = Int32(-1095) then Result := 'INVALID_ACCELERATOR_TYPE_INTEL' else + if self.val = Int32(-1096) then Result := 'INVALID_ACCELERATOR_DESCRIPTOR_INTEL' else + if self.val = Int32(-1097) then Result := 'ACCELERATOR_TYPE_NOT_SUPPORTED_INTEL' else + if self.val = Int32(-1098) then Result := 'INVALID_VA_API_MEDIA_ADAPTER_INTEL' else + if self.val = Int32(-1099) then Result := 'INVALID_VA_API_MEDIA_SURFACE_INTEL' else + if self.val = Int32(-1100) then Result := 'VA_API_MEDIA_SURFACE_ALREADY_ACQUIRED_INTEL' else + if self.val = Int32(-1101) then Result := 'VA_API_MEDIA_SURFACE_NOT_ACQUIRED_INTEL' else + if self.val = Int32(-1106) then Result := 'PIPE_FULL_INTEL' else + if self.val = Int32(-1107) then Result := 'PIPE_EMPTY_INTEL' else + Result := self.val.ToString; end; public function IS_ERROR := val<>0; @@ -1490,10 +1897,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(EventInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->EventInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'EventInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($11D0) then Result := 'EVENT_COMMAND_QUEUE' else + if self.val = UInt32($11D1) then Result := 'EVENT_COMMAND_TYPE' else + if self.val = UInt32($11D2) then Result := 'EVENT_REFERENCE_COUNT' else + if self.val = UInt32($11D3) then Result := 'EVENT_COMMAND_EXECUTION_STATUS' else + if self.val = UInt32($11D4) then Result := 'EVENT_CONTEXT' else + Result := self.val.ToString; end; end; @@ -1510,10 +1919,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FilterMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FilterMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FilterMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1140) then Result := 'FILTER_NEAREST' else + if self.val = UInt32($1141) then Result := 'FILTER_LINEAR' else + Result := self.val.ToString; end; end; @@ -1530,10 +1938,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GlContextInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GlContextInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GlContextInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2006) then Result := 'CURRENT_DEVICE_FOR_GL_CONTEXT_KHR' else + if self.val = UInt32($2007) then Result := 'DEVICES_FOR_GL_CONTEXT_KHR' else + Result := self.val.ToString; end; end; @@ -1562,10 +1969,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GlObjectType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GlObjectType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GlObjectType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2000) then Result := 'GL_OBJECT_BUFFER' else + if self.val = UInt32($2001) then Result := 'GL_OBJECT_TEXTURE2D' else + if self.val = UInt32($2002) then Result := 'GL_OBJECT_TEXTURE3D' else + if self.val = UInt32($2003) then Result := 'GL_OBJECT_RENDERBUFFER' else + if self.val = UInt32($200E) then Result := 'GL_OBJECT_TEXTURE2D_ARRAY' else + if self.val = UInt32($200F) then Result := 'GL_OBJECT_TEXTURE1D' else + if self.val = UInt32($2010) then Result := 'GL_OBJECT_TEXTURE1D_ARRAY' else + if self.val = UInt32($2011) then Result := 'GL_OBJECT_TEXTURE_BUFFER' else + Result := self.val.ToString; end; end; @@ -1584,10 +1996,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GlTextureInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GlTextureInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GlTextureInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2004) then Result := 'GL_TEXTURE_TARGET' else + if self.val = UInt32($2005) then Result := 'GL_MIPMAP_LEVEL' else + if self.val = UInt32($2012) then Result := 'GL_NUM_SAMPLES' else + Result := self.val.ToString; end; end; @@ -1632,10 +2044,23 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ImageInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ImageInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ImageInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1110) then Result := 'IMAGE_FORMAT' else + if self.val = UInt32($1111) then Result := 'IMAGE_ELEMENT_SIZE' else + if self.val = UInt32($1112) then Result := 'IMAGE_ROW_PITCH' else + if self.val = UInt32($1113) then Result := 'IMAGE_SLICE_PITCH' else + if self.val = UInt32($1114) then Result := 'IMAGE_WIDTH' else + if self.val = UInt32($1115) then Result := 'IMAGE_HEIGHT' else + if self.val = UInt32($1116) then Result := 'IMAGE_DEPTH' else + if self.val = UInt32($1117) then Result := 'IMAGE_ARRAY_SIZE' else + if self.val = UInt32($1118) then Result := 'IMAGE_BUFFER' else + if self.val = UInt32($1119) then Result := 'IMAGE_NUM_MIP_LEVELS' else + if self.val = UInt32($111A) then Result := 'IMAGE_NUM_SAMPLES' else + if self.val = UInt32($202A) then Result := 'IMAGE_DX9_MEDIA_PLANE_KHR' else + if self.val = UInt32($4016) then Result := 'IMAGE_D3D10_SUBRESOURCE_KHR' else + if self.val = UInt32($401F) then Result := 'IMAGE_D3D11_SUBRESOURCE_KHR' else + if self.val = UInt32($4075) then Result := 'IMAGE_DX9_PLANE_INTEL' else + if self.val = UInt32($4099) then Result := 'IMAGE_VA_API_PLANE_INTEL' else + Result := self.val.ToString; end; end; @@ -1656,10 +2081,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(KernelArgAccessQualifier).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->KernelArgAccessQualifier(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'KernelArgAccessQualifier[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($11A0) then Result := 'KERNEL_ARG_ACCESS_READ_ONLY' else + if self.val = UInt32($11A1) then Result := 'KERNEL_ARG_ACCESS_WRITE_ONLY' else + if self.val = UInt32($11A2) then Result := 'KERNEL_ARG_ACCESS_READ_WRITE' else + if self.val = UInt32($11A3) then Result := 'KERNEL_ARG_ACCESS_NONE' else + Result := self.val.ToString; end; end; @@ -1680,10 +2106,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(KernelArgAddressQualifier).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->KernelArgAddressQualifier(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'KernelArgAddressQualifier[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($119B) then Result := 'KERNEL_ARG_ADDRESS_GLOBAL' else + if self.val = UInt32($119C) then Result := 'KERNEL_ARG_ADDRESS_LOCAL' else + if self.val = UInt32($119D) then Result := 'KERNEL_ARG_ADDRESS_CONSTANT' else + if self.val = UInt32($119E) then Result := 'KERNEL_ARG_ADDRESS_PRIVATE' else + Result := self.val.ToString; end; end; @@ -1706,10 +2133,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(KernelArgInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->KernelArgInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'KernelArgInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1196) then Result := 'KERNEL_ARG_ADDRESS_QUALIFIER' else + if self.val = UInt32($1197) then Result := 'KERNEL_ARG_ACCESS_QUALIFIER' else + if self.val = UInt32($1198) then Result := 'KERNEL_ARG_TYPE_NAME' else + if self.val = UInt32($1199) then Result := 'KERNEL_ARG_TYPE_QUALIFIER' else + if self.val = UInt32($119A) then Result := 'KERNEL_ARG_NAME' else + Result := self.val.ToString; end; end; @@ -1732,10 +2161,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(KernelArgTypeQualifier).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->KernelArgTypeQualifier(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'KernelArgTypeQualifier[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt64($0000) then Result := 'KERNEL_ARG_TYPE_NONE' else + if self.val = UInt64($0001) then Result := 'KERNEL_ARG_TYPE_CONST' else + if self.val = UInt64($0002) then Result := 'KERNEL_ARG_TYPE_RESTRICT' else + if self.val = UInt64($0004) then Result := 'KERNEL_ARG_TYPE_VOLATILE' else + if self.val = UInt64($0008) then Result := 'KERNEL_ARG_TYPE_PIPE' else + Result := self.val.ToString; end; end; @@ -1760,10 +2191,13 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(KernelExecInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->KernelExecInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'KernelExecInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($11B6) then Result := 'KERNEL_EXEC_INFO_SVM_PTRS' else + if self.val = UInt32($11B7) then Result := 'KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM' else + if self.val = UInt32($4200) then Result := 'KERNEL_EXEC_INFO_INDIRECT_HOST_ACCESS_INTEL' else + if self.val = UInt32($4201) then Result := 'KERNEL_EXEC_INFO_INDIRECT_DEVICE_ACCESS_INTEL' else + if self.val = UInt32($4202) then Result := 'KERNEL_EXEC_INFO_INDIRECT_SHARED_ACCESS_INTEL' else + if self.val = UInt32($4203) then Result := 'KERNEL_EXEC_INFO_USM_PTRS_INTEL' else + Result := self.val.ToString; end; end; @@ -1772,30 +2206,29 @@ uses System.Runtime.CompilerServices; public val: UInt32; public constructor(val: UInt32) := self.val := val; - private static _KERNEL_FUNCTION_NAME := new KernelInfo($1190); - private static _KERNEL_NUM_ARGS := new KernelInfo($1191); - private static _KERNEL_REFERENCE_COUNT := new KernelInfo($1192); - private static _KERNEL_CONTEXT := new KernelInfo($1193); - private static _KERNEL_PROGRAM := new KernelInfo($1194); - private static _KERNEL_ATTRIBUTES := new KernelInfo($1195); - private static _KERNEL_MAX_NUM_SUB_GROUPS := new KernelInfo($11B9); - private static _KERNEL_COMPILE_NUM_SUB_GROUPS := new KernelInfo($11BA); + private static _KERNEL_FUNCTION_NAME := new KernelInfo($1190); + private static _KERNEL_NUM_ARGS := new KernelInfo($1191); + private static _KERNEL_REFERENCE_COUNT := new KernelInfo($1192); + private static _KERNEL_CONTEXT := new KernelInfo($1193); + private static _KERNEL_PROGRAM := new KernelInfo($1194); + private static _KERNEL_ATTRIBUTES := new KernelInfo($1195); - public static property KERNEL_FUNCTION_NAME: KernelInfo read _KERNEL_FUNCTION_NAME; - public static property KERNEL_NUM_ARGS: KernelInfo read _KERNEL_NUM_ARGS; - public static property KERNEL_REFERENCE_COUNT: KernelInfo read _KERNEL_REFERENCE_COUNT; - public static property KERNEL_CONTEXT: KernelInfo read _KERNEL_CONTEXT; - public static property KERNEL_PROGRAM: KernelInfo read _KERNEL_PROGRAM; - public static property KERNEL_ATTRIBUTES: KernelInfo read _KERNEL_ATTRIBUTES; - public static property KERNEL_MAX_NUM_SUB_GROUPS: KernelInfo read _KERNEL_MAX_NUM_SUB_GROUPS; - public static property KERNEL_COMPILE_NUM_SUB_GROUPS: KernelInfo read _KERNEL_COMPILE_NUM_SUB_GROUPS; + public static property KERNEL_FUNCTION_NAME: KernelInfo read _KERNEL_FUNCTION_NAME; + public static property KERNEL_NUM_ARGS: KernelInfo read _KERNEL_NUM_ARGS; + public static property KERNEL_REFERENCE_COUNT: KernelInfo read _KERNEL_REFERENCE_COUNT; + public static property KERNEL_CONTEXT: KernelInfo read _KERNEL_CONTEXT; + public static property KERNEL_PROGRAM: KernelInfo read _KERNEL_PROGRAM; + public static property KERNEL_ATTRIBUTES: KernelInfo read _KERNEL_ATTRIBUTES; public function ToString: string; override; begin - var res := typeof(KernelInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->KernelInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'KernelInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1190) then Result := 'KERNEL_FUNCTION_NAME' else + if self.val = UInt32($1191) then Result := 'KERNEL_NUM_ARGS' else + if self.val = UInt32($1192) then Result := 'KERNEL_REFERENCE_COUNT' else + if self.val = UInt32($1193) then Result := 'KERNEL_CONTEXT' else + if self.val = UInt32($1194) then Result := 'KERNEL_PROGRAM' else + if self.val = UInt32($1195) then Result := 'KERNEL_ATTRIBUTES' else + Result := self.val.ToString; end; end; @@ -1805,6 +2238,8 @@ uses System.Runtime.CompilerServices; public constructor(val: UInt32) := self.val := val; private static _KERNEL_LOCAL_SIZE_FOR_SUB_GROUP_COUNT := new KernelSubGroupInfo($11B8); + private static _KERNEL_MAX_NUM_SUB_GROUPS := new KernelSubGroupInfo($11B9); + private static _KERNEL_COMPILE_NUM_SUB_GROUPS := new KernelSubGroupInfo($11BA); private static _KERNEL_MAX_SUB_GROUP_SIZE_FOR_NDRANGE := new KernelSubGroupInfo($2033); private static _KERNEL_MAX_SUB_GROUP_SIZE_FOR_NDRANGE_KHR := new KernelSubGroupInfo($2033); private static _KERNEL_SUB_GROUP_COUNT_FOR_NDRANGE := new KernelSubGroupInfo($2034); @@ -1812,6 +2247,8 @@ uses System.Runtime.CompilerServices; private static _KERNEL_COMPILE_SUB_GROUP_SIZE_INTEL := new KernelSubGroupInfo($410A); public static property KERNEL_LOCAL_SIZE_FOR_SUB_GROUP_COUNT: KernelSubGroupInfo read _KERNEL_LOCAL_SIZE_FOR_SUB_GROUP_COUNT; + public static property KERNEL_MAX_NUM_SUB_GROUPS: KernelSubGroupInfo read _KERNEL_MAX_NUM_SUB_GROUPS; + public static property KERNEL_COMPILE_NUM_SUB_GROUPS: KernelSubGroupInfo read _KERNEL_COMPILE_NUM_SUB_GROUPS; public static property KERNEL_MAX_SUB_GROUP_SIZE_FOR_NDRANGE: KernelSubGroupInfo read _KERNEL_MAX_SUB_GROUP_SIZE_FOR_NDRANGE; public static property KERNEL_MAX_SUB_GROUP_SIZE_FOR_NDRANGE_KHR: KernelSubGroupInfo read _KERNEL_MAX_SUB_GROUP_SIZE_FOR_NDRANGE_KHR; public static property KERNEL_SUB_GROUP_COUNT_FOR_NDRANGE: KernelSubGroupInfo read _KERNEL_SUB_GROUP_COUNT_FOR_NDRANGE; @@ -1820,10 +2257,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(KernelSubGroupInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->KernelSubGroupInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'KernelSubGroupInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($11B8) then Result := 'KERNEL_LOCAL_SIZE_FOR_SUB_GROUP_COUNT' else + if self.val = UInt32($11B9) then Result := 'KERNEL_MAX_NUM_SUB_GROUPS' else + if self.val = UInt32($11BA) then Result := 'KERNEL_COMPILE_NUM_SUB_GROUPS' else + if self.val = UInt32($2033) then Result := 'KERNEL_MAX_SUB_GROUP_SIZE_FOR_NDRANGE' else + if self.val = UInt32($2033) then Result := 'KERNEL_MAX_SUB_GROUP_SIZE_FOR_NDRANGE_KHR' else + if self.val = UInt32($2034) then Result := 'KERNEL_SUB_GROUP_COUNT_FOR_NDRANGE' else + if self.val = UInt32($2034) then Result := 'KERNEL_SUB_GROUP_COUNT_FOR_NDRANGE_KHR' else + if self.val = UInt32($410A) then Result := 'KERNEL_COMPILE_SUB_GROUP_SIZE_INTEL' else + Result := self.val.ToString; end; end; @@ -1850,10 +2292,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(KernelWorkGroupInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->KernelWorkGroupInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'KernelWorkGroupInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($11B0) then Result := 'KERNEL_WORK_GROUP_SIZE' else + if self.val = UInt32($11B1) then Result := 'KERNEL_COMPILE_WORK_GROUP_SIZE' else + if self.val = UInt32($11B2) then Result := 'KERNEL_LOCAL_MEM_SIZE' else + if self.val = UInt32($11B3) then Result := 'KERNEL_PREFERRED_WORK_GROUP_SIZE_MULTIPLE' else + if self.val = UInt32($11B4) then Result := 'KERNEL_PRIVATE_MEM_SIZE' else + if self.val = UInt32($11B5) then Result := 'KERNEL_GLOBAL_WORK_SIZE' else + if self.val = UInt32($4109) then Result := 'KERNEL_SPILL_MEM_SIZE_INTEL' else + Result := self.val.ToString; end; end; @@ -1878,10 +2324,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MapFlags).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'MapFlags[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt64($0001) = UInt64($0001) then res += 'MAP_READ+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'MAP_WRITE+'; + if self.val and UInt64($0004) = UInt64($0004) then res += 'MAP_WRITE_INVALIDATE_REGION+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -1960,10 +2412,34 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MemFlags).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'MemFlags[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt64($0001) = UInt64($0001) then res += 'MEM_READ_WRITE+'; + if self.val and UInt64($0001) = UInt64($0001) then res += 'MEM_RESERVED0_ARM+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'MEM_RESERVED1_ARM+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'MEM_WRITE_ONLY+'; + if self.val and UInt64($0004) = UInt64($0004) then res += 'MEM_READ_ONLY+'; + if self.val and UInt64($0004) = UInt64($0004) then res += 'MEM_RESERVED2_ARM+'; + if self.val and UInt64($0008) = UInt64($0008) then res += 'MEM_RESERVED3_ARM+'; + if self.val and UInt64($0008) = UInt64($0008) then res += 'MEM_USE_HOST_PTR+'; + if self.val and UInt64($0010) = UInt64($0010) then res += 'MEM_ALLOC_HOST_PTR+'; + if self.val and UInt64($0010) = UInt64($0010) then res += 'MEM_RESERVED4_ARM+'; + if self.val and UInt64($0020) = UInt64($0020) then res += 'MEM_COPY_HOST_PTR+'; + if self.val and UInt64($0080) = UInt64($0080) then res += 'MEM_HOST_WRITE_ONLY+'; + if self.val and UInt64($0100) = UInt64($0100) then res += 'MEM_HOST_READ_ONLY+'; + if self.val and UInt64($0200) = UInt64($0200) then res += 'MEM_HOST_NO_ACCESS+'; + if self.val and UInt64($1000) = UInt64($1000) then res += 'MEM_KERNEL_READ_AND_WRITE+'; + if self.val and UInt64($1000000) = UInt64($1000000) then res += 'MEM_NO_ACCESS_INTEL+'; + if self.val and UInt64($2000000) = UInt64($2000000) then res += 'MEM_ACCESS_FLAGS_UNRESTRICTED_INTEL+'; + if self.val and UInt64($4000000) = UInt64($4000000) then res += 'MEM_USE_UNCACHED_CPU_MEMORY_IMG+'; + if self.val and UInt64($8000000) = UInt64($8000000) then res += 'MEM_USE_CACHED_CPU_MEMORY_IMG+'; + if self.val and UInt64($10000000) = UInt64($10000000) then res += 'MEM_USE_GRALLOC_PTR_IMG+'; + if self.val and UInt64($20000000) = UInt64($20000000) then res += 'MEM_EXT_HOST_PTR_QCOM+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -2010,10 +2486,24 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MemInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MemInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MemInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1100) then Result := 'MEM_TYPE' else + if self.val = UInt32($1101) then Result := 'MEM_FLAGS' else + if self.val = UInt32($1102) then Result := 'MEM_SIZE' else + if self.val = UInt32($1103) then Result := 'MEM_HOST_PTR' else + if self.val = UInt32($1104) then Result := 'MEM_MAP_COUNT' else + if self.val = UInt32($1105) then Result := 'MEM_REFERENCE_COUNT' else + if self.val = UInt32($1106) then Result := 'MEM_CONTEXT' else + if self.val = UInt32($1107) then Result := 'MEM_ASSOCIATED_MEMOBJECT' else + if self.val = UInt32($1108) then Result := 'MEM_OFFSET' else + if self.val = UInt32($1109) then Result := 'MEM_USES_SVM_POINTER' else + if self.val = UInt32($2028) then Result := 'MEM_DX9_MEDIA_ADAPTER_TYPE_KHR' else + if self.val = UInt32($2029) then Result := 'MEM_DX9_MEDIA_SURFACE_INFO_KHR' else + if self.val = UInt32($4015) then Result := 'MEM_D3D10_RESOURCE_KHR' else + if self.val = UInt32($401E) then Result := 'MEM_D3D11_RESOURCE_KHR' else + if self.val = UInt32($4027) then Result := 'MEM_DX9_RESOURCE_INTEL' else + if self.val = UInt32($4074) then Result := 'MEM_DX9_SHARED_HANDLE_INTEL' else + if self.val = UInt32($4098) then Result := 'MEM_VA_API_MEDIA_SURFACE_INTEL' else + Result := self.val.ToString; end; end; @@ -2035,10 +2525,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MemMigrationFlags).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'MemMigrationFlags[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt64($0001) = UInt64($0001) then res += 'MIGRATE_MEM_OBJECT_HOST+'; + if self.val and UInt64($0002) = UInt64($0002) then res += 'MIGRATE_MEM_OBJECT_CONTENT_UNDEFINED+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -2053,10 +2548,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MemMigrationFlagsExt).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MemMigrationFlagsExt(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MemMigrationFlagsExt[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt64($0001) then Result := 'MIGRATE_MEM_OBJECT_HOST_EXT' else + Result := self.val.ToString; end; end; @@ -2065,14 +2558,17 @@ uses System.Runtime.CompilerServices; public val: UInt64; public constructor(val: UInt64) := self.val := val; + private static _MIGRATE_MEM_OBJECT_HOST_INTEL := new MemMigrationFlagsIntel($0001); + private static _MIGRATE_MEM_OBJECT_CONTENT_UNDEFINED_INTEL := new MemMigrationFlagsIntel($0002); + public static property MIGRATE_MEM_OBJECT_HOST_INTEL: MemMigrationFlagsIntel read _MIGRATE_MEM_OBJECT_HOST_INTEL; + public static property MIGRATE_MEM_OBJECT_CONTENT_UNDEFINED_INTEL: MemMigrationFlagsIntel read _MIGRATE_MEM_OBJECT_CONTENT_UNDEFINED_INTEL; public function ToString: string; override; begin - var res := typeof(MemMigrationFlagsIntel).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MemMigrationFlagsIntel(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MemMigrationFlagsIntel[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt64($0001) then Result := 'MIGRATE_MEM_OBJECT_HOST_INTEL' else + if self.val = UInt64($0002) then Result := 'MIGRATE_MEM_OBJECT_CONTENT_UNDEFINED_INTEL' else + Result := self.val.ToString; end; end; @@ -2101,10 +2597,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MemObjectType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MemObjectType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MemObjectType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($10F0) then Result := 'MEM_OBJECT_BUFFER' else + if self.val = UInt32($10F1) then Result := 'MEM_OBJECT_IMAGE2D' else + if self.val = UInt32($10F2) then Result := 'MEM_OBJECT_IMAGE3D' else + if self.val = UInt32($10F3) then Result := 'MEM_OBJECT_IMAGE2D_ARRAY' else + if self.val = UInt32($10F4) then Result := 'MEM_OBJECT_IMAGE1D' else + if self.val = UInt32($10F5) then Result := 'MEM_OBJECT_IMAGE1D_ARRAY' else + if self.val = UInt32($10F6) then Result := 'MEM_OBJECT_IMAGE1D_BUFFER' else + if self.val = UInt32($10F7) then Result := 'MEM_OBJECT_PIPE' else + Result := self.val.ToString; end; end; @@ -2119,10 +2620,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MemPropertiesIntel).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MemPropertiesIntel(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MemPropertiesIntel[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt64($4195) then Result := 'MEM_ALLOC_FLAGS_INTEL' else + Result := self.val.ToString; end; end; @@ -2139,10 +2638,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PipeInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PipeInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PipeInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1120) then Result := 'PIPE_PACKET_SIZE' else + if self.val = UInt32($1121) then Result := 'PIPE_MAX_PACKETS' else + Result := self.val.ToString; end; end; @@ -2169,10 +2667,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PlatformInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PlatformInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PlatformInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0900) then Result := 'PLATFORM_PROFILE' else + if self.val = UInt32($0901) then Result := 'PLATFORM_VERSION' else + if self.val = UInt32($0902) then Result := 'PLATFORM_NAME' else + if self.val = UInt32($0903) then Result := 'PLATFORM_VENDOR' else + if self.val = UInt32($0904) then Result := 'PLATFORM_EXTENSIONS' else + if self.val = UInt32($0905) then Result := 'PLATFORM_HOST_TIMER_RESOLUTION' else + if self.val = UInt32($0920) then Result := 'PLATFORM_ICD_SUFFIX_KHR' else + Result := self.val.ToString; end; end; @@ -2195,10 +2697,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProfilingInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProfilingInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProfilingInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1280) then Result := 'PROFILING_COMMAND_QUEUED' else + if self.val = UInt32($1281) then Result := 'PROFILING_COMMAND_SUBMIT' else + if self.val = UInt32($1282) then Result := 'PROFILING_COMMAND_START' else + if self.val = UInt32($1283) then Result := 'PROFILING_COMMAND_END' else + if self.val = UInt32($1284) then Result := 'PROFILING_COMMAND_COMPLETE' else + Result := self.val.ToString; end; end; @@ -2221,10 +2725,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramBinaryType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramBinaryType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramBinaryType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'PROGRAM_BINARY_TYPE_NONE' else + if self.val = UInt32($0001) then Result := 'PROGRAM_BINARY_TYPE_COMPILED_OBJECT' else + if self.val = UInt32($0002) then Result := 'PROGRAM_BINARY_TYPE_LIBRARY' else + if self.val = UInt32($0004) then Result := 'PROGRAM_BINARY_TYPE_EXECUTABLE' else + if self.val = UInt32($40E1) then Result := 'PROGRAM_BINARY_TYPE_INTERMEDIATE' else + Result := self.val.ToString; end; end; @@ -2247,10 +2753,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramBuildInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramBuildInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramBuildInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1181) then Result := 'PROGRAM_BUILD_STATUS' else + if self.val = UInt32($1182) then Result := 'PROGRAM_BUILD_OPTIONS' else + if self.val = UInt32($1183) then Result := 'PROGRAM_BUILD_LOG' else + if self.val = UInt32($1184) then Result := 'PROGRAM_BINARY_TYPE' else + if self.val = UInt32($1185) then Result := 'PROGRAM_BUILD_GLOBAL_VARIABLE_TOTAL_SIZE' else + Result := self.val.ToString; end; end; @@ -2287,10 +2795,19 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1160) then Result := 'PROGRAM_REFERENCE_COUNT' else + if self.val = UInt32($1161) then Result := 'PROGRAM_CONTEXT' else + if self.val = UInt32($1162) then Result := 'PROGRAM_NUM_DEVICES' else + if self.val = UInt32($1163) then Result := 'PROGRAM_DEVICES' else + if self.val = UInt32($1164) then Result := 'PROGRAM_SOURCE' else + if self.val = UInt32($1165) then Result := 'PROGRAM_BINARY_SIZES' else + if self.val = UInt32($1166) then Result := 'PROGRAM_BINARIES' else + if self.val = UInt32($1167) then Result := 'PROGRAM_NUM_KERNELS' else + if self.val = UInt32($1168) then Result := 'PROGRAM_KERNEL_NAMES' else + if self.val = UInt32($1169) then Result := 'PROGRAM_IL' else + if self.val = UInt32($116A) then Result := 'PROGRAM_SCOPE_GLOBAL_CTORS_PRESENT' else + if self.val = UInt32($116B) then Result := 'PROGRAM_SCOPE_GLOBAL_DTORS_PRESENT' else + Result := self.val.ToString; end; end; @@ -2307,10 +2824,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(QueueProperties).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->QueueProperties(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'QueueProperties[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt64($1096) then Result := 'QUEUE_PRIORITY_KHR' else + if self.val = UInt64($1097) then Result := 'QUEUE_THROTTLE_KHR' else + Result := self.val.ToString; end; end; @@ -2339,10 +2855,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SamplerInfo).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SamplerInfo(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SamplerInfo[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1150) then Result := 'SAMPLER_REFERENCE_COUNT' else + if self.val = UInt32($1151) then Result := 'SAMPLER_CONTEXT' else + if self.val = UInt32($1152) then Result := 'SAMPLER_NORMALIZED_COORDS' else + if self.val = UInt32($1153) then Result := 'SAMPLER_ADDRESSING_MODE' else + if self.val = UInt32($1154) then Result := 'SAMPLER_FILTER_MODE' else + if self.val = UInt32($1155) then Result := 'SAMPLER_MIP_FILTER_MODE' else + if self.val = UInt32($1156) then Result := 'SAMPLER_LOD_MIN' else + if self.val = UInt32($1157) then Result := 'SAMPLER_LOD_MAX' else + Result := self.val.ToString; end; end; @@ -2361,10 +2882,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SamplerProperties).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SamplerProperties(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SamplerProperties[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt64($1155) then Result := 'SAMPLER_MIP_FILTER_MODE' else + if self.val = UInt64($1156) then Result := 'SAMPLER_LOD_MIN' else + if self.val = UInt64($1157) then Result := 'SAMPLER_LOD_MAX' else + Result := self.val.ToString; end; end; @@ -2401,10 +2922,19 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SvmMemFlags).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SvmMemFlags(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SvmMemFlags[{ self.val=default(UInt64) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt64($0001) then Result := 'MEM_READ_WRITE' else + if self.val = UInt64($0002) then Result := 'MEM_WRITE_ONLY' else + if self.val = UInt64($0004) then Result := 'MEM_READ_ONLY' else + if self.val = UInt64($0008) then Result := 'MEM_USE_HOST_PTR' else + if self.val = UInt64($0010) then Result := 'MEM_ALLOC_HOST_PTR' else + if self.val = UInt64($0020) then Result := 'MEM_COPY_HOST_PTR' else + if self.val = UInt64($0080) then Result := 'MEM_HOST_WRITE_ONLY' else + if self.val = UInt64($0100) then Result := 'MEM_HOST_READ_ONLY' else + if self.val = UInt64($0200) then Result := 'MEM_HOST_NO_ACCESS' else + if self.val = UInt64($0400) then Result := 'MEM_SVM_FINE_GRAIN_BUFFER' else + if self.val = UInt64($0800) then Result := 'MEM_SVM_ATOMICS' else + if self.val = UInt64($1000) then Result := 'MEM_KERNEL_READ_AND_WRITE' else + Result := self.val.ToString; end; end; @@ -2421,10 +2951,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VaApiDeviceSetIntel).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VaApiDeviceSetIntel(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VaApiDeviceSetIntel[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($4095) then Result := 'PREFERRED_DEVICES_FOR_VA_API_INTEL' else + if self.val = UInt32($4096) then Result := 'ALL_DEVICES_FOR_VA_API_INTEL' else + Result := self.val.ToString; end; end; @@ -2439,10 +2968,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VaApiDeviceSourceIntel).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VaApiDeviceSourceIntel(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VaApiDeviceSourceIntel[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($4094) then Result := 'VA_API_DISPLAY_INTEL' else + Result := self.val.ToString; end; end; @@ -2531,6 +3058,7 @@ uses System.Runtime.CompilerServices; type + [PCUNotRestore] cl = static class // added in cl1.0 @@ -5944,45 +6472,45 @@ type z_Flush_ovr_0(command_queue); // added in cl1.0 - private static function z_GetCommandQueueInfo_ovr_0(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_context; var param_value_size_ret: UIntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_0(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_context; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_context; var param_value_size_ret: UIntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_context; var param_value_size_ret: UIntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_0(command_queue, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetCommandQueueInfo_ovr_1(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_context; param_value_size_ret: IntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_1(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_context; param_value_size_ret: IntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_context; param_value_size_ret: IntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_context; param_value_size_ret: IntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_1(command_queue, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetCommandQueueInfo_ovr_2(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_device_id; var param_value_size_ret: UIntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_2(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_device_id; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_device_id; var param_value_size_ret: UIntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_device_id; var param_value_size_ret: UIntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_2(command_queue, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetCommandQueueInfo_ovr_3(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_device_id; param_value_size_ret: IntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_3(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_device_id; param_value_size_ret: IntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_device_id; param_value_size_ret: IntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_device_id; param_value_size_ret: IntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_3(command_queue, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetCommandQueueInfo_ovr_4(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: UInt32; var param_value_size_ret: UIntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_4(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: UInt32; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: UInt32; var param_value_size_ret: UIntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: UInt32; var param_value_size_ret: UIntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_4(command_queue, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetCommandQueueInfo_ovr_5(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: UInt32; param_value_size_ret: IntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_5(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: UInt32; param_value_size_ret: IntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: UInt32; param_value_size_ret: IntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: UInt32; param_value_size_ret: IntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_5(command_queue, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetCommandQueueInfo_ovr_6(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: CommandQueueProperties; var param_value_size_ret: UIntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_6(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: CommandQueueProperties; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: CommandQueueProperties; var param_value_size_ret: UIntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: CommandQueueProperties; var param_value_size_ret: UIntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_6(command_queue, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetCommandQueueInfo_ovr_7(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: CommandQueueProperties; param_value_size_ret: IntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_7(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: CommandQueueProperties; param_value_size_ret: IntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: CommandQueueProperties; param_value_size_ret: IntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: CommandQueueProperties; param_value_size_ret: IntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_7(command_queue, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetCommandQueueInfo_ovr_8(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_command_queue; var param_value_size_ret: UIntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_8(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_command_queue; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_command_queue; var param_value_size_ret: UIntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_command_queue; var param_value_size_ret: UIntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_8(command_queue, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetCommandQueueInfo_ovr_9(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_command_queue; param_value_size_ret: IntPtr): ErrorCode; + private static function z_GetCommandQueueInfo_ovr_9(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_command_queue; param_value_size_ret: IntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: cl_command_queue; param_value_size_ret: IntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCommandQueueInfo(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; var param_value: cl_command_queue; param_value_size_ret: IntPtr): ErrorCode := z_GetCommandQueueInfo_ovr_9(command_queue, param_name, param_value_size, param_value, param_value_size_ret); private static function z_GetCommandQueueInfo_ovr_10(command_queue: cl_command_queue; param_name: CommandQueueInfo; param_value_size: UIntPtr; param_value: pointer; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetCommandQueueInfo'; @@ -6586,13 +7114,13 @@ type z_GetPlatformInfo_ovr_3(platform, param_name, param_value_size, param_value, param_value_size_ret); // added in cl1.0 - private static function z_GetProgramBuildInfo_ovr_0(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: BuildStatus; var param_value_size_ret: UIntPtr): ErrorCode; + private static function z_GetProgramBuildInfo_ovr_0(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; var param_value: BuildStatus; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetProgramBuildInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramBuildInfo(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: BuildStatus; var param_value_size_ret: UIntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramBuildInfo(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; var param_value: BuildStatus; var param_value_size_ret: UIntPtr): ErrorCode := z_GetProgramBuildInfo_ovr_0(&program, device, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetProgramBuildInfo_ovr_1(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: BuildStatus; param_value_size_ret: IntPtr): ErrorCode; + private static function z_GetProgramBuildInfo_ovr_1(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; var param_value: BuildStatus; param_value_size_ret: IntPtr): ErrorCode; external 'opencl.dll' name 'clGetProgramBuildInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramBuildInfo(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: BuildStatus; param_value_size_ret: IntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramBuildInfo(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; var param_value: BuildStatus; param_value_size_ret: IntPtr): ErrorCode := z_GetProgramBuildInfo_ovr_1(&program, device, param_name, param_value_size, param_value, param_value_size_ret); private static function z_GetProgramBuildInfo_ovr_2(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetProgramBuildInfo'; @@ -6602,13 +7130,13 @@ type external 'opencl.dll' name 'clGetProgramBuildInfo'; public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramBuildInfo(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode := z_GetProgramBuildInfo_ovr_3(&program, device, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetProgramBuildInfo_ovr_4(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: ProgramBinaryType; var param_value_size_ret: UIntPtr): ErrorCode; + private static function z_GetProgramBuildInfo_ovr_4(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; var param_value: ProgramBinaryType; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetProgramBuildInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramBuildInfo(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: ProgramBinaryType; var param_value_size_ret: UIntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramBuildInfo(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; var param_value: ProgramBinaryType; var param_value_size_ret: UIntPtr): ErrorCode := z_GetProgramBuildInfo_ovr_4(&program, device, param_name, param_value_size, param_value, param_value_size_ret); - private static function z_GetProgramBuildInfo_ovr_5(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: ProgramBinaryType; param_value_size_ret: IntPtr): ErrorCode; + private static function z_GetProgramBuildInfo_ovr_5(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; var param_value: ProgramBinaryType; param_value_size_ret: IntPtr): ErrorCode; external 'opencl.dll' name 'clGetProgramBuildInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramBuildInfo(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; param_value: ProgramBinaryType; param_value_size_ret: IntPtr): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramBuildInfo(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; var param_value: ProgramBinaryType; param_value_size_ret: IntPtr): ErrorCode := z_GetProgramBuildInfo_ovr_5(&program, device, param_name, param_value_size, param_value, param_value_size_ret); private static function z_GetProgramBuildInfo_ovr_6(&program: cl_program; device: cl_device_id; param_name: ProgramBuildInfo; param_value_size: UIntPtr; var param_value: UIntPtr; var param_value_size_ret: UIntPtr): ErrorCode; external 'opencl.dll' name 'clGetProgramBuildInfo'; @@ -7074,9 +7602,9 @@ type external 'opencl.dll' name 'clSetKernelExecInfo'; public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetKernelExecInfo(kernel: cl_kernel; param_name: KernelExecInfo; param_value_size: UIntPtr; var param_value: IntPtr): ErrorCode := z_SetKernelExecInfo_ovr_0(kernel, param_name, param_value_size, param_value); - private static function z_SetKernelExecInfo_ovr_1(kernel: cl_kernel; param_name: KernelExecInfo; param_value_size: UIntPtr; param_value: Bool): ErrorCode; + private static function z_SetKernelExecInfo_ovr_1(kernel: cl_kernel; param_name: KernelExecInfo; param_value_size: UIntPtr; var param_value: Bool): ErrorCode; external 'opencl.dll' name 'clSetKernelExecInfo'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetKernelExecInfo(kernel: cl_kernel; param_name: KernelExecInfo; param_value_size: UIntPtr; param_value: Bool): ErrorCode := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetKernelExecInfo(kernel: cl_kernel; param_name: KernelExecInfo; param_value_size: UIntPtr; var param_value: Bool): ErrorCode := z_SetKernelExecInfo_ovr_1(kernel, param_name, param_value_size, param_value); private static function z_SetKernelExecInfo_ovr_2(kernel: cl_kernel; param_name: KernelExecInfo; param_value_size: UIntPtr; param_value: pointer): ErrorCode; external 'opencl.dll' name 'clSetKernelExecInfo'; @@ -7169,6 +7697,7 @@ type {$region Extensions} + [PCUNotRestore] clD3d10SharingKHR = static class private static function z_GetDeviceIDsFromD3D10KHR_ovr_0(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode; @@ -7673,6 +8202,7 @@ type end; + [PCUNotRestore] clD3d11SharingKHR = static class private static function z_GetDeviceIDsFromD3D11KHR_ovr_0(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode; @@ -8177,6 +8707,7 @@ type end; + [PCUNotRestore] clDx9MediaSharingKHR = static class private static function z_GetDeviceIDsFromDX9MediaAdapterKHR_ovr_0(platform: cl_platform_id; num_media_adapters: UInt32; var media_adapter_type: UInt32; media_adapters: IntPtr; media_adapter_set: UInt32; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode; @@ -8789,6 +9320,7 @@ type end; + [PCUNotRestore] clEglImageKHR = static class private static function z_CreateFromEGLImageKHR_ovr_0(context: cl_context; egldisplay: IntPtr; eglimage: IntPtr; flags: MemFlags; var properties: EglImagePropertiesKhr; var errcode_ret: ErrorCode): cl_mem; @@ -9210,6 +9742,7 @@ type end; + [PCUNotRestore] clEglEventKHR = static class private static function z_CreateEventFromEGLSyncKHR_ovr_0(context: cl_context; sync: IntPtr; display: IntPtr; var errcode_ret: ErrorCode): cl_event; @@ -9219,6 +9752,7 @@ type end; + [PCUNotRestore] clSetMemObjectDestructorAPPLE = static class private static function z_SetMemObjectDestructorAPPLE_ovr_0(memobj: cl_mem; pfn_notify: MemObjectDestructorCallback; user_data: IntPtr): ErrorCode; @@ -9228,6 +9762,7 @@ type end; + [PCUNotRestore] clContextLoggingFunctionsAPPLE = static class private static procedure z_LogMessagesToSystemLogAPPLE_ovr_0(errstr: IntPtr; private_info: IntPtr; cb: UIntPtr; user_data: IntPtr); @@ -9265,6 +9800,7 @@ type end; + [PCUNotRestore] clIcdKHR = static class private static function z_IcdGetPlatformIDsKHR_ovr_0(num_entries: UInt32; var platforms: cl_platform_id; var num_platforms: UInt32): ErrorCode; @@ -9322,6 +9858,7 @@ type end; + [PCUNotRestore] clIlProgramKHR = static class private static function z_CreateProgramWithILKHR_ovr_0(context: cl_context; var il: byte; length: UIntPtr; var errcode_ret: ErrorCode): cl_program; @@ -9341,6 +9878,7 @@ type end; + [PCUNotRestore] clTerminateContextKHR = static class private static function z_TerminateContextKHR_ovr_0(context: cl_context): ErrorCode; @@ -9350,6 +9888,7 @@ type end; + [PCUNotRestore] clCreateCommandQueueKHR = static class private static function z_CreateCommandQueueWithPropertiesKHR_ovr_0(context: cl_context; device: cl_device_id; var properties: UInt64; var errcode_ret: ErrorCode): cl_command_queue; @@ -9369,6 +9908,7 @@ type end; + [PCUNotRestore] clDeviceFissionEXT = static class private static function z_ReleaseDeviceEXT_ovr_0(device: cl_device_id): ErrorCode; @@ -9584,6 +10124,7 @@ type end; + [PCUNotRestore] clMigrateMemobjectEXT = static class private static function z_EnqueueMigrateMemObjectEXT_ovr_0(command_queue: cl_command_queue; num_mem_objects: UInt32; var mem_objects: cl_mem; flags: MemMigrationFlagsExt; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode; @@ -9789,6 +10330,7 @@ type end; + [PCUNotRestore] clExtHostPtrQCOM = static class private static function z_GetDeviceImageInfoQCOM_ovr_0(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode; @@ -9846,6 +10388,7 @@ type end; + [PCUNotRestore] clUseGrallocPtrIMG = static class private static function z_EnqueueAcquireGrallocObjectsIMG_ovr_0(command_queue: cl_command_queue; num_objects: UInt32; var mem_objects: cl_mem; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode; @@ -10252,6 +10795,7 @@ type end; + [PCUNotRestore] clSubgroupsKHR = static class private static function z_GetKernelSubGroupInfoKHR_ovr_0(in_kernel: cl_kernel; in_device: cl_device_id; param_name: KernelSubGroupInfo; input_value_size: UIntPtr; input_value: IntPtr; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode; @@ -10271,6 +10815,7 @@ type end; + [PCUNotRestore] clImportMemoryARM = static class private static function z_ImportMemoryARM_ovr_0(context: cl_context; flags: MemFlags; var properties: IntPtr; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem; @@ -10290,6 +10835,7 @@ type end; + [PCUNotRestore] clSharedVirtualMemoryARM = static class private static function z_SVMAllocARM_ovr_0(context: cl_context; flags: UInt64; size: UIntPtr; alignment: UInt32): IntPtr; @@ -10579,6 +11125,7 @@ type end; + [PCUNotRestore] clAcceleratorINTEL = static class private static function z_CreateAcceleratorINTEL_ovr_0(context: cl_context; accelerator_type: AcceleratorTypeIntel; descriptor_size: UIntPtr; descriptor: IntPtr; var errcode_ret: ErrorCode): cl_accelerator_intel; @@ -10613,6 +11160,7 @@ type end; + [PCUNotRestore] clGlEventKHR = static class private static function z_CreateEventFromGLsyncKHR_ovr_0(context: cl_context; sync: IntPtr; var errcode_ret: ErrorCode): cl_event; @@ -10622,6 +11170,7 @@ type end; + [PCUNotRestore] clVaApiMediaSharingINTEL = static class private static function z_GetDeviceIDsFromVA_APIMediaAdapterINTEL_ovr_0(platform: cl_platform_id; media_adapter_type: VaApiDeviceSourceIntel; media_adapter: IntPtr; media_adapter_set: VaApiDeviceSetIntel; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode; @@ -11096,6 +11645,7 @@ type end; + [PCUNotRestore] clDx9MediaSharingINTEL = static class private static function z_GetDeviceIDsFromDX9INTEL_ovr_0(platform: cl_platform_id; dx9_device_source: Dx9DeviceSourceIntel; dx9_object: IntPtr; dx9_device_set: Dx9DeviceSetIntel; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode; @@ -11570,6 +12120,7 @@ type end; + [PCUNotRestore] clGlSharingKHR = static class private static function z_GetGLContextInfoKHR_ovr_0(var properties: ContextProperties; param_name: GlContextInfo; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode; @@ -12122,6 +12673,7 @@ type end; + [PCUNotRestore] clUnifiedSharedMemoryINTEL = static class private static function z_HostMemAllocINTEL_ovr_0(context: cl_context; var properties: MemPropertiesIntel; size: UIntPtr; alignment: UInt32; var errcode_ret: ErrorCode): IntPtr; diff --git a/TestSuite/CompilationSamples/OpenCLABC.pas b/TestSuite/CompilationSamples/OpenCLABC.pas index fcebfdae9..119f706f2 100644 --- a/TestSuite/CompilationSamples/OpenCLABC.pas +++ b/TestSuite/CompilationSamples/OpenCLABC.pas @@ -1526,10 +1526,25 @@ type begin var ec: ErrorCode; - self._program := cl.CreateProgramWithSource(c._context, files_texts.Length, files_texts, files_texts.ConvertAll(s->new UIntPtr(s.Length)), ec); + self._program := cl.CreateProgramWithSource(c._context, files_texts.Length, files_texts, nil, ec); ec.RaiseIfError; - cl.BuildProgram(self._program, 1,c._device, nil, nil,IntPtr.Zero).RaiseIfError; + ec := cl.BuildProgram(self._program, 1,c._device, nil, nil,IntPtr.Zero); + if ec=ErrorCode.BUILD_PROGRAM_FAILURE then + begin + + var sz: UIntPtr; + cl.GetProgramBuildInfo(self._program, c._device, ProgramBuildInfo.PROGRAM_BUILD_LOG, UIntPtr.Zero,IntPtr.Zero,sz).RaiseIfError; + + var str_ptr := Marshal.AllocHGlobal(IntPtr(pointer(sz))); + cl.GetProgramBuildInfo(self._program, c._device, ProgramBuildInfo.PROGRAM_BUILD_LOG, sz,str_ptr,IntPtr.Zero).RaiseIfError; + + var str := Marshal.PtrToStringAnsi(str_ptr); + Marshal.FreeHGlobal(str_ptr); + + raise new OpenCLException(str); + end else + ec.RaiseIfError; end; diff --git a/TestSuite/CompilationSamples/OpenGL.pas b/TestSuite/CompilationSamples/OpenGL.pas index c5ab8bd05..a454a4d20 100644 --- a/TestSuite/CompilationSamples/OpenGL.pas +++ b/TestSuite/CompilationSamples/OpenGL.pas @@ -461,10 +461,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(AccumOp).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->AccumOp(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'AccumOp[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0100) then Result := 'ACCUM' else + if self.val = UInt32($0101) then Result := 'LOAD' else + if self.val = UInt32($0102) then Result := 'RETURN' else + if self.val = UInt32($0103) then Result := 'MULT' else + if self.val = UInt32($0104) then Result := 'ADD' else + Result := self.val.ToString; end; end; @@ -493,10 +495,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(AlphaFunction).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->AlphaFunction(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'AlphaFunction[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0200) then Result := 'NEVER' else + if self.val = UInt32($0201) then Result := 'LESS' else + if self.val = UInt32($0202) then Result := 'EQUAL' else + if self.val = UInt32($0203) then Result := 'LEQUAL' else + if self.val = UInt32($0204) then Result := 'GREATER' else + if self.val = UInt32($0205) then Result := 'NOTEQUAL' else + if self.val = UInt32($0206) then Result := 'GEQUAL' else + if self.val = UInt32($0207) then Result := 'ALWAYS' else + Result := self.val.ToString; end; end; @@ -529,10 +536,17 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(AtomicCounterBufferPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->AtomicCounterBufferPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'AtomicCounterBufferPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($90ED) then Result := 'ATOMIC_COUNTER_BUFFER_REFERENCED_BY_COMPUTE_SHADER' else + if self.val = UInt32($92C1) then Result := 'ATOMIC_COUNTER_BUFFER_BINDING' else + if self.val = UInt32($92C4) then Result := 'ATOMIC_COUNTER_BUFFER_DATA_SIZE' else + if self.val = UInt32($92C5) then Result := 'ATOMIC_COUNTER_BUFFER_ACTIVE_ATOMIC_COUNTERS' else + if self.val = UInt32($92C6) then Result := 'ATOMIC_COUNTER_BUFFER_ACTIVE_ATOMIC_COUNTER_INDICES' else + if self.val = UInt32($92C7) then Result := 'ATOMIC_COUNTER_BUFFER_REFERENCED_BY_VERTEX_SHADER' else + if self.val = UInt32($92C8) then Result := 'ATOMIC_COUNTER_BUFFER_REFERENCED_BY_TESS_CONTROL_SHADER' else + if self.val = UInt32($92C9) then Result := 'ATOMIC_COUNTER_BUFFER_REFERENCED_BY_TESS_EVALUATION_SHADER' else + if self.val = UInt32($92CA) then Result := 'ATOMIC_COUNTER_BUFFER_REFERENCED_BY_GEOMETRY_SHADER' else + if self.val = UInt32($92CB) then Result := 'ATOMIC_COUNTER_BUFFER_REFERENCED_BY_FRAGMENT_SHADER' else + Result := self.val.ToString; end; end; @@ -623,10 +637,38 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(AttribMask).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'AttribMask[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'CURRENT_BIT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'POINT_BIT+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'LINE_BIT+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'POLYGON_BIT+'; + if self.val and UInt32($0010) = UInt32($0010) then res += 'POLYGON_STIPPLE_BIT+'; + if self.val and UInt32($0020) = UInt32($0020) then res += 'PIXEL_MODE_BIT+'; + if self.val and UInt32($0040) = UInt32($0040) then res += 'LIGHTING_BIT+'; + if self.val and UInt32($0080) = UInt32($0080) then res += 'FOG_BIT+'; + if self.val and UInt32($0100) = UInt32($0100) then res += 'DEPTH_BUFFER_BIT+'; + if self.val and UInt32($0200) = UInt32($0200) then res += 'ACCUM_BUFFER_BIT+'; + if self.val and UInt32($0400) = UInt32($0400) then res += 'STENCIL_BUFFER_BIT+'; + if self.val and UInt32($0800) = UInt32($0800) then res += 'VIEWPORT_BIT+'; + if self.val and UInt32($1000) = UInt32($1000) then res += 'TRANSFORM_BIT+'; + if self.val and UInt32($2000) = UInt32($2000) then res += 'ENABLE_BIT+'; + if self.val and UInt32($4000) = UInt32($4000) then res += 'COLOR_BUFFER_BIT+'; + if self.val and UInt32($8000) = UInt32($8000) then res += 'HINT_BIT+'; + if self.val and UInt32($10000) = UInt32($10000) then res += 'EVAL_BIT+'; + if self.val and UInt32($20000) = UInt32($20000) then res += 'LIST_BIT+'; + if self.val and UInt32($40000) = UInt32($40000) then res += 'TEXTURE_BIT+'; + if self.val and UInt32($80000) = UInt32($80000) then res += 'SCISSOR_BIT+'; + if self.val and UInt32($20000000) = UInt32($20000000) then res += 'MULTISAMPLE_BIT+'; + if self.val and UInt32($20000000) = UInt32($20000000) then res += 'MULTISAMPLE_BIT_3DFX+'; + if self.val and UInt32($20000000) = UInt32($20000000) then res += 'MULTISAMPLE_BIT_ARB+'; + if self.val and UInt32($20000000) = UInt32($20000000) then res += 'MULTISAMPLE_BIT_EXT+'; + if self.val and UInt32($FFFFFFFF) = UInt32($FFFFFFFF) then res += 'ALL_ATTRIB_BITS+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -935,10 +977,155 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(AttributeType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->AttributeType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'AttributeType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + if self.val = UInt32($140E) then Result := 'INT64_ARB' else + if self.val = UInt32($140E) then Result := 'INT64_NV' else + if self.val = UInt32($140F) then Result := 'UNSIGNED_INT64_ARB' else + if self.val = UInt32($140F) then Result := 'UNSIGNED_INT64_NV' else + if self.val = UInt32($8B50) then Result := 'FLOAT_VEC2' else + if self.val = UInt32($8B50) then Result := 'FLOAT_VEC2_ARB' else + if self.val = UInt32($8B51) then Result := 'FLOAT_VEC3' else + if self.val = UInt32($8B51) then Result := 'FLOAT_VEC3_ARB' else + if self.val = UInt32($8B52) then Result := 'FLOAT_VEC4' else + if self.val = UInt32($8B52) then Result := 'FLOAT_VEC4_ARB' else + if self.val = UInt32($8B53) then Result := 'INT_VEC2' else + if self.val = UInt32($8B53) then Result := 'INT_VEC2_ARB' else + if self.val = UInt32($8B54) then Result := 'INT_VEC3' else + if self.val = UInt32($8B54) then Result := 'INT_VEC3_ARB' else + if self.val = UInt32($8B55) then Result := 'INT_VEC4' else + if self.val = UInt32($8B55) then Result := 'INT_VEC4_ARB' else + if self.val = UInt32($8B56) then Result := 'BOOL' else + if self.val = UInt32($8B56) then Result := 'BOOL_ARB' else + if self.val = UInt32($8B57) then Result := 'BOOL_VEC2' else + if self.val = UInt32($8B57) then Result := 'BOOL_VEC2_ARB' else + if self.val = UInt32($8B58) then Result := 'BOOL_VEC3' else + if self.val = UInt32($8B58) then Result := 'BOOL_VEC3_ARB' else + if self.val = UInt32($8B59) then Result := 'BOOL_VEC4' else + if self.val = UInt32($8B59) then Result := 'BOOL_VEC4_ARB' else + if self.val = UInt32($8B5A) then Result := 'FLOAT_MAT2' else + if self.val = UInt32($8B5A) then Result := 'FLOAT_MAT2_ARB' else + if self.val = UInt32($8B5B) then Result := 'FLOAT_MAT3' else + if self.val = UInt32($8B5B) then Result := 'FLOAT_MAT3_ARB' else + if self.val = UInt32($8B5C) then Result := 'FLOAT_MAT4' else + if self.val = UInt32($8B5C) then Result := 'FLOAT_MAT4_ARB' else + if self.val = UInt32($8B5D) then Result := 'SAMPLER_1D' else + if self.val = UInt32($8B5D) then Result := 'SAMPLER_1D_ARB' else + if self.val = UInt32($8B5E) then Result := 'SAMPLER_2D' else + if self.val = UInt32($8B5E) then Result := 'SAMPLER_2D_ARB' else + if self.val = UInt32($8B5F) then Result := 'SAMPLER_3D' else + if self.val = UInt32($8B5F) then Result := 'SAMPLER_3D_ARB' else + if self.val = UInt32($8B5F) then Result := 'SAMPLER_3D_OES' else + if self.val = UInt32($8B60) then Result := 'SAMPLER_CUBE' else + if self.val = UInt32($8B60) then Result := 'SAMPLER_CUBE_ARB' else + if self.val = UInt32($8B61) then Result := 'SAMPLER_1D_SHADOW' else + if self.val = UInt32($8B61) then Result := 'SAMPLER_1D_SHADOW_ARB' else + if self.val = UInt32($8B62) then Result := 'SAMPLER_2D_SHADOW' else + if self.val = UInt32($8B62) then Result := 'SAMPLER_2D_SHADOW_ARB' else + if self.val = UInt32($8B62) then Result := 'SAMPLER_2D_SHADOW_EXT' else + if self.val = UInt32($8B63) then Result := 'SAMPLER_2D_RECT' else + if self.val = UInt32($8B63) then Result := 'SAMPLER_2D_RECT_ARB' else + if self.val = UInt32($8B64) then Result := 'SAMPLER_2D_RECT_SHADOW' else + if self.val = UInt32($8B64) then Result := 'SAMPLER_2D_RECT_SHADOW_ARB' else + if self.val = UInt32($8B65) then Result := 'FLOAT_MAT2x3' else + if self.val = UInt32($8B65) then Result := 'FLOAT_MAT2x3_NV' else + if self.val = UInt32($8B66) then Result := 'FLOAT_MAT2x4' else + if self.val = UInt32($8B66) then Result := 'FLOAT_MAT2x4_NV' else + if self.val = UInt32($8B67) then Result := 'FLOAT_MAT3x2' else + if self.val = UInt32($8B67) then Result := 'FLOAT_MAT3x2_NV' else + if self.val = UInt32($8B68) then Result := 'FLOAT_MAT3x4' else + if self.val = UInt32($8B68) then Result := 'FLOAT_MAT3x4_NV' else + if self.val = UInt32($8B69) then Result := 'FLOAT_MAT4x2' else + if self.val = UInt32($8B69) then Result := 'FLOAT_MAT4x2_NV' else + if self.val = UInt32($8B6A) then Result := 'FLOAT_MAT4x3' else + if self.val = UInt32($8B6A) then Result := 'FLOAT_MAT4x3_NV' else + if self.val = UInt32($8DC2) then Result := 'SAMPLER_BUFFER' else + if self.val = UInt32($8DC3) then Result := 'SAMPLER_1D_ARRAY_SHADOW' else + if self.val = UInt32($8DC4) then Result := 'SAMPLER_2D_ARRAY_SHADOW' else + if self.val = UInt32($8DC5) then Result := 'SAMPLER_CUBE_SHADOW' else + if self.val = UInt32($8DC6) then Result := 'UNSIGNED_INT_VEC2' else + if self.val = UInt32($8DC7) then Result := 'UNSIGNED_INT_VEC3' else + if self.val = UInt32($8DC8) then Result := 'UNSIGNED_INT_VEC4' else + if self.val = UInt32($8DC9) then Result := 'INT_SAMPLER_1D' else + if self.val = UInt32($8DCA) then Result := 'INT_SAMPLER_2D' else + if self.val = UInt32($8DCB) then Result := 'INT_SAMPLER_3D' else + if self.val = UInt32($8DCC) then Result := 'INT_SAMPLER_CUBE' else + if self.val = UInt32($8DCD) then Result := 'INT_SAMPLER_2D_RECT' else + if self.val = UInt32($8DCE) then Result := 'INT_SAMPLER_1D_ARRAY' else + if self.val = UInt32($8DCF) then Result := 'INT_SAMPLER_2D_ARRAY' else + if self.val = UInt32($8DD0) then Result := 'INT_SAMPLER_BUFFER' else + if self.val = UInt32($8DD1) then Result := 'UNSIGNED_INT_SAMPLER_1D' else + if self.val = UInt32($8DD2) then Result := 'UNSIGNED_INT_SAMPLER_2D' else + if self.val = UInt32($8DD3) then Result := 'UNSIGNED_INT_SAMPLER_3D' else + if self.val = UInt32($8DD4) then Result := 'UNSIGNED_INT_SAMPLER_CUBE' else + if self.val = UInt32($8DD5) then Result := 'UNSIGNED_INT_SAMPLER_2D_RECT' else + if self.val = UInt32($8DD6) then Result := 'UNSIGNED_INT_SAMPLER_1D_ARRAY' else + if self.val = UInt32($8DD7) then Result := 'UNSIGNED_INT_SAMPLER_2D_ARRAY' else + if self.val = UInt32($8DD8) then Result := 'UNSIGNED_INT_SAMPLER_BUFFER' else + if self.val = UInt32($8F46) then Result := 'DOUBLE_MAT2' else + if self.val = UInt32($8F47) then Result := 'DOUBLE_MAT3' else + if self.val = UInt32($8F48) then Result := 'DOUBLE_MAT4' else + if self.val = UInt32($8F49) then Result := 'DOUBLE_MAT2x3' else + if self.val = UInt32($8F4A) then Result := 'DOUBLE_MAT2x4' else + if self.val = UInt32($8F4B) then Result := 'DOUBLE_MAT3x2' else + if self.val = UInt32($8F4C) then Result := 'DOUBLE_MAT3x4' else + if self.val = UInt32($8F4D) then Result := 'DOUBLE_MAT4x2' else + if self.val = UInt32($8F4E) then Result := 'DOUBLE_MAT4x3' else + if self.val = UInt32($8FE9) then Result := 'INT64_VEC2_ARB' else + if self.val = UInt32($8FEA) then Result := 'INT64_VEC3_ARB' else + if self.val = UInt32($8FEB) then Result := 'INT64_VEC4_ARB' else + if self.val = UInt32($8FF5) then Result := 'UNSIGNED_INT64_VEC2_ARB' else + if self.val = UInt32($8FF6) then Result := 'UNSIGNED_INT64_VEC3_ARB' else + if self.val = UInt32($8FF7) then Result := 'UNSIGNED_INT64_VEC4_ARB' else + if self.val = UInt32($8FFC) then Result := 'DOUBLE_VEC2' else + if self.val = UInt32($8FFD) then Result := 'DOUBLE_VEC3' else + if self.val = UInt32($8FFE) then Result := 'DOUBLE_VEC4' else + if self.val = UInt32($900C) then Result := 'SAMPLER_CUBE_MAP_ARRAY' else + if self.val = UInt32($900D) then Result := 'SAMPLER_CUBE_MAP_ARRAY_SHADOW' else + if self.val = UInt32($900E) then Result := 'INT_SAMPLER_CUBE_MAP_ARRAY' else + if self.val = UInt32($900F) then Result := 'UNSIGNED_INT_SAMPLER_CUBE_MAP_ARRAY' else + if self.val = UInt32($904C) then Result := 'IMAGE_1D' else + if self.val = UInt32($904D) then Result := 'IMAGE_2D' else + if self.val = UInt32($904E) then Result := 'IMAGE_3D' else + if self.val = UInt32($904F) then Result := 'IMAGE_2D_RECT' else + if self.val = UInt32($9050) then Result := 'IMAGE_CUBE' else + if self.val = UInt32($9051) then Result := 'IMAGE_BUFFER' else + if self.val = UInt32($9052) then Result := 'IMAGE_1D_ARRAY' else + if self.val = UInt32($9053) then Result := 'IMAGE_2D_ARRAY' else + if self.val = UInt32($9054) then Result := 'IMAGE_CUBE_MAP_ARRAY' else + if self.val = UInt32($9055) then Result := 'IMAGE_2D_MULTISAMPLE' else + if self.val = UInt32($9056) then Result := 'IMAGE_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($9057) then Result := 'INT_IMAGE_1D' else + if self.val = UInt32($9058) then Result := 'INT_IMAGE_2D' else + if self.val = UInt32($9059) then Result := 'INT_IMAGE_3D' else + if self.val = UInt32($905A) then Result := 'INT_IMAGE_2D_RECT' else + if self.val = UInt32($905B) then Result := 'INT_IMAGE_CUBE' else + if self.val = UInt32($905C) then Result := 'INT_IMAGE_BUFFER' else + if self.val = UInt32($905D) then Result := 'INT_IMAGE_1D_ARRAY' else + if self.val = UInt32($905E) then Result := 'INT_IMAGE_2D_ARRAY' else + if self.val = UInt32($905F) then Result := 'INT_IMAGE_CUBE_MAP_ARRAY' else + if self.val = UInt32($9060) then Result := 'INT_IMAGE_2D_MULTISAMPLE' else + if self.val = UInt32($9061) then Result := 'INT_IMAGE_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($9062) then Result := 'UNSIGNED_INT_IMAGE_1D' else + if self.val = UInt32($9063) then Result := 'UNSIGNED_INT_IMAGE_2D' else + if self.val = UInt32($9064) then Result := 'UNSIGNED_INT_IMAGE_3D' else + if self.val = UInt32($9065) then Result := 'UNSIGNED_INT_IMAGE_2D_RECT' else + if self.val = UInt32($9066) then Result := 'UNSIGNED_INT_IMAGE_CUBE' else + if self.val = UInt32($9067) then Result := 'UNSIGNED_INT_IMAGE_BUFFER' else + if self.val = UInt32($9068) then Result := 'UNSIGNED_INT_IMAGE_1D_ARRAY' else + if self.val = UInt32($9069) then Result := 'UNSIGNED_INT_IMAGE_2D_ARRAY' else + if self.val = UInt32($906A) then Result := 'UNSIGNED_INT_IMAGE_CUBE_MAP_ARRAY' else + if self.val = UInt32($906B) then Result := 'UNSIGNED_INT_IMAGE_2D_MULTISAMPLE' else + if self.val = UInt32($906C) then Result := 'UNSIGNED_INT_IMAGE_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($9108) then Result := 'SAMPLER_2D_MULTISAMPLE' else + if self.val = UInt32($9109) then Result := 'INT_SAMPLER_2D_MULTISAMPLE' else + if self.val = UInt32($910A) then Result := 'UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE' else + if self.val = UInt32($910B) then Result := 'SAMPLER_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($910C) then Result := 'INT_SAMPLER_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($910D) then Result := 'UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE_ARRAY' else + Result := self.val.ToString; end; end; @@ -953,10 +1140,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BindTransformFeedbackTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BindTransformFeedbackTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BindTransformFeedbackTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8E22) then Result := 'TRANSFORM_FEEDBACK' else + Result := self.val.ToString; end; end; @@ -1007,10 +1192,26 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BlendingFactor).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BlendingFactor(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BlendingFactor[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'ZERO' else + if self.val = UInt32($0001) then Result := 'ONE' else + if self.val = UInt32($0300) then Result := 'SRC_COLOR' else + if self.val = UInt32($0301) then Result := 'ONE_MINUS_SRC_COLOR' else + if self.val = UInt32($0302) then Result := 'SRC_ALPHA' else + if self.val = UInt32($0303) then Result := 'ONE_MINUS_SRC_ALPHA' else + if self.val = UInt32($0304) then Result := 'DST_ALPHA' else + if self.val = UInt32($0305) then Result := 'ONE_MINUS_DST_ALPHA' else + if self.val = UInt32($0306) then Result := 'DST_COLOR' else + if self.val = UInt32($0307) then Result := 'ONE_MINUS_DST_COLOR' else + if self.val = UInt32($0308) then Result := 'SRC_ALPHA_SATURATE' else + if self.val = UInt32($8001) then Result := 'CONSTANT_COLOR' else + if self.val = UInt32($8002) then Result := 'ONE_MINUS_CONSTANT_COLOR' else + if self.val = UInt32($8003) then Result := 'CONSTANT_ALPHA' else + if self.val = UInt32($8004) then Result := 'ONE_MINUS_CONSTANT_ALPHA' else + if self.val = UInt32($8589) then Result := 'SRC1_ALPHA' else + if self.val = UInt32($88F9) then Result := 'SRC1_COLOR' else + if self.val = UInt32($88FA) then Result := 'ONE_MINUS_SRC1_COLOR' else + if self.val = UInt32($88FB) then Result := 'ONE_MINUS_SRC1_ALPHA' else + Result := self.val.ToString; end; end; @@ -1027,10 +1228,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BlitFramebufferFilter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BlitFramebufferFilter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BlitFramebufferFilter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2600) then Result := 'NEAREST' else + if self.val = UInt32($2601) then Result := 'LINEAR' else + Result := self.val.ToString; end; end; @@ -1049,10 +1249,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(Buffer).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->Buffer(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'Buffer[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1800) then Result := 'COLOR' else + if self.val = UInt32($1801) then Result := 'DEPTH' else + if self.val = UInt32($1802) then Result := 'STENCIL' else + Result := self.val.ToString; end; end; @@ -1116,10 +1316,29 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BufferStorageMask).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'BufferStorageMask[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'MAP_READ_BIT+'; + if self.val and UInt32($0001) = UInt32($0001) then res += 'MAP_READ_BIT_EXT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'MAP_WRITE_BIT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'MAP_WRITE_BIT_EXT+'; + if self.val and UInt32($0040) = UInt32($0040) then res += 'MAP_PERSISTENT_BIT+'; + if self.val and UInt32($0040) = UInt32($0040) then res += 'MAP_PERSISTENT_BIT_EXT+'; + if self.val and UInt32($0080) = UInt32($0080) then res += 'MAP_COHERENT_BIT+'; + if self.val and UInt32($0080) = UInt32($0080) then res += 'MAP_COHERENT_BIT_EXT+'; + if self.val and UInt32($0100) = UInt32($0100) then res += 'DYNAMIC_STORAGE_BIT+'; + if self.val and UInt32($0100) = UInt32($0100) then res += 'DYNAMIC_STORAGE_BIT_EXT+'; + if self.val and UInt32($0200) = UInt32($0200) then res += 'CLIENT_STORAGE_BIT+'; + if self.val and UInt32($0200) = UInt32($0200) then res += 'CLIENT_STORAGE_BIT_EXT+'; + if self.val and UInt32($0400) = UInt32($0400) then res += 'SPARSE_STORAGE_BIT_ARB+'; + if self.val and UInt32($0800) = UInt32($0800) then res += 'LGPU_SEPARATE_STORAGE_BIT_NVX+'; + if self.val and UInt32($0800) = UInt32($0800) then res += 'PER_GPU_STORAGE_BIT_NV+'; + if self.val and UInt32($2000) = UInt32($2000) then res += 'EXTERNAL_STORAGE_BIT_NVX+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -1160,10 +1379,21 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BufferStorageTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BufferStorageTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BufferStorageTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8892) then Result := 'ARRAY_BUFFER' else + if self.val = UInt32($8893) then Result := 'ELEMENT_ARRAY_BUFFER' else + if self.val = UInt32($88EB) then Result := 'PIXEL_PACK_BUFFER' else + if self.val = UInt32($88EC) then Result := 'PIXEL_UNPACK_BUFFER' else + if self.val = UInt32($8A11) then Result := 'UNIFORM_BUFFER' else + if self.val = UInt32($8C2A) then Result := 'TEXTURE_BUFFER' else + if self.val = UInt32($8C8E) then Result := 'TRANSFORM_FEEDBACK_BUFFER' else + if self.val = UInt32($8F36) then Result := 'COPY_READ_BUFFER' else + if self.val = UInt32($8F37) then Result := 'COPY_WRITE_BUFFER' else + if self.val = UInt32($8F3F) then Result := 'DRAW_INDIRECT_BUFFER' else + if self.val = UInt32($90D2) then Result := 'SHADER_STORAGE_BUFFER' else + if self.val = UInt32($90EE) then Result := 'DISPATCH_INDIRECT_BUFFER' else + if self.val = UInt32($9192) then Result := 'QUERY_BUFFER' else + if self.val = UInt32($92C0) then Result := 'ATOMIC_COUNTER_BUFFER' else + Result := self.val.ToString; end; end; @@ -1194,10 +1424,18 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ClearBufferMask).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'ClearBufferMask[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0100) = UInt32($0100) then res += 'DEPTH_BUFFER_BIT+'; + if self.val and UInt32($0200) = UInt32($0200) then res += 'ACCUM_BUFFER_BIT+'; + if self.val and UInt32($0400) = UInt32($0400) then res += 'STENCIL_BUFFER_BIT+'; + if self.val and UInt32($4000) = UInt32($4000) then res += 'COLOR_BUFFER_BIT+'; + if self.val and UInt32($8000) = UInt32($8000) then res += 'COVERAGE_BUFFER_BIT_NV+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -1222,10 +1460,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ClientAttribMask).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'ClientAttribMask[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'CLIENT_PIXEL_STORE_BIT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'CLIENT_VERTEX_ARRAY_BIT+'; + if self.val and UInt32($FFFFFFFF) = UInt32($FFFFFFFF) then res += 'CLIENT_ALL_ATTRIB_BITS+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -1242,10 +1486,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ClipControlDepth).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ClipControlDepth(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ClipControlDepth[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($935E) then Result := 'NEGATIVE_ONE_TO_ONE' else + if self.val = UInt32($935F) then Result := 'ZERO_TO_ONE' else + Result := self.val.ToString; end; end; @@ -1262,10 +1505,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ClipControlOrigin).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ClipControlOrigin(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ClipControlOrigin[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8CA1) then Result := 'LOWER_LEFT' else + if self.val = UInt32($8CA2) then Result := 'UPPER_LEFT' else + Result := self.val.ToString; end; end; @@ -1306,10 +1548,21 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ClipPlaneName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ClipPlaneName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ClipPlaneName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($3000) then Result := 'CLIP_DISTANCE0' else + if self.val = UInt32($3000) then Result := 'CLIP_PLANE0' else + if self.val = UInt32($3001) then Result := 'CLIP_DISTANCE1' else + if self.val = UInt32($3001) then Result := 'CLIP_PLANE1' else + if self.val = UInt32($3002) then Result := 'CLIP_DISTANCE2' else + if self.val = UInt32($3002) then Result := 'CLIP_PLANE2' else + if self.val = UInt32($3003) then Result := 'CLIP_DISTANCE3' else + if self.val = UInt32($3003) then Result := 'CLIP_PLANE3' else + if self.val = UInt32($3004) then Result := 'CLIP_DISTANCE4' else + if self.val = UInt32($3004) then Result := 'CLIP_PLANE4' else + if self.val = UInt32($3005) then Result := 'CLIP_DISTANCE5' else + if self.val = UInt32($3005) then Result := 'CLIP_PLANE5' else + if self.val = UInt32($3006) then Result := 'CLIP_DISTANCE6' else + if self.val = UInt32($3007) then Result := 'CLIP_DISTANCE7' else + Result := self.val.ToString; end; end; @@ -1406,10 +1659,49 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ColorBuffer).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ColorBuffer(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ColorBuffer[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NONE' else + if self.val = UInt32($0400) then Result := 'FRONT_LEFT' else + if self.val = UInt32($0401) then Result := 'FRONT_RIGHT' else + if self.val = UInt32($0402) then Result := 'BACK_LEFT' else + if self.val = UInt32($0403) then Result := 'BACK_RIGHT' else + if self.val = UInt32($0404) then Result := 'FRONT' else + if self.val = UInt32($0405) then Result := 'BACK' else + if self.val = UInt32($0406) then Result := 'LEFT' else + if self.val = UInt32($0407) then Result := 'RIGHT' else + if self.val = UInt32($0408) then Result := 'FRONT_AND_BACK' else + if self.val = UInt32($8CE0) then Result := 'COLOR_ATTACHMENT0' else + if self.val = UInt32($8CE1) then Result := 'COLOR_ATTACHMENT1' else + if self.val = UInt32($8CE2) then Result := 'COLOR_ATTACHMENT2' else + if self.val = UInt32($8CE3) then Result := 'COLOR_ATTACHMENT3' else + if self.val = UInt32($8CE4) then Result := 'COLOR_ATTACHMENT4' else + if self.val = UInt32($8CE5) then Result := 'COLOR_ATTACHMENT5' else + if self.val = UInt32($8CE6) then Result := 'COLOR_ATTACHMENT6' else + if self.val = UInt32($8CE7) then Result := 'COLOR_ATTACHMENT7' else + if self.val = UInt32($8CE8) then Result := 'COLOR_ATTACHMENT8' else + if self.val = UInt32($8CE9) then Result := 'COLOR_ATTACHMENT9' else + if self.val = UInt32($8CEA) then Result := 'COLOR_ATTACHMENT10' else + if self.val = UInt32($8CEB) then Result := 'COLOR_ATTACHMENT11' else + if self.val = UInt32($8CEC) then Result := 'COLOR_ATTACHMENT12' else + if self.val = UInt32($8CED) then Result := 'COLOR_ATTACHMENT13' else + if self.val = UInt32($8CEE) then Result := 'COLOR_ATTACHMENT14' else + if self.val = UInt32($8CEF) then Result := 'COLOR_ATTACHMENT15' else + if self.val = UInt32($8CF0) then Result := 'COLOR_ATTACHMENT16' else + if self.val = UInt32($8CF1) then Result := 'COLOR_ATTACHMENT17' else + if self.val = UInt32($8CF2) then Result := 'COLOR_ATTACHMENT18' else + if self.val = UInt32($8CF3) then Result := 'COLOR_ATTACHMENT19' else + if self.val = UInt32($8CF4) then Result := 'COLOR_ATTACHMENT20' else + if self.val = UInt32($8CF5) then Result := 'COLOR_ATTACHMENT21' else + if self.val = UInt32($8CF6) then Result := 'COLOR_ATTACHMENT22' else + if self.val = UInt32($8CF7) then Result := 'COLOR_ATTACHMENT23' else + if self.val = UInt32($8CF8) then Result := 'COLOR_ATTACHMENT24' else + if self.val = UInt32($8CF9) then Result := 'COLOR_ATTACHMENT25' else + if self.val = UInt32($8CFA) then Result := 'COLOR_ATTACHMENT26' else + if self.val = UInt32($8CFB) then Result := 'COLOR_ATTACHMENT27' else + if self.val = UInt32($8CFC) then Result := 'COLOR_ATTACHMENT28' else + if self.val = UInt32($8CFD) then Result := 'COLOR_ATTACHMENT29' else + if self.val = UInt32($8CFE) then Result := 'COLOR_ATTACHMENT30' else + if self.val = UInt32($8CFF) then Result := 'COLOR_ATTACHMENT31' else + Result := self.val.ToString; end; end; @@ -1432,10 +1724,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ColorMaterialParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ColorMaterialParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ColorMaterialParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1200) then Result := 'AMBIENT' else + if self.val = UInt32($1201) then Result := 'DIFFUSE' else + if self.val = UInt32($1202) then Result := 'SPECULAR' else + if self.val = UInt32($1600) then Result := 'EMISSION' else + if self.val = UInt32($1602) then Result := 'AMBIENT_AND_DIFFUSE' else + Result := self.val.ToString; end; end; @@ -1456,10 +1750,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ColorPointerType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ColorPointerType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ColorPointerType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + Result := self.val.ToString; end; end; @@ -1478,10 +1773,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ColorTableTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ColorTableTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ColorTableTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($80D0) then Result := 'COLOR_TABLE' else + if self.val = UInt32($80D1) then Result := 'POST_CONVOLUTION_COLOR_TABLE' else + if self.val = UInt32($80D2) then Result := 'POST_COLOR_MATRIX_COLOR_TABLE' else + Result := self.val.ToString; end; end; @@ -1510,10 +1805,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ConditionalRenderMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ConditionalRenderMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ConditionalRenderMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8E13) then Result := 'QUERY_WAIT' else + if self.val = UInt32($8E14) then Result := 'QUERY_NO_WAIT' else + if self.val = UInt32($8E15) then Result := 'QUERY_BY_REGION_WAIT' else + if self.val = UInt32($8E16) then Result := 'QUERY_BY_REGION_NO_WAIT' else + if self.val = UInt32($8E17) then Result := 'QUERY_WAIT_INVERTED' else + if self.val = UInt32($8E18) then Result := 'QUERY_NO_WAIT_INVERTED' else + if self.val = UInt32($8E19) then Result := 'QUERY_BY_REGION_WAIT_INVERTED' else + if self.val = UInt32($8E1A) then Result := 'QUERY_BY_REGION_NO_WAIT_INVERTED' else + Result := self.val.ToString; end; end; @@ -1530,10 +1830,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ConvolutionTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ConvolutionTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ConvolutionTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8010) then Result := 'CONVOLUTION_1D' else + if self.val = UInt32($8011) then Result := 'CONVOLUTION_2D' else + Result := self.val.ToString; end; end; @@ -1574,10 +1873,21 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CopyBufferSubDataTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CopyBufferSubDataTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CopyBufferSubDataTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8892) then Result := 'ARRAY_BUFFER' else + if self.val = UInt32($8893) then Result := 'ELEMENT_ARRAY_BUFFER' else + if self.val = UInt32($88EB) then Result := 'PIXEL_PACK_BUFFER' else + if self.val = UInt32($88EC) then Result := 'PIXEL_UNPACK_BUFFER' else + if self.val = UInt32($8A11) then Result := 'UNIFORM_BUFFER' else + if self.val = UInt32($8C2A) then Result := 'TEXTURE_BUFFER' else + if self.val = UInt32($8C8E) then Result := 'TRANSFORM_FEEDBACK_BUFFER' else + if self.val = UInt32($8F36) then Result := 'COPY_READ_BUFFER' else + if self.val = UInt32($8F37) then Result := 'COPY_WRITE_BUFFER' else + if self.val = UInt32($8F3F) then Result := 'DRAW_INDIRECT_BUFFER' else + if self.val = UInt32($90D2) then Result := 'SHADER_STORAGE_BUFFER' else + if self.val = UInt32($90EE) then Result := 'DISPATCH_INDIRECT_BUFFER' else + if self.val = UInt32($9192) then Result := 'QUERY_BUFFER' else + if self.val = UInt32($92C0) then Result := 'ATOMIC_COUNTER_BUFFER' else + Result := self.val.ToString; end; end; @@ -1612,10 +1922,18 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CopyImageSubDataTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CopyImageSubDataTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CopyImageSubDataTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0DE0) then Result := 'TEXTURE_1D' else + if self.val = UInt32($0DE1) then Result := 'TEXTURE_2D' else + if self.val = UInt32($806F) then Result := 'TEXTURE_3D' else + if self.val = UInt32($84F5) then Result := 'TEXTURE_RECTANGLE' else + if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP' else + if self.val = UInt32($8C18) then Result := 'TEXTURE_1D_ARRAY' else + if self.val = UInt32($8C1A) then Result := 'TEXTURE_2D_ARRAY' else + if self.val = UInt32($8D41) then Result := 'RENDERBUFFER' else + if self.val = UInt32($9009) then Result := 'TEXTURE_CUBE_MAP_ARRAY' else + if self.val = UInt32($9100) then Result := 'TEXTURE_2D_MULTISAMPLE' else + if self.val = UInt32($9102) then Result := 'TEXTURE_2D_MULTISAMPLE_ARRAY' else + Result := self.val.ToString; end; end; @@ -1634,10 +1952,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CullFaceMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CullFaceMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CullFaceMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0404) then Result := 'FRONT' else + if self.val = UInt32($0405) then Result := 'BACK' else + if self.val = UInt32($0408) then Result := 'FRONT_AND_BACK' else + Result := self.val.ToString; end; end; @@ -1660,10 +1978,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DebugSeverity).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DebugSeverity(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DebugSeverity[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1100) then Result := 'DONT_CARE' else + if self.val = UInt32($826B) then Result := 'DEBUG_SEVERITY_NOTIFICATION' else + if self.val = UInt32($9146) then Result := 'DEBUG_SEVERITY_HIGH' else + if self.val = UInt32($9147) then Result := 'DEBUG_SEVERITY_MEDIUM' else + if self.val = UInt32($9148) then Result := 'DEBUG_SEVERITY_LOW' else + Result := self.val.ToString; end; end; @@ -1690,10 +2010,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DebugSource).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DebugSource(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DebugSource[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1100) then Result := 'DONT_CARE' else + if self.val = UInt32($8246) then Result := 'DEBUG_SOURCE_API' else + if self.val = UInt32($8247) then Result := 'DEBUG_SOURCE_WINDOW_SYSTEM' else + if self.val = UInt32($8248) then Result := 'DEBUG_SOURCE_SHADER_COMPILER' else + if self.val = UInt32($8249) then Result := 'DEBUG_SOURCE_THIRD_PARTY' else + if self.val = UInt32($824A) then Result := 'DEBUG_SOURCE_APPLICATION' else + if self.val = UInt32($824B) then Result := 'DEBUG_SOURCE_OTHER' else + Result := self.val.ToString; end; end; @@ -1726,10 +2050,17 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DebugType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DebugType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DebugType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1100) then Result := 'DONT_CARE' else + if self.val = UInt32($824C) then Result := 'DEBUG_TYPE_ERROR' else + if self.val = UInt32($824D) then Result := 'DEBUG_TYPE_DEPRECATED_BEHAVIOR' else + if self.val = UInt32($824E) then Result := 'DEBUG_TYPE_UNDEFINED_BEHAVIOR' else + if self.val = UInt32($824F) then Result := 'DEBUG_TYPE_PORTABILITY' else + if self.val = UInt32($8250) then Result := 'DEBUG_TYPE_PERFORMANCE' else + if self.val = UInt32($8251) then Result := 'DEBUG_TYPE_OTHER' else + if self.val = UInt32($8268) then Result := 'DEBUG_TYPE_MARKER' else + if self.val = UInt32($8269) then Result := 'DEBUG_TYPE_PUSH_GROUP' else + if self.val = UInt32($826A) then Result := 'DEBUG_TYPE_POP_GROUP' else + Result := self.val.ToString; end; end; @@ -1758,10 +2089,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DepthFunction).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DepthFunction(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DepthFunction[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0200) then Result := 'NEVER' else + if self.val = UInt32($0201) then Result := 'LESS' else + if self.val = UInt32($0202) then Result := 'EQUAL' else + if self.val = UInt32($0203) then Result := 'LEQUAL' else + if self.val = UInt32($0204) then Result := 'GREATER' else + if self.val = UInt32($0205) then Result := 'NOTEQUAL' else + if self.val = UInt32($0206) then Result := 'GEQUAL' else + if self.val = UInt32($0207) then Result := 'ALWAYS' else + Result := self.val.ToString; end; end; @@ -1868,10 +2204,54 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DrawBufferMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DrawBufferMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DrawBufferMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NONE' else + if self.val = UInt32($0000) then Result := 'NONE_OES' else + if self.val = UInt32($0400) then Result := 'FRONT_LEFT' else + if self.val = UInt32($0401) then Result := 'FRONT_RIGHT' else + if self.val = UInt32($0402) then Result := 'BACK_LEFT' else + if self.val = UInt32($0403) then Result := 'BACK_RIGHT' else + if self.val = UInt32($0404) then Result := 'FRONT' else + if self.val = UInt32($0405) then Result := 'BACK' else + if self.val = UInt32($0406) then Result := 'LEFT' else + if self.val = UInt32($0407) then Result := 'RIGHT' else + if self.val = UInt32($0408) then Result := 'FRONT_AND_BACK' else + if self.val = UInt32($0409) then Result := 'AUX0' else + if self.val = UInt32($040A) then Result := 'AUX1' else + if self.val = UInt32($040B) then Result := 'AUX2' else + if self.val = UInt32($040C) then Result := 'AUX3' else + if self.val = UInt32($8CE0) then Result := 'COLOR_ATTACHMENT0' else + if self.val = UInt32($8CE1) then Result := 'COLOR_ATTACHMENT1' else + if self.val = UInt32($8CE2) then Result := 'COLOR_ATTACHMENT2' else + if self.val = UInt32($8CE3) then Result := 'COLOR_ATTACHMENT3' else + if self.val = UInt32($8CE4) then Result := 'COLOR_ATTACHMENT4' else + if self.val = UInt32($8CE5) then Result := 'COLOR_ATTACHMENT5' else + if self.val = UInt32($8CE6) then Result := 'COLOR_ATTACHMENT6' else + if self.val = UInt32($8CE7) then Result := 'COLOR_ATTACHMENT7' else + if self.val = UInt32($8CE8) then Result := 'COLOR_ATTACHMENT8' else + if self.val = UInt32($8CE9) then Result := 'COLOR_ATTACHMENT9' else + if self.val = UInt32($8CEA) then Result := 'COLOR_ATTACHMENT10' else + if self.val = UInt32($8CEB) then Result := 'COLOR_ATTACHMENT11' else + if self.val = UInt32($8CEC) then Result := 'COLOR_ATTACHMENT12' else + if self.val = UInt32($8CED) then Result := 'COLOR_ATTACHMENT13' else + if self.val = UInt32($8CEE) then Result := 'COLOR_ATTACHMENT14' else + if self.val = UInt32($8CEF) then Result := 'COLOR_ATTACHMENT15' else + if self.val = UInt32($8CF0) then Result := 'COLOR_ATTACHMENT16' else + if self.val = UInt32($8CF1) then Result := 'COLOR_ATTACHMENT17' else + if self.val = UInt32($8CF2) then Result := 'COLOR_ATTACHMENT18' else + if self.val = UInt32($8CF3) then Result := 'COLOR_ATTACHMENT19' else + if self.val = UInt32($8CF4) then Result := 'COLOR_ATTACHMENT20' else + if self.val = UInt32($8CF5) then Result := 'COLOR_ATTACHMENT21' else + if self.val = UInt32($8CF6) then Result := 'COLOR_ATTACHMENT22' else + if self.val = UInt32($8CF7) then Result := 'COLOR_ATTACHMENT23' else + if self.val = UInt32($8CF8) then Result := 'COLOR_ATTACHMENT24' else + if self.val = UInt32($8CF9) then Result := 'COLOR_ATTACHMENT25' else + if self.val = UInt32($8CFA) then Result := 'COLOR_ATTACHMENT26' else + if self.val = UInt32($8CFB) then Result := 'COLOR_ATTACHMENT27' else + if self.val = UInt32($8CFC) then Result := 'COLOR_ATTACHMENT28' else + if self.val = UInt32($8CFD) then Result := 'COLOR_ATTACHMENT29' else + if self.val = UInt32($8CFE) then Result := 'COLOR_ATTACHMENT30' else + if self.val = UInt32($8CFF) then Result := 'COLOR_ATTACHMENT31' else + Result := self.val.ToString; end; end; @@ -1890,10 +2270,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DrawElementsType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DrawElementsType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DrawElementsType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + Result := self.val.ToString; end; end; @@ -2164,10 +2544,136 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(EnableCap).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->EnableCap(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'EnableCap[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0B10) then Result := 'POINT_SMOOTH' else + if self.val = UInt32($0B20) then Result := 'LINE_SMOOTH' else + if self.val = UInt32($0B24) then Result := 'LINE_STIPPLE' else + if self.val = UInt32($0B41) then Result := 'POLYGON_SMOOTH' else + if self.val = UInt32($0B42) then Result := 'POLYGON_STIPPLE' else + if self.val = UInt32($0B44) then Result := 'CULL_FACE' else + if self.val = UInt32($0B50) then Result := 'LIGHTING' else + if self.val = UInt32($0B57) then Result := 'COLOR_MATERIAL' else + if self.val = UInt32($0B60) then Result := 'FOG' else + if self.val = UInt32($0B71) then Result := 'DEPTH_TEST' else + if self.val = UInt32($0B90) then Result := 'STENCIL_TEST' else + if self.val = UInt32($0BA1) then Result := 'NORMALIZE' else + if self.val = UInt32($0BC0) then Result := 'ALPHA_TEST' else + if self.val = UInt32($0BD0) then Result := 'DITHER' else + if self.val = UInt32($0BE2) then Result := 'BLEND' else + if self.val = UInt32($0BF1) then Result := 'INDEX_LOGIC_OP' else + if self.val = UInt32($0BF2) then Result := 'COLOR_LOGIC_OP' else + if self.val = UInt32($0C11) then Result := 'SCISSOR_TEST' else + if self.val = UInt32($0C60) then Result := 'TEXTURE_GEN_S' else + if self.val = UInt32($0C61) then Result := 'TEXTURE_GEN_T' else + if self.val = UInt32($0C62) then Result := 'TEXTURE_GEN_R' else + if self.val = UInt32($0C63) then Result := 'TEXTURE_GEN_Q' else + if self.val = UInt32($0D80) then Result := 'AUTO_NORMAL' else + if self.val = UInt32($0D90) then Result := 'MAP1_COLOR_4' else + if self.val = UInt32($0D91) then Result := 'MAP1_INDEX' else + if self.val = UInt32($0D92) then Result := 'MAP1_NORMAL' else + if self.val = UInt32($0D93) then Result := 'MAP1_TEXTURE_COORD_1' else + if self.val = UInt32($0D94) then Result := 'MAP1_TEXTURE_COORD_2' else + if self.val = UInt32($0D95) then Result := 'MAP1_TEXTURE_COORD_3' else + if self.val = UInt32($0D96) then Result := 'MAP1_TEXTURE_COORD_4' else + if self.val = UInt32($0D97) then Result := 'MAP1_VERTEX_3' else + if self.val = UInt32($0D98) then Result := 'MAP1_VERTEX_4' else + if self.val = UInt32($0DB0) then Result := 'MAP2_COLOR_4' else + if self.val = UInt32($0DB1) then Result := 'MAP2_INDEX' else + if self.val = UInt32($0DB2) then Result := 'MAP2_NORMAL' else + if self.val = UInt32($0DB3) then Result := 'MAP2_TEXTURE_COORD_1' else + if self.val = UInt32($0DB4) then Result := 'MAP2_TEXTURE_COORD_2' else + if self.val = UInt32($0DB5) then Result := 'MAP2_TEXTURE_COORD_3' else + if self.val = UInt32($0DB6) then Result := 'MAP2_TEXTURE_COORD_4' else + if self.val = UInt32($0DB7) then Result := 'MAP2_VERTEX_3' else + if self.val = UInt32($0DB8) then Result := 'MAP2_VERTEX_4' else + if self.val = UInt32($0DE0) then Result := 'TEXTURE_1D' else + if self.val = UInt32($0DE1) then Result := 'TEXTURE_2D' else + if self.val = UInt32($2A01) then Result := 'POLYGON_OFFSET_POINT' else + if self.val = UInt32($2A02) then Result := 'POLYGON_OFFSET_LINE' else + if self.val = UInt32($3000) then Result := 'CLIP_DISTANCE0' else + if self.val = UInt32($3000) then Result := 'CLIP_PLANE0' else + if self.val = UInt32($3001) then Result := 'CLIP_DISTANCE1' else + if self.val = UInt32($3001) then Result := 'CLIP_PLANE1' else + if self.val = UInt32($3002) then Result := 'CLIP_DISTANCE2' else + if self.val = UInt32($3002) then Result := 'CLIP_PLANE2' else + if self.val = UInt32($3003) then Result := 'CLIP_DISTANCE3' else + if self.val = UInt32($3003) then Result := 'CLIP_PLANE3' else + if self.val = UInt32($3004) then Result := 'CLIP_DISTANCE4' else + if self.val = UInt32($3004) then Result := 'CLIP_PLANE4' else + if self.val = UInt32($3005) then Result := 'CLIP_DISTANCE5' else + if self.val = UInt32($3005) then Result := 'CLIP_PLANE5' else + if self.val = UInt32($3006) then Result := 'CLIP_DISTANCE6' else + if self.val = UInt32($3007) then Result := 'CLIP_DISTANCE7' else + if self.val = UInt32($4000) then Result := 'LIGHT0' else + if self.val = UInt32($4001) then Result := 'LIGHT1' else + if self.val = UInt32($4002) then Result := 'LIGHT2' else + if self.val = UInt32($4003) then Result := 'LIGHT3' else + if self.val = UInt32($4004) then Result := 'LIGHT4' else + if self.val = UInt32($4005) then Result := 'LIGHT5' else + if self.val = UInt32($4006) then Result := 'LIGHT6' else + if self.val = UInt32($4007) then Result := 'LIGHT7' else + if self.val = UInt32($8010) then Result := 'CONVOLUTION_1D_EXT' else + if self.val = UInt32($8011) then Result := 'CONVOLUTION_2D_EXT' else + if self.val = UInt32($8012) then Result := 'SEPARABLE_2D_EXT' else + if self.val = UInt32($8024) then Result := 'HISTOGRAM_EXT' else + if self.val = UInt32($802E) then Result := 'MINMAX_EXT' else + if self.val = UInt32($8037) then Result := 'POLYGON_OFFSET_FILL' else + if self.val = UInt32($803A) then Result := 'RESCALE_NORMAL_EXT' else + if self.val = UInt32($806F) then Result := 'TEXTURE_3D_EXT' else + if self.val = UInt32($8074) then Result := 'VERTEX_ARRAY' else + if self.val = UInt32($8075) then Result := 'NORMAL_ARRAY' else + if self.val = UInt32($8076) then Result := 'COLOR_ARRAY' else + if self.val = UInt32($8077) then Result := 'INDEX_ARRAY' else + if self.val = UInt32($8078) then Result := 'TEXTURE_COORD_ARRAY' else + if self.val = UInt32($8079) then Result := 'EDGE_FLAG_ARRAY' else + if self.val = UInt32($8094) then Result := 'INTERLACE_SGIX' else + if self.val = UInt32($809D) then Result := 'MULTISAMPLE' else + if self.val = UInt32($809D) then Result := 'MULTISAMPLE_SGIS' else + if self.val = UInt32($809E) then Result := 'SAMPLE_ALPHA_TO_COVERAGE' else + if self.val = UInt32($809E) then Result := 'SAMPLE_ALPHA_TO_MASK_SGIS' else + if self.val = UInt32($809F) then Result := 'SAMPLE_ALPHA_TO_ONE' else + if self.val = UInt32($809F) then Result := 'SAMPLE_ALPHA_TO_ONE_SGIS' else + if self.val = UInt32($80A0) then Result := 'SAMPLE_COVERAGE' else + if self.val = UInt32($80A0) then Result := 'SAMPLE_MASK_SGIS' else + if self.val = UInt32($80BC) then Result := 'TEXTURE_COLOR_TABLE_SGI' else + if self.val = UInt32($80D0) then Result := 'COLOR_TABLE_SGI' else + if self.val = UInt32($80D1) then Result := 'POST_CONVOLUTION_COLOR_TABLE_SGI' else + if self.val = UInt32($80D2) then Result := 'POST_COLOR_MATRIX_COLOR_TABLE_SGI' else + if self.val = UInt32($8134) then Result := 'TEXTURE_4D_SGIS' else + if self.val = UInt32($8139) then Result := 'PIXEL_TEX_GEN_SGIX' else + if self.val = UInt32($8148) then Result := 'SPRITE_SGIX' else + if self.val = UInt32($817D) then Result := 'REFERENCE_PLANE_SGIX' else + if self.val = UInt32($817F) then Result := 'IR_INSTRUMENT1_SGIX' else + if self.val = UInt32($8183) then Result := 'CALLIGRAPHIC_FRAGMENT_SGIX' else + if self.val = UInt32($818B) then Result := 'FRAMEZOOM_SGIX' else + if self.val = UInt32($8198) then Result := 'FOG_OFFSET_SGIX' else + if self.val = UInt32($81FB) then Result := 'SHARED_TEXTURE_PALETTE_EXT' else + if self.val = UInt32($8242) then Result := 'DEBUG_OUTPUT_SYNCHRONOUS' else + if self.val = UInt32($832C) then Result := 'ASYNC_HISTOGRAM_SGIX' else + if self.val = UInt32($8353) then Result := 'PIXEL_TEXTURE_SGIS' else + if self.val = UInt32($835C) then Result := 'ASYNC_TEX_IMAGE_SGIX' else + if self.val = UInt32($835D) then Result := 'ASYNC_DRAW_PIXELS_SGIX' else + if self.val = UInt32($835E) then Result := 'ASYNC_READ_PIXELS_SGIX' else + if self.val = UInt32($8400) then Result := 'FRAGMENT_LIGHTING_SGIX' else + if self.val = UInt32($8401) then Result := 'FRAGMENT_COLOR_MATERIAL_SGIX' else + if self.val = UInt32($840C) then Result := 'FRAGMENT_LIGHT0_SGIX' else + if self.val = UInt32($840D) then Result := 'FRAGMENT_LIGHT1_SGIX' else + if self.val = UInt32($840E) then Result := 'FRAGMENT_LIGHT2_SGIX' else + if self.val = UInt32($840F) then Result := 'FRAGMENT_LIGHT3_SGIX' else + if self.val = UInt32($8410) then Result := 'FRAGMENT_LIGHT4_SGIX' else + if self.val = UInt32($8411) then Result := 'FRAGMENT_LIGHT5_SGIX' else + if self.val = UInt32($8412) then Result := 'FRAGMENT_LIGHT6_SGIX' else + if self.val = UInt32($8413) then Result := 'FRAGMENT_LIGHT7_SGIX' else + if self.val = UInt32($8642) then Result := 'PROGRAM_POINT_SIZE' else + if self.val = UInt32($864F) then Result := 'DEPTH_CLAMP' else + if self.val = UInt32($884F) then Result := 'TEXTURE_CUBE_MAP_SEAMLESS' else + if self.val = UInt32($8C36) then Result := 'SAMPLE_SHADING' else + if self.val = UInt32($8C89) then Result := 'RASTERIZER_DISCARD' else + if self.val = UInt32($8D69) then Result := 'PRIMITIVE_RESTART_FIXED_INDEX' else + if self.val = UInt32($8DB9) then Result := 'FRAMEBUFFER_SRGB' else + if self.val = UInt32($8E51) then Result := 'SAMPLE_MASK' else + if self.val = UInt32($8F9D) then Result := 'PRIMITIVE_RESTART' else + if self.val = UInt32($92E0) then Result := 'DEBUG_OUTPUT' else + Result := self.val.ToString; end; end; @@ -2206,10 +2712,20 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ErrorCode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ErrorCode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ErrorCode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NO_ERROR' else + if self.val = UInt32($0500) then Result := 'INVALID_ENUM' else + if self.val = UInt32($0501) then Result := 'INVALID_VALUE' else + if self.val = UInt32($0502) then Result := 'INVALID_OPERATION' else + if self.val = UInt32($0503) then Result := 'STACK_OVERFLOW' else + if self.val = UInt32($0504) then Result := 'STACK_UNDERFLOW' else + if self.val = UInt32($0505) then Result := 'OUT_OF_MEMORY' else + if self.val = UInt32($0506) then Result := 'INVALID_FRAMEBUFFER_OPERATION' else + if self.val = UInt32($0506) then Result := 'INVALID_FRAMEBUFFER_OPERATION_EXT' else + if self.val = UInt32($0506) then Result := 'INVALID_FRAMEBUFFER_OPERATION_OES' else + if self.val = UInt32($8031) then Result := 'TABLE_TOO_LARGE' else + if self.val = UInt32($8031) then Result := 'TABLE_TOO_LARGE_EXT' else + if self.val = UInt32($8065) then Result := 'TEXTURE_TOO_LARGE_EXT' else + Result := self.val.ToString; end; end; @@ -2238,10 +2754,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ExternalHandleType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ExternalHandleType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ExternalHandleType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9586) then Result := 'HANDLE_TYPE_OPAQUE_FD_EXT' else + if self.val = UInt32($9587) then Result := 'HANDLE_TYPE_OPAQUE_WIN32_EXT' else + if self.val = UInt32($9588) then Result := 'HANDLE_TYPE_OPAQUE_WIN32_KMT_EXT' else + if self.val = UInt32($9589) then Result := 'HANDLE_TYPE_D3D12_TILEPOOL_EXT' else + if self.val = UInt32($958A) then Result := 'HANDLE_TYPE_D3D12_RESOURCE_EXT' else + if self.val = UInt32($958B) then Result := 'HANDLE_TYPE_D3D11_IMAGE_EXT' else + if self.val = UInt32($958C) then Result := 'HANDLE_TYPE_D3D11_IMAGE_KMT_EXT' else + if self.val = UInt32($9594) then Result := 'HANDLE_TYPE_D3D12_FENCE_EXT' else + Result := self.val.ToString; end; end; @@ -2264,10 +2785,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FeedbackType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FeedbackType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FeedbackType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0600) then Result := 'GL_2D' else + if self.val = UInt32($0601) then Result := 'GL_3D' else + if self.val = UInt32($0602) then Result := 'GL_3D_COLOR' else + if self.val = UInt32($0603) then Result := 'GL_3D_COLOR_TEXTURE' else + if self.val = UInt32($0604) then Result := 'GL_4D_COLOR_TEXTURE' else + Result := self.val.ToString; end; end; @@ -2284,10 +2807,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FogCoordinatePointerType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FogCoordinatePointerType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FogCoordinatePointerType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -2314,10 +2836,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FogParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FogParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FogParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0B61) then Result := 'FOG_INDEX' else + if self.val = UInt32($0B62) then Result := 'FOG_DENSITY' else + if self.val = UInt32($0B63) then Result := 'FOG_START' else + if self.val = UInt32($0B64) then Result := 'FOG_END' else + if self.val = UInt32($0B65) then Result := 'FOG_MODE' else + if self.val = UInt32($0B66) then Result := 'FOG_COLOR' else + if self.val = UInt32($8199) then Result := 'FOG_OFFSET_VALUE_SGIX' else + Result := self.val.ToString; end; end; @@ -2342,10 +2868,13 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FogPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FogPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FogPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0B61) then Result := 'FOG_INDEX' else + if self.val = UInt32($0B62) then Result := 'FOG_DENSITY' else + if self.val = UInt32($0B63) then Result := 'FOG_START' else + if self.val = UInt32($0B64) then Result := 'FOG_END' else + if self.val = UInt32($0B65) then Result := 'FOG_MODE' else + if self.val = UInt32($8450) then Result := 'FOG_COORD_SRC' else + Result := self.val.ToString; end; end; @@ -2424,10 +2953,40 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FramebufferAttachment).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FramebufferAttachment(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FramebufferAttachment[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8CE0) then Result := 'COLOR_ATTACHMENT0' else + if self.val = UInt32($8CE1) then Result := 'COLOR_ATTACHMENT1' else + if self.val = UInt32($8CE2) then Result := 'COLOR_ATTACHMENT2' else + if self.val = UInt32($8CE3) then Result := 'COLOR_ATTACHMENT3' else + if self.val = UInt32($8CE4) then Result := 'COLOR_ATTACHMENT4' else + if self.val = UInt32($8CE5) then Result := 'COLOR_ATTACHMENT5' else + if self.val = UInt32($8CE6) then Result := 'COLOR_ATTACHMENT6' else + if self.val = UInt32($8CE7) then Result := 'COLOR_ATTACHMENT7' else + if self.val = UInt32($8CE8) then Result := 'COLOR_ATTACHMENT8' else + if self.val = UInt32($8CE9) then Result := 'COLOR_ATTACHMENT9' else + if self.val = UInt32($8CEA) then Result := 'COLOR_ATTACHMENT10' else + if self.val = UInt32($8CEB) then Result := 'COLOR_ATTACHMENT11' else + if self.val = UInt32($8CEC) then Result := 'COLOR_ATTACHMENT12' else + if self.val = UInt32($8CED) then Result := 'COLOR_ATTACHMENT13' else + if self.val = UInt32($8CEE) then Result := 'COLOR_ATTACHMENT14' else + if self.val = UInt32($8CEF) then Result := 'COLOR_ATTACHMENT15' else + if self.val = UInt32($8CF0) then Result := 'COLOR_ATTACHMENT16' else + if self.val = UInt32($8CF1) then Result := 'COLOR_ATTACHMENT17' else + if self.val = UInt32($8CF2) then Result := 'COLOR_ATTACHMENT18' else + if self.val = UInt32($8CF3) then Result := 'COLOR_ATTACHMENT19' else + if self.val = UInt32($8CF4) then Result := 'COLOR_ATTACHMENT20' else + if self.val = UInt32($8CF5) then Result := 'COLOR_ATTACHMENT21' else + if self.val = UInt32($8CF6) then Result := 'COLOR_ATTACHMENT22' else + if self.val = UInt32($8CF7) then Result := 'COLOR_ATTACHMENT23' else + if self.val = UInt32($8CF8) then Result := 'COLOR_ATTACHMENT24' else + if self.val = UInt32($8CF9) then Result := 'COLOR_ATTACHMENT25' else + if self.val = UInt32($8CFA) then Result := 'COLOR_ATTACHMENT26' else + if self.val = UInt32($8CFB) then Result := 'COLOR_ATTACHMENT27' else + if self.val = UInt32($8CFC) then Result := 'COLOR_ATTACHMENT28' else + if self.val = UInt32($8CFD) then Result := 'COLOR_ATTACHMENT29' else + if self.val = UInt32($8CFE) then Result := 'COLOR_ATTACHMENT30' else + if self.val = UInt32($8CFF) then Result := 'COLOR_ATTACHMENT31' else + if self.val = UInt32($8D20) then Result := 'STENCIL_ATTACHMENT' else + Result := self.val.ToString; end; end; @@ -2508,10 +3067,41 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FramebufferAttachmentParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FramebufferAttachmentParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FramebufferAttachmentParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8210) then Result := 'FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING' else + if self.val = UInt32($8210) then Result := 'FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT' else + if self.val = UInt32($8211) then Result := 'FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE' else + if self.val = UInt32($8211) then Result := 'FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE_EXT' else + if self.val = UInt32($8212) then Result := 'FRAMEBUFFER_ATTACHMENT_RED_SIZE' else + if self.val = UInt32($8213) then Result := 'FRAMEBUFFER_ATTACHMENT_GREEN_SIZE' else + if self.val = UInt32($8214) then Result := 'FRAMEBUFFER_ATTACHMENT_BLUE_SIZE' else + if self.val = UInt32($8215) then Result := 'FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE' else + if self.val = UInt32($8216) then Result := 'FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE' else + if self.val = UInt32($8217) then Result := 'FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE' else + if self.val = UInt32($8CD0) then Result := 'FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE' else + if self.val = UInt32($8CD0) then Result := 'FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT' else + if self.val = UInt32($8CD0) then Result := 'FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_OES' else + if self.val = UInt32($8CD1) then Result := 'FRAMEBUFFER_ATTACHMENT_OBJECT_NAME' else + if self.val = UInt32($8CD1) then Result := 'FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT' else + if self.val = UInt32($8CD1) then Result := 'FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_OES' else + if self.val = UInt32($8CD2) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL' else + if self.val = UInt32($8CD2) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT' else + if self.val = UInt32($8CD2) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_OES' else + if self.val = UInt32($8CD3) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE' else + if self.val = UInt32($8CD3) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT' else + if self.val = UInt32($8CD3) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_OES' else + if self.val = UInt32($8CD4) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_EXT' else + if self.val = UInt32($8CD4) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_OES' else + if self.val = UInt32($8CD4) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER' else + if self.val = UInt32($8CD4) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER_EXT' else + if self.val = UInt32($8D6C) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_SAMPLES_EXT' else + if self.val = UInt32($8DA7) then Result := 'FRAMEBUFFER_ATTACHMENT_LAYERED' else + if self.val = UInt32($8DA7) then Result := 'FRAMEBUFFER_ATTACHMENT_LAYERED_ARB' else + if self.val = UInt32($8DA7) then Result := 'FRAMEBUFFER_ATTACHMENT_LAYERED_EXT' else + if self.val = UInt32($8DA7) then Result := 'FRAMEBUFFER_ATTACHMENT_LAYERED_OES' else + if self.val = UInt32($913F) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_SCALE_IMG' else + if self.val = UInt32($9630) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_NUM_VIEWS_OVR' else + if self.val = UInt32($9632) then Result := 'FRAMEBUFFER_ATTACHMENT_TEXTURE_BASE_VIEW_INDEX_OVR' else + Result := self.val.ToString; end; end; @@ -2534,10 +3124,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FramebufferParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FramebufferParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FramebufferParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9310) then Result := 'FRAMEBUFFER_DEFAULT_WIDTH' else + if self.val = UInt32($9311) then Result := 'FRAMEBUFFER_DEFAULT_HEIGHT' else + if self.val = UInt32($9312) then Result := 'FRAMEBUFFER_DEFAULT_LAYERS' else + if self.val = UInt32($9313) then Result := 'FRAMEBUFFER_DEFAULT_SAMPLES' else + if self.val = UInt32($9314) then Result := 'FRAMEBUFFER_DEFAULT_FIXED_SAMPLE_LOCATIONS' else + Result := self.val.ToString; end; end; @@ -2568,10 +3160,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FramebufferStatus).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FramebufferStatus(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FramebufferStatus[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8219) then Result := 'FRAMEBUFFER_UNDEFINED' else + if self.val = UInt32($8CD5) then Result := 'FRAMEBUFFER_COMPLETE' else + if self.val = UInt32($8CD6) then Result := 'FRAMEBUFFER_INCOMPLETE_ATTACHMENT' else + if self.val = UInt32($8CD7) then Result := 'FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT' else + if self.val = UInt32($8CDB) then Result := 'FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER' else + if self.val = UInt32($8CDC) then Result := 'FRAMEBUFFER_INCOMPLETE_READ_BUFFER' else + if self.val = UInt32($8CDD) then Result := 'FRAMEBUFFER_UNSUPPORTED' else + if self.val = UInt32($8D56) then Result := 'FRAMEBUFFER_INCOMPLETE_MULTISAMPLE' else + if self.val = UInt32($8DA8) then Result := 'FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS' else + Result := self.val.ToString; end; end; @@ -2592,10 +3190,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FramebufferTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FramebufferTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FramebufferTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8CA8) then Result := 'READ_FRAMEBUFFER' else + if self.val = UInt32($8CA9) then Result := 'DRAW_FRAMEBUFFER' else + if self.val = UInt32($8D40) then Result := 'FRAMEBUFFER' else + if self.val = UInt32($8D40) then Result := 'FRAMEBUFFER_OES' else + Result := self.val.ToString; end; end; @@ -2612,10 +3211,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FrontFaceDirection).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FrontFaceDirection(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FrontFaceDirection[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0900) then Result := 'CW' else + if self.val = UInt32($0901) then Result := 'CCW' else + Result := self.val.ToString; end; end; @@ -2650,10 +3248,18 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetFramebufferParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetFramebufferParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetFramebufferParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0C32) then Result := 'DOUBLEBUFFER' else + if self.val = UInt32($0C33) then Result := 'STEREO' else + if self.val = UInt32($80A8) then Result := 'SAMPLE_BUFFERS' else + if self.val = UInt32($80A9) then Result := 'SAMPLES' else + if self.val = UInt32($8B9A) then Result := 'IMPLEMENTATION_COLOR_READ_TYPE' else + if self.val = UInt32($8B9B) then Result := 'IMPLEMENTATION_COLOR_READ_FORMAT' else + if self.val = UInt32($9310) then Result := 'FRAMEBUFFER_DEFAULT_WIDTH' else + if self.val = UInt32($9311) then Result := 'FRAMEBUFFER_DEFAULT_HEIGHT' else + if self.val = UInt32($9312) then Result := 'FRAMEBUFFER_DEFAULT_LAYERS' else + if self.val = UInt32($9313) then Result := 'FRAMEBUFFER_DEFAULT_SAMPLES' else + if self.val = UInt32($9314) then Result := 'FRAMEBUFFER_DEFAULT_FIXED_SAMPLE_LOCATIONS' else + Result := self.val.ToString; end; end; @@ -2672,10 +3278,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetMapQuery).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetMapQuery(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetMapQuery[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0A00) then Result := 'COEFF' else + if self.val = UInt32($0A01) then Result := 'ORDER' else + if self.val = UInt32($0A02) then Result := 'DOMAIN' else + Result := self.val.ToString; end; end; @@ -3792,10 +4398,559 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0B00) then Result := 'CURRENT_COLOR' else + if self.val = UInt32($0B01) then Result := 'CURRENT_INDEX' else + if self.val = UInt32($0B02) then Result := 'CURRENT_NORMAL' else + if self.val = UInt32($0B03) then Result := 'CURRENT_TEXTURE_COORDS' else + if self.val = UInt32($0B04) then Result := 'CURRENT_RASTER_COLOR' else + if self.val = UInt32($0B05) then Result := 'CURRENT_RASTER_INDEX' else + if self.val = UInt32($0B06) then Result := 'CURRENT_RASTER_TEXTURE_COORDS' else + if self.val = UInt32($0B07) then Result := 'CURRENT_RASTER_POSITION' else + if self.val = UInt32($0B08) then Result := 'CURRENT_RASTER_POSITION_VALID' else + if self.val = UInt32($0B09) then Result := 'CURRENT_RASTER_DISTANCE' else + if self.val = UInt32($0B10) then Result := 'POINT_SMOOTH' else + if self.val = UInt32($0B11) then Result := 'POINT_SIZE' else + if self.val = UInt32($0B12) then Result := 'POINT_SIZE_RANGE' else + if self.val = UInt32($0B12) then Result := 'SMOOTH_POINT_SIZE_RANGE' else + if self.val = UInt32($0B13) then Result := 'POINT_SIZE_GRANULARITY' else + if self.val = UInt32($0B13) then Result := 'SMOOTH_POINT_SIZE_GRANULARITY' else + if self.val = UInt32($0B20) then Result := 'LINE_SMOOTH' else + if self.val = UInt32($0B21) then Result := 'LINE_WIDTH' else + if self.val = UInt32($0B22) then Result := 'LINE_WIDTH_RANGE' else + if self.val = UInt32($0B22) then Result := 'SMOOTH_LINE_WIDTH_RANGE' else + if self.val = UInt32($0B23) then Result := 'LINE_WIDTH_GRANULARITY' else + if self.val = UInt32($0B23) then Result := 'SMOOTH_LINE_WIDTH_GRANULARITY' else + if self.val = UInt32($0B24) then Result := 'LINE_STIPPLE' else + if self.val = UInt32($0B25) then Result := 'LINE_STIPPLE_PATTERN' else + if self.val = UInt32($0B26) then Result := 'LINE_STIPPLE_REPEAT' else + if self.val = UInt32($0B30) then Result := 'LIST_MODE' else + if self.val = UInt32($0B31) then Result := 'MAX_LIST_NESTING' else + if self.val = UInt32($0B32) then Result := 'LIST_BASE' else + if self.val = UInt32($0B33) then Result := 'LIST_INDEX' else + if self.val = UInt32($0B40) then Result := 'POLYGON_MODE' else + if self.val = UInt32($0B41) then Result := 'POLYGON_SMOOTH' else + if self.val = UInt32($0B42) then Result := 'POLYGON_STIPPLE' else + if self.val = UInt32($0B43) then Result := 'EDGE_FLAG' else + if self.val = UInt32($0B44) then Result := 'CULL_FACE' else + if self.val = UInt32($0B45) then Result := 'CULL_FACE_MODE' else + if self.val = UInt32($0B46) then Result := 'FRONT_FACE' else + if self.val = UInt32($0B50) then Result := 'LIGHTING' else + if self.val = UInt32($0B51) then Result := 'LIGHT_MODEL_LOCAL_VIEWER' else + if self.val = UInt32($0B52) then Result := 'LIGHT_MODEL_TWO_SIDE' else + if self.val = UInt32($0B53) then Result := 'LIGHT_MODEL_AMBIENT' else + if self.val = UInt32($0B54) then Result := 'SHADE_MODEL' else + if self.val = UInt32($0B55) then Result := 'COLOR_MATERIAL_FACE' else + if self.val = UInt32($0B56) then Result := 'COLOR_MATERIAL_PARAMETER' else + if self.val = UInt32($0B57) then Result := 'COLOR_MATERIAL' else + if self.val = UInt32($0B60) then Result := 'FOG' else + if self.val = UInt32($0B61) then Result := 'FOG_INDEX' else + if self.val = UInt32($0B62) then Result := 'FOG_DENSITY' else + if self.val = UInt32($0B63) then Result := 'FOG_START' else + if self.val = UInt32($0B64) then Result := 'FOG_END' else + if self.val = UInt32($0B65) then Result := 'FOG_MODE' else + if self.val = UInt32($0B66) then Result := 'FOG_COLOR' else + if self.val = UInt32($0B70) then Result := 'DEPTH_RANGE' else + if self.val = UInt32($0B71) then Result := 'DEPTH_TEST' else + if self.val = UInt32($0B72) then Result := 'DEPTH_WRITEMASK' else + if self.val = UInt32($0B73) then Result := 'DEPTH_CLEAR_VALUE' else + if self.val = UInt32($0B74) then Result := 'DEPTH_FUNC' else + if self.val = UInt32($0B80) then Result := 'ACCUM_CLEAR_VALUE' else + if self.val = UInt32($0B90) then Result := 'STENCIL_TEST' else + if self.val = UInt32($0B91) then Result := 'STENCIL_CLEAR_VALUE' else + if self.val = UInt32($0B92) then Result := 'STENCIL_FUNC' else + if self.val = UInt32($0B93) then Result := 'STENCIL_VALUE_MASK' else + if self.val = UInt32($0B94) then Result := 'STENCIL_FAIL' else + if self.val = UInt32($0B95) then Result := 'STENCIL_PASS_DEPTH_FAIL' else + if self.val = UInt32($0B96) then Result := 'STENCIL_PASS_DEPTH_PASS' else + if self.val = UInt32($0B97) then Result := 'STENCIL_REF' else + if self.val = UInt32($0B98) then Result := 'STENCIL_WRITEMASK' else + if self.val = UInt32($0BA0) then Result := 'MATRIX_MODE' else + if self.val = UInt32($0BA1) then Result := 'NORMALIZE' else + if self.val = UInt32($0BA2) then Result := 'VIEWPORT' else + if self.val = UInt32($0BA3) then Result := 'MODELVIEW_STACK_DEPTH' else + if self.val = UInt32($0BA3) then Result := 'MODELVIEW0_STACK_DEPTH_EXT' else + if self.val = UInt32($0BA4) then Result := 'PROJECTION_STACK_DEPTH' else + if self.val = UInt32($0BA5) then Result := 'TEXTURE_STACK_DEPTH' else + if self.val = UInt32($0BA6) then Result := 'MODELVIEW_MATRIX' else + if self.val = UInt32($0BA6) then Result := 'MODELVIEW0_MATRIX_EXT' else + if self.val = UInt32($0BA7) then Result := 'PROJECTION_MATRIX' else + if self.val = UInt32($0BA8) then Result := 'TEXTURE_MATRIX' else + if self.val = UInt32($0BB0) then Result := 'ATTRIB_STACK_DEPTH' else + if self.val = UInt32($0BB1) then Result := 'CLIENT_ATTRIB_STACK_DEPTH' else + if self.val = UInt32($0BC0) then Result := 'ALPHA_TEST' else + if self.val = UInt32($0BC0) then Result := 'ALPHA_TEST_QCOM' else + if self.val = UInt32($0BC1) then Result := 'ALPHA_TEST_FUNC' else + if self.val = UInt32($0BC1) then Result := 'ALPHA_TEST_FUNC_QCOM' else + if self.val = UInt32($0BC2) then Result := 'ALPHA_TEST_REF' else + if self.val = UInt32($0BC2) then Result := 'ALPHA_TEST_REF_QCOM' else + if self.val = UInt32($0BD0) then Result := 'DITHER' else + if self.val = UInt32($0BE0) then Result := 'BLEND_DST' else + if self.val = UInt32($0BE1) then Result := 'BLEND_SRC' else + if self.val = UInt32($0BE2) then Result := 'BLEND' else + if self.val = UInt32($0BF0) then Result := 'LOGIC_OP_MODE' else + if self.val = UInt32($0BF1) then Result := 'INDEX_LOGIC_OP' else + if self.val = UInt32($0BF1) then Result := 'LOGIC_OP' else + if self.val = UInt32($0BF2) then Result := 'COLOR_LOGIC_OP' else + if self.val = UInt32($0C00) then Result := 'AUX_BUFFERS' else + if self.val = UInt32($0C01) then Result := 'DRAW_BUFFER' else + if self.val = UInt32($0C01) then Result := 'DRAW_BUFFER_EXT' else + if self.val = UInt32($0C02) then Result := 'READ_BUFFER' else + if self.val = UInt32($0C02) then Result := 'READ_BUFFER_EXT' else + if self.val = UInt32($0C02) then Result := 'READ_BUFFER_NV' else + if self.val = UInt32($0C10) then Result := 'SCISSOR_BOX' else + if self.val = UInt32($0C11) then Result := 'SCISSOR_TEST' else + if self.val = UInt32($0C20) then Result := 'INDEX_CLEAR_VALUE' else + if self.val = UInt32($0C21) then Result := 'INDEX_WRITEMASK' else + if self.val = UInt32($0C22) then Result := 'COLOR_CLEAR_VALUE' else + if self.val = UInt32($0C23) then Result := 'COLOR_WRITEMASK' else + if self.val = UInt32($0C30) then Result := 'INDEX_MODE' else + if self.val = UInt32($0C31) then Result := 'RGBA_MODE' else + if self.val = UInt32($0C32) then Result := 'DOUBLEBUFFER' else + if self.val = UInt32($0C33) then Result := 'STEREO' else + if self.val = UInt32($0C40) then Result := 'RENDER_MODE' else + if self.val = UInt32($0C50) then Result := 'PERSPECTIVE_CORRECTION_HINT' else + if self.val = UInt32($0C51) then Result := 'POINT_SMOOTH_HINT' else + if self.val = UInt32($0C52) then Result := 'LINE_SMOOTH_HINT' else + if self.val = UInt32($0C53) then Result := 'POLYGON_SMOOTH_HINT' else + if self.val = UInt32($0C54) then Result := 'FOG_HINT' else + if self.val = UInt32($0C60) then Result := 'TEXTURE_GEN_S' else + if self.val = UInt32($0C61) then Result := 'TEXTURE_GEN_T' else + if self.val = UInt32($0C62) then Result := 'TEXTURE_GEN_R' else + if self.val = UInt32($0C63) then Result := 'TEXTURE_GEN_Q' else + if self.val = UInt32($0CB0) then Result := 'PIXEL_MAP_I_TO_I_SIZE' else + if self.val = UInt32($0CB1) then Result := 'PIXEL_MAP_S_TO_S_SIZE' else + if self.val = UInt32($0CB2) then Result := 'PIXEL_MAP_I_TO_R_SIZE' else + if self.val = UInt32($0CB3) then Result := 'PIXEL_MAP_I_TO_G_SIZE' else + if self.val = UInt32($0CB4) then Result := 'PIXEL_MAP_I_TO_B_SIZE' else + if self.val = UInt32($0CB5) then Result := 'PIXEL_MAP_I_TO_A_SIZE' else + if self.val = UInt32($0CB6) then Result := 'PIXEL_MAP_R_TO_R_SIZE' else + if self.val = UInt32($0CB7) then Result := 'PIXEL_MAP_G_TO_G_SIZE' else + if self.val = UInt32($0CB8) then Result := 'PIXEL_MAP_B_TO_B_SIZE' else + if self.val = UInt32($0CB9) then Result := 'PIXEL_MAP_A_TO_A_SIZE' else + if self.val = UInt32($0CF0) then Result := 'UNPACK_SWAP_BYTES' else + if self.val = UInt32($0CF1) then Result := 'UNPACK_LSB_FIRST' else + if self.val = UInt32($0CF2) then Result := 'UNPACK_ROW_LENGTH' else + if self.val = UInt32($0CF3) then Result := 'UNPACK_SKIP_ROWS' else + if self.val = UInt32($0CF4) then Result := 'UNPACK_SKIP_PIXELS' else + if self.val = UInt32($0CF5) then Result := 'UNPACK_ALIGNMENT' else + if self.val = UInt32($0D00) then Result := 'PACK_SWAP_BYTES' else + if self.val = UInt32($0D01) then Result := 'PACK_LSB_FIRST' else + if self.val = UInt32($0D02) then Result := 'PACK_ROW_LENGTH' else + if self.val = UInt32($0D03) then Result := 'PACK_SKIP_ROWS' else + if self.val = UInt32($0D04) then Result := 'PACK_SKIP_PIXELS' else + if self.val = UInt32($0D05) then Result := 'PACK_ALIGNMENT' else + if self.val = UInt32($0D10) then Result := 'MAP_COLOR' else + if self.val = UInt32($0D11) then Result := 'MAP_STENCIL' else + if self.val = UInt32($0D12) then Result := 'INDEX_SHIFT' else + if self.val = UInt32($0D13) then Result := 'INDEX_OFFSET' else + if self.val = UInt32($0D14) then Result := 'RED_SCALE' else + if self.val = UInt32($0D15) then Result := 'RED_BIAS' else + if self.val = UInt32($0D16) then Result := 'ZOOM_X' else + if self.val = UInt32($0D17) then Result := 'ZOOM_Y' else + if self.val = UInt32($0D18) then Result := 'GREEN_SCALE' else + if self.val = UInt32($0D19) then Result := 'GREEN_BIAS' else + if self.val = UInt32($0D1A) then Result := 'BLUE_SCALE' else + if self.val = UInt32($0D1B) then Result := 'BLUE_BIAS' else + if self.val = UInt32($0D1C) then Result := 'ALPHA_SCALE' else + if self.val = UInt32($0D1D) then Result := 'ALPHA_BIAS' else + if self.val = UInt32($0D1E) then Result := 'DEPTH_SCALE' else + if self.val = UInt32($0D1F) then Result := 'DEPTH_BIAS' else + if self.val = UInt32($0D30) then Result := 'MAX_EVAL_ORDER' else + if self.val = UInt32($0D31) then Result := 'MAX_LIGHTS' else + if self.val = UInt32($0D32) then Result := 'MAX_CLIP_DISTANCES' else + if self.val = UInt32($0D32) then Result := 'MAX_CLIP_PLANES' else + if self.val = UInt32($0D33) then Result := 'MAX_TEXTURE_SIZE' else + if self.val = UInt32($0D34) then Result := 'MAX_PIXEL_MAP_TABLE' else + if self.val = UInt32($0D35) then Result := 'MAX_ATTRIB_STACK_DEPTH' else + if self.val = UInt32($0D36) then Result := 'MAX_MODELVIEW_STACK_DEPTH' else + if self.val = UInt32($0D37) then Result := 'MAX_NAME_STACK_DEPTH' else + if self.val = UInt32($0D38) then Result := 'MAX_PROJECTION_STACK_DEPTH' else + if self.val = UInt32($0D39) then Result := 'MAX_TEXTURE_STACK_DEPTH' else + if self.val = UInt32($0D3A) then Result := 'MAX_VIEWPORT_DIMS' else + if self.val = UInt32($0D3B) then Result := 'MAX_CLIENT_ATTRIB_STACK_DEPTH' else + if self.val = UInt32($0D50) then Result := 'SUBPIXEL_BITS' else + if self.val = UInt32($0D51) then Result := 'INDEX_BITS' else + if self.val = UInt32($0D52) then Result := 'RED_BITS' else + if self.val = UInt32($0D53) then Result := 'GREEN_BITS' else + if self.val = UInt32($0D54) then Result := 'BLUE_BITS' else + if self.val = UInt32($0D55) then Result := 'ALPHA_BITS' else + if self.val = UInt32($0D56) then Result := 'DEPTH_BITS' else + if self.val = UInt32($0D57) then Result := 'STENCIL_BITS' else + if self.val = UInt32($0D58) then Result := 'ACCUM_RED_BITS' else + if self.val = UInt32($0D59) then Result := 'ACCUM_GREEN_BITS' else + if self.val = UInt32($0D5A) then Result := 'ACCUM_BLUE_BITS' else + if self.val = UInt32($0D5B) then Result := 'ACCUM_ALPHA_BITS' else + if self.val = UInt32($0D70) then Result := 'NAME_STACK_DEPTH' else + if self.val = UInt32($0D80) then Result := 'AUTO_NORMAL' else + if self.val = UInt32($0D90) then Result := 'MAP1_COLOR_4' else + if self.val = UInt32($0D91) then Result := 'MAP1_INDEX' else + if self.val = UInt32($0D92) then Result := 'MAP1_NORMAL' else + if self.val = UInt32($0D93) then Result := 'MAP1_TEXTURE_COORD_1' else + if self.val = UInt32($0D94) then Result := 'MAP1_TEXTURE_COORD_2' else + if self.val = UInt32($0D95) then Result := 'MAP1_TEXTURE_COORD_3' else + if self.val = UInt32($0D96) then Result := 'MAP1_TEXTURE_COORD_4' else + if self.val = UInt32($0D97) then Result := 'MAP1_VERTEX_3' else + if self.val = UInt32($0D98) then Result := 'MAP1_VERTEX_4' else + if self.val = UInt32($0DB0) then Result := 'MAP2_COLOR_4' else + if self.val = UInt32($0DB1) then Result := 'MAP2_INDEX' else + if self.val = UInt32($0DB2) then Result := 'MAP2_NORMAL' else + if self.val = UInt32($0DB3) then Result := 'MAP2_TEXTURE_COORD_1' else + if self.val = UInt32($0DB4) then Result := 'MAP2_TEXTURE_COORD_2' else + if self.val = UInt32($0DB5) then Result := 'MAP2_TEXTURE_COORD_3' else + if self.val = UInt32($0DB6) then Result := 'MAP2_TEXTURE_COORD_4' else + if self.val = UInt32($0DB7) then Result := 'MAP2_VERTEX_3' else + if self.val = UInt32($0DB8) then Result := 'MAP2_VERTEX_4' else + if self.val = UInt32($0DD0) then Result := 'MAP1_GRID_DOMAIN' else + if self.val = UInt32($0DD1) then Result := 'MAP1_GRID_SEGMENTS' else + if self.val = UInt32($0DD2) then Result := 'MAP2_GRID_DOMAIN' else + if self.val = UInt32($0DD3) then Result := 'MAP2_GRID_SEGMENTS' else + if self.val = UInt32($0DE0) then Result := 'TEXTURE_1D' else + if self.val = UInt32($0DE1) then Result := 'TEXTURE_2D' else + if self.val = UInt32($0DF1) then Result := 'FEEDBACK_BUFFER_SIZE' else + if self.val = UInt32($0DF2) then Result := 'FEEDBACK_BUFFER_TYPE' else + if self.val = UInt32($0DF4) then Result := 'SELECTION_BUFFER_SIZE' else + if self.val = UInt32($2A00) then Result := 'POLYGON_OFFSET_UNITS' else + if self.val = UInt32($2A01) then Result := 'POLYGON_OFFSET_POINT' else + if self.val = UInt32($2A02) then Result := 'POLYGON_OFFSET_LINE' else + if self.val = UInt32($3000) then Result := 'CLIP_PLANE0' else + if self.val = UInt32($3001) then Result := 'CLIP_PLANE1' else + if self.val = UInt32($3002) then Result := 'CLIP_PLANE2' else + if self.val = UInt32($3003) then Result := 'CLIP_PLANE3' else + if self.val = UInt32($3004) then Result := 'CLIP_PLANE4' else + if self.val = UInt32($3005) then Result := 'CLIP_PLANE5' else + if self.val = UInt32($4000) then Result := 'LIGHT0' else + if self.val = UInt32($4001) then Result := 'LIGHT1' else + if self.val = UInt32($4002) then Result := 'LIGHT2' else + if self.val = UInt32($4003) then Result := 'LIGHT3' else + if self.val = UInt32($4004) then Result := 'LIGHT4' else + if self.val = UInt32($4005) then Result := 'LIGHT5' else + if self.val = UInt32($4006) then Result := 'LIGHT6' else + if self.val = UInt32($4007) then Result := 'LIGHT7' else + if self.val = UInt32($8005) then Result := 'BLEND_COLOR' else + if self.val = UInt32($8005) then Result := 'BLEND_COLOR_EXT' else + if self.val = UInt32($8009) then Result := 'BLEND_EQUATION_EXT' else + if self.val = UInt32($8009) then Result := 'BLEND_EQUATION_RGB' else + if self.val = UInt32($800E) then Result := 'PACK_CMYK_HINT_EXT' else + if self.val = UInt32($800F) then Result := 'UNPACK_CMYK_HINT_EXT' else + if self.val = UInt32($8010) then Result := 'CONVOLUTION_1D_EXT' else + if self.val = UInt32($8011) then Result := 'CONVOLUTION_2D_EXT' else + if self.val = UInt32($8012) then Result := 'SEPARABLE_2D_EXT' else + if self.val = UInt32($801C) then Result := 'POST_CONVOLUTION_RED_SCALE_EXT' else + if self.val = UInt32($801D) then Result := 'POST_CONVOLUTION_GREEN_SCALE_EXT' else + if self.val = UInt32($801E) then Result := 'POST_CONVOLUTION_BLUE_SCALE_EXT' else + if self.val = UInt32($801F) then Result := 'POST_CONVOLUTION_ALPHA_SCALE_EXT' else + if self.val = UInt32($8020) then Result := 'POST_CONVOLUTION_RED_BIAS_EXT' else + if self.val = UInt32($8021) then Result := 'POST_CONVOLUTION_GREEN_BIAS_EXT' else + if self.val = UInt32($8022) then Result := 'POST_CONVOLUTION_BLUE_BIAS_EXT' else + if self.val = UInt32($8023) then Result := 'POST_CONVOLUTION_ALPHA_BIAS_EXT' else + if self.val = UInt32($8024) then Result := 'HISTOGRAM_EXT' else + if self.val = UInt32($802E) then Result := 'MINMAX_EXT' else + if self.val = UInt32($8037) then Result := 'POLYGON_OFFSET_FILL' else + if self.val = UInt32($8038) then Result := 'POLYGON_OFFSET_FACTOR' else + if self.val = UInt32($8039) then Result := 'POLYGON_OFFSET_BIAS_EXT' else + if self.val = UInt32($803A) then Result := 'RESCALE_NORMAL_EXT' else + if self.val = UInt32($8068) then Result := 'TEXTURE_BINDING_1D' else + if self.val = UInt32($8069) then Result := 'TEXTURE_BINDING_2D' else + if self.val = UInt32($806A) then Result := 'TEXTURE_3D_BINDING_EXT' else + if self.val = UInt32($806A) then Result := 'TEXTURE_BINDING_3D' else + if self.val = UInt32($806B) then Result := 'PACK_SKIP_IMAGES' else + if self.val = UInt32($806B) then Result := 'PACK_SKIP_IMAGES_EXT' else + if self.val = UInt32($806C) then Result := 'PACK_IMAGE_HEIGHT' else + if self.val = UInt32($806C) then Result := 'PACK_IMAGE_HEIGHT_EXT' else + if self.val = UInt32($806D) then Result := 'UNPACK_SKIP_IMAGES' else + if self.val = UInt32($806D) then Result := 'UNPACK_SKIP_IMAGES_EXT' else + if self.val = UInt32($806E) then Result := 'UNPACK_IMAGE_HEIGHT' else + if self.val = UInt32($806E) then Result := 'UNPACK_IMAGE_HEIGHT_EXT' else + if self.val = UInt32($806F) then Result := 'TEXTURE_3D_EXT' else + if self.val = UInt32($8073) then Result := 'MAX_3D_TEXTURE_SIZE' else + if self.val = UInt32($8073) then Result := 'MAX_3D_TEXTURE_SIZE_EXT' else + if self.val = UInt32($8074) then Result := 'VERTEX_ARRAY' else + if self.val = UInt32($8075) then Result := 'NORMAL_ARRAY' else + if self.val = UInt32($8076) then Result := 'COLOR_ARRAY' else + if self.val = UInt32($8077) then Result := 'INDEX_ARRAY' else + if self.val = UInt32($8078) then Result := 'TEXTURE_COORD_ARRAY' else + if self.val = UInt32($8079) then Result := 'EDGE_FLAG_ARRAY' else + if self.val = UInt32($807A) then Result := 'VERTEX_ARRAY_SIZE' else + if self.val = UInt32($807B) then Result := 'VERTEX_ARRAY_TYPE' else + if self.val = UInt32($807C) then Result := 'VERTEX_ARRAY_STRIDE' else + if self.val = UInt32($807D) then Result := 'VERTEX_ARRAY_COUNT_EXT' else + if self.val = UInt32($807E) then Result := 'NORMAL_ARRAY_TYPE' else + if self.val = UInt32($807F) then Result := 'NORMAL_ARRAY_STRIDE' else + if self.val = UInt32($8080) then Result := 'NORMAL_ARRAY_COUNT_EXT' else + if self.val = UInt32($8081) then Result := 'COLOR_ARRAY_SIZE' else + if self.val = UInt32($8082) then Result := 'COLOR_ARRAY_TYPE' else + if self.val = UInt32($8083) then Result := 'COLOR_ARRAY_STRIDE' else + if self.val = UInt32($8084) then Result := 'COLOR_ARRAY_COUNT_EXT' else + if self.val = UInt32($8085) then Result := 'INDEX_ARRAY_TYPE' else + if self.val = UInt32($8086) then Result := 'INDEX_ARRAY_STRIDE' else + if self.val = UInt32($8087) then Result := 'INDEX_ARRAY_COUNT_EXT' else + if self.val = UInt32($8088) then Result := 'TEXTURE_COORD_ARRAY_SIZE' else + if self.val = UInt32($8089) then Result := 'TEXTURE_COORD_ARRAY_TYPE' else + if self.val = UInt32($808A) then Result := 'TEXTURE_COORD_ARRAY_STRIDE' else + if self.val = UInt32($808B) then Result := 'TEXTURE_COORD_ARRAY_COUNT_EXT' else + if self.val = UInt32($808C) then Result := 'EDGE_FLAG_ARRAY_STRIDE' else + if self.val = UInt32($808D) then Result := 'EDGE_FLAG_ARRAY_COUNT_EXT' else + if self.val = UInt32($8094) then Result := 'INTERLACE_SGIX' else + if self.val = UInt32($8096) then Result := 'DETAIL_TEXTURE_2D_BINDING_SGIS' else + if self.val = UInt32($809D) then Result := 'MULTISAMPLE_SGIS' else + if self.val = UInt32($809E) then Result := 'SAMPLE_ALPHA_TO_MASK_SGIS' else + if self.val = UInt32($809F) then Result := 'SAMPLE_ALPHA_TO_ONE_SGIS' else + if self.val = UInt32($80A0) then Result := 'SAMPLE_MASK_SGIS' else + if self.val = UInt32($80A8) then Result := 'SAMPLE_BUFFERS' else + if self.val = UInt32($80A8) then Result := 'SAMPLE_BUFFERS_SGIS' else + if self.val = UInt32($80A9) then Result := 'SAMPLES' else + if self.val = UInt32($80A9) then Result := 'SAMPLES_SGIS' else + if self.val = UInt32($80AA) then Result := 'SAMPLE_COVERAGE_VALUE' else + if self.val = UInt32($80AA) then Result := 'SAMPLE_MASK_VALUE_SGIS' else + if self.val = UInt32($80AB) then Result := 'SAMPLE_COVERAGE_INVERT' else + if self.val = UInt32($80AB) then Result := 'SAMPLE_MASK_INVERT_SGIS' else + if self.val = UInt32($80AC) then Result := 'SAMPLE_PATTERN_SGIS' else + if self.val = UInt32($80B1) then Result := 'COLOR_MATRIX_SGI' else + if self.val = UInt32($80B2) then Result := 'COLOR_MATRIX_STACK_DEPTH_SGI' else + if self.val = UInt32($80B3) then Result := 'MAX_COLOR_MATRIX_STACK_DEPTH_SGI' else + if self.val = UInt32($80B4) then Result := 'POST_COLOR_MATRIX_RED_SCALE_SGI' else + if self.val = UInt32($80B5) then Result := 'POST_COLOR_MATRIX_GREEN_SCALE_SGI' else + if self.val = UInt32($80B6) then Result := 'POST_COLOR_MATRIX_BLUE_SCALE_SGI' else + if self.val = UInt32($80B7) then Result := 'POST_COLOR_MATRIX_ALPHA_SCALE_SGI' else + if self.val = UInt32($80B8) then Result := 'POST_COLOR_MATRIX_RED_BIAS_SGI' else + if self.val = UInt32($80B9) then Result := 'POST_COLOR_MATRIX_GREEN_BIAS_SGI' else + if self.val = UInt32($80BA) then Result := 'POST_COLOR_MATRIX_BLUE_BIAS_SGI' else + if self.val = UInt32($80BB) then Result := 'POST_COLOR_MATRIX_ALPHA_BIAS_SGI' else + if self.val = UInt32($80BC) then Result := 'TEXTURE_COLOR_TABLE_SGI' else + if self.val = UInt32($80C8) then Result := 'BLEND_DST_RGB' else + if self.val = UInt32($80C9) then Result := 'BLEND_SRC_RGB' else + if self.val = UInt32($80CA) then Result := 'BLEND_DST_ALPHA' else + if self.val = UInt32($80CB) then Result := 'BLEND_SRC_ALPHA' else + if self.val = UInt32($80D0) then Result := 'COLOR_TABLE_SGI' else + if self.val = UInt32($80D1) then Result := 'POST_CONVOLUTION_COLOR_TABLE_SGI' else + if self.val = UInt32($80D2) then Result := 'POST_COLOR_MATRIX_COLOR_TABLE_SGI' else + if self.val = UInt32($80E8) then Result := 'MAX_ELEMENTS_VERTICES' else + if self.val = UInt32($80E9) then Result := 'MAX_ELEMENTS_INDICES' else + if self.val = UInt32($8126) then Result := 'POINT_SIZE_MIN_SGIS' else + if self.val = UInt32($8127) then Result := 'POINT_SIZE_MAX_SGIS' else + if self.val = UInt32($8128) then Result := 'POINT_FADE_THRESHOLD_SIZE' else + if self.val = UInt32($8128) then Result := 'POINT_FADE_THRESHOLD_SIZE_SGIS' else + if self.val = UInt32($8129) then Result := 'DISTANCE_ATTENUATION_SGIS' else + if self.val = UInt32($812B) then Result := 'FOG_FUNC_POINTS_SGIS' else + if self.val = UInt32($812C) then Result := 'MAX_FOG_FUNC_POINTS_SGIS' else + if self.val = UInt32($8130) then Result := 'PACK_SKIP_VOLUMES_SGIS' else + if self.val = UInt32($8131) then Result := 'PACK_IMAGE_DEPTH_SGIS' else + if self.val = UInt32($8132) then Result := 'UNPACK_SKIP_VOLUMES_SGIS' else + if self.val = UInt32($8133) then Result := 'UNPACK_IMAGE_DEPTH_SGIS' else + if self.val = UInt32($8134) then Result := 'TEXTURE_4D_SGIS' else + if self.val = UInt32($8138) then Result := 'MAX_4D_TEXTURE_SIZE_SGIS' else + if self.val = UInt32($8139) then Result := 'PIXEL_TEX_GEN_SGIX' else + if self.val = UInt32($813E) then Result := 'PIXEL_TILE_BEST_ALIGNMENT_SGIX' else + if self.val = UInt32($813F) then Result := 'PIXEL_TILE_CACHE_INCREMENT_SGIX' else + if self.val = UInt32($8140) then Result := 'PIXEL_TILE_WIDTH_SGIX' else + if self.val = UInt32($8141) then Result := 'PIXEL_TILE_HEIGHT_SGIX' else + if self.val = UInt32($8142) then Result := 'PIXEL_TILE_GRID_WIDTH_SGIX' else + if self.val = UInt32($8143) then Result := 'PIXEL_TILE_GRID_HEIGHT_SGIX' else + if self.val = UInt32($8144) then Result := 'PIXEL_TILE_GRID_DEPTH_SGIX' else + if self.val = UInt32($8145) then Result := 'PIXEL_TILE_CACHE_SIZE_SGIX' else + if self.val = UInt32($8148) then Result := 'SPRITE_SGIX' else + if self.val = UInt32($8149) then Result := 'SPRITE_MODE_SGIX' else + if self.val = UInt32($814A) then Result := 'SPRITE_AXIS_SGIX' else + if self.val = UInt32($814B) then Result := 'SPRITE_TRANSLATION_SGIX' else + if self.val = UInt32($814F) then Result := 'TEXTURE_4D_BINDING_SGIS' else + if self.val = UInt32($8177) then Result := 'MAX_CLIPMAP_DEPTH_SGIX' else + if self.val = UInt32($8178) then Result := 'MAX_CLIPMAP_VIRTUAL_DEPTH_SGIX' else + if self.val = UInt32($817B) then Result := 'POST_TEXTURE_FILTER_BIAS_RANGE_SGIX' else + if self.val = UInt32($817C) then Result := 'POST_TEXTURE_FILTER_SCALE_RANGE_SGIX' else + if self.val = UInt32($817D) then Result := 'REFERENCE_PLANE_SGIX' else + if self.val = UInt32($817E) then Result := 'REFERENCE_PLANE_EQUATION_SGIX' else + if self.val = UInt32($817F) then Result := 'IR_INSTRUMENT1_SGIX' else + if self.val = UInt32($8181) then Result := 'INSTRUMENT_MEASUREMENTS_SGIX' else + if self.val = UInt32($8183) then Result := 'CALLIGRAPHIC_FRAGMENT_SGIX' else + if self.val = UInt32($818B) then Result := 'FRAMEZOOM_SGIX' else + if self.val = UInt32($818C) then Result := 'FRAMEZOOM_FACTOR_SGIX' else + if self.val = UInt32($818D) then Result := 'MAX_FRAMEZOOM_FACTOR_SGIX' else + if self.val = UInt32($8192) then Result := 'GENERATE_MIPMAP_HINT_SGIS' else + if self.val = UInt32($8196) then Result := 'DEFORMATIONS_MASK_SGIX' else + if self.val = UInt32($8198) then Result := 'FOG_OFFSET_SGIX' else + if self.val = UInt32($8199) then Result := 'FOG_OFFSET_VALUE_SGIX' else + if self.val = UInt32($81F8) then Result := 'LIGHT_MODEL_COLOR_CONTROL' else + if self.val = UInt32($81FB) then Result := 'SHARED_TEXTURE_PALETTE_EXT' else + if self.val = UInt32($821B) then Result := 'MAJOR_VERSION' else + if self.val = UInt32($821C) then Result := 'MINOR_VERSION' else + if self.val = UInt32($821D) then Result := 'NUM_EXTENSIONS' else + if self.val = UInt32($821E) then Result := 'CONTEXT_FLAGS' else + if self.val = UInt32($825A) then Result := 'PROGRAM_PIPELINE_BINDING' else + if self.val = UInt32($825B) then Result := 'MAX_VIEWPORTS' else + if self.val = UInt32($825C) then Result := 'VIEWPORT_SUBPIXEL_BITS' else + if self.val = UInt32($825D) then Result := 'VIEWPORT_BOUNDS_RANGE' else + if self.val = UInt32($825E) then Result := 'LAYER_PROVOKING_VERTEX' else + if self.val = UInt32($825F) then Result := 'VIEWPORT_INDEX_PROVOKING_VERTEX' else + if self.val = UInt32($8263) then Result := 'MAX_COMPUTE_UNIFORM_COMPONENTS' else + if self.val = UInt32($8264) then Result := 'MAX_COMPUTE_ATOMIC_COUNTER_BUFFERS' else + if self.val = UInt32($8265) then Result := 'MAX_COMPUTE_ATOMIC_COUNTERS' else + if self.val = UInt32($8266) then Result := 'MAX_COMBINED_COMPUTE_UNIFORM_COMPONENTS' else + if self.val = UInt32($826C) then Result := 'MAX_DEBUG_GROUP_STACK_DEPTH' else + if self.val = UInt32($826D) then Result := 'DEBUG_GROUP_STACK_DEPTH' else + if self.val = UInt32($826E) then Result := 'MAX_UNIFORM_LOCATIONS' else + if self.val = UInt32($82D6) then Result := 'VERTEX_BINDING_DIVISOR' else + if self.val = UInt32($82D7) then Result := 'VERTEX_BINDING_OFFSET' else + if self.val = UInt32($82D8) then Result := 'VERTEX_BINDING_STRIDE' else + if self.val = UInt32($82D9) then Result := 'MAX_VERTEX_ATTRIB_RELATIVE_OFFSET' else + if self.val = UInt32($82DA) then Result := 'MAX_VERTEX_ATTRIB_BINDINGS' else + if self.val = UInt32($82E8) then Result := 'MAX_LABEL_LENGTH' else + if self.val = UInt32($8316) then Result := 'CONVOLUTION_HINT_SGIX' else + if self.val = UInt32($8329) then Result := 'ASYNC_MARKER_SGIX' else + if self.val = UInt32($832B) then Result := 'PIXEL_TEX_GEN_MODE_SGIX' else + if self.val = UInt32($832C) then Result := 'ASYNC_HISTOGRAM_SGIX' else + if self.val = UInt32($832D) then Result := 'MAX_ASYNC_HISTOGRAM_SGIX' else + if self.val = UInt32($8353) then Result := 'PIXEL_TEXTURE_SGIS' else + if self.val = UInt32($835C) then Result := 'ASYNC_TEX_IMAGE_SGIX' else + if self.val = UInt32($835D) then Result := 'ASYNC_DRAW_PIXELS_SGIX' else + if self.val = UInt32($835E) then Result := 'ASYNC_READ_PIXELS_SGIX' else + if self.val = UInt32($835F) then Result := 'MAX_ASYNC_TEX_IMAGE_SGIX' else + if self.val = UInt32($8360) then Result := 'MAX_ASYNC_DRAW_PIXELS_SGIX' else + if self.val = UInt32($8361) then Result := 'MAX_ASYNC_READ_PIXELS_SGIX' else + if self.val = UInt32($83EE) then Result := 'VERTEX_PRECLIP_SGIX' else + if self.val = UInt32($83EF) then Result := 'VERTEX_PRECLIP_HINT_SGIX' else + if self.val = UInt32($8400) then Result := 'FRAGMENT_LIGHTING_SGIX' else + if self.val = UInt32($8401) then Result := 'FRAGMENT_COLOR_MATERIAL_SGIX' else + if self.val = UInt32($8402) then Result := 'FRAGMENT_COLOR_MATERIAL_FACE_SGIX' else + if self.val = UInt32($8403) then Result := 'FRAGMENT_COLOR_MATERIAL_PARAMETER_SGIX' else + if self.val = UInt32($8404) then Result := 'MAX_FRAGMENT_LIGHTS_SGIX' else + if self.val = UInt32($8405) then Result := 'MAX_ACTIVE_LIGHTS_SGIX' else + if self.val = UInt32($8407) then Result := 'LIGHT_ENV_MODE_SGIX' else + if self.val = UInt32($8408) then Result := 'FRAGMENT_LIGHT_MODEL_LOCAL_VIEWER_SGIX' else + if self.val = UInt32($8409) then Result := 'FRAGMENT_LIGHT_MODEL_TWO_SIDE_SGIX' else + if self.val = UInt32($840A) then Result := 'FRAGMENT_LIGHT_MODEL_AMBIENT_SGIX' else + if self.val = UInt32($840B) then Result := 'FRAGMENT_LIGHT_MODEL_NORMAL_INTERPOLATION_SGIX' else + if self.val = UInt32($840C) then Result := 'FRAGMENT_LIGHT0_SGIX' else + if self.val = UInt32($842E) then Result := 'PACK_RESAMPLE_SGIX' else + if self.val = UInt32($842F) then Result := 'UNPACK_RESAMPLE_SGIX' else + if self.val = UInt32($846D) then Result := 'ALIASED_POINT_SIZE_RANGE' else + if self.val = UInt32($846E) then Result := 'ALIASED_LINE_WIDTH_RANGE' else + if self.val = UInt32($84E0) then Result := 'ACTIVE_TEXTURE' else + if self.val = UInt32($84E8) then Result := 'MAX_RENDERBUFFER_SIZE' else + if self.val = UInt32($84EF) then Result := 'TEXTURE_COMPRESSION_HINT' else + if self.val = UInt32($84F6) then Result := 'TEXTURE_BINDING_RECTANGLE' else + if self.val = UInt32($84F8) then Result := 'MAX_RECTANGLE_TEXTURE_SIZE' else + if self.val = UInt32($84FD) then Result := 'MAX_TEXTURE_LOD_BIAS' else + if self.val = UInt32($8514) then Result := 'TEXTURE_BINDING_CUBE_MAP' else + if self.val = UInt32($851C) then Result := 'MAX_CUBE_MAP_TEXTURE_SIZE' else + if self.val = UInt32($85A0) then Result := 'PACK_SUBSAMPLE_RATE_SGIX' else + if self.val = UInt32($85A1) then Result := 'UNPACK_SUBSAMPLE_RATE_SGIX' else + if self.val = UInt32($85B5) then Result := 'VERTEX_ARRAY_BINDING' else + if self.val = UInt32($8642) then Result := 'PROGRAM_POINT_SIZE' else + if self.val = UInt32($86A2) then Result := 'NUM_COMPRESSED_TEXTURE_FORMATS' else + if self.val = UInt32($86A3) then Result := 'COMPRESSED_TEXTURE_FORMATS' else + if self.val = UInt32($87FE) then Result := 'NUM_PROGRAM_BINARY_FORMATS' else + if self.val = UInt32($87FF) then Result := 'PROGRAM_BINARY_FORMATS' else + if self.val = UInt32($8800) then Result := 'STENCIL_BACK_FUNC' else + if self.val = UInt32($8801) then Result := 'STENCIL_BACK_FAIL' else + if self.val = UInt32($8802) then Result := 'STENCIL_BACK_PASS_DEPTH_FAIL' else + if self.val = UInt32($8803) then Result := 'STENCIL_BACK_PASS_DEPTH_PASS' else + if self.val = UInt32($8824) then Result := 'MAX_DRAW_BUFFERS' else + if self.val = UInt32($883D) then Result := 'BLEND_EQUATION_ALPHA' else + if self.val = UInt32($8869) then Result := 'MAX_VERTEX_ATTRIBS' else + if self.val = UInt32($8872) then Result := 'MAX_TEXTURE_IMAGE_UNITS' else + if self.val = UInt32($8894) then Result := 'ARRAY_BUFFER_BINDING' else + if self.val = UInt32($8895) then Result := 'ELEMENT_ARRAY_BUFFER_BINDING' else + if self.val = UInt32($88ED) then Result := 'PIXEL_PACK_BUFFER_BINDING' else + if self.val = UInt32($88EF) then Result := 'PIXEL_UNPACK_BUFFER_BINDING' else + if self.val = UInt32($88FC) then Result := 'MAX_DUAL_SOURCE_DRAW_BUFFERS' else + if self.val = UInt32($88FF) then Result := 'MAX_ARRAY_TEXTURE_LAYERS' else + if self.val = UInt32($8904) then Result := 'MIN_PROGRAM_TEXEL_OFFSET' else + if self.val = UInt32($8905) then Result := 'MAX_PROGRAM_TEXEL_OFFSET' else + if self.val = UInt32($8919) then Result := 'SAMPLER_BINDING' else + if self.val = UInt32($8A28) then Result := 'UNIFORM_BUFFER_BINDING' else + if self.val = UInt32($8A29) then Result := 'UNIFORM_BUFFER_START' else + if self.val = UInt32($8A2A) then Result := 'UNIFORM_BUFFER_SIZE' else + if self.val = UInt32($8A2B) then Result := 'MAX_VERTEX_UNIFORM_BLOCKS' else + if self.val = UInt32($8A2C) then Result := 'MAX_GEOMETRY_UNIFORM_BLOCKS' else + if self.val = UInt32($8A2D) then Result := 'MAX_FRAGMENT_UNIFORM_BLOCKS' else + if self.val = UInt32($8A2E) then Result := 'MAX_COMBINED_UNIFORM_BLOCKS' else + if self.val = UInt32($8A2F) then Result := 'MAX_UNIFORM_BUFFER_BINDINGS' else + if self.val = UInt32($8A30) then Result := 'MAX_UNIFORM_BLOCK_SIZE' else + if self.val = UInt32($8A31) then Result := 'MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS' else + if self.val = UInt32($8A32) then Result := 'MAX_COMBINED_GEOMETRY_UNIFORM_COMPONENTS' else + if self.val = UInt32($8A33) then Result := 'MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS' else + if self.val = UInt32($8A34) then Result := 'UNIFORM_BUFFER_OFFSET_ALIGNMENT' else + if self.val = UInt32($8B49) then Result := 'MAX_FRAGMENT_UNIFORM_COMPONENTS' else + if self.val = UInt32($8B4A) then Result := 'MAX_VERTEX_UNIFORM_COMPONENTS' else + if self.val = UInt32($8B4B) then Result := 'MAX_VARYING_COMPONENTS' else + if self.val = UInt32($8B4B) then Result := 'MAX_VARYING_FLOATS' else + if self.val = UInt32($8B4C) then Result := 'MAX_VERTEX_TEXTURE_IMAGE_UNITS' else + if self.val = UInt32($8B4D) then Result := 'MAX_COMBINED_TEXTURE_IMAGE_UNITS' else + if self.val = UInt32($8B8B) then Result := 'FRAGMENT_SHADER_DERIVATIVE_HINT' else + if self.val = UInt32($8B8D) then Result := 'CURRENT_PROGRAM' else + if self.val = UInt32($8B9A) then Result := 'IMPLEMENTATION_COLOR_READ_TYPE' else + if self.val = UInt32($8B9B) then Result := 'IMPLEMENTATION_COLOR_READ_FORMAT' else + if self.val = UInt32($8C1C) then Result := 'TEXTURE_BINDING_1D_ARRAY' else + if self.val = UInt32($8C1D) then Result := 'TEXTURE_BINDING_2D_ARRAY' else + if self.val = UInt32($8C29) then Result := 'MAX_GEOMETRY_TEXTURE_IMAGE_UNITS' else + if self.val = UInt32($8C2B) then Result := 'MAX_TEXTURE_BUFFER_SIZE' else + if self.val = UInt32($8C2C) then Result := 'TEXTURE_BINDING_BUFFER' else + if self.val = UInt32($8C84) then Result := 'TRANSFORM_FEEDBACK_BUFFER_START' else + if self.val = UInt32($8C85) then Result := 'TRANSFORM_FEEDBACK_BUFFER_SIZE' else + if self.val = UInt32($8C8F) then Result := 'TRANSFORM_FEEDBACK_BUFFER_BINDING' else + if self.val = UInt32($8CA3) then Result := 'STENCIL_BACK_REF' else + if self.val = UInt32($8CA4) then Result := 'STENCIL_BACK_VALUE_MASK' else + if self.val = UInt32($8CA5) then Result := 'STENCIL_BACK_WRITEMASK' else + if self.val = UInt32($8CA6) then Result := 'DRAW_FRAMEBUFFER_BINDING' else + if self.val = UInt32($8CA7) then Result := 'RENDERBUFFER_BINDING' else + if self.val = UInt32($8CAA) then Result := 'READ_FRAMEBUFFER_BINDING' else + if self.val = UInt32($8D6B) then Result := 'MAX_ELEMENT_INDEX' else + if self.val = UInt32($8DDF) then Result := 'MAX_GEOMETRY_UNIFORM_COMPONENTS' else + if self.val = UInt32($8DF9) then Result := 'NUM_SHADER_BINARY_FORMATS' else + if self.val = UInt32($8DFA) then Result := 'SHADER_COMPILER' else + if self.val = UInt32($8DFB) then Result := 'MAX_VERTEX_UNIFORM_VECTORS' else + if self.val = UInt32($8DFC) then Result := 'MAX_VARYING_VECTORS' else + if self.val = UInt32($8DFD) then Result := 'MAX_FRAGMENT_UNIFORM_VECTORS' else + if self.val = UInt32($8E28) then Result := 'TIMESTAMP' else + if self.val = UInt32($8E4F) then Result := 'PROVOKING_VERTEX' else + if self.val = UInt32($8E59) then Result := 'MAX_SAMPLE_MASK_WORDS' else + if self.val = UInt32($8F9E) then Result := 'PRIMITIVE_RESTART_INDEX' else + if self.val = UInt32($90BC) then Result := 'MIN_MAP_BUFFER_ALIGNMENT' else + if self.val = UInt32($90D3) then Result := 'SHADER_STORAGE_BUFFER_BINDING' else + if self.val = UInt32($90D4) then Result := 'SHADER_STORAGE_BUFFER_START' else + if self.val = UInt32($90D5) then Result := 'SHADER_STORAGE_BUFFER_SIZE' else + if self.val = UInt32($90D6) then Result := 'MAX_VERTEX_SHADER_STORAGE_BLOCKS' else + if self.val = UInt32($90D7) then Result := 'MAX_GEOMETRY_SHADER_STORAGE_BLOCKS' else + if self.val = UInt32($90D8) then Result := 'MAX_TESS_CONTROL_SHADER_STORAGE_BLOCKS' else + if self.val = UInt32($90D9) then Result := 'MAX_TESS_EVALUATION_SHADER_STORAGE_BLOCKS' else + if self.val = UInt32($90DA) then Result := 'MAX_FRAGMENT_SHADER_STORAGE_BLOCKS' else + if self.val = UInt32($90DB) then Result := 'MAX_COMPUTE_SHADER_STORAGE_BLOCKS' else + if self.val = UInt32($90DC) then Result := 'MAX_COMBINED_SHADER_STORAGE_BLOCKS' else + if self.val = UInt32($90DD) then Result := 'MAX_SHADER_STORAGE_BUFFER_BINDINGS' else + if self.val = UInt32($90DF) then Result := 'SHADER_STORAGE_BUFFER_OFFSET_ALIGNMENT' else + if self.val = UInt32($90EB) then Result := 'MAX_COMPUTE_WORK_GROUP_INVOCATIONS' else + if self.val = UInt32($90EF) then Result := 'DISPATCH_INDIRECT_BUFFER_BINDING' else + if self.val = UInt32($9104) then Result := 'TEXTURE_BINDING_2D_MULTISAMPLE' else + if self.val = UInt32($9105) then Result := 'TEXTURE_BINDING_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($910E) then Result := 'MAX_COLOR_TEXTURE_SAMPLES' else + if self.val = UInt32($910F) then Result := 'MAX_DEPTH_TEXTURE_SAMPLES' else + if self.val = UInt32($9110) then Result := 'MAX_INTEGER_SAMPLES' else + if self.val = UInt32($9111) then Result := 'MAX_SERVER_WAIT_TIMEOUT' else + if self.val = UInt32($9122) then Result := 'MAX_VERTEX_OUTPUT_COMPONENTS' else + if self.val = UInt32($9123) then Result := 'MAX_GEOMETRY_INPUT_COMPONENTS' else + if self.val = UInt32($9124) then Result := 'MAX_GEOMETRY_OUTPUT_COMPONENTS' else + if self.val = UInt32($9125) then Result := 'MAX_FRAGMENT_INPUT_COMPONENTS' else + if self.val = UInt32($919F) then Result := 'TEXTURE_BUFFER_OFFSET_ALIGNMENT' else + if self.val = UInt32($91BB) then Result := 'MAX_COMPUTE_UNIFORM_BLOCKS' else + if self.val = UInt32($91BC) then Result := 'MAX_COMPUTE_TEXTURE_IMAGE_UNITS' else + if self.val = UInt32($91BE) then Result := 'MAX_COMPUTE_WORK_GROUP_COUNT' else + if self.val = UInt32($91BF) then Result := 'MAX_COMPUTE_WORK_GROUP_SIZE' else + if self.val = UInt32($92D2) then Result := 'MAX_VERTEX_ATOMIC_COUNTERS' else + if self.val = UInt32($92D3) then Result := 'MAX_TESS_CONTROL_ATOMIC_COUNTERS' else + if self.val = UInt32($92D4) then Result := 'MAX_TESS_EVALUATION_ATOMIC_COUNTERS' else + if self.val = UInt32($92D5) then Result := 'MAX_GEOMETRY_ATOMIC_COUNTERS' else + if self.val = UInt32($92D6) then Result := 'MAX_FRAGMENT_ATOMIC_COUNTERS' else + if self.val = UInt32($92D7) then Result := 'MAX_COMBINED_ATOMIC_COUNTERS' else + if self.val = UInt32($9315) then Result := 'MAX_FRAMEBUFFER_WIDTH' else + if self.val = UInt32($9316) then Result := 'MAX_FRAMEBUFFER_HEIGHT' else + if self.val = UInt32($9317) then Result := 'MAX_FRAMEBUFFER_LAYERS' else + if self.val = UInt32($9318) then Result := 'MAX_FRAMEBUFFER_SAMPLES' else + if self.val = UInt32($9596) then Result := 'NUM_DEVICE_UUIDS_EXT' else + if self.val = UInt32($9597) then Result := 'DEVICE_UUID_EXT' else + if self.val = UInt32($9598) then Result := 'DRIVER_UUID_EXT' else + if self.val = UInt32($9599) then Result := 'DEVICE_LUID_EXT' else + if self.val = UInt32($959A) then Result := 'DEVICE_NODE_MASK_EXT' else + Result := self.val.ToString; end; end; @@ -3842,10 +4997,24 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetPointervPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetPointervPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetPointervPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0DF0) then Result := 'FEEDBACK_BUFFER_POINTER' else + if self.val = UInt32($0DF3) then Result := 'SELECTION_BUFFER_POINTER' else + if self.val = UInt32($808E) then Result := 'VERTEX_ARRAY_POINTER' else + if self.val = UInt32($808E) then Result := 'VERTEX_ARRAY_POINTER_EXT' else + if self.val = UInt32($808F) then Result := 'NORMAL_ARRAY_POINTER' else + if self.val = UInt32($808F) then Result := 'NORMAL_ARRAY_POINTER_EXT' else + if self.val = UInt32($8090) then Result := 'COLOR_ARRAY_POINTER' else + if self.val = UInt32($8090) then Result := 'COLOR_ARRAY_POINTER_EXT' else + if self.val = UInt32($8091) then Result := 'INDEX_ARRAY_POINTER' else + if self.val = UInt32($8091) then Result := 'INDEX_ARRAY_POINTER_EXT' else + if self.val = UInt32($8092) then Result := 'TEXTURE_COORD_ARRAY_POINTER' else + if self.val = UInt32($8092) then Result := 'TEXTURE_COORD_ARRAY_POINTER_EXT' else + if self.val = UInt32($8093) then Result := 'EDGE_FLAG_ARRAY_POINTER' else + if self.val = UInt32($8093) then Result := 'EDGE_FLAG_ARRAY_POINTER_EXT' else + if self.val = UInt32($8180) then Result := 'INSTRUMENT_BUFFER_POINTER_SGIX' else + if self.val = UInt32($8244) then Result := 'DEBUG_CALLBACK_FUNCTION' else + if self.val = UInt32($8245) then Result := 'DEBUG_CALLBACK_USER_PARAM' else + Result := self.val.ToString; end; end; @@ -3854,122 +5023,176 @@ uses System.Runtime.CompilerServices; public val: UInt32; public constructor(val: UInt32) := self.val := val; - private static _TEXTURE_WIDTH := new GetTextureParameter($1000); - private static _TEXTURE_HEIGHT := new GetTextureParameter($1001); - private static _TEXTURE_COMPONENTS := new GetTextureParameter($1003); - private static _TEXTURE_INTERNAL_FORMAT := new GetTextureParameter($1003); - private static _TEXTURE_BORDER_COLOR := new GetTextureParameter($1004); - private static _TEXTURE_BORDER_COLOR_NV := new GetTextureParameter($1004); - private static _TEXTURE_BORDER := new GetTextureParameter($1005); - private static _TEXTURE_MAG_FILTER := new GetTextureParameter($2800); - private static _TEXTURE_MIN_FILTER := new GetTextureParameter($2801); - private static _TEXTURE_WRAP_S := new GetTextureParameter($2802); - private static _TEXTURE_WRAP_T := new GetTextureParameter($2803); - private static _TEXTURE_RED_SIZE := new GetTextureParameter($805C); - private static _TEXTURE_GREEN_SIZE := new GetTextureParameter($805D); - private static _TEXTURE_BLUE_SIZE := new GetTextureParameter($805E); - private static _TEXTURE_ALPHA_SIZE := new GetTextureParameter($805F); - private static _TEXTURE_LUMINANCE_SIZE := new GetTextureParameter($8060); - private static _TEXTURE_INTENSITY_SIZE := new GetTextureParameter($8061); - private static _TEXTURE_PRIORITY := new GetTextureParameter($8066); - private static _TEXTURE_RESIDENT := new GetTextureParameter($8067); - private static _TEXTURE_DEPTH_EXT := new GetTextureParameter($8071); - private static _TEXTURE_WRAP_R_EXT := new GetTextureParameter($8072); - private static _DETAIL_TEXTURE_LEVEL_SGIS := new GetTextureParameter($809A); - private static _DETAIL_TEXTURE_MODE_SGIS := new GetTextureParameter($809B); - private static _DETAIL_TEXTURE_FUNC_POINTS_SGIS := new GetTextureParameter($809C); - private static _SHARPEN_TEXTURE_FUNC_POINTS_SGIS := new GetTextureParameter($80B0); - private static _SHADOW_AMBIENT_SGIX := new GetTextureParameter($80BF); - private static _DUAL_TEXTURE_SELECT_SGIS := new GetTextureParameter($8124); - private static _QUAD_TEXTURE_SELECT_SGIS := new GetTextureParameter($8125); - private static _TEXTURE_4DSIZE_SGIS := new GetTextureParameter($8136); - private static _TEXTURE_WRAP_Q_SGIS := new GetTextureParameter($8137); - private static _TEXTURE_MIN_LOD_SGIS := new GetTextureParameter($813A); - private static _TEXTURE_MAX_LOD_SGIS := new GetTextureParameter($813B); - private static _TEXTURE_BASE_LEVEL_SGIS := new GetTextureParameter($813C); - private static _TEXTURE_MAX_LEVEL_SGIS := new GetTextureParameter($813D); - private static _TEXTURE_FILTER4_SIZE_SGIS := new GetTextureParameter($8147); - private static _TEXTURE_CLIPMAP_CENTER_SGIX := new GetTextureParameter($8171); - private static _TEXTURE_CLIPMAP_FRAME_SGIX := new GetTextureParameter($8172); - private static _TEXTURE_CLIPMAP_OFFSET_SGIX := new GetTextureParameter($8173); - private static _TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX := new GetTextureParameter($8174); - private static _TEXTURE_CLIPMAP_LOD_OFFSET_SGIX := new GetTextureParameter($8175); - private static _TEXTURE_CLIPMAP_DEPTH_SGIX := new GetTextureParameter($8176); - private static _POST_TEXTURE_FILTER_BIAS_SGIX := new GetTextureParameter($8179); - private static _POST_TEXTURE_FILTER_SCALE_SGIX := new GetTextureParameter($817A); - private static _TEXTURE_LOD_BIAS_S_SGIX := new GetTextureParameter($818E); - private static _TEXTURE_LOD_BIAS_T_SGIX := new GetTextureParameter($818F); - private static _TEXTURE_LOD_BIAS_R_SGIX := new GetTextureParameter($8190); - private static _GENERATE_MIPMAP_SGIS := new GetTextureParameter($8191); - private static _TEXTURE_COMPARE_SGIX := new GetTextureParameter($819A); - private static _TEXTURE_COMPARE_OPERATOR_SGIX := new GetTextureParameter($819B); - private static _TEXTURE_LEQUAL_R_SGIX := new GetTextureParameter($819C); - private static _TEXTURE_GEQUAL_R_SGIX := new GetTextureParameter($819D); - private static _TEXTURE_MAX_CLAMP_S_SGIX := new GetTextureParameter($8369); - private static _TEXTURE_MAX_CLAMP_T_SGIX := new GetTextureParameter($836A); - private static _TEXTURE_MAX_CLAMP_R_SGIX := new GetTextureParameter($836B); + private static _TEXTURE_WIDTH := new GetTextureParameter($1000); + private static _TEXTURE_HEIGHT := new GetTextureParameter($1001); + private static _TEXTURE_COMPONENTS := new GetTextureParameter($1003); + private static _TEXTURE_INTERNAL_FORMAT := new GetTextureParameter($1003); + private static _TEXTURE_BORDER_COLOR := new GetTextureParameter($1004); + private static _TEXTURE_BORDER_COLOR_NV := new GetTextureParameter($1004); + private static _TEXTURE_BORDER := new GetTextureParameter($1005); + private static _TEXTURE_MAG_FILTER := new GetTextureParameter($2800); + private static _TEXTURE_MIN_FILTER := new GetTextureParameter($2801); + private static _TEXTURE_WRAP_S := new GetTextureParameter($2802); + private static _TEXTURE_WRAP_T := new GetTextureParameter($2803); + private static _TEXTURE_RED_SIZE := new GetTextureParameter($805C); + private static _TEXTURE_GREEN_SIZE := new GetTextureParameter($805D); + private static _TEXTURE_BLUE_SIZE := new GetTextureParameter($805E); + private static _TEXTURE_ALPHA_SIZE := new GetTextureParameter($805F); + private static _TEXTURE_LUMINANCE_SIZE := new GetTextureParameter($8060); + private static _TEXTURE_INTENSITY_SIZE := new GetTextureParameter($8061); + private static _TEXTURE_PRIORITY := new GetTextureParameter($8066); + private static _TEXTURE_RESIDENT := new GetTextureParameter($8067); + private static _TEXTURE_DEPTH_EXT := new GetTextureParameter($8071); + private static _TEXTURE_WRAP_R_EXT := new GetTextureParameter($8072); + private static _DETAIL_TEXTURE_LEVEL_SGIS := new GetTextureParameter($809A); + private static _DETAIL_TEXTURE_MODE_SGIS := new GetTextureParameter($809B); + private static _DETAIL_TEXTURE_FUNC_POINTS_SGIS := new GetTextureParameter($809C); + private static _SHARPEN_TEXTURE_FUNC_POINTS_SGIS := new GetTextureParameter($80B0); + private static _SHADOW_AMBIENT_SGIX := new GetTextureParameter($80BF); + private static _DUAL_TEXTURE_SELECT_SGIS := new GetTextureParameter($8124); + private static _QUAD_TEXTURE_SELECT_SGIS := new GetTextureParameter($8125); + private static _TEXTURE_4DSIZE_SGIS := new GetTextureParameter($8136); + private static _TEXTURE_WRAP_Q_SGIS := new GetTextureParameter($8137); + private static _TEXTURE_MIN_LOD_SGIS := new GetTextureParameter($813A); + private static _TEXTURE_MAX_LOD_SGIS := new GetTextureParameter($813B); + private static _TEXTURE_BASE_LEVEL_SGIS := new GetTextureParameter($813C); + private static _TEXTURE_MAX_LEVEL_SGIS := new GetTextureParameter($813D); + private static _TEXTURE_FILTER4_SIZE_SGIS := new GetTextureParameter($8147); + private static _TEXTURE_CLIPMAP_CENTER_SGIX := new GetTextureParameter($8171); + private static _TEXTURE_CLIPMAP_FRAME_SGIX := new GetTextureParameter($8172); + private static _TEXTURE_CLIPMAP_OFFSET_SGIX := new GetTextureParameter($8173); + private static _TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX := new GetTextureParameter($8174); + private static _TEXTURE_CLIPMAP_LOD_OFFSET_SGIX := new GetTextureParameter($8175); + private static _TEXTURE_CLIPMAP_DEPTH_SGIX := new GetTextureParameter($8176); + private static _POST_TEXTURE_FILTER_BIAS_SGIX := new GetTextureParameter($8179); + private static _POST_TEXTURE_FILTER_SCALE_SGIX := new GetTextureParameter($817A); + private static _TEXTURE_LOD_BIAS_S_SGIX := new GetTextureParameter($818E); + private static _TEXTURE_LOD_BIAS_T_SGIX := new GetTextureParameter($818F); + private static _TEXTURE_LOD_BIAS_R_SGIX := new GetTextureParameter($8190); + private static _GENERATE_MIPMAP_SGIS := new GetTextureParameter($8191); + private static _TEXTURE_COMPARE_SGIX := new GetTextureParameter($819A); + private static _TEXTURE_COMPARE_OPERATOR_SGIX := new GetTextureParameter($819B); + private static _TEXTURE_LEQUAL_R_SGIX := new GetTextureParameter($819C); + private static _TEXTURE_GEQUAL_R_SGIX := new GetTextureParameter($819D); + private static _TEXTURE_MAX_CLAMP_S_SGIX := new GetTextureParameter($8369); + private static _TEXTURE_MAX_CLAMP_T_SGIX := new GetTextureParameter($836A); + private static _TEXTURE_MAX_CLAMP_R_SGIX := new GetTextureParameter($836B); + private static _TEXTURE_UNNORMALIZED_COORDINATES_ARM := new GetTextureParameter($8F6A); - public static property TEXTURE_WIDTH: GetTextureParameter read _TEXTURE_WIDTH; - public static property TEXTURE_HEIGHT: GetTextureParameter read _TEXTURE_HEIGHT; - public static property TEXTURE_COMPONENTS: GetTextureParameter read _TEXTURE_COMPONENTS; - public static property TEXTURE_INTERNAL_FORMAT: GetTextureParameter read _TEXTURE_INTERNAL_FORMAT; - public static property TEXTURE_BORDER_COLOR: GetTextureParameter read _TEXTURE_BORDER_COLOR; - public static property TEXTURE_BORDER_COLOR_NV: GetTextureParameter read _TEXTURE_BORDER_COLOR_NV; - public static property TEXTURE_BORDER: GetTextureParameter read _TEXTURE_BORDER; - public static property TEXTURE_MAG_FILTER: GetTextureParameter read _TEXTURE_MAG_FILTER; - public static property TEXTURE_MIN_FILTER: GetTextureParameter read _TEXTURE_MIN_FILTER; - public static property TEXTURE_WRAP_S: GetTextureParameter read _TEXTURE_WRAP_S; - public static property TEXTURE_WRAP_T: GetTextureParameter read _TEXTURE_WRAP_T; - public static property TEXTURE_RED_SIZE: GetTextureParameter read _TEXTURE_RED_SIZE; - public static property TEXTURE_GREEN_SIZE: GetTextureParameter read _TEXTURE_GREEN_SIZE; - public static property TEXTURE_BLUE_SIZE: GetTextureParameter read _TEXTURE_BLUE_SIZE; - public static property TEXTURE_ALPHA_SIZE: GetTextureParameter read _TEXTURE_ALPHA_SIZE; - public static property TEXTURE_LUMINANCE_SIZE: GetTextureParameter read _TEXTURE_LUMINANCE_SIZE; - public static property TEXTURE_INTENSITY_SIZE: GetTextureParameter read _TEXTURE_INTENSITY_SIZE; - public static property TEXTURE_PRIORITY: GetTextureParameter read _TEXTURE_PRIORITY; - public static property TEXTURE_RESIDENT: GetTextureParameter read _TEXTURE_RESIDENT; - public static property TEXTURE_DEPTH_EXT: GetTextureParameter read _TEXTURE_DEPTH_EXT; - public static property TEXTURE_WRAP_R_EXT: GetTextureParameter read _TEXTURE_WRAP_R_EXT; - public static property DETAIL_TEXTURE_LEVEL_SGIS: GetTextureParameter read _DETAIL_TEXTURE_LEVEL_SGIS; - public static property DETAIL_TEXTURE_MODE_SGIS: GetTextureParameter read _DETAIL_TEXTURE_MODE_SGIS; - public static property DETAIL_TEXTURE_FUNC_POINTS_SGIS: GetTextureParameter read _DETAIL_TEXTURE_FUNC_POINTS_SGIS; - public static property SHARPEN_TEXTURE_FUNC_POINTS_SGIS: GetTextureParameter read _SHARPEN_TEXTURE_FUNC_POINTS_SGIS; - public static property SHADOW_AMBIENT_SGIX: GetTextureParameter read _SHADOW_AMBIENT_SGIX; - public static property DUAL_TEXTURE_SELECT_SGIS: GetTextureParameter read _DUAL_TEXTURE_SELECT_SGIS; - public static property QUAD_TEXTURE_SELECT_SGIS: GetTextureParameter read _QUAD_TEXTURE_SELECT_SGIS; - public static property TEXTURE_4DSIZE_SGIS: GetTextureParameter read _TEXTURE_4DSIZE_SGIS; - public static property TEXTURE_WRAP_Q_SGIS: GetTextureParameter read _TEXTURE_WRAP_Q_SGIS; - public static property TEXTURE_MIN_LOD_SGIS: GetTextureParameter read _TEXTURE_MIN_LOD_SGIS; - public static property TEXTURE_MAX_LOD_SGIS: GetTextureParameter read _TEXTURE_MAX_LOD_SGIS; - public static property TEXTURE_BASE_LEVEL_SGIS: GetTextureParameter read _TEXTURE_BASE_LEVEL_SGIS; - public static property TEXTURE_MAX_LEVEL_SGIS: GetTextureParameter read _TEXTURE_MAX_LEVEL_SGIS; - public static property TEXTURE_FILTER4_SIZE_SGIS: GetTextureParameter read _TEXTURE_FILTER4_SIZE_SGIS; - public static property TEXTURE_CLIPMAP_CENTER_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_CENTER_SGIX; - public static property TEXTURE_CLIPMAP_FRAME_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_FRAME_SGIX; - public static property TEXTURE_CLIPMAP_OFFSET_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_OFFSET_SGIX; - public static property TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX; - public static property TEXTURE_CLIPMAP_LOD_OFFSET_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_LOD_OFFSET_SGIX; - public static property TEXTURE_CLIPMAP_DEPTH_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_DEPTH_SGIX; - public static property POST_TEXTURE_FILTER_BIAS_SGIX: GetTextureParameter read _POST_TEXTURE_FILTER_BIAS_SGIX; - public static property POST_TEXTURE_FILTER_SCALE_SGIX: GetTextureParameter read _POST_TEXTURE_FILTER_SCALE_SGIX; - public static property TEXTURE_LOD_BIAS_S_SGIX: GetTextureParameter read _TEXTURE_LOD_BIAS_S_SGIX; - public static property TEXTURE_LOD_BIAS_T_SGIX: GetTextureParameter read _TEXTURE_LOD_BIAS_T_SGIX; - public static property TEXTURE_LOD_BIAS_R_SGIX: GetTextureParameter read _TEXTURE_LOD_BIAS_R_SGIX; - public static property GENERATE_MIPMAP_SGIS: GetTextureParameter read _GENERATE_MIPMAP_SGIS; - public static property TEXTURE_COMPARE_SGIX: GetTextureParameter read _TEXTURE_COMPARE_SGIX; - public static property TEXTURE_COMPARE_OPERATOR_SGIX: GetTextureParameter read _TEXTURE_COMPARE_OPERATOR_SGIX; - public static property TEXTURE_LEQUAL_R_SGIX: GetTextureParameter read _TEXTURE_LEQUAL_R_SGIX; - public static property TEXTURE_GEQUAL_R_SGIX: GetTextureParameter read _TEXTURE_GEQUAL_R_SGIX; - public static property TEXTURE_MAX_CLAMP_S_SGIX: GetTextureParameter read _TEXTURE_MAX_CLAMP_S_SGIX; - public static property TEXTURE_MAX_CLAMP_T_SGIX: GetTextureParameter read _TEXTURE_MAX_CLAMP_T_SGIX; - public static property TEXTURE_MAX_CLAMP_R_SGIX: GetTextureParameter read _TEXTURE_MAX_CLAMP_R_SGIX; + public static property TEXTURE_WIDTH: GetTextureParameter read _TEXTURE_WIDTH; + public static property TEXTURE_HEIGHT: GetTextureParameter read _TEXTURE_HEIGHT; + public static property TEXTURE_COMPONENTS: GetTextureParameter read _TEXTURE_COMPONENTS; + public static property TEXTURE_INTERNAL_FORMAT: GetTextureParameter read _TEXTURE_INTERNAL_FORMAT; + public static property TEXTURE_BORDER_COLOR: GetTextureParameter read _TEXTURE_BORDER_COLOR; + public static property TEXTURE_BORDER_COLOR_NV: GetTextureParameter read _TEXTURE_BORDER_COLOR_NV; + public static property TEXTURE_BORDER: GetTextureParameter read _TEXTURE_BORDER; + public static property TEXTURE_MAG_FILTER: GetTextureParameter read _TEXTURE_MAG_FILTER; + public static property TEXTURE_MIN_FILTER: GetTextureParameter read _TEXTURE_MIN_FILTER; + public static property TEXTURE_WRAP_S: GetTextureParameter read _TEXTURE_WRAP_S; + public static property TEXTURE_WRAP_T: GetTextureParameter read _TEXTURE_WRAP_T; + public static property TEXTURE_RED_SIZE: GetTextureParameter read _TEXTURE_RED_SIZE; + public static property TEXTURE_GREEN_SIZE: GetTextureParameter read _TEXTURE_GREEN_SIZE; + public static property TEXTURE_BLUE_SIZE: GetTextureParameter read _TEXTURE_BLUE_SIZE; + public static property TEXTURE_ALPHA_SIZE: GetTextureParameter read _TEXTURE_ALPHA_SIZE; + public static property TEXTURE_LUMINANCE_SIZE: GetTextureParameter read _TEXTURE_LUMINANCE_SIZE; + public static property TEXTURE_INTENSITY_SIZE: GetTextureParameter read _TEXTURE_INTENSITY_SIZE; + public static property TEXTURE_PRIORITY: GetTextureParameter read _TEXTURE_PRIORITY; + public static property TEXTURE_RESIDENT: GetTextureParameter read _TEXTURE_RESIDENT; + public static property TEXTURE_DEPTH_EXT: GetTextureParameter read _TEXTURE_DEPTH_EXT; + public static property TEXTURE_WRAP_R_EXT: GetTextureParameter read _TEXTURE_WRAP_R_EXT; + public static property DETAIL_TEXTURE_LEVEL_SGIS: GetTextureParameter read _DETAIL_TEXTURE_LEVEL_SGIS; + public static property DETAIL_TEXTURE_MODE_SGIS: GetTextureParameter read _DETAIL_TEXTURE_MODE_SGIS; + public static property DETAIL_TEXTURE_FUNC_POINTS_SGIS: GetTextureParameter read _DETAIL_TEXTURE_FUNC_POINTS_SGIS; + public static property SHARPEN_TEXTURE_FUNC_POINTS_SGIS: GetTextureParameter read _SHARPEN_TEXTURE_FUNC_POINTS_SGIS; + public static property SHADOW_AMBIENT_SGIX: GetTextureParameter read _SHADOW_AMBIENT_SGIX; + public static property DUAL_TEXTURE_SELECT_SGIS: GetTextureParameter read _DUAL_TEXTURE_SELECT_SGIS; + public static property QUAD_TEXTURE_SELECT_SGIS: GetTextureParameter read _QUAD_TEXTURE_SELECT_SGIS; + public static property TEXTURE_4DSIZE_SGIS: GetTextureParameter read _TEXTURE_4DSIZE_SGIS; + public static property TEXTURE_WRAP_Q_SGIS: GetTextureParameter read _TEXTURE_WRAP_Q_SGIS; + public static property TEXTURE_MIN_LOD_SGIS: GetTextureParameter read _TEXTURE_MIN_LOD_SGIS; + public static property TEXTURE_MAX_LOD_SGIS: GetTextureParameter read _TEXTURE_MAX_LOD_SGIS; + public static property TEXTURE_BASE_LEVEL_SGIS: GetTextureParameter read _TEXTURE_BASE_LEVEL_SGIS; + public static property TEXTURE_MAX_LEVEL_SGIS: GetTextureParameter read _TEXTURE_MAX_LEVEL_SGIS; + public static property TEXTURE_FILTER4_SIZE_SGIS: GetTextureParameter read _TEXTURE_FILTER4_SIZE_SGIS; + public static property TEXTURE_CLIPMAP_CENTER_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_CENTER_SGIX; + public static property TEXTURE_CLIPMAP_FRAME_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_FRAME_SGIX; + public static property TEXTURE_CLIPMAP_OFFSET_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_OFFSET_SGIX; + public static property TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX; + public static property TEXTURE_CLIPMAP_LOD_OFFSET_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_LOD_OFFSET_SGIX; + public static property TEXTURE_CLIPMAP_DEPTH_SGIX: GetTextureParameter read _TEXTURE_CLIPMAP_DEPTH_SGIX; + public static property POST_TEXTURE_FILTER_BIAS_SGIX: GetTextureParameter read _POST_TEXTURE_FILTER_BIAS_SGIX; + public static property POST_TEXTURE_FILTER_SCALE_SGIX: GetTextureParameter read _POST_TEXTURE_FILTER_SCALE_SGIX; + public static property TEXTURE_LOD_BIAS_S_SGIX: GetTextureParameter read _TEXTURE_LOD_BIAS_S_SGIX; + public static property TEXTURE_LOD_BIAS_T_SGIX: GetTextureParameter read _TEXTURE_LOD_BIAS_T_SGIX; + public static property TEXTURE_LOD_BIAS_R_SGIX: GetTextureParameter read _TEXTURE_LOD_BIAS_R_SGIX; + public static property GENERATE_MIPMAP_SGIS: GetTextureParameter read _GENERATE_MIPMAP_SGIS; + public static property TEXTURE_COMPARE_SGIX: GetTextureParameter read _TEXTURE_COMPARE_SGIX; + public static property TEXTURE_COMPARE_OPERATOR_SGIX: GetTextureParameter read _TEXTURE_COMPARE_OPERATOR_SGIX; + public static property TEXTURE_LEQUAL_R_SGIX: GetTextureParameter read _TEXTURE_LEQUAL_R_SGIX; + public static property TEXTURE_GEQUAL_R_SGIX: GetTextureParameter read _TEXTURE_GEQUAL_R_SGIX; + public static property TEXTURE_MAX_CLAMP_S_SGIX: GetTextureParameter read _TEXTURE_MAX_CLAMP_S_SGIX; + public static property TEXTURE_MAX_CLAMP_T_SGIX: GetTextureParameter read _TEXTURE_MAX_CLAMP_T_SGIX; + public static property TEXTURE_MAX_CLAMP_R_SGIX: GetTextureParameter read _TEXTURE_MAX_CLAMP_R_SGIX; + public static property TEXTURE_UNNORMALIZED_COORDINATES_ARM: GetTextureParameter read _TEXTURE_UNNORMALIZED_COORDINATES_ARM; public function ToString: string; override; begin - var res := typeof(GetTextureParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetTextureParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetTextureParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1000) then Result := 'TEXTURE_WIDTH' else + if self.val = UInt32($1001) then Result := 'TEXTURE_HEIGHT' else + if self.val = UInt32($1003) then Result := 'TEXTURE_COMPONENTS' else + if self.val = UInt32($1003) then Result := 'TEXTURE_INTERNAL_FORMAT' else + if self.val = UInt32($1004) then Result := 'TEXTURE_BORDER_COLOR' else + if self.val = UInt32($1004) then Result := 'TEXTURE_BORDER_COLOR_NV' else + if self.val = UInt32($1005) then Result := 'TEXTURE_BORDER' else + if self.val = UInt32($2800) then Result := 'TEXTURE_MAG_FILTER' else + if self.val = UInt32($2801) then Result := 'TEXTURE_MIN_FILTER' else + if self.val = UInt32($2802) then Result := 'TEXTURE_WRAP_S' else + if self.val = UInt32($2803) then Result := 'TEXTURE_WRAP_T' else + if self.val = UInt32($805C) then Result := 'TEXTURE_RED_SIZE' else + if self.val = UInt32($805D) then Result := 'TEXTURE_GREEN_SIZE' else + if self.val = UInt32($805E) then Result := 'TEXTURE_BLUE_SIZE' else + if self.val = UInt32($805F) then Result := 'TEXTURE_ALPHA_SIZE' else + if self.val = UInt32($8060) then Result := 'TEXTURE_LUMINANCE_SIZE' else + if self.val = UInt32($8061) then Result := 'TEXTURE_INTENSITY_SIZE' else + if self.val = UInt32($8066) then Result := 'TEXTURE_PRIORITY' else + if self.val = UInt32($8067) then Result := 'TEXTURE_RESIDENT' else + if self.val = UInt32($8071) then Result := 'TEXTURE_DEPTH_EXT' else + if self.val = UInt32($8072) then Result := 'TEXTURE_WRAP_R_EXT' else + if self.val = UInt32($809A) then Result := 'DETAIL_TEXTURE_LEVEL_SGIS' else + if self.val = UInt32($809B) then Result := 'DETAIL_TEXTURE_MODE_SGIS' else + if self.val = UInt32($809C) then Result := 'DETAIL_TEXTURE_FUNC_POINTS_SGIS' else + if self.val = UInt32($80B0) then Result := 'SHARPEN_TEXTURE_FUNC_POINTS_SGIS' else + if self.val = UInt32($80BF) then Result := 'SHADOW_AMBIENT_SGIX' else + if self.val = UInt32($8124) then Result := 'DUAL_TEXTURE_SELECT_SGIS' else + if self.val = UInt32($8125) then Result := 'QUAD_TEXTURE_SELECT_SGIS' else + if self.val = UInt32($8136) then Result := 'TEXTURE_4DSIZE_SGIS' else + if self.val = UInt32($8137) then Result := 'TEXTURE_WRAP_Q_SGIS' else + if self.val = UInt32($813A) then Result := 'TEXTURE_MIN_LOD_SGIS' else + if self.val = UInt32($813B) then Result := 'TEXTURE_MAX_LOD_SGIS' else + if self.val = UInt32($813C) then Result := 'TEXTURE_BASE_LEVEL_SGIS' else + if self.val = UInt32($813D) then Result := 'TEXTURE_MAX_LEVEL_SGIS' else + if self.val = UInt32($8147) then Result := 'TEXTURE_FILTER4_SIZE_SGIS' else + if self.val = UInt32($8171) then Result := 'TEXTURE_CLIPMAP_CENTER_SGIX' else + if self.val = UInt32($8172) then Result := 'TEXTURE_CLIPMAP_FRAME_SGIX' else + if self.val = UInt32($8173) then Result := 'TEXTURE_CLIPMAP_OFFSET_SGIX' else + if self.val = UInt32($8174) then Result := 'TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX' else + if self.val = UInt32($8175) then Result := 'TEXTURE_CLIPMAP_LOD_OFFSET_SGIX' else + if self.val = UInt32($8176) then Result := 'TEXTURE_CLIPMAP_DEPTH_SGIX' else + if self.val = UInt32($8179) then Result := 'POST_TEXTURE_FILTER_BIAS_SGIX' else + if self.val = UInt32($817A) then Result := 'POST_TEXTURE_FILTER_SCALE_SGIX' else + if self.val = UInt32($818E) then Result := 'TEXTURE_LOD_BIAS_S_SGIX' else + if self.val = UInt32($818F) then Result := 'TEXTURE_LOD_BIAS_T_SGIX' else + if self.val = UInt32($8190) then Result := 'TEXTURE_LOD_BIAS_R_SGIX' else + if self.val = UInt32($8191) then Result := 'GENERATE_MIPMAP_SGIS' else + if self.val = UInt32($819A) then Result := 'TEXTURE_COMPARE_SGIX' else + if self.val = UInt32($819B) then Result := 'TEXTURE_COMPARE_OPERATOR_SGIX' else + if self.val = UInt32($819C) then Result := 'TEXTURE_LEQUAL_R_SGIX' else + if self.val = UInt32($819D) then Result := 'TEXTURE_GEQUAL_R_SGIX' else + if self.val = UInt32($8369) then Result := 'TEXTURE_MAX_CLAMP_S_SGIX' else + if self.val = UInt32($836A) then Result := 'TEXTURE_MAX_CLAMP_T_SGIX' else + if self.val = UInt32($836B) then Result := 'TEXTURE_MAX_CLAMP_R_SGIX' else + if self.val = UInt32($8F6A) then Result := 'TEXTURE_UNNORMALIZED_COORDINATES_ARM' else + Result := self.val.ToString; end; end; @@ -4194,10 +5417,113 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GlslTypeToken).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GlslTypeToken(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GlslTypeToken[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + if self.val = UInt32($8B50) then Result := 'FLOAT_VEC2' else + if self.val = UInt32($8B51) then Result := 'FLOAT_VEC3' else + if self.val = UInt32($8B52) then Result := 'FLOAT_VEC4' else + if self.val = UInt32($8B53) then Result := 'INT_VEC2' else + if self.val = UInt32($8B54) then Result := 'INT_VEC3' else + if self.val = UInt32($8B55) then Result := 'INT_VEC4' else + if self.val = UInt32($8B56) then Result := 'BOOL' else + if self.val = UInt32($8B57) then Result := 'BOOL_VEC2' else + if self.val = UInt32($8B58) then Result := 'BOOL_VEC3' else + if self.val = UInt32($8B59) then Result := 'BOOL_VEC4' else + if self.val = UInt32($8B5A) then Result := 'FLOAT_MAT2' else + if self.val = UInt32($8B5B) then Result := 'FLOAT_MAT3' else + if self.val = UInt32($8B5C) then Result := 'FLOAT_MAT4' else + if self.val = UInt32($8B5D) then Result := 'SAMPLER_1D' else + if self.val = UInt32($8B5E) then Result := 'SAMPLER_2D' else + if self.val = UInt32($8B5F) then Result := 'SAMPLER_3D' else + if self.val = UInt32($8B60) then Result := 'SAMPLER_CUBE' else + if self.val = UInt32($8B61) then Result := 'SAMPLER_1D_SHADOW' else + if self.val = UInt32($8B62) then Result := 'SAMPLER_2D_SHADOW' else + if self.val = UInt32($8B63) then Result := 'SAMPLER_2D_RECT' else + if self.val = UInt32($8B64) then Result := 'SAMPLER_2D_RECT_SHADOW' else + if self.val = UInt32($8B65) then Result := 'FLOAT_MAT2x3' else + if self.val = UInt32($8B66) then Result := 'FLOAT_MAT2x4' else + if self.val = UInt32($8B67) then Result := 'FLOAT_MAT3x2' else + if self.val = UInt32($8B68) then Result := 'FLOAT_MAT3x4' else + if self.val = UInt32($8B69) then Result := 'FLOAT_MAT4x2' else + if self.val = UInt32($8B6A) then Result := 'FLOAT_MAT4x3' else + if self.val = UInt32($8DC0) then Result := 'SAMPLER_1D_ARRAY' else + if self.val = UInt32($8DC1) then Result := 'SAMPLER_2D_ARRAY' else + if self.val = UInt32($8DC2) then Result := 'SAMPLER_BUFFER' else + if self.val = UInt32($8DC3) then Result := 'SAMPLER_1D_ARRAY_SHADOW' else + if self.val = UInt32($8DC4) then Result := 'SAMPLER_2D_ARRAY_SHADOW' else + if self.val = UInt32($8DC5) then Result := 'SAMPLER_CUBE_SHADOW' else + if self.val = UInt32($8DC6) then Result := 'UNSIGNED_INT_VEC2' else + if self.val = UInt32($8DC7) then Result := 'UNSIGNED_INT_VEC3' else + if self.val = UInt32($8DC8) then Result := 'UNSIGNED_INT_VEC4' else + if self.val = UInt32($8DC9) then Result := 'INT_SAMPLER_1D' else + if self.val = UInt32($8DCA) then Result := 'INT_SAMPLER_2D' else + if self.val = UInt32($8DCB) then Result := 'INT_SAMPLER_3D' else + if self.val = UInt32($8DCC) then Result := 'INT_SAMPLER_CUBE' else + if self.val = UInt32($8DCD) then Result := 'INT_SAMPLER_2D_RECT' else + if self.val = UInt32($8DCE) then Result := 'INT_SAMPLER_1D_ARRAY' else + if self.val = UInt32($8DCF) then Result := 'INT_SAMPLER_2D_ARRAY' else + if self.val = UInt32($8DD0) then Result := 'INT_SAMPLER_BUFFER' else + if self.val = UInt32($8DD1) then Result := 'UNSIGNED_INT_SAMPLER_1D' else + if self.val = UInt32($8DD2) then Result := 'UNSIGNED_INT_SAMPLER_2D' else + if self.val = UInt32($8DD3) then Result := 'UNSIGNED_INT_SAMPLER_3D' else + if self.val = UInt32($8DD4) then Result := 'UNSIGNED_INT_SAMPLER_CUBE' else + if self.val = UInt32($8DD5) then Result := 'UNSIGNED_INT_SAMPLER_2D_RECT' else + if self.val = UInt32($8DD6) then Result := 'UNSIGNED_INT_SAMPLER_1D_ARRAY' else + if self.val = UInt32($8DD7) then Result := 'UNSIGNED_INT_SAMPLER_2D_ARRAY' else + if self.val = UInt32($8DD8) then Result := 'UNSIGNED_INT_SAMPLER_BUFFER' else + if self.val = UInt32($8F46) then Result := 'DOUBLE_MAT2' else + if self.val = UInt32($8F47) then Result := 'DOUBLE_MAT3' else + if self.val = UInt32($8F48) then Result := 'DOUBLE_MAT4' else + if self.val = UInt32($8FFC) then Result := 'DOUBLE_VEC2' else + if self.val = UInt32($8FFD) then Result := 'DOUBLE_VEC3' else + if self.val = UInt32($8FFE) then Result := 'DOUBLE_VEC4' else + if self.val = UInt32($900C) then Result := 'SAMPLER_CUBE_MAP_ARRAY' else + if self.val = UInt32($900D) then Result := 'SAMPLER_CUBE_MAP_ARRAY_SHADOW' else + if self.val = UInt32($900E) then Result := 'INT_SAMPLER_CUBE_MAP_ARRAY' else + if self.val = UInt32($900F) then Result := 'UNSIGNED_INT_SAMPLER_CUBE_MAP_ARRAY' else + if self.val = UInt32($904C) then Result := 'IMAGE_1D' else + if self.val = UInt32($904D) then Result := 'IMAGE_2D' else + if self.val = UInt32($904E) then Result := 'IMAGE_3D' else + if self.val = UInt32($904F) then Result := 'IMAGE_2D_RECT' else + if self.val = UInt32($9050) then Result := 'IMAGE_CUBE' else + if self.val = UInt32($9051) then Result := 'IMAGE_BUFFER' else + if self.val = UInt32($9052) then Result := 'IMAGE_1D_ARRAY' else + if self.val = UInt32($9053) then Result := 'IMAGE_2D_ARRAY' else + if self.val = UInt32($9054) then Result := 'IMAGE_CUBE_MAP_ARRAY' else + if self.val = UInt32($9055) then Result := 'IMAGE_2D_MULTISAMPLE' else + if self.val = UInt32($9056) then Result := 'IMAGE_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($9057) then Result := 'INT_IMAGE_1D' else + if self.val = UInt32($9058) then Result := 'INT_IMAGE_2D' else + if self.val = UInt32($9059) then Result := 'INT_IMAGE_3D' else + if self.val = UInt32($905A) then Result := 'INT_IMAGE_2D_RECT' else + if self.val = UInt32($905B) then Result := 'INT_IMAGE_CUBE' else + if self.val = UInt32($905C) then Result := 'INT_IMAGE_BUFFER' else + if self.val = UInt32($905D) then Result := 'INT_IMAGE_1D_ARRAY' else + if self.val = UInt32($905E) then Result := 'INT_IMAGE_2D_ARRAY' else + if self.val = UInt32($905F) then Result := 'INT_IMAGE_CUBE_MAP_ARRAY' else + if self.val = UInt32($9060) then Result := 'INT_IMAGE_2D_MULTISAMPLE' else + if self.val = UInt32($9061) then Result := 'INT_IMAGE_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($9062) then Result := 'UNSIGNED_INT_IMAGE_1D' else + if self.val = UInt32($9063) then Result := 'UNSIGNED_INT_IMAGE_2D' else + if self.val = UInt32($9064) then Result := 'UNSIGNED_INT_IMAGE_3D' else + if self.val = UInt32($9065) then Result := 'UNSIGNED_INT_IMAGE_2D_RECT' else + if self.val = UInt32($9066) then Result := 'UNSIGNED_INT_IMAGE_CUBE' else + if self.val = UInt32($9067) then Result := 'UNSIGNED_INT_IMAGE_BUFFER' else + if self.val = UInt32($9068) then Result := 'UNSIGNED_INT_IMAGE_1D_ARRAY' else + if self.val = UInt32($9069) then Result := 'UNSIGNED_INT_IMAGE_2D_ARRAY' else + if self.val = UInt32($906A) then Result := 'UNSIGNED_INT_IMAGE_CUBE_MAP_ARRAY' else + if self.val = UInt32($906B) then Result := 'UNSIGNED_INT_IMAGE_2D_MULTISAMPLE' else + if self.val = UInt32($906C) then Result := 'UNSIGNED_INT_IMAGE_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($9108) then Result := 'SAMPLER_2D_MULTISAMPLE' else + if self.val = UInt32($9109) then Result := 'INT_SAMPLER_2D_MULTISAMPLE' else + if self.val = UInt32($910A) then Result := 'UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE' else + if self.val = UInt32($910B) then Result := 'SAMPLER_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($910C) then Result := 'INT_SAMPLER_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($910D) then Result := 'UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($92DB) then Result := 'UNSIGNED_INT_ATOMIC_COUNTER' else + Result := self.val.ToString; end; end; @@ -4218,10 +5544,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GraphicsResetStatus).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GraphicsResetStatus(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GraphicsResetStatus[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NO_ERROR' else + if self.val = UInt32($8253) then Result := 'GUILTY_CONTEXT_RESET' else + if self.val = UInt32($8254) then Result := 'INNOCENT_CONTEXT_RESET' else + if self.val = UInt32($8255) then Result := 'UNKNOWN_CONTEXT_RESET' else + Result := self.val.ToString; end; end; @@ -4240,10 +5567,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(HintMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->HintMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'HintMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1100) then Result := 'DONT_CARE' else + if self.val = UInt32($1101) then Result := 'FASTEST' else + if self.val = UInt32($1102) then Result := 'NICEST' else + Result := self.val.ToString; end; end; @@ -4358,10 +5685,58 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(HintTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->HintTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'HintTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0C50) then Result := 'PERSPECTIVE_CORRECTION_HINT' else + if self.val = UInt32($0C51) then Result := 'POINT_SMOOTH_HINT' else + if self.val = UInt32($0C52) then Result := 'LINE_SMOOTH_HINT' else + if self.val = UInt32($0C53) then Result := 'POLYGON_SMOOTH_HINT' else + if self.val = UInt32($0C54) then Result := 'FOG_HINT' else + if self.val = UInt32($800E) then Result := 'PACK_CMYK_HINT_EXT' else + if self.val = UInt32($800F) then Result := 'UNPACK_CMYK_HINT_EXT' else + if self.val = UInt32($80EB) then Result := 'PHONG_HINT_WIN' else + if self.val = UInt32($80F0) then Result := 'CLIP_VOLUME_CLIPPING_HINT_EXT' else + if self.val = UInt32($812E) then Result := 'TEXTURE_MULTI_BUFFER_HINT_SGIX' else + if self.val = UInt32($8192) then Result := 'GENERATE_MIPMAP_HINT' else + if self.val = UInt32($8192) then Result := 'GENERATE_MIPMAP_HINT_SGIS' else + if self.val = UInt32($8257) then Result := 'PROGRAM_BINARY_RETRIEVABLE_HINT' else + if self.val = UInt32($8316) then Result := 'CONVOLUTION_HINT_SGIX' else + if self.val = UInt32($8322) then Result := 'SCALEBIAS_HINT_SGIX' else + if self.val = UInt32($835B) then Result := 'LINE_QUALITY_HINT_SGIX' else + if self.val = UInt32($83EE) then Result := 'VERTEX_PRECLIP_SGIX' else + if self.val = UInt32($83EF) then Result := 'VERTEX_PRECLIP_HINT_SGIX' else + if self.val = UInt32($84EF) then Result := 'TEXTURE_COMPRESSION_HINT' else + if self.val = UInt32($84EF) then Result := 'TEXTURE_COMPRESSION_HINT_ARB' else + if self.val = UInt32($851F) then Result := 'VERTEX_ARRAY_STORAGE_HINT_APPLE' else + if self.val = UInt32($8534) then Result := 'MULTISAMPLE_FILTER_HINT_NV' else + if self.val = UInt32($85B1) then Result := 'TRANSFORM_HINT_APPLE' else + if self.val = UInt32($85BC) then Result := 'TEXTURE_STORAGE_HINT_APPLE' else + if self.val = UInt32($8B8B) then Result := 'FRAGMENT_SHADER_DERIVATIVE_HINT' else + if self.val = UInt32($8B8B) then Result := 'FRAGMENT_SHADER_DERIVATIVE_HINT_ARB' else + if self.val = UInt32($8B8B) then Result := 'FRAGMENT_SHADER_DERIVATIVE_HINT_OES' else + if self.val = UInt32($8FB0) then Result := 'BINNING_CONTROL_HINT_QCOM' else + if self.val = UInt32($1A1F8) then Result := 'PREFER_DOUBLEBUFFER_HINT_PGI' else + if self.val = UInt32($1A1FD) then Result := 'CONSERVE_MEMORY_HINT_PGI' else + if self.val = UInt32($1A1FE) then Result := 'RECLAIM_MEMORY_HINT_PGI' else + if self.val = UInt32($1A203) then Result := 'NATIVE_GRAPHICS_BEGIN_HINT_PGI' else + if self.val = UInt32($1A204) then Result := 'NATIVE_GRAPHICS_END_HINT_PGI' else + if self.val = UInt32($1A20C) then Result := 'ALWAYS_FAST_HINT_PGI' else + if self.val = UInt32($1A20D) then Result := 'ALWAYS_SOFT_HINT_PGI' else + if self.val = UInt32($1A20E) then Result := 'ALLOW_DRAW_OBJ_HINT_PGI' else + if self.val = UInt32($1A20F) then Result := 'ALLOW_DRAW_WIN_HINT_PGI' else + if self.val = UInt32($1A210) then Result := 'ALLOW_DRAW_FRG_HINT_PGI' else + if self.val = UInt32($1A211) then Result := 'ALLOW_DRAW_MEM_HINT_PGI' else + if self.val = UInt32($1A216) then Result := 'STRICT_DEPTHFUNC_HINT_PGI' else + if self.val = UInt32($1A217) then Result := 'STRICT_LIGHTING_HINT_PGI' else + if self.val = UInt32($1A218) then Result := 'STRICT_SCISSOR_HINT_PGI' else + if self.val = UInt32($1A219) then Result := 'FULL_STIPPLE_HINT_PGI' else + if self.val = UInt32($1A220) then Result := 'CLIP_NEAR_HINT_PGI' else + if self.val = UInt32($1A221) then Result := 'CLIP_FAR_HINT_PGI' else + if self.val = UInt32($1A222) then Result := 'WIDE_LINE_HINT_PGI' else + if self.val = UInt32($1A223) then Result := 'BACK_NORMALS_HINT_PGI' else + if self.val = UInt32($1A22A) then Result := 'VERTEX_DATA_HINT_PGI' else + if self.val = UInt32($1A22B) then Result := 'VERTEX_CONSISTENT_HINT_PGI' else + if self.val = UInt32($1A22C) then Result := 'MATERIAL_SIDE_HINT_PGI' else + if self.val = UInt32($1A22D) then Result := 'MAX_VERTEX_HINT_PGI' else + Result := self.val.ToString; end; end; @@ -4382,10 +5757,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(IndexPointerType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->IndexPointerType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'IndexPointerType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -4426,10 +5802,21 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(InterleavedArrayFormat).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->InterleavedArrayFormat(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'InterleavedArrayFormat[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2A20) then Result := 'V2F' else + if self.val = UInt32($2A21) then Result := 'V3F' else + if self.val = UInt32($2A22) then Result := 'C4UB_V2F' else + if self.val = UInt32($2A23) then Result := 'C4UB_V3F' else + if self.val = UInt32($2A24) then Result := 'C3F_V3F' else + if self.val = UInt32($2A25) then Result := 'N3F_V3F' else + if self.val = UInt32($2A26) then Result := 'C4F_N3F_V3F' else + if self.val = UInt32($2A27) then Result := 'T2F_V3F' else + if self.val = UInt32($2A28) then Result := 'T4F_V4F' else + if self.val = UInt32($2A29) then Result := 'T2F_C4UB_V3F' else + if self.val = UInt32($2A2A) then Result := 'T2F_C3F_V3F' else + if self.val = UInt32($2A2B) then Result := 'T2F_N3F_V3F' else + if self.val = UInt32($2A2C) then Result := 'T2F_C4F_N3F_V3F' else + if self.val = UInt32($2A2D) then Result := 'T4F_C4F_N3F_V4F' else + Result := self.val.ToString; end; end; @@ -5034,10 +6421,303 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(InternalFormat).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->InternalFormat(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'InternalFormat[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1901) then Result := 'STENCIL_INDEX' else + if self.val = UInt32($1901) then Result := 'STENCIL_INDEX_OES' else + if self.val = UInt32($1902) then Result := 'DEPTH_COMPONENT' else + if self.val = UInt32($1903) then Result := 'RED' else + if self.val = UInt32($1903) then Result := 'RED_EXT' else + if self.val = UInt32($1907) then Result := 'RGB' else + if self.val = UInt32($1908) then Result := 'RGBA' else + if self.val = UInt32($2A10) then Result := 'R3_G3_B2' else + if self.val = UInt32($803B) then Result := 'ALPHA4' else + if self.val = UInt32($803C) then Result := 'ALPHA8' else + if self.val = UInt32($803D) then Result := 'ALPHA12' else + if self.val = UInt32($803E) then Result := 'ALPHA16' else + if self.val = UInt32($803F) then Result := 'LUMINANCE4' else + if self.val = UInt32($8040) then Result := 'LUMINANCE8' else + if self.val = UInt32($8041) then Result := 'LUMINANCE12' else + if self.val = UInt32($8042) then Result := 'LUMINANCE16' else + if self.val = UInt32($8043) then Result := 'LUMINANCE4_ALPHA4' else + if self.val = UInt32($8044) then Result := 'LUMINANCE6_ALPHA2' else + if self.val = UInt32($8045) then Result := 'LUMINANCE8_ALPHA8' else + if self.val = UInt32($8046) then Result := 'LUMINANCE12_ALPHA4' else + if self.val = UInt32($8047) then Result := 'LUMINANCE12_ALPHA12' else + if self.val = UInt32($8048) then Result := 'LUMINANCE16_ALPHA16' else + if self.val = UInt32($8049) then Result := 'INTENSITY' else + if self.val = UInt32($804A) then Result := 'INTENSITY4' else + if self.val = UInt32($804B) then Result := 'INTENSITY8' else + if self.val = UInt32($804C) then Result := 'INTENSITY12' else + if self.val = UInt32($804D) then Result := 'INTENSITY16' else + if self.val = UInt32($804E) then Result := 'RGB2_EXT' else + if self.val = UInt32($804F) then Result := 'RGB4' else + if self.val = UInt32($804F) then Result := 'RGB4_EXT' else + if self.val = UInt32($8050) then Result := 'RGB5' else + if self.val = UInt32($8050) then Result := 'RGB5_EXT' else + if self.val = UInt32($8051) then Result := 'RGB8' else + if self.val = UInt32($8051) then Result := 'RGB8_EXT' else + if self.val = UInt32($8051) then Result := 'RGB8_OES' else + if self.val = UInt32($8052) then Result := 'RGB10' else + if self.val = UInt32($8052) then Result := 'RGB10_EXT' else + if self.val = UInt32($8053) then Result := 'RGB12' else + if self.val = UInt32($8053) then Result := 'RGB12_EXT' else + if self.val = UInt32($8054) then Result := 'RGB16' else + if self.val = UInt32($8054) then Result := 'RGB16_EXT' else + if self.val = UInt32($8056) then Result := 'RGBA4' else + if self.val = UInt32($8056) then Result := 'RGBA4_EXT' else + if self.val = UInt32($8056) then Result := 'RGBA4_OES' else + if self.val = UInt32($8057) then Result := 'RGB5_A1' else + if self.val = UInt32($8057) then Result := 'RGB5_A1_EXT' else + if self.val = UInt32($8057) then Result := 'RGB5_A1_OES' else + if self.val = UInt32($8058) then Result := 'RGBA8' else + if self.val = UInt32($8058) then Result := 'RGBA8_EXT' else + if self.val = UInt32($8058) then Result := 'RGBA8_OES' else + if self.val = UInt32($8059) then Result := 'RGB10_A2' else + if self.val = UInt32($8059) then Result := 'RGB10_A2_EXT' else + if self.val = UInt32($805A) then Result := 'RGBA12' else + if self.val = UInt32($805A) then Result := 'RGBA12_EXT' else + if self.val = UInt32($805B) then Result := 'RGBA16' else + if self.val = UInt32($805B) then Result := 'RGBA16_EXT' else + if self.val = UInt32($8110) then Result := 'DUAL_ALPHA4_SGIS' else + if self.val = UInt32($8111) then Result := 'DUAL_ALPHA8_SGIS' else + if self.val = UInt32($8112) then Result := 'DUAL_ALPHA12_SGIS' else + if self.val = UInt32($8113) then Result := 'DUAL_ALPHA16_SGIS' else + if self.val = UInt32($8114) then Result := 'DUAL_LUMINANCE4_SGIS' else + if self.val = UInt32($8115) then Result := 'DUAL_LUMINANCE8_SGIS' else + if self.val = UInt32($8116) then Result := 'DUAL_LUMINANCE12_SGIS' else + if self.val = UInt32($8117) then Result := 'DUAL_LUMINANCE16_SGIS' else + if self.val = UInt32($8118) then Result := 'DUAL_INTENSITY4_SGIS' else + if self.val = UInt32($8119) then Result := 'DUAL_INTENSITY8_SGIS' else + if self.val = UInt32($811A) then Result := 'DUAL_INTENSITY12_SGIS' else + if self.val = UInt32($811B) then Result := 'DUAL_INTENSITY16_SGIS' else + if self.val = UInt32($811C) then Result := 'DUAL_LUMINANCE_ALPHA4_SGIS' else + if self.val = UInt32($811D) then Result := 'DUAL_LUMINANCE_ALPHA8_SGIS' else + if self.val = UInt32($811E) then Result := 'QUAD_ALPHA4_SGIS' else + if self.val = UInt32($811F) then Result := 'QUAD_ALPHA8_SGIS' else + if self.val = UInt32($8120) then Result := 'QUAD_LUMINANCE4_SGIS' else + if self.val = UInt32($8121) then Result := 'QUAD_LUMINANCE8_SGIS' else + if self.val = UInt32($8122) then Result := 'QUAD_INTENSITY4_SGIS' else + if self.val = UInt32($8123) then Result := 'QUAD_INTENSITY8_SGIS' else + if self.val = UInt32($81A5) then Result := 'DEPTH_COMPONENT16' else + if self.val = UInt32($81A5) then Result := 'DEPTH_COMPONENT16_ARB' else + if self.val = UInt32($81A5) then Result := 'DEPTH_COMPONENT16_OES' else + if self.val = UInt32($81A5) then Result := 'DEPTH_COMPONENT16_SGIX' else + if self.val = UInt32($81A6) then Result := 'DEPTH_COMPONENT24_ARB' else + if self.val = UInt32($81A6) then Result := 'DEPTH_COMPONENT24_OES' else + if self.val = UInt32($81A6) then Result := 'DEPTH_COMPONENT24_SGIX' else + if self.val = UInt32($81A7) then Result := 'DEPTH_COMPONENT32_ARB' else + if self.val = UInt32($81A7) then Result := 'DEPTH_COMPONENT32_OES' else + if self.val = UInt32($81A7) then Result := 'DEPTH_COMPONENT32_SGIX' else + if self.val = UInt32($8225) then Result := 'COMPRESSED_RED' else + if self.val = UInt32($8226) then Result := 'COMPRESSED_RG' else + if self.val = UInt32($8227) then Result := 'RG' else + if self.val = UInt32($8229) then Result := 'R8' else + if self.val = UInt32($8229) then Result := 'R8_EXT' else + if self.val = UInt32($822A) then Result := 'R16' else + if self.val = UInt32($822A) then Result := 'R16_EXT' else + if self.val = UInt32($822B) then Result := 'RG8' else + if self.val = UInt32($822B) then Result := 'RG8_EXT' else + if self.val = UInt32($822C) then Result := 'RG16' else + if self.val = UInt32($822C) then Result := 'RG16_EXT' else + if self.val = UInt32($822D) then Result := 'R16F' else + if self.val = UInt32($822D) then Result := 'R16F_EXT' else + if self.val = UInt32($822E) then Result := 'R32F' else + if self.val = UInt32($822E) then Result := 'R32F_EXT' else + if self.val = UInt32($822F) then Result := 'RG16F' else + if self.val = UInt32($822F) then Result := 'RG16F_EXT' else + if self.val = UInt32($8230) then Result := 'RG32F' else + if self.val = UInt32($8230) then Result := 'RG32F_EXT' else + if self.val = UInt32($8231) then Result := 'R8I' else + if self.val = UInt32($8232) then Result := 'R8UI' else + if self.val = UInt32($8233) then Result := 'R16I' else + if self.val = UInt32($8234) then Result := 'R16UI' else + if self.val = UInt32($8235) then Result := 'R32I' else + if self.val = UInt32($8236) then Result := 'R32UI' else + if self.val = UInt32($8237) then Result := 'RG8I' else + if self.val = UInt32($8238) then Result := 'RG8UI' else + if self.val = UInt32($8239) then Result := 'RG16I' else + if self.val = UInt32($823A) then Result := 'RG16UI' else + if self.val = UInt32($823B) then Result := 'RG32I' else + if self.val = UInt32($823C) then Result := 'RG32UI' else + if self.val = UInt32($83F0) then Result := 'COMPRESSED_RGB_S3TC_DXT1_EXT' else + if self.val = UInt32($83F1) then Result := 'COMPRESSED_RGBA_S3TC_DXT1_EXT' else + if self.val = UInt32($83F2) then Result := 'COMPRESSED_RGBA_S3TC_DXT3_EXT' else + if self.val = UInt32($83F3) then Result := 'COMPRESSED_RGBA_S3TC_DXT5_EXT' else + if self.val = UInt32($84ED) then Result := 'COMPRESSED_RGB' else + if self.val = UInt32($84EE) then Result := 'COMPRESSED_RGBA' else + if self.val = UInt32($84F9) then Result := 'DEPTH_STENCIL' else + if self.val = UInt32($84F9) then Result := 'DEPTH_STENCIL_EXT' else + if self.val = UInt32($84F9) then Result := 'DEPTH_STENCIL_NV' else + if self.val = UInt32($84F9) then Result := 'DEPTH_STENCIL_OES' else + if self.val = UInt32($8750) then Result := 'DEPTH_STENCIL_MESA' else + if self.val = UInt32($8814) then Result := 'RGBA32F' else + if self.val = UInt32($8814) then Result := 'RGBA32F_ARB' else + if self.val = UInt32($8814) then Result := 'RGBA32F_EXT' else + if self.val = UInt32($8815) then Result := 'RGB32F' else + if self.val = UInt32($881A) then Result := 'RGBA16F' else + if self.val = UInt32($881A) then Result := 'RGBA16F_ARB' else + if self.val = UInt32($881A) then Result := 'RGBA16F_EXT' else + if self.val = UInt32($881B) then Result := 'RGB16F' else + if self.val = UInt32($881B) then Result := 'RGB16F_ARB' else + if self.val = UInt32($881B) then Result := 'RGB16F_EXT' else + if self.val = UInt32($88F0) then Result := 'DEPTH24_STENCIL8' else + if self.val = UInt32($88F0) then Result := 'DEPTH24_STENCIL8_EXT' else + if self.val = UInt32($88F0) then Result := 'DEPTH24_STENCIL8_OES' else + if self.val = UInt32($8C3A) then Result := 'R11F_G11F_B10F' else + if self.val = UInt32($8C3A) then Result := 'R11F_G11F_B10F_APPLE' else + if self.val = UInt32($8C3A) then Result := 'R11F_G11F_B10F_EXT' else + if self.val = UInt32($8C3D) then Result := 'RGB9_E5' else + if self.val = UInt32($8C3D) then Result := 'RGB9_E5_APPLE' else + if self.val = UInt32($8C3D) then Result := 'RGB9_E5_EXT' else + if self.val = UInt32($8C40) then Result := 'SRGB' else + if self.val = UInt32($8C40) then Result := 'SRGB_EXT' else + if self.val = UInt32($8C41) then Result := 'SRGB8' else + if self.val = UInt32($8C41) then Result := 'SRGB8_EXT' else + if self.val = UInt32($8C41) then Result := 'SRGB8_NV' else + if self.val = UInt32($8C42) then Result := 'SRGB_ALPHA' else + if self.val = UInt32($8C42) then Result := 'SRGB_ALPHA_EXT' else + if self.val = UInt32($8C43) then Result := 'SRGB8_ALPHA8' else + if self.val = UInt32($8C43) then Result := 'SRGB8_ALPHA8_EXT' else + if self.val = UInt32($8C48) then Result := 'COMPRESSED_SRGB' else + if self.val = UInt32($8C49) then Result := 'COMPRESSED_SRGB_ALPHA' else + if self.val = UInt32($8C4C) then Result := 'COMPRESSED_SRGB_S3TC_DXT1_EXT' else + if self.val = UInt32($8C4D) then Result := 'COMPRESSED_SRGB_ALPHA_S3TC_DXT1_EXT' else + if self.val = UInt32($8C4E) then Result := 'COMPRESSED_SRGB_ALPHA_S3TC_DXT3_EXT' else + if self.val = UInt32($8C4F) then Result := 'COMPRESSED_SRGB_ALPHA_S3TC_DXT5_EXT' else + if self.val = UInt32($8CAC) then Result := 'DEPTH_COMPONENT32F' else + if self.val = UInt32($8CAD) then Result := 'DEPTH32F_STENCIL8' else + if self.val = UInt32($8D46) then Result := 'STENCIL_INDEX1' else + if self.val = UInt32($8D46) then Result := 'STENCIL_INDEX1_EXT' else + if self.val = UInt32($8D46) then Result := 'STENCIL_INDEX1_OES' else + if self.val = UInt32($8D47) then Result := 'STENCIL_INDEX4' else + if self.val = UInt32($8D47) then Result := 'STENCIL_INDEX4_EXT' else + if self.val = UInt32($8D47) then Result := 'STENCIL_INDEX4_OES' else + if self.val = UInt32($8D48) then Result := 'STENCIL_INDEX8' else + if self.val = UInt32($8D48) then Result := 'STENCIL_INDEX8_EXT' else + if self.val = UInt32($8D48) then Result := 'STENCIL_INDEX8_OES' else + if self.val = UInt32($8D49) then Result := 'STENCIL_INDEX16' else + if self.val = UInt32($8D49) then Result := 'STENCIL_INDEX16_EXT' else + if self.val = UInt32($8D70) then Result := 'RGBA32UI' else + if self.val = UInt32($8D71) then Result := 'RGB32UI' else + if self.val = UInt32($8D76) then Result := 'RGBA16UI' else + if self.val = UInt32($8D77) then Result := 'RGB16UI' else + if self.val = UInt32($8D7C) then Result := 'RGBA8UI' else + if self.val = UInt32($8D7D) then Result := 'RGB8UI' else + if self.val = UInt32($8D82) then Result := 'RGBA32I' else + if self.val = UInt32($8D83) then Result := 'RGB32I' else + if self.val = UInt32($8D88) then Result := 'RGBA16I' else + if self.val = UInt32($8D89) then Result := 'RGB16I' else + if self.val = UInt32($8D8E) then Result := 'RGBA8I' else + if self.val = UInt32($8D8F) then Result := 'RGB8I' else + if self.val = UInt32($8DAB) then Result := 'DEPTH_COMPONENT32F_NV' else + if self.val = UInt32($8DAC) then Result := 'DEPTH32F_STENCIL8_NV' else + if self.val = UInt32($8DBB) then Result := 'COMPRESSED_RED_RGTC1' else + if self.val = UInt32($8DBB) then Result := 'COMPRESSED_RED_RGTC1_EXT' else + if self.val = UInt32($8DBC) then Result := 'COMPRESSED_SIGNED_RED_RGTC1' else + if self.val = UInt32($8DBC) then Result := 'COMPRESSED_SIGNED_RED_RGTC1_EXT' else + if self.val = UInt32($8DBD) then Result := 'COMPRESSED_RG_RGTC2' else + if self.val = UInt32($8DBE) then Result := 'COMPRESSED_SIGNED_RG_RGTC2' else + if self.val = UInt32($8E8C) then Result := 'COMPRESSED_RGBA_BPTC_UNORM' else + if self.val = UInt32($8E8D) then Result := 'COMPRESSED_SRGB_ALPHA_BPTC_UNORM' else + if self.val = UInt32($8E8E) then Result := 'COMPRESSED_RGB_BPTC_SIGNED_FLOAT' else + if self.val = UInt32($8E8F) then Result := 'COMPRESSED_RGB_BPTC_UNSIGNED_FLOAT' else + if self.val = UInt32($8F94) then Result := 'R8_SNORM' else + if self.val = UInt32($8F95) then Result := 'RG8_SNORM' else + if self.val = UInt32($8F96) then Result := 'RGB8_SNORM' else + if self.val = UInt32($8F97) then Result := 'RGBA8_SNORM' else + if self.val = UInt32($8F98) then Result := 'R16_SNORM' else + if self.val = UInt32($8F98) then Result := 'R16_SNORM_EXT' else + if self.val = UInt32($8F99) then Result := 'RG16_SNORM' else + if self.val = UInt32($8F99) then Result := 'RG16_SNORM_EXT' else + if self.val = UInt32($8F9A) then Result := 'RGB16_SNORM' else + if self.val = UInt32($8F9A) then Result := 'RGB16_SNORM_EXT' else + if self.val = UInt32($906F) then Result := 'RGB10_A2UI' else + if self.val = UInt32($9270) then Result := 'COMPRESSED_R11_EAC' else + if self.val = UInt32($9271) then Result := 'COMPRESSED_SIGNED_R11_EAC' else + if self.val = UInt32($9272) then Result := 'COMPRESSED_RG11_EAC' else + if self.val = UInt32($9273) then Result := 'COMPRESSED_SIGNED_RG11_EAC' else + if self.val = UInt32($9274) then Result := 'COMPRESSED_RGB8_ETC2' else + if self.val = UInt32($9275) then Result := 'COMPRESSED_SRGB8_ETC2' else + if self.val = UInt32($9276) then Result := 'COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2' else + if self.val = UInt32($9277) then Result := 'COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2' else + if self.val = UInt32($9278) then Result := 'COMPRESSED_RGBA8_ETC2_EAC' else + if self.val = UInt32($9279) then Result := 'COMPRESSED_SRGB8_ALPHA8_ETC2_EAC' else + if self.val = UInt32($93B0) then Result := 'COMPRESSED_RGBA_ASTC_4x4' else + if self.val = UInt32($93B0) then Result := 'COMPRESSED_RGBA_ASTC_4x4_KHR' else + if self.val = UInt32($93B1) then Result := 'COMPRESSED_RGBA_ASTC_5x4' else + if self.val = UInt32($93B1) then Result := 'COMPRESSED_RGBA_ASTC_5x4_KHR' else + if self.val = UInt32($93B2) then Result := 'COMPRESSED_RGBA_ASTC_5x5' else + if self.val = UInt32($93B2) then Result := 'COMPRESSED_RGBA_ASTC_5x5_KHR' else + if self.val = UInt32($93B3) then Result := 'COMPRESSED_RGBA_ASTC_6x5' else + if self.val = UInt32($93B3) then Result := 'COMPRESSED_RGBA_ASTC_6x5_KHR' else + if self.val = UInt32($93B4) then Result := 'COMPRESSED_RGBA_ASTC_6x6' else + if self.val = UInt32($93B4) then Result := 'COMPRESSED_RGBA_ASTC_6x6_KHR' else + if self.val = UInt32($93B5) then Result := 'COMPRESSED_RGBA_ASTC_8x5' else + if self.val = UInt32($93B5) then Result := 'COMPRESSED_RGBA_ASTC_8x5_KHR' else + if self.val = UInt32($93B6) then Result := 'COMPRESSED_RGBA_ASTC_8x6' else + if self.val = UInt32($93B6) then Result := 'COMPRESSED_RGBA_ASTC_8x6_KHR' else + if self.val = UInt32($93B7) then Result := 'COMPRESSED_RGBA_ASTC_8x8' else + if self.val = UInt32($93B7) then Result := 'COMPRESSED_RGBA_ASTC_8x8_KHR' else + if self.val = UInt32($93B8) then Result := 'COMPRESSED_RGBA_ASTC_10x5' else + if self.val = UInt32($93B8) then Result := 'COMPRESSED_RGBA_ASTC_10x5_KHR' else + if self.val = UInt32($93B9) then Result := 'COMPRESSED_RGBA_ASTC_10x6' else + if self.val = UInt32($93B9) then Result := 'COMPRESSED_RGBA_ASTC_10x6_KHR' else + if self.val = UInt32($93BA) then Result := 'COMPRESSED_RGBA_ASTC_10x8' else + if self.val = UInt32($93BA) then Result := 'COMPRESSED_RGBA_ASTC_10x8_KHR' else + if self.val = UInt32($93BB) then Result := 'COMPRESSED_RGBA_ASTC_10x10' else + if self.val = UInt32($93BB) then Result := 'COMPRESSED_RGBA_ASTC_10x10_KHR' else + if self.val = UInt32($93BC) then Result := 'COMPRESSED_RGBA_ASTC_12x10' else + if self.val = UInt32($93BC) then Result := 'COMPRESSED_RGBA_ASTC_12x10_KHR' else + if self.val = UInt32($93BD) then Result := 'COMPRESSED_RGBA_ASTC_12x12' else + if self.val = UInt32($93BD) then Result := 'COMPRESSED_RGBA_ASTC_12x12_KHR' else + if self.val = UInt32($93C0) then Result := 'COMPRESSED_RGBA_ASTC_3x3x3_OES' else + if self.val = UInt32($93C1) then Result := 'COMPRESSED_RGBA_ASTC_4x3x3_OES' else + if self.val = UInt32($93C2) then Result := 'COMPRESSED_RGBA_ASTC_4x4x3_OES' else + if self.val = UInt32($93C3) then Result := 'COMPRESSED_RGBA_ASTC_4x4x4_OES' else + if self.val = UInt32($93C4) then Result := 'COMPRESSED_RGBA_ASTC_5x4x4_OES' else + if self.val = UInt32($93C5) then Result := 'COMPRESSED_RGBA_ASTC_5x5x4_OES' else + if self.val = UInt32($93C6) then Result := 'COMPRESSED_RGBA_ASTC_5x5x5_OES' else + if self.val = UInt32($93C7) then Result := 'COMPRESSED_RGBA_ASTC_6x5x5_OES' else + if self.val = UInt32($93C8) then Result := 'COMPRESSED_RGBA_ASTC_6x6x5_OES' else + if self.val = UInt32($93C9) then Result := 'COMPRESSED_RGBA_ASTC_6x6x6_OES' else + if self.val = UInt32($93D0) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_4x4' else + if self.val = UInt32($93D0) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_4x4_KHR' else + if self.val = UInt32($93D1) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_5x4' else + if self.val = UInt32($93D1) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_5x4_KHR' else + if self.val = UInt32($93D2) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_5x5' else + if self.val = UInt32($93D2) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_5x5_KHR' else + if self.val = UInt32($93D3) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_6x5' else + if self.val = UInt32($93D3) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_6x5_KHR' else + if self.val = UInt32($93D4) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_6x6' else + if self.val = UInt32($93D4) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_6x6_KHR' else + if self.val = UInt32($93D5) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_8x5' else + if self.val = UInt32($93D5) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_8x5_KHR' else + if self.val = UInt32($93D6) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_8x6' else + if self.val = UInt32($93D6) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_8x6_KHR' else + if self.val = UInt32($93D7) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_8x8' else + if self.val = UInt32($93D7) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_8x8_KHR' else + if self.val = UInt32($93D8) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_10x5' else + if self.val = UInt32($93D8) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_10x5_KHR' else + if self.val = UInt32($93D9) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_10x6' else + if self.val = UInt32($93D9) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_10x6_KHR' else + if self.val = UInt32($93DA) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_10x8' else + if self.val = UInt32($93DA) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_10x8_KHR' else + if self.val = UInt32($93DB) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_10x10' else + if self.val = UInt32($93DB) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_10x10_KHR' else + if self.val = UInt32($93DC) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_12x10' else + if self.val = UInt32($93DC) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_12x10_KHR' else + if self.val = UInt32($93DD) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_12x12' else + if self.val = UInt32($93DD) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_12x12_KHR' else + if self.val = UInt32($93E0) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_3x3x3_OES' else + if self.val = UInt32($93E1) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_4x3x3_OES' else + if self.val = UInt32($93E2) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_4x4x3_OES' else + if self.val = UInt32($93E3) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_4x4x4_OES' else + if self.val = UInt32($93E4) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_5x4x4_OES' else + if self.val = UInt32($93E5) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_5x5x4_OES' else + if self.val = UInt32($93E6) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_5x5x5_OES' else + if self.val = UInt32($93E7) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_6x5x5_OES' else + if self.val = UInt32($93E8) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_6x6x5_OES' else + if self.val = UInt32($93E9) then Result := 'COMPRESSED_SRGB8_ALPHA8_ASTC_6x6x6_OES' else + Result := self.val.ToString; end; end; @@ -5192,10 +6872,78 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(InternalFormatPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->InternalFormatPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'InternalFormatPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($80A9) then Result := 'SAMPLES' else + if self.val = UInt32($8191) then Result := 'GENERATE_MIPMAP' else + if self.val = UInt32($826F) then Result := 'INTERNALFORMAT_SUPPORTED' else + if self.val = UInt32($8270) then Result := 'INTERNALFORMAT_PREFERRED' else + if self.val = UInt32($8271) then Result := 'INTERNALFORMAT_RED_SIZE' else + if self.val = UInt32($8272) then Result := 'INTERNALFORMAT_GREEN_SIZE' else + if self.val = UInt32($8273) then Result := 'INTERNALFORMAT_BLUE_SIZE' else + if self.val = UInt32($8274) then Result := 'INTERNALFORMAT_ALPHA_SIZE' else + if self.val = UInt32($8275) then Result := 'INTERNALFORMAT_DEPTH_SIZE' else + if self.val = UInt32($8276) then Result := 'INTERNALFORMAT_STENCIL_SIZE' else + if self.val = UInt32($8277) then Result := 'INTERNALFORMAT_SHARED_SIZE' else + if self.val = UInt32($8278) then Result := 'INTERNALFORMAT_RED_TYPE' else + if self.val = UInt32($8279) then Result := 'INTERNALFORMAT_GREEN_TYPE' else + if self.val = UInt32($827A) then Result := 'INTERNALFORMAT_BLUE_TYPE' else + if self.val = UInt32($827B) then Result := 'INTERNALFORMAT_ALPHA_TYPE' else + if self.val = UInt32($827C) then Result := 'INTERNALFORMAT_DEPTH_TYPE' else + if self.val = UInt32($827D) then Result := 'INTERNALFORMAT_STENCIL_TYPE' else + if self.val = UInt32($827E) then Result := 'MAX_WIDTH' else + if self.val = UInt32($827F) then Result := 'MAX_HEIGHT' else + if self.val = UInt32($8280) then Result := 'MAX_DEPTH' else + if self.val = UInt32($8281) then Result := 'MAX_LAYERS' else + if self.val = UInt32($8283) then Result := 'COLOR_COMPONENTS' else + if self.val = UInt32($8286) then Result := 'COLOR_RENDERABLE' else + if self.val = UInt32($8287) then Result := 'DEPTH_RENDERABLE' else + if self.val = UInt32($8288) then Result := 'STENCIL_RENDERABLE' else + if self.val = UInt32($8289) then Result := 'FRAMEBUFFER_RENDERABLE' else + if self.val = UInt32($828A) then Result := 'FRAMEBUFFER_RENDERABLE_LAYERED' else + if self.val = UInt32($828B) then Result := 'FRAMEBUFFER_BLEND' else + if self.val = UInt32($828C) then Result := 'READ_PIXELS' else + if self.val = UInt32($828D) then Result := 'READ_PIXELS_FORMAT' else + if self.val = UInt32($828E) then Result := 'READ_PIXELS_TYPE' else + if self.val = UInt32($828F) then Result := 'TEXTURE_IMAGE_FORMAT' else + if self.val = UInt32($8290) then Result := 'TEXTURE_IMAGE_TYPE' else + if self.val = UInt32($8291) then Result := 'GET__TEXTURE_IMAGE_FORMAT' else + if self.val = UInt32($8292) then Result := 'GET__TEXTURE_IMAGE_TYPE' else + if self.val = UInt32($8293) then Result := 'MIPMAP' else + if self.val = UInt32($8295) then Result := 'AUTO_GENERATE_MIPMAP' else + if self.val = UInt32($8296) then Result := 'COLOR_ENCODING' else + if self.val = UInt32($8297) then Result := 'SRGB_READ' else + if self.val = UInt32($8298) then Result := 'SRGB_WRITE' else + if self.val = UInt32($829A) then Result := 'FILTER' else + if self.val = UInt32($829B) then Result := 'VERTEX_TEXTURE' else + if self.val = UInt32($829C) then Result := 'TESS_CONTROL_TEXTURE' else + if self.val = UInt32($829D) then Result := 'TESS_EVALUATION_TEXTURE' else + if self.val = UInt32($829E) then Result := 'GEOMETRY_TEXTURE' else + if self.val = UInt32($829F) then Result := 'FRAGMENT_TEXTURE' else + if self.val = UInt32($82A0) then Result := 'COMPUTE_TEXTURE' else + if self.val = UInt32($82A1) then Result := 'TEXTURE_SHADOW' else + if self.val = UInt32($82A2) then Result := 'TEXTURE_GATHER' else + if self.val = UInt32($82A3) then Result := 'TEXTURE_GATHER_SHADOW' else + if self.val = UInt32($82A4) then Result := 'SHADER_IMAGE_LOAD' else + if self.val = UInt32($82A5) then Result := 'SHADER_IMAGE_STORE' else + if self.val = UInt32($82A6) then Result := 'SHADER_IMAGE_ATOMIC' else + if self.val = UInt32($82A7) then Result := 'IMAGE_TEXEL_SIZE' else + if self.val = UInt32($82A8) then Result := 'IMAGE_COMPATIBILITY_CLASS' else + if self.val = UInt32($82A9) then Result := 'IMAGE_PIXEL_FORMAT' else + if self.val = UInt32($82AA) then Result := 'IMAGE_PIXEL_TYPE' else + if self.val = UInt32($82AC) then Result := 'SIMULTANEOUS_TEXTURE_AND_DEPTH_TEST' else + if self.val = UInt32($82AD) then Result := 'SIMULTANEOUS_TEXTURE_AND_STENCIL_TEST' else + if self.val = UInt32($82AE) then Result := 'SIMULTANEOUS_TEXTURE_AND_DEPTH_WRITE' else + if self.val = UInt32($82AF) then Result := 'SIMULTANEOUS_TEXTURE_AND_STENCIL_WRITE' else + if self.val = UInt32($82B1) then Result := 'TEXTURE_COMPRESSED_BLOCK_WIDTH' else + if self.val = UInt32($82B2) then Result := 'TEXTURE_COMPRESSED_BLOCK_HEIGHT' else + if self.val = UInt32($82B3) then Result := 'TEXTURE_COMPRESSED_BLOCK_SIZE' else + if self.val = UInt32($82B4) then Result := 'CLEAR_BUFFER' else + if self.val = UInt32($82B5) then Result := 'TEXTURE_VIEW' else + if self.val = UInt32($82B6) then Result := 'VIEW_COMPATIBILITY_CLASS' else + if self.val = UInt32($86A1) then Result := 'TEXTURE_COMPRESSED' else + if self.val = UInt32($90C7) then Result := 'IMAGE_FORMAT_COMPATIBILITY_TYPE' else + if self.val = UInt32($9365) then Result := 'CLEAR_TEXTURE' else + if self.val = UInt32($9380) then Result := 'NUM_SAMPLE_COUNTS' else + Result := self.val.ToString; end; end; @@ -5356,10 +7104,81 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(InvalidateFramebufferAttachment).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->InvalidateFramebufferAttachment(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'InvalidateFramebufferAttachment[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1800) then Result := 'COLOR' else + if self.val = UInt32($1801) then Result := 'DEPTH' else + if self.val = UInt32($1802) then Result := 'STENCIL' else + if self.val = UInt32($821A) then Result := 'DEPTH_STENCIL_ATTACHMENT' else + if self.val = UInt32($8CE0) then Result := 'COLOR_ATTACHMENT0' else + if self.val = UInt32($8CE0) then Result := 'COLOR_ATTACHMENT0_EXT' else + if self.val = UInt32($8CE0) then Result := 'COLOR_ATTACHMENT0_NV' else + if self.val = UInt32($8CE0) then Result := 'COLOR_ATTACHMENT0_OES' else + if self.val = UInt32($8CE1) then Result := 'COLOR_ATTACHMENT1' else + if self.val = UInt32($8CE1) then Result := 'COLOR_ATTACHMENT1_EXT' else + if self.val = UInt32($8CE1) then Result := 'COLOR_ATTACHMENT1_NV' else + if self.val = UInt32($8CE2) then Result := 'COLOR_ATTACHMENT2' else + if self.val = UInt32($8CE2) then Result := 'COLOR_ATTACHMENT2_EXT' else + if self.val = UInt32($8CE2) then Result := 'COLOR_ATTACHMENT2_NV' else + if self.val = UInt32($8CE3) then Result := 'COLOR_ATTACHMENT3' else + if self.val = UInt32($8CE3) then Result := 'COLOR_ATTACHMENT3_EXT' else + if self.val = UInt32($8CE3) then Result := 'COLOR_ATTACHMENT3_NV' else + if self.val = UInt32($8CE4) then Result := 'COLOR_ATTACHMENT4' else + if self.val = UInt32($8CE4) then Result := 'COLOR_ATTACHMENT4_EXT' else + if self.val = UInt32($8CE4) then Result := 'COLOR_ATTACHMENT4_NV' else + if self.val = UInt32($8CE5) then Result := 'COLOR_ATTACHMENT5' else + if self.val = UInt32($8CE5) then Result := 'COLOR_ATTACHMENT5_EXT' else + if self.val = UInt32($8CE5) then Result := 'COLOR_ATTACHMENT5_NV' else + if self.val = UInt32($8CE6) then Result := 'COLOR_ATTACHMENT6' else + if self.val = UInt32($8CE6) then Result := 'COLOR_ATTACHMENT6_EXT' else + if self.val = UInt32($8CE6) then Result := 'COLOR_ATTACHMENT6_NV' else + if self.val = UInt32($8CE7) then Result := 'COLOR_ATTACHMENT7' else + if self.val = UInt32($8CE7) then Result := 'COLOR_ATTACHMENT7_EXT' else + if self.val = UInt32($8CE7) then Result := 'COLOR_ATTACHMENT7_NV' else + if self.val = UInt32($8CE8) then Result := 'COLOR_ATTACHMENT8' else + if self.val = UInt32($8CE8) then Result := 'COLOR_ATTACHMENT8_EXT' else + if self.val = UInt32($8CE8) then Result := 'COLOR_ATTACHMENT8_NV' else + if self.val = UInt32($8CE9) then Result := 'COLOR_ATTACHMENT9' else + if self.val = UInt32($8CE9) then Result := 'COLOR_ATTACHMENT9_EXT' else + if self.val = UInt32($8CE9) then Result := 'COLOR_ATTACHMENT9_NV' else + if self.val = UInt32($8CEA) then Result := 'COLOR_ATTACHMENT10' else + if self.val = UInt32($8CEA) then Result := 'COLOR_ATTACHMENT10_EXT' else + if self.val = UInt32($8CEA) then Result := 'COLOR_ATTACHMENT10_NV' else + if self.val = UInt32($8CEB) then Result := 'COLOR_ATTACHMENT11' else + if self.val = UInt32($8CEB) then Result := 'COLOR_ATTACHMENT11_EXT' else + if self.val = UInt32($8CEB) then Result := 'COLOR_ATTACHMENT11_NV' else + if self.val = UInt32($8CEC) then Result := 'COLOR_ATTACHMENT12' else + if self.val = UInt32($8CEC) then Result := 'COLOR_ATTACHMENT12_EXT' else + if self.val = UInt32($8CEC) then Result := 'COLOR_ATTACHMENT12_NV' else + if self.val = UInt32($8CED) then Result := 'COLOR_ATTACHMENT13' else + if self.val = UInt32($8CED) then Result := 'COLOR_ATTACHMENT13_EXT' else + if self.val = UInt32($8CED) then Result := 'COLOR_ATTACHMENT13_NV' else + if self.val = UInt32($8CEE) then Result := 'COLOR_ATTACHMENT14' else + if self.val = UInt32($8CEE) then Result := 'COLOR_ATTACHMENT14_EXT' else + if self.val = UInt32($8CEE) then Result := 'COLOR_ATTACHMENT14_NV' else + if self.val = UInt32($8CEF) then Result := 'COLOR_ATTACHMENT15' else + if self.val = UInt32($8CEF) then Result := 'COLOR_ATTACHMENT15_EXT' else + if self.val = UInt32($8CEF) then Result := 'COLOR_ATTACHMENT15_NV' else + if self.val = UInt32($8CF0) then Result := 'COLOR_ATTACHMENT16' else + if self.val = UInt32($8CF1) then Result := 'COLOR_ATTACHMENT17' else + if self.val = UInt32($8CF2) then Result := 'COLOR_ATTACHMENT18' else + if self.val = UInt32($8CF3) then Result := 'COLOR_ATTACHMENT19' else + if self.val = UInt32($8CF4) then Result := 'COLOR_ATTACHMENT20' else + if self.val = UInt32($8CF5) then Result := 'COLOR_ATTACHMENT21' else + if self.val = UInt32($8CF6) then Result := 'COLOR_ATTACHMENT22' else + if self.val = UInt32($8CF7) then Result := 'COLOR_ATTACHMENT23' else + if self.val = UInt32($8CF8) then Result := 'COLOR_ATTACHMENT24' else + if self.val = UInt32($8CF9) then Result := 'COLOR_ATTACHMENT25' else + if self.val = UInt32($8CFA) then Result := 'COLOR_ATTACHMENT26' else + if self.val = UInt32($8CFB) then Result := 'COLOR_ATTACHMENT27' else + if self.val = UInt32($8CFC) then Result := 'COLOR_ATTACHMENT28' else + if self.val = UInt32($8CFD) then Result := 'COLOR_ATTACHMENT29' else + if self.val = UInt32($8CFE) then Result := 'COLOR_ATTACHMENT30' else + if self.val = UInt32($8CFF) then Result := 'COLOR_ATTACHMENT31' else + if self.val = UInt32($8D00) then Result := 'DEPTH_ATTACHMENT' else + if self.val = UInt32($8D00) then Result := 'DEPTH_ATTACHMENT_EXT' else + if self.val = UInt32($8D00) then Result := 'DEPTH_ATTACHMENT_OES' else + if self.val = UInt32($8D20) then Result := 'STENCIL_ATTACHMENT_EXT' else + if self.val = UInt32($8D20) then Result := 'STENCIL_ATTACHMENT_OES' else + Result := self.val.ToString; end; end; @@ -5382,10 +7201,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(LightModelParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->LightModelParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'LightModelParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0B51) then Result := 'LIGHT_MODEL_LOCAL_VIEWER' else + if self.val = UInt32($0B52) then Result := 'LIGHT_MODEL_TWO_SIDE' else + if self.val = UInt32($0B53) then Result := 'LIGHT_MODEL_AMBIENT' else + if self.val = UInt32($81F8) then Result := 'LIGHT_MODEL_COLOR_CONTROL' else + if self.val = UInt32($81F8) then Result := 'LIGHT_MODEL_COLOR_CONTROL_EXT' else + Result := self.val.ToString; end; end; @@ -5430,10 +7251,23 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(LightName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->LightName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'LightName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($4000) then Result := 'LIGHT0' else + if self.val = UInt32($4001) then Result := 'LIGHT1' else + if self.val = UInt32($4002) then Result := 'LIGHT2' else + if self.val = UInt32($4003) then Result := 'LIGHT3' else + if self.val = UInt32($4004) then Result := 'LIGHT4' else + if self.val = UInt32($4005) then Result := 'LIGHT5' else + if self.val = UInt32($4006) then Result := 'LIGHT6' else + if self.val = UInt32($4007) then Result := 'LIGHT7' else + if self.val = UInt32($840C) then Result := 'FRAGMENT_LIGHT0_SGIX' else + if self.val = UInt32($840D) then Result := 'FRAGMENT_LIGHT1_SGIX' else + if self.val = UInt32($840E) then Result := 'FRAGMENT_LIGHT2_SGIX' else + if self.val = UInt32($840F) then Result := 'FRAGMENT_LIGHT3_SGIX' else + if self.val = UInt32($8410) then Result := 'FRAGMENT_LIGHT4_SGIX' else + if self.val = UInt32($8411) then Result := 'FRAGMENT_LIGHT5_SGIX' else + if self.val = UInt32($8412) then Result := 'FRAGMENT_LIGHT6_SGIX' else + if self.val = UInt32($8413) then Result := 'FRAGMENT_LIGHT7_SGIX' else + Result := self.val.ToString; end; end; @@ -5460,10 +7294,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(LightParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->LightParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'LightParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1203) then Result := 'POSITION' else + if self.val = UInt32($1204) then Result := 'SPOT_DIRECTION' else + if self.val = UInt32($1205) then Result := 'SPOT_EXPONENT' else + if self.val = UInt32($1206) then Result := 'SPOT_CUTOFF' else + if self.val = UInt32($1207) then Result := 'CONSTANT_ATTENUATION' else + if self.val = UInt32($1208) then Result := 'LINEAR_ATTENUATION' else + if self.val = UInt32($1209) then Result := 'QUADRATIC_ATTENUATION' else + Result := self.val.ToString; end; end; @@ -5480,10 +7318,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ListMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ListMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ListMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1300) then Result := 'COMPILE' else + if self.val = UInt32($1301) then Result := 'COMPILE_AND_EXECUTE' else + Result := self.val.ToString; end; end; @@ -5516,10 +7353,17 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ListNameType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ListNameType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ListNameType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($1407) then Result := 'GL_2_BYTES' else + if self.val = UInt32($1408) then Result := 'GL_3_BYTES' else + if self.val = UInt32($1409) then Result := 'GL_4_BYTES' else + Result := self.val.ToString; end; end; @@ -5534,10 +7378,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ListParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ListParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ListParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8182) then Result := 'LIST_PRIORITY_SGIX' else + Result := self.val.ToString; end; end; @@ -5582,10 +7424,23 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(LogicOp).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->LogicOp(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'LogicOp[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1500) then Result := 'CLEAR' else + if self.val = UInt32($1501) then Result := 'AND' else + if self.val = UInt32($1502) then Result := 'AND_REVERSE' else + if self.val = UInt32($1503) then Result := 'COPY' else + if self.val = UInt32($1504) then Result := 'AND_INVERTED' else + if self.val = UInt32($1505) then Result := 'NOOP' else + if self.val = UInt32($1506) then Result := 'XOR' else + if self.val = UInt32($1507) then Result := 'OR' else + if self.val = UInt32($1508) then Result := 'NOR' else + if self.val = UInt32($1509) then Result := 'EQUIV' else + if self.val = UInt32($150A) then Result := 'INVERT' else + if self.val = UInt32($150B) then Result := 'OR_REVERSE' else + if self.val = UInt32($150C) then Result := 'COPY_INVERTED' else + if self.val = UInt32($150D) then Result := 'OR_INVERTED' else + if self.val = UInt32($150E) then Result := 'NAND' else + if self.val = UInt32($150F) then Result := 'SET' else + Result := self.val.ToString; end; end; @@ -5649,10 +7504,29 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MapBufferAccessMask).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'MapBufferAccessMask[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'MAP_READ_BIT+'; + if self.val and UInt32($0001) = UInt32($0001) then res += 'MAP_READ_BIT_EXT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'MAP_WRITE_BIT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'MAP_WRITE_BIT_EXT+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'MAP_INVALIDATE_RANGE_BIT+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'MAP_INVALIDATE_RANGE_BIT_EXT+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'MAP_INVALIDATE_BUFFER_BIT+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'MAP_INVALIDATE_BUFFER_BIT_EXT+'; + if self.val and UInt32($0010) = UInt32($0010) then res += 'MAP_FLUSH_EXPLICIT_BIT+'; + if self.val and UInt32($0010) = UInt32($0010) then res += 'MAP_FLUSH_EXPLICIT_BIT_EXT+'; + if self.val and UInt32($0020) = UInt32($0020) then res += 'MAP_UNSYNCHRONIZED_BIT+'; + if self.val and UInt32($0020) = UInt32($0020) then res += 'MAP_UNSYNCHRONIZED_BIT_EXT+'; + if self.val and UInt32($0040) = UInt32($0040) then res += 'MAP_PERSISTENT_BIT+'; + if self.val and UInt32($0040) = UInt32($0040) then res += 'MAP_PERSISTENT_BIT_EXT+'; + if self.val and UInt32($0080) = UInt32($0080) then res += 'MAP_COHERENT_BIT+'; + if self.val and UInt32($0080) = UInt32($0080) then res += 'MAP_COHERENT_BIT_EXT+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -5671,10 +7545,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MapQuery).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MapQuery(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MapQuery[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0A00) then Result := 'COEFF' else + if self.val = UInt32($0A01) then Result := 'ORDER' else + if self.val = UInt32($0A02) then Result := 'DOMAIN' else + Result := self.val.ToString; end; end; @@ -5727,10 +7601,49 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MapTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MapTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MapTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0D90) then Result := 'MAP1_COLOR_4' else + if self.val = UInt32($0D91) then Result := 'MAP1_INDEX' else + if self.val = UInt32($0D92) then Result := 'MAP1_NORMAL' else + if self.val = UInt32($0D93) then Result := 'MAP1_TEXTURE_COORD_1' else + if self.val = UInt32($0D94) then Result := 'MAP1_TEXTURE_COORD_2' else + if self.val = UInt32($0D95) then Result := 'MAP1_TEXTURE_COORD_3' else + if self.val = UInt32($0D96) then Result := 'MAP1_TEXTURE_COORD_4' else + if self.val = UInt32($0D97) then Result := 'MAP1_VERTEX_3' else + if self.val = UInt32($0D98) then Result := 'MAP1_VERTEX_4' else + if self.val = UInt32($0DB0) then Result := 'MAP2_COLOR_4' else + if self.val = UInt32($0DB1) then Result := 'MAP2_INDEX' else + if self.val = UInt32($0DB2) then Result := 'MAP2_NORMAL' else + if self.val = UInt32($0DB3) then Result := 'MAP2_TEXTURE_COORD_1' else + if self.val = UInt32($0DB4) then Result := 'MAP2_TEXTURE_COORD_2' else + if self.val = UInt32($0DB5) then Result := 'MAP2_TEXTURE_COORD_3' else + if self.val = UInt32($0DB6) then Result := 'MAP2_TEXTURE_COORD_4' else + if self.val = UInt32($0DB7) then Result := 'MAP2_VERTEX_3' else + if self.val = UInt32($0DB8) then Result := 'MAP2_VERTEX_4' else + if self.val = UInt32($8194) then Result := 'GEOMETRY_DEFORMATION_SGIX' else + if self.val = UInt32($8195) then Result := 'TEXTURE_DEFORMATION_SGIX' else + Result := self.val.ToString; + end; + + end; + + MaterialFace = record + public val: UInt32; + public constructor(val: UInt32) := self.val := val; + + private static _FRONT := new MaterialFace($0404); + private static _BACK := new MaterialFace($0405); + private static _FRONT_AND_BACK := new MaterialFace($0408); + + public static property FRONT: MaterialFace read _FRONT; + public static property BACK: MaterialFace read _BACK; + public static property FRONT_AND_BACK: MaterialFace read _FRONT_AND_BACK; + + public function ToString: string; override; + begin + if self.val = UInt32($0404) then Result := 'FRONT' else + if self.val = UInt32($0405) then Result := 'BACK' else + if self.val = UInt32($0408) then Result := 'FRONT_AND_BACK' else + Result := self.val.ToString; end; end; @@ -5757,10 +7670,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MaterialParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MaterialParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MaterialParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1200) then Result := 'AMBIENT' else + if self.val = UInt32($1201) then Result := 'DIFFUSE' else + if self.val = UInt32($1202) then Result := 'SPECULAR' else + if self.val = UInt32($1600) then Result := 'EMISSION' else + if self.val = UInt32($1601) then Result := 'SHININESS' else + if self.val = UInt32($1602) then Result := 'AMBIENT_AND_DIFFUSE' else + if self.val = UInt32($1603) then Result := 'COLOR_INDEXES' else + Result := self.val.ToString; end; end; @@ -5781,10 +7698,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MatrixMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MatrixMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MatrixMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1700) then Result := 'MODELVIEW' else + if self.val = UInt32($1700) then Result := 'MODELVIEW0_EXT' else + if self.val = UInt32($1701) then Result := 'PROJECTION' else + if self.val = UInt32($1702) then Result := 'TEXTURE' else + Result := self.val.ToString; end; end; @@ -5893,10 +7811,44 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MemoryBarrierMask).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'MemoryBarrierMask[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'VERTEX_ATTRIB_ARRAY_BARRIER_BIT+'; + if self.val and UInt32($0001) = UInt32($0001) then res += 'VERTEX_ATTRIB_ARRAY_BARRIER_BIT_EXT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'ELEMENT_ARRAY_BARRIER_BIT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'ELEMENT_ARRAY_BARRIER_BIT_EXT+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'UNIFORM_BARRIER_BIT+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'UNIFORM_BARRIER_BIT_EXT+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'TEXTURE_FETCH_BARRIER_BIT+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'TEXTURE_FETCH_BARRIER_BIT_EXT+'; + if self.val and UInt32($0010) = UInt32($0010) then res += 'SHADER_GLOBAL_ACCESS_BARRIER_BIT_NV+'; + if self.val and UInt32($0020) = UInt32($0020) then res += 'SHADER_IMAGE_ACCESS_BARRIER_BIT+'; + if self.val and UInt32($0020) = UInt32($0020) then res += 'SHADER_IMAGE_ACCESS_BARRIER_BIT_EXT+'; + if self.val and UInt32($0040) = UInt32($0040) then res += 'COMMAND_BARRIER_BIT+'; + if self.val and UInt32($0040) = UInt32($0040) then res += 'COMMAND_BARRIER_BIT_EXT+'; + if self.val and UInt32($0080) = UInt32($0080) then res += 'PIXEL_BUFFER_BARRIER_BIT+'; + if self.val and UInt32($0080) = UInt32($0080) then res += 'PIXEL_BUFFER_BARRIER_BIT_EXT+'; + if self.val and UInt32($0100) = UInt32($0100) then res += 'TEXTURE_UPDATE_BARRIER_BIT+'; + if self.val and UInt32($0100) = UInt32($0100) then res += 'TEXTURE_UPDATE_BARRIER_BIT_EXT+'; + if self.val and UInt32($0200) = UInt32($0200) then res += 'BUFFER_UPDATE_BARRIER_BIT+'; + if self.val and UInt32($0200) = UInt32($0200) then res += 'BUFFER_UPDATE_BARRIER_BIT_EXT+'; + if self.val and UInt32($0400) = UInt32($0400) then res += 'FRAMEBUFFER_BARRIER_BIT+'; + if self.val and UInt32($0400) = UInt32($0400) then res += 'FRAMEBUFFER_BARRIER_BIT_EXT+'; + if self.val and UInt32($0800) = UInt32($0800) then res += 'TRANSFORM_FEEDBACK_BARRIER_BIT+'; + if self.val and UInt32($0800) = UInt32($0800) then res += 'TRANSFORM_FEEDBACK_BARRIER_BIT_EXT+'; + if self.val and UInt32($1000) = UInt32($1000) then res += 'ATOMIC_COUNTER_BARRIER_BIT+'; + if self.val and UInt32($1000) = UInt32($1000) then res += 'ATOMIC_COUNTER_BARRIER_BIT_EXT+'; + if self.val and UInt32($2000) = UInt32($2000) then res += 'SHADER_STORAGE_BARRIER_BIT+'; + if self.val and UInt32($4000) = UInt32($4000) then res += 'CLIENT_MAPPED_BUFFER_BARRIER_BIT+'; + if self.val and UInt32($4000) = UInt32($4000) then res += 'CLIENT_MAPPED_BUFFER_BARRIER_BIT_EXT+'; + if self.val and UInt32($8000) = UInt32($8000) then res += 'QUERY_BUFFER_BARRIER_BIT+'; + if self.val and UInt32($FFFFFFFF) = UInt32($FFFFFFFF) then res += 'ALL_BARRIER_BITS+'; + if self.val and UInt32($FFFFFFFF) = UInt32($FFFFFFFF) then res += 'ALL_BARRIER_BITS_EXT+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -5913,10 +7865,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MemoryObjectParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MemoryObjectParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MemoryObjectParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9581) then Result := 'DEDICATED_MEMORY_OBJECT_EXT' else + if self.val = UInt32($959B) then Result := 'PROTECTED_MEMORY_OBJECT_EXT' else + Result := self.val.ToString; end; end; @@ -5933,10 +7884,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MeshMode1).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MeshMode1(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MeshMode1[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1B00) then Result := 'POINT' else + if self.val = UInt32($1B01) then Result := 'LINE' else + Result := self.val.ToString; end; end; @@ -5955,10 +7905,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MeshMode2).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MeshMode2(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MeshMode2[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1B00) then Result := 'POINT' else + if self.val = UInt32($1B01) then Result := 'LINE' else + if self.val = UInt32($1B02) then Result := 'FILL' else + Result := self.val.ToString; end; end; @@ -5981,10 +7931,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(NormalPointerType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->NormalPointerType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'NormalPointerType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -6019,10 +7971,18 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ObjectIdentifier).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ObjectIdentifier(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ObjectIdentifier[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1702) then Result := 'TEXTURE' else + if self.val = UInt32($8074) then Result := 'VERTEX_ARRAY' else + if self.val = UInt32($82E0) then Result := 'BUFFER' else + if self.val = UInt32($82E1) then Result := 'SHADER' else + if self.val = UInt32($82E2) then Result := 'PROGRAM' else + if self.val = UInt32($82E3) then Result := 'QUERY' else + if self.val = UInt32($82E4) then Result := 'PROGRAM_PIPELINE' else + if self.val = UInt32($82E6) then Result := 'SAMPLER' else + if self.val = UInt32($8D40) then Result := 'FRAMEBUFFER' else + if self.val = UInt32($8D41) then Result := 'RENDERBUFFER' else + if self.val = UInt32($8E22) then Result := 'TRANSFORM_FEEDBACK' else + Result := self.val.ToString; end; end; @@ -6041,10 +8001,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PatchParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PatchParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PatchParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8E72) then Result := 'PATCH_VERTICES' else + if self.val = UInt32($8E73) then Result := 'PATCH_DEFAULT_INNER_LEVEL' else + if self.val = UInt32($8E74) then Result := 'PATCH_DEFAULT_OUTER_LEVEL' else + Result := self.val.ToString; end; end; @@ -6063,10 +8023,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathColor).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathColor(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathColor[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($852C) then Result := 'PRIMARY_COLOR_NV' else + if self.val = UInt32($852D) then Result := 'SECONDARY_COLOR_NV' else + if self.val = UInt32($8577) then Result := 'PRIMARY_COLOR' else + Result := self.val.ToString; end; end; @@ -6093,10 +8053,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathColorFormat).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathColorFormat(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathColorFormat[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NONE' else + if self.val = UInt32($1906) then Result := 'ALPHA' else + if self.val = UInt32($1907) then Result := 'RGB' else + if self.val = UInt32($1908) then Result := 'RGBA' else + if self.val = UInt32($1909) then Result := 'LUMINANCE' else + if self.val = UInt32($190A) then Result := 'LUMINANCE_ALPHA' else + if self.val = UInt32($8049) then Result := 'INTENSITY' else + Result := self.val.ToString; end; end; @@ -6199,10 +8163,52 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathCoordType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathCoordType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathCoordType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'CLOSE_PATH_NV' else + if self.val = UInt32($0002) then Result := 'MOVE_TO_NV' else + if self.val = UInt32($0003) then Result := 'RELATIVE_MOVE_TO_NV' else + if self.val = UInt32($0004) then Result := 'LINE_TO_NV' else + if self.val = UInt32($0005) then Result := 'RELATIVE_LINE_TO_NV' else + if self.val = UInt32($0006) then Result := 'HORIZONTAL_LINE_TO_NV' else + if self.val = UInt32($0007) then Result := 'RELATIVE_HORIZONTAL_LINE_TO_NV' else + if self.val = UInt32($0008) then Result := 'VERTICAL_LINE_TO_NV' else + if self.val = UInt32($0009) then Result := 'RELATIVE_VERTICAL_LINE_TO_NV' else + if self.val = UInt32($000A) then Result := 'QUADRATIC_CURVE_TO_NV' else + if self.val = UInt32($000B) then Result := 'RELATIVE_QUADRATIC_CURVE_TO_NV' else + if self.val = UInt32($000C) then Result := 'CUBIC_CURVE_TO_NV' else + if self.val = UInt32($000D) then Result := 'RELATIVE_CUBIC_CURVE_TO_NV' else + if self.val = UInt32($000E) then Result := 'SMOOTH_QUADRATIC_CURVE_TO_NV' else + if self.val = UInt32($000F) then Result := 'RELATIVE_SMOOTH_QUADRATIC_CURVE_TO_NV' else + if self.val = UInt32($0010) then Result := 'SMOOTH_CUBIC_CURVE_TO_NV' else + if self.val = UInt32($0011) then Result := 'RELATIVE_SMOOTH_CUBIC_CURVE_TO_NV' else + if self.val = UInt32($0012) then Result := 'SMALL_CCW_ARC_TO_NV' else + if self.val = UInt32($0013) then Result := 'RELATIVE_SMALL_CCW_ARC_TO_NV' else + if self.val = UInt32($0014) then Result := 'SMALL_CW_ARC_TO_NV' else + if self.val = UInt32($0015) then Result := 'RELATIVE_SMALL_CW_ARC_TO_NV' else + if self.val = UInt32($0016) then Result := 'LARGE_CCW_ARC_TO_NV' else + if self.val = UInt32($0017) then Result := 'RELATIVE_LARGE_CCW_ARC_TO_NV' else + if self.val = UInt32($0018) then Result := 'LARGE_CW_ARC_TO_NV' else + if self.val = UInt32($0019) then Result := 'RELATIVE_LARGE_CW_ARC_TO_NV' else + if self.val = UInt32($001A) then Result := 'CONIC_CURVE_TO_NV' else + if self.val = UInt32($001B) then Result := 'RELATIVE_CONIC_CURVE_TO_NV' else + if self.val = UInt32($00E8) then Result := 'ROUNDED_RECT_NV' else + if self.val = UInt32($00E9) then Result := 'RELATIVE_ROUNDED_RECT_NV' else + if self.val = UInt32($00EA) then Result := 'ROUNDED_RECT2_NV' else + if self.val = UInt32($00EB) then Result := 'RELATIVE_ROUNDED_RECT2_NV' else + if self.val = UInt32($00EC) then Result := 'ROUNDED_RECT4_NV' else + if self.val = UInt32($00ED) then Result := 'RELATIVE_ROUNDED_RECT4_NV' else + if self.val = UInt32($00EE) then Result := 'ROUNDED_RECT8_NV' else + if self.val = UInt32($00EF) then Result := 'RELATIVE_ROUNDED_RECT8_NV' else + if self.val = UInt32($00F0) then Result := 'RESTART_PATH_NV' else + if self.val = UInt32($00F2) then Result := 'DUP_FIRST_CUBIC_CURVE_TO_NV' else + if self.val = UInt32($00F4) then Result := 'DUP_LAST_CUBIC_CURVE_TO_NV' else + if self.val = UInt32($00F6) then Result := 'RECT_NV' else + if self.val = UInt32($00F7) then Result := 'RELATIVE_RECT_NV' else + if self.val = UInt32($00F8) then Result := 'CIRCULAR_CCW_ARC_TO_NV' else + if self.val = UInt32($00FA) then Result := 'CIRCULAR_CW_ARC_TO_NV' else + if self.val = UInt32($00FC) then Result := 'CIRCULAR_TANGENT_ARC_TO_NV' else + if self.val = UInt32($00FE) then Result := 'ARC_TO_NV' else + if self.val = UInt32($00FF) then Result := 'RELATIVE_ARC_TO_NV' else + Result := self.val.ToString; end; end; @@ -6223,10 +8229,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathCoverMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathCoverMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathCoverMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9082) then Result := 'PATH_FILL_COVER_MODE_NV' else + if self.val = UInt32($908B) then Result := 'CONVEX_HULL_NV' else + if self.val = UInt32($908D) then Result := 'BOUNDING_BOX_NV' else + if self.val = UInt32($909C) then Result := 'BOUNDING_BOX_OF_BOUNDING_BOXES_NV' else + Result := self.val.ToString; end; end; @@ -6243,10 +8250,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathElementType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathElementType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathElementType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($909A) then Result := 'UTF8_NV' else + if self.val = UInt32($909B) then Result := 'UTF16_NV' else + Result := self.val.ToString; end; end; @@ -6267,10 +8273,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathFillMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathFillMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathFillMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($150A) then Result := 'INVERT' else + if self.val = UInt32($9080) then Result := 'PATH_FILL_MODE_NV' else + if self.val = UInt32($9088) then Result := 'COUNT_UP_NV' else + if self.val = UInt32($9089) then Result := 'COUNT_DOWN_NV' else + Result := self.val.ToString; end; end; @@ -6295,10 +8302,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathFontStyle).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'PathFontStyle[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0000) = UInt32($0000) then res += 'NONE+'; + if self.val and UInt32($0001) = UInt32($0001) then res += 'BOLD_BIT_NV+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'ITALIC_BIT_NV+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -6317,10 +8330,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathFontTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathFontTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathFontTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9072) then Result := 'STANDARD_FONT_NAME_NV' else + if self.val = UInt32($9073) then Result := 'SYSTEM_FONT_NAME_NV' else + if self.val = UInt32($9074) then Result := 'FILE_NAME_NV' else + Result := self.val.ToString; end; end; @@ -6343,10 +8356,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathGenMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathGenMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathGenMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NONE' else + if self.val = UInt32($2400) then Result := 'EYE_LINEAR' else + if self.val = UInt32($2401) then Result := 'OBJECT_LINEAR' else + if self.val = UInt32($8576) then Result := 'CONSTANT' else + if self.val = UInt32($908A) then Result := 'PATH_OBJECT_BOUNDING_BOX_NV' else + Result := self.val.ToString; end; end; @@ -6363,10 +8378,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathHandleMissingGlyphs).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathHandleMissingGlyphs(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathHandleMissingGlyphs[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($90A9) then Result := 'SKIP_MISSING_GLYPH_NV' else + if self.val = UInt32($90AA) then Result := 'USE_MISSING_GLYPH_NV' else + Result := self.val.ToString; end; end; @@ -6385,10 +8399,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathListMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathListMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathListMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($90AD) then Result := 'ACCUM_ADJACENT_PAIRS_NV' else + if self.val = UInt32($90AE) then Result := 'ADJACENT_PAIRS_NV' else + if self.val = UInt32($90AF) then Result := 'FIRST_TO_REST_NV' else + Result := self.val.ToString; end; end; @@ -6473,10 +8487,36 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathMetricMask).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'PathMetricMask[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'GLYPH_WIDTH_BIT_NV+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'GLYPH_HEIGHT_BIT_NV+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'GLYPH_HORIZONTAL_BEARING_X_BIT_NV+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'GLYPH_HORIZONTAL_BEARING_Y_BIT_NV+'; + if self.val and UInt32($0010) = UInt32($0010) then res += 'GLYPH_HORIZONTAL_BEARING_ADVANCE_BIT_NV+'; + if self.val and UInt32($0020) = UInt32($0020) then res += 'GLYPH_VERTICAL_BEARING_X_BIT_NV+'; + if self.val and UInt32($0040) = UInt32($0040) then res += 'GLYPH_VERTICAL_BEARING_Y_BIT_NV+'; + if self.val and UInt32($0080) = UInt32($0080) then res += 'GLYPH_VERTICAL_BEARING_ADVANCE_BIT_NV+'; + if self.val and UInt32($0100) = UInt32($0100) then res += 'GLYPH_HAS_KERNING_BIT_NV+'; + if self.val and UInt32($10000) = UInt32($10000) then res += 'FONT_X_MIN_BOUNDS_BIT_NV+'; + if self.val and UInt32($20000) = UInt32($20000) then res += 'FONT_Y_MIN_BOUNDS_BIT_NV+'; + if self.val and UInt32($40000) = UInt32($40000) then res += 'FONT_X_MAX_BOUNDS_BIT_NV+'; + if self.val and UInt32($80000) = UInt32($80000) then res += 'FONT_Y_MAX_BOUNDS_BIT_NV+'; + if self.val and UInt32($100000) = UInt32($100000) then res += 'FONT_UNITS_PER_EM_BIT_NV+'; + if self.val and UInt32($200000) = UInt32($200000) then res += 'FONT_ASCENDER_BIT_NV+'; + if self.val and UInt32($400000) = UInt32($400000) then res += 'FONT_DESCENDER_BIT_NV+'; + if self.val and UInt32($800000) = UInt32($800000) then res += 'FONT_HEIGHT_BIT_NV+'; + if self.val and UInt32($1000000) = UInt32($1000000) then res += 'FONT_MAX_ADVANCE_WIDTH_BIT_NV+'; + if self.val and UInt32($2000000) = UInt32($2000000) then res += 'FONT_MAX_ADVANCE_HEIGHT_BIT_NV+'; + if self.val and UInt32($4000000) = UInt32($4000000) then res += 'FONT_UNDERLINE_POSITION_BIT_NV+'; + if self.val and UInt32($8000000) = UInt32($8000000) then res += 'FONT_UNDERLINE_THICKNESS_BIT_NV+'; + if self.val and UInt32($10000000) = UInt32($10000000) then res += 'FONT_HAS_KERNING_BIT_NV+'; + if self.val and UInt32($20000000) = UInt32($20000000) then res += 'FONT_NUM_GLYPH_INDICES_BIT_NV+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -6537,10 +8577,31 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9075) then Result := 'PATH_STROKE_WIDTH_NV' else + if self.val = UInt32($9076) then Result := 'PATH_END_CAPS_NV' else + if self.val = UInt32($9077) then Result := 'PATH_INITIAL_END_CAP_NV' else + if self.val = UInt32($9078) then Result := 'PATH_TERMINAL_END_CAP_NV' else + if self.val = UInt32($9079) then Result := 'PATH_JOIN_STYLE_NV' else + if self.val = UInt32($907A) then Result := 'PATH_MITER_LIMIT_NV' else + if self.val = UInt32($907B) then Result := 'PATH_DASH_CAPS_NV' else + if self.val = UInt32($907C) then Result := 'PATH_INITIAL_DASH_CAP_NV' else + if self.val = UInt32($907D) then Result := 'PATH_TERMINAL_DASH_CAP_NV' else + if self.val = UInt32($907E) then Result := 'PATH_DASH_OFFSET_NV' else + if self.val = UInt32($907F) then Result := 'PATH_CLIENT_LENGTH_NV' else + if self.val = UInt32($9080) then Result := 'PATH_FILL_MODE_NV' else + if self.val = UInt32($9081) then Result := 'PATH_FILL_MASK_NV' else + if self.val = UInt32($9082) then Result := 'PATH_FILL_COVER_MODE_NV' else + if self.val = UInt32($9083) then Result := 'PATH_STROKE_COVER_MODE_NV' else + if self.val = UInt32($9084) then Result := 'PATH_STROKE_MASK_NV' else + if self.val = UInt32($908A) then Result := 'PATH_OBJECT_BOUNDING_BOX_NV' else + if self.val = UInt32($909D) then Result := 'PATH_COMMAND_COUNT_NV' else + if self.val = UInt32($909E) then Result := 'PATH_COORD_COUNT_NV' else + if self.val = UInt32($909F) then Result := 'PATH_DASH_ARRAY_COUNT_NV' else + if self.val = UInt32($90A0) then Result := 'PATH_COMPUTED_LENGTH_NV' else + if self.val = UInt32($90A1) then Result := 'PATH_FILL_BOUNDING_BOX_NV' else + if self.val = UInt32($90A2) then Result := 'PATH_STROKE_BOUNDING_BOX_NV' else + if self.val = UInt32($90B4) then Result := 'PATH_DASH_OFFSET_RESET_NV' else + Result := self.val.ToString; end; end; @@ -6557,10 +8618,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathStringFormat).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathStringFormat(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathStringFormat[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9070) then Result := 'PATH_FORMAT_SVG_NV' else + if self.val = UInt32($9071) then Result := 'PATH_FORMAT_PS_NV' else + Result := self.val.ToString; end; end; @@ -6591,10 +8651,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PathTransformType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PathTransformType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PathTransformType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NONE' else + if self.val = UInt32($908E) then Result := 'TRANSLATE_X_NV' else + if self.val = UInt32($908F) then Result := 'TRANSLATE_Y_NV' else + if self.val = UInt32($9090) then Result := 'TRANSLATE_2D_NV' else + if self.val = UInt32($9091) then Result := 'TRANSLATE_3D_NV' else + if self.val = UInt32($9092) then Result := 'AFFINE_2D_NV' else + if self.val = UInt32($9094) then Result := 'AFFINE_3D_NV' else + if self.val = UInt32($9096) then Result := 'TRANSPOSE_AFFINE_2D_NV' else + if self.val = UInt32($9098) then Result := 'TRANSPOSE_AFFINE_3D_NV' else + Result := self.val.ToString; end; end; @@ -6621,10 +8687,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PipelineParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PipelineParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PipelineParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8259) then Result := 'ACTIVE_PROGRAM' else + if self.val = UInt32($8B30) then Result := 'FRAGMENT_SHADER' else + if self.val = UInt32($8B31) then Result := 'VERTEX_SHADER' else + if self.val = UInt32($8B84) then Result := 'INFO_LOG_LENGTH' else + if self.val = UInt32($8DD9) then Result := 'GEOMETRY_SHADER' else + if self.val = UInt32($8E87) then Result := 'TESS_EVALUATION_SHADER' else + if self.val = UInt32($8E88) then Result := 'TESS_CONTROL_SHADER' else + Result := self.val.ToString; end; end; @@ -6649,10 +8719,13 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelCopyType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelCopyType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelCopyType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1800) then Result := 'COLOR' else + if self.val = UInt32($1800) then Result := 'COLOR_EXT' else + if self.val = UInt32($1801) then Result := 'DEPTH' else + if self.val = UInt32($1801) then Result := 'DEPTH_EXT' else + if self.val = UInt32($1802) then Result := 'STENCIL' else + if self.val = UInt32($1802) then Result := 'STENCIL_EXT' else + Result := self.val.ToString; end; end; @@ -6727,10 +8800,38 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelFormat).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelFormat(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelFormat[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + if self.val = UInt32($1900) then Result := 'COLOR_INDEX' else + if self.val = UInt32($1901) then Result := 'STENCIL_INDEX' else + if self.val = UInt32($1902) then Result := 'DEPTH_COMPONENT' else + if self.val = UInt32($1903) then Result := 'RED' else + if self.val = UInt32($1903) then Result := 'RED_EXT' else + if self.val = UInt32($1904) then Result := 'GREEN' else + if self.val = UInt32($1905) then Result := 'BLUE' else + if self.val = UInt32($1906) then Result := 'ALPHA' else + if self.val = UInt32($1907) then Result := 'RGB' else + if self.val = UInt32($1908) then Result := 'RGBA' else + if self.val = UInt32($1909) then Result := 'LUMINANCE' else + if self.val = UInt32($190A) then Result := 'LUMINANCE_ALPHA' else + if self.val = UInt32($8000) then Result := 'ABGR_EXT' else + if self.val = UInt32($800C) then Result := 'CMYK_EXT' else + if self.val = UInt32($800D) then Result := 'CMYKA_EXT' else + if self.val = UInt32($80E0) then Result := 'BGR' else + if self.val = UInt32($80E1) then Result := 'BGRA' else + if self.val = UInt32($81BB) then Result := 'YCRCB_422_SGIX' else + if self.val = UInt32($81BC) then Result := 'YCRCB_444_SGIX' else + if self.val = UInt32($8227) then Result := 'RG' else + if self.val = UInt32($8228) then Result := 'RG_INTEGER' else + if self.val = UInt32($84F9) then Result := 'DEPTH_STENCIL' else + if self.val = UInt32($8D94) then Result := 'RED_INTEGER' else + if self.val = UInt32($8D95) then Result := 'GREEN_INTEGER' else + if self.val = UInt32($8D96) then Result := 'BLUE_INTEGER' else + if self.val = UInt32($8D98) then Result := 'RGB_INTEGER' else + if self.val = UInt32($8D99) then Result := 'RGBA_INTEGER' else + if self.val = UInt32($8D9A) then Result := 'BGR_INTEGER' else + if self.val = UInt32($8D9B) then Result := 'BGRA_INTEGER' else + Result := self.val.ToString; end; end; @@ -6763,10 +8864,17 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelMap).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelMap(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelMap[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0C70) then Result := 'PIXEL_MAP_I_TO_I' else + if self.val = UInt32($0C71) then Result := 'PIXEL_MAP_S_TO_S' else + if self.val = UInt32($0C72) then Result := 'PIXEL_MAP_I_TO_R' else + if self.val = UInt32($0C73) then Result := 'PIXEL_MAP_I_TO_G' else + if self.val = UInt32($0C74) then Result := 'PIXEL_MAP_I_TO_B' else + if self.val = UInt32($0C75) then Result := 'PIXEL_MAP_I_TO_A' else + if self.val = UInt32($0C76) then Result := 'PIXEL_MAP_R_TO_R' else + if self.val = UInt32($0C77) then Result := 'PIXEL_MAP_G_TO_G' else + if self.val = UInt32($0C78) then Result := 'PIXEL_MAP_B_TO_B' else + if self.val = UInt32($0C79) then Result := 'PIXEL_MAP_A_TO_A' else + Result := self.val.ToString; end; end; @@ -6857,10 +8965,46 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelStoreParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelStoreParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelStoreParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0CF0) then Result := 'UNPACK_SWAP_BYTES' else + if self.val = UInt32($0CF1) then Result := 'UNPACK_LSB_FIRST' else + if self.val = UInt32($0CF2) then Result := 'UNPACK_ROW_LENGTH' else + if self.val = UInt32($0CF2) then Result := 'UNPACK_ROW_LENGTH_EXT' else + if self.val = UInt32($0CF3) then Result := 'UNPACK_SKIP_ROWS' else + if self.val = UInt32($0CF3) then Result := 'UNPACK_SKIP_ROWS_EXT' else + if self.val = UInt32($0CF4) then Result := 'UNPACK_SKIP_PIXELS' else + if self.val = UInt32($0CF4) then Result := 'UNPACK_SKIP_PIXELS_EXT' else + if self.val = UInt32($0CF5) then Result := 'UNPACK_ALIGNMENT' else + if self.val = UInt32($0D00) then Result := 'PACK_SWAP_BYTES' else + if self.val = UInt32($0D01) then Result := 'PACK_LSB_FIRST' else + if self.val = UInt32($0D02) then Result := 'PACK_ROW_LENGTH' else + if self.val = UInt32($0D03) then Result := 'PACK_SKIP_ROWS' else + if self.val = UInt32($0D04) then Result := 'PACK_SKIP_PIXELS' else + if self.val = UInt32($0D05) then Result := 'PACK_ALIGNMENT' else + if self.val = UInt32($806B) then Result := 'PACK_SKIP_IMAGES' else + if self.val = UInt32($806B) then Result := 'PACK_SKIP_IMAGES_EXT' else + if self.val = UInt32($806C) then Result := 'PACK_IMAGE_HEIGHT' else + if self.val = UInt32($806C) then Result := 'PACK_IMAGE_HEIGHT_EXT' else + if self.val = UInt32($806D) then Result := 'UNPACK_SKIP_IMAGES' else + if self.val = UInt32($806D) then Result := 'UNPACK_SKIP_IMAGES_EXT' else + if self.val = UInt32($806E) then Result := 'UNPACK_IMAGE_HEIGHT' else + if self.val = UInt32($806E) then Result := 'UNPACK_IMAGE_HEIGHT_EXT' else + if self.val = UInt32($8130) then Result := 'PACK_SKIP_VOLUMES_SGIS' else + if self.val = UInt32($8131) then Result := 'PACK_IMAGE_DEPTH_SGIS' else + if self.val = UInt32($8132) then Result := 'UNPACK_SKIP_VOLUMES_SGIS' else + if self.val = UInt32($8133) then Result := 'UNPACK_IMAGE_DEPTH_SGIS' else + if self.val = UInt32($8140) then Result := 'PIXEL_TILE_WIDTH_SGIX' else + if self.val = UInt32($8141) then Result := 'PIXEL_TILE_HEIGHT_SGIX' else + if self.val = UInt32($8142) then Result := 'PIXEL_TILE_GRID_WIDTH_SGIX' else + if self.val = UInt32($8143) then Result := 'PIXEL_TILE_GRID_HEIGHT_SGIX' else + if self.val = UInt32($8144) then Result := 'PIXEL_TILE_GRID_DEPTH_SGIX' else + if self.val = UInt32($8145) then Result := 'PIXEL_TILE_CACHE_SIZE_SGIX' else + if self.val = UInt32($842E) then Result := 'PACK_RESAMPLE_SGIX' else + if self.val = UInt32($842F) then Result := 'UNPACK_RESAMPLE_SGIX' else + if self.val = UInt32($85A0) then Result := 'PACK_SUBSAMPLE_RATE_SGIX' else + if self.val = UInt32($85A1) then Result := 'UNPACK_SUBSAMPLE_RATE_SGIX' else + if self.val = UInt32($8984) then Result := 'PACK_RESAMPLE_OML' else + if self.val = UInt32($8985) then Result := 'UNPACK_RESAMPLE_OML' else + Result := self.val.ToString; end; end; @@ -6965,10 +9109,53 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelTransferParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelTransferParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelTransferParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0D10) then Result := 'MAP_COLOR' else + if self.val = UInt32($0D11) then Result := 'MAP_STENCIL' else + if self.val = UInt32($0D12) then Result := 'INDEX_SHIFT' else + if self.val = UInt32($0D13) then Result := 'INDEX_OFFSET' else + if self.val = UInt32($0D14) then Result := 'RED_SCALE' else + if self.val = UInt32($0D15) then Result := 'RED_BIAS' else + if self.val = UInt32($0D18) then Result := 'GREEN_SCALE' else + if self.val = UInt32($0D19) then Result := 'GREEN_BIAS' else + if self.val = UInt32($0D1A) then Result := 'BLUE_SCALE' else + if self.val = UInt32($0D1B) then Result := 'BLUE_BIAS' else + if self.val = UInt32($0D1C) then Result := 'ALPHA_SCALE' else + if self.val = UInt32($0D1D) then Result := 'ALPHA_BIAS' else + if self.val = UInt32($0D1E) then Result := 'DEPTH_SCALE' else + if self.val = UInt32($0D1F) then Result := 'DEPTH_BIAS' else + if self.val = UInt32($801C) then Result := 'POST_CONVOLUTION_RED_SCALE' else + if self.val = UInt32($801C) then Result := 'POST_CONVOLUTION_RED_SCALE_EXT' else + if self.val = UInt32($801D) then Result := 'POST_CONVOLUTION_GREEN_SCALE' else + if self.val = UInt32($801D) then Result := 'POST_CONVOLUTION_GREEN_SCALE_EXT' else + if self.val = UInt32($801E) then Result := 'POST_CONVOLUTION_BLUE_SCALE' else + if self.val = UInt32($801E) then Result := 'POST_CONVOLUTION_BLUE_SCALE_EXT' else + if self.val = UInt32($801F) then Result := 'POST_CONVOLUTION_ALPHA_SCALE' else + if self.val = UInt32($801F) then Result := 'POST_CONVOLUTION_ALPHA_SCALE_EXT' else + if self.val = UInt32($8020) then Result := 'POST_CONVOLUTION_RED_BIAS' else + if self.val = UInt32($8020) then Result := 'POST_CONVOLUTION_RED_BIAS_EXT' else + if self.val = UInt32($8021) then Result := 'POST_CONVOLUTION_GREEN_BIAS' else + if self.val = UInt32($8021) then Result := 'POST_CONVOLUTION_GREEN_BIAS_EXT' else + if self.val = UInt32($8022) then Result := 'POST_CONVOLUTION_BLUE_BIAS' else + if self.val = UInt32($8022) then Result := 'POST_CONVOLUTION_BLUE_BIAS_EXT' else + if self.val = UInt32($8023) then Result := 'POST_CONVOLUTION_ALPHA_BIAS' else + if self.val = UInt32($8023) then Result := 'POST_CONVOLUTION_ALPHA_BIAS_EXT' else + if self.val = UInt32($80B4) then Result := 'POST_COLOR_MATRIX_RED_SCALE' else + if self.val = UInt32($80B4) then Result := 'POST_COLOR_MATRIX_RED_SCALE_SGI' else + if self.val = UInt32($80B5) then Result := 'POST_COLOR_MATRIX_GREEN_SCALE' else + if self.val = UInt32($80B5) then Result := 'POST_COLOR_MATRIX_GREEN_SCALE_SGI' else + if self.val = UInt32($80B6) then Result := 'POST_COLOR_MATRIX_BLUE_SCALE' else + if self.val = UInt32($80B6) then Result := 'POST_COLOR_MATRIX_BLUE_SCALE_SGI' else + if self.val = UInt32($80B7) then Result := 'POST_COLOR_MATRIX_ALPHA_SCALE' else + if self.val = UInt32($80B7) then Result := 'POST_COLOR_MATRIX_ALPHA_SCALE_SGI' else + if self.val = UInt32($80B8) then Result := 'POST_COLOR_MATRIX_RED_BIAS' else + if self.val = UInt32($80B8) then Result := 'POST_COLOR_MATRIX_RED_BIAS_SGI' else + if self.val = UInt32($80B9) then Result := 'POST_COLOR_MATRIX_GREEN_BIAS' else + if self.val = UInt32($80B9) then Result := 'POST_COLOR_MATRIX_GREEN_BIAS_SGI' else + if self.val = UInt32($80BA) then Result := 'POST_COLOR_MATRIX_BLUE_BIAS' else + if self.val = UInt32($80BA) then Result := 'POST_COLOR_MATRIX_BLUE_BIAS_SGI' else + if self.val = UInt32($80BB) then Result := 'POST_COLOR_MATRIX_ALPHA_BIAS' else + if self.val = UInt32($80BB) then Result := 'POST_COLOR_MATRIX_ALPHA_BIAS_SGI' else + Result := self.val.ToString; end; end; @@ -7017,10 +9204,25 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($1A00) then Result := 'BITMAP' else + if self.val = UInt32($8032) then Result := 'UNSIGNED_BYTE_3_3_2' else + if self.val = UInt32($8032) then Result := 'UNSIGNED_BYTE_3_3_2_EXT' else + if self.val = UInt32($8033) then Result := 'UNSIGNED_SHORT_4_4_4_4' else + if self.val = UInt32($8033) then Result := 'UNSIGNED_SHORT_4_4_4_4_EXT' else + if self.val = UInt32($8034) then Result := 'UNSIGNED_SHORT_5_5_5_1' else + if self.val = UInt32($8034) then Result := 'UNSIGNED_SHORT_5_5_5_1_EXT' else + if self.val = UInt32($8035) then Result := 'UNSIGNED_INT_8_8_8_8' else + if self.val = UInt32($8035) then Result := 'UNSIGNED_INT_8_8_8_8_EXT' else + if self.val = UInt32($8036) then Result := 'UNSIGNED_INT_10_10_10_2' else + if self.val = UInt32($8036) then Result := 'UNSIGNED_INT_10_10_10_2_EXT' else + Result := self.val.ToString; end; end; @@ -7039,10 +9241,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PolygonMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PolygonMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PolygonMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1B00) then Result := 'POINT' else + if self.val = UInt32($1B01) then Result := 'LINE' else + if self.val = UInt32($1B02) then Result := 'FILL' else + Result := self.val.ToString; end; end; @@ -7067,10 +9269,13 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PrecisionType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PrecisionType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PrecisionType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8DF0) then Result := 'LOW_FLOAT' else + if self.val = UInt32($8DF1) then Result := 'MEDIUM_FLOAT' else + if self.val = UInt32($8DF2) then Result := 'HIGH_FLOAT' else + if self.val = UInt32($8DF3) then Result := 'LOW_INT' else + if self.val = UInt32($8DF4) then Result := 'MEDIUM_INT' else + if self.val = UInt32($8DF5) then Result := 'HIGH_INT' else + Result := self.val.ToString; end; end; @@ -7133,10 +9338,32 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PrimitiveType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PrimitiveType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PrimitiveType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'POINTS' else + if self.val = UInt32($0001) then Result := 'LINES' else + if self.val = UInt32($0002) then Result := 'LINE_LOOP' else + if self.val = UInt32($0003) then Result := 'LINE_STRIP' else + if self.val = UInt32($0004) then Result := 'TRIANGLES' else + if self.val = UInt32($0005) then Result := 'TRIANGLE_STRIP' else + if self.val = UInt32($0006) then Result := 'TRIANGLE_FAN' else + if self.val = UInt32($0007) then Result := 'QUADS' else + if self.val = UInt32($0007) then Result := 'QUADS_EXT' else + if self.val = UInt32($0008) then Result := 'QUAD_STRIP' else + if self.val = UInt32($0009) then Result := 'POLYGON' else + if self.val = UInt32($000A) then Result := 'LINES_ADJACENCY' else + if self.val = UInt32($000A) then Result := 'LINES_ADJACENCY_ARB' else + if self.val = UInt32($000A) then Result := 'LINES_ADJACENCY_EXT' else + if self.val = UInt32($000B) then Result := 'LINE_STRIP_ADJACENCY' else + if self.val = UInt32($000B) then Result := 'LINE_STRIP_ADJACENCY_ARB' else + if self.val = UInt32($000B) then Result := 'LINE_STRIP_ADJACENCY_EXT' else + if self.val = UInt32($000C) then Result := 'TRIANGLES_ADJACENCY' else + if self.val = UInt32($000C) then Result := 'TRIANGLES_ADJACENCY_ARB' else + if self.val = UInt32($000C) then Result := 'TRIANGLES_ADJACENCY_EXT' else + if self.val = UInt32($000D) then Result := 'TRIANGLE_STRIP_ADJACENCY' else + if self.val = UInt32($000D) then Result := 'TRIANGLE_STRIP_ADJACENCY_ARB' else + if self.val = UInt32($000D) then Result := 'TRIANGLE_STRIP_ADJACENCY_EXT' else + if self.val = UInt32($000E) then Result := 'PATCHES' else + if self.val = UInt32($000E) then Result := 'PATCHES_EXT' else + Result := self.val.ToString; end; end; @@ -7151,10 +9378,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramFormat).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramFormat(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramFormat[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8875) then Result := 'PROGRAM_FORMAT_ASCII_ARB' else + Result := self.val.ToString; end; end; @@ -7207,10 +9432,27 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramInterface).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramInterface(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramInterface[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8C8E) then Result := 'TRANSFORM_FEEDBACK_BUFFER' else + if self.val = UInt32($92E1) then Result := 'UNIFORM' else + if self.val = UInt32($92E2) then Result := 'UNIFORM_BLOCK' else + if self.val = UInt32($92E3) then Result := 'PROGRAM_INPUT' else + if self.val = UInt32($92E4) then Result := 'PROGRAM_OUTPUT' else + if self.val = UInt32($92E5) then Result := 'BUFFER_VARIABLE' else + if self.val = UInt32($92E6) then Result := 'SHADER_STORAGE_BLOCK' else + if self.val = UInt32($92E8) then Result := 'VERTEX_SUBROUTINE' else + if self.val = UInt32($92E9) then Result := 'TESS_CONTROL_SUBROUTINE' else + if self.val = UInt32($92EA) then Result := 'TESS_EVALUATION_SUBROUTINE' else + if self.val = UInt32($92EB) then Result := 'GEOMETRY_SUBROUTINE' else + if self.val = UInt32($92EC) then Result := 'FRAGMENT_SUBROUTINE' else + if self.val = UInt32($92ED) then Result := 'COMPUTE_SUBROUTINE' else + if self.val = UInt32($92EE) then Result := 'VERTEX_SUBROUTINE_UNIFORM' else + if self.val = UInt32($92EF) then Result := 'TESS_CONTROL_SUBROUTINE_UNIFORM' else + if self.val = UInt32($92F0) then Result := 'TESS_EVALUATION_SUBROUTINE_UNIFORM' else + if self.val = UInt32($92F1) then Result := 'GEOMETRY_SUBROUTINE_UNIFORM' else + if self.val = UInt32($92F2) then Result := 'FRAGMENT_SUBROUTINE_UNIFORM' else + if self.val = UInt32($92F3) then Result := 'COMPUTE_SUBROUTINE_UNIFORM' else + if self.val = UInt32($92F4) then Result := 'TRANSFORM_FEEDBACK_VARYING' else + Result := self.val.ToString; end; end; @@ -7231,10 +9473,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramInterfacePName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramInterfacePName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramInterfacePName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($92F5) then Result := 'ACTIVE_RESOURCES' else + if self.val = UInt32($92F6) then Result := 'MAX_NAME_LENGTH' else + if self.val = UInt32($92F7) then Result := 'MAX_NUM_ACTIVE_VARIABLES' else + if self.val = UInt32($92F8) then Result := 'MAX_NUM_COMPATIBLE_SUBROUTINES' else + Result := self.val.ToString; end; end; @@ -7251,10 +9494,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramParameterPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramParameterPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramParameterPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8257) then Result := 'PROGRAM_BINARY_RETRIEVABLE_HINT' else + if self.val = UInt32($8258) then Result := 'PROGRAM_SEPARABLE' else + Result := self.val.ToString; end; end; @@ -7327,10 +9569,37 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramResourceProperty).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramResourceProperty(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramResourceProperty[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8E4A) then Result := 'NUM_COMPATIBLE_SUBROUTINES' else + if self.val = UInt32($8E4B) then Result := 'COMPATIBLE_SUBROUTINES' else + if self.val = UInt32($92E1) then Result := 'UNIFORM' else + if self.val = UInt32($92E7) then Result := 'IS_PER_PATCH' else + if self.val = UInt32($92F9) then Result := 'NAME_LENGTH' else + if self.val = UInt32($92FA) then Result := 'TYPE' else + if self.val = UInt32($92FB) then Result := 'ARRAY_SIZE' else + if self.val = UInt32($92FC) then Result := 'OFFSET' else + if self.val = UInt32($92FD) then Result := 'BLOCK_INDEX' else + if self.val = UInt32($92FE) then Result := 'ARRAY_STRIDE' else + if self.val = UInt32($92FF) then Result := 'MATRIX_STRIDE' else + if self.val = UInt32($9300) then Result := 'IS_ROW_MAJOR' else + if self.val = UInt32($9301) then Result := 'ATOMIC_COUNTER_BUFFER_INDEX' else + if self.val = UInt32($9302) then Result := 'BUFFER_BINDING' else + if self.val = UInt32($9303) then Result := 'BUFFER_DATA_SIZE' else + if self.val = UInt32($9304) then Result := 'NUM_ACTIVE_VARIABLES' else + if self.val = UInt32($9305) then Result := 'ACTIVE_VARIABLES' else + if self.val = UInt32($9306) then Result := 'REFERENCED_BY_VERTEX_SHADER' else + if self.val = UInt32($9307) then Result := 'REFERENCED_BY_TESS_CONTROL_SHADER' else + if self.val = UInt32($9308) then Result := 'REFERENCED_BY_TESS_EVALUATION_SHADER' else + if self.val = UInt32($9309) then Result := 'REFERENCED_BY_GEOMETRY_SHADER' else + if self.val = UInt32($930A) then Result := 'REFERENCED_BY_FRAGMENT_SHADER' else + if self.val = UInt32($930B) then Result := 'REFERENCED_BY_COMPUTE_SHADER' else + if self.val = UInt32($930C) then Result := 'TOP_LEVEL_ARRAY_SIZE' else + if self.val = UInt32($930D) then Result := 'TOP_LEVEL_ARRAY_STRIDE' else + if self.val = UInt32($930E) then Result := 'LOCATION' else + if self.val = UInt32($930F) then Result := 'LOCATION_INDEX' else + if self.val = UInt32($934A) then Result := 'LOCATION_COMPONENT' else + if self.val = UInt32($934B) then Result := 'TRANSFORM_FEEDBACK_BUFFER_INDEX' else + if self.val = UInt32($934C) then Result := 'TRANSFORM_FEEDBACK_BUFFER_STRIDE' else + Result := self.val.ToString; end; end; @@ -7353,10 +9622,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramStagePName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramStagePName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramStagePName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8DE5) then Result := 'ACTIVE_SUBROUTINES' else + if self.val = UInt32($8DE6) then Result := 'ACTIVE_SUBROUTINE_UNIFORMS' else + if self.val = UInt32($8E47) then Result := 'ACTIVE_SUBROUTINE_UNIFORM_LOCATIONS' else + if self.val = UInt32($8E48) then Result := 'ACTIVE_SUBROUTINE_MAX_LENGTH' else + if self.val = UInt32($8E49) then Result := 'ACTIVE_SUBROUTINE_UNIFORM_MAX_LENGTH' else + Result := self.val.ToString; end; end; @@ -7371,10 +9642,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramStringProperty).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramStringProperty(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramStringProperty[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8628) then Result := 'PROGRAM_STRING_ARB' else + Result := self.val.ToString; end; end; @@ -7401,10 +9670,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8200) then Result := 'TEXT_FRAGMENT_SHADER_ATI' else + if self.val = UInt32($8620) then Result := 'VERTEX_PROGRAM_ARB' else + if self.val = UInt32($8804) then Result := 'FRAGMENT_PROGRAM_ARB' else + if self.val = UInt32($891E) then Result := 'TESS_CONTROL_PROGRAM_NV' else + if self.val = UInt32($891F) then Result := 'TESS_EVALUATION_PROGRAM_NV' else + if self.val = UInt32($8C26) then Result := 'GEOMETRY_PROGRAM_NV' else + if self.val = UInt32($90FB) then Result := 'COMPUTE_PROGRAM_NV' else + Result := self.val.ToString; end; end; @@ -7419,10 +9692,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(QueryCounterTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->QueryCounterTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'QueryCounterTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8E28) then Result := 'TIMESTAMP' else + Result := self.val.ToString; end; end; @@ -7443,10 +9714,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(QueryObjectParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->QueryObjectParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'QueryObjectParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($82EA) then Result := 'QUERY_TARGET' else + if self.val = UInt32($8866) then Result := 'QUERY_RESULT' else + if self.val = UInt32($8867) then Result := 'QUERY_RESULT_AVAILABLE' else + if self.val = UInt32($9194) then Result := 'QUERY_RESULT_NO_WAIT' else + Result := self.val.ToString; end; end; @@ -7463,10 +9735,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(QueryParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->QueryParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'QueryParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8864) then Result := 'QUERY_COUNTER_BITS' else + if self.val = UInt32($8865) then Result := 'CURRENT_QUERY' else + Result := self.val.ToString; end; end; @@ -7499,10 +9770,17 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(QueryTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->QueryTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'QueryTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($82EC) then Result := 'TRANSFORM_FEEDBACK_OVERFLOW' else + if self.val = UInt32($82EE) then Result := 'VERTICES_SUBMITTED' else + if self.val = UInt32($82EF) then Result := 'PRIMITIVES_SUBMITTED' else + if self.val = UInt32($82F0) then Result := 'VERTEX_SHADER_INVOCATIONS' else + if self.val = UInt32($88BF) then Result := 'TIME_ELAPSED' else + if self.val = UInt32($8914) then Result := 'SAMPLES_PASSED' else + if self.val = UInt32($8C2F) then Result := 'ANY_SAMPLES_PASSED' else + if self.val = UInt32($8C87) then Result := 'PRIMITIVES_GENERATED' else + if self.val = UInt32($8C88) then Result := 'TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN' else + if self.val = UInt32($8D6A) then Result := 'ANY_SAMPLES_PASSED_CONSERVATIVE' else + Result := self.val.ToString; end; end; @@ -7575,10 +9853,37 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ReadBufferMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ReadBufferMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ReadBufferMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NONE' else + if self.val = UInt32($0000) then Result := 'NONE_OES' else + if self.val = UInt32($0400) then Result := 'FRONT_LEFT' else + if self.val = UInt32($0401) then Result := 'FRONT_RIGHT' else + if self.val = UInt32($0402) then Result := 'BACK_LEFT' else + if self.val = UInt32($0403) then Result := 'BACK_RIGHT' else + if self.val = UInt32($0404) then Result := 'FRONT' else + if self.val = UInt32($0405) then Result := 'BACK' else + if self.val = UInt32($0406) then Result := 'LEFT' else + if self.val = UInt32($0407) then Result := 'RIGHT' else + if self.val = UInt32($0409) then Result := 'AUX0' else + if self.val = UInt32($040A) then Result := 'AUX1' else + if self.val = UInt32($040B) then Result := 'AUX2' else + if self.val = UInt32($040C) then Result := 'AUX3' else + if self.val = UInt32($8CE0) then Result := 'COLOR_ATTACHMENT0' else + if self.val = UInt32($8CE1) then Result := 'COLOR_ATTACHMENT1' else + if self.val = UInt32($8CE2) then Result := 'COLOR_ATTACHMENT2' else + if self.val = UInt32($8CE3) then Result := 'COLOR_ATTACHMENT3' else + if self.val = UInt32($8CE4) then Result := 'COLOR_ATTACHMENT4' else + if self.val = UInt32($8CE5) then Result := 'COLOR_ATTACHMENT5' else + if self.val = UInt32($8CE6) then Result := 'COLOR_ATTACHMENT6' else + if self.val = UInt32($8CE7) then Result := 'COLOR_ATTACHMENT7' else + if self.val = UInt32($8CE8) then Result := 'COLOR_ATTACHMENT8' else + if self.val = UInt32($8CE9) then Result := 'COLOR_ATTACHMENT9' else + if self.val = UInt32($8CEA) then Result := 'COLOR_ATTACHMENT10' else + if self.val = UInt32($8CEB) then Result := 'COLOR_ATTACHMENT11' else + if self.val = UInt32($8CEC) then Result := 'COLOR_ATTACHMENT12' else + if self.val = UInt32($8CED) then Result := 'COLOR_ATTACHMENT13' else + if self.val = UInt32($8CEE) then Result := 'COLOR_ATTACHMENT14' else + if self.val = UInt32($8CEF) then Result := 'COLOR_ATTACHMENT15' else + Result := self.val.ToString; end; end; @@ -7663,10 +9968,43 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(RenderbufferParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->RenderbufferParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'RenderbufferParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8CAB) then Result := 'RENDERBUFFER_COVERAGE_SAMPLES_NV' else + if self.val = UInt32($8CAB) then Result := 'RENDERBUFFER_SAMPLES' else + if self.val = UInt32($8CAB) then Result := 'RENDERBUFFER_SAMPLES_ANGLE' else + if self.val = UInt32($8CAB) then Result := 'RENDERBUFFER_SAMPLES_APPLE' else + if self.val = UInt32($8CAB) then Result := 'RENDERBUFFER_SAMPLES_EXT' else + if self.val = UInt32($8CAB) then Result := 'RENDERBUFFER_SAMPLES_NV' else + if self.val = UInt32($8D42) then Result := 'RENDERBUFFER_WIDTH' else + if self.val = UInt32($8D42) then Result := 'RENDERBUFFER_WIDTH_EXT' else + if self.val = UInt32($8D42) then Result := 'RENDERBUFFER_WIDTH_OES' else + if self.val = UInt32($8D43) then Result := 'RENDERBUFFER_HEIGHT' else + if self.val = UInt32($8D43) then Result := 'RENDERBUFFER_HEIGHT_EXT' else + if self.val = UInt32($8D43) then Result := 'RENDERBUFFER_HEIGHT_OES' else + if self.val = UInt32($8D44) then Result := 'RENDERBUFFER_INTERNAL_FORMAT' else + if self.val = UInt32($8D44) then Result := 'RENDERBUFFER_INTERNAL_FORMAT_EXT' else + if self.val = UInt32($8D44) then Result := 'RENDERBUFFER_INTERNAL_FORMAT_OES' else + if self.val = UInt32($8D50) then Result := 'RENDERBUFFER_RED_SIZE' else + if self.val = UInt32($8D50) then Result := 'RENDERBUFFER_RED_SIZE_EXT' else + if self.val = UInt32($8D50) then Result := 'RENDERBUFFER_RED_SIZE_OES' else + if self.val = UInt32($8D51) then Result := 'RENDERBUFFER_GREEN_SIZE' else + if self.val = UInt32($8D51) then Result := 'RENDERBUFFER_GREEN_SIZE_EXT' else + if self.val = UInt32($8D51) then Result := 'RENDERBUFFER_GREEN_SIZE_OES' else + if self.val = UInt32($8D52) then Result := 'RENDERBUFFER_BLUE_SIZE' else + if self.val = UInt32($8D52) then Result := 'RENDERBUFFER_BLUE_SIZE_EXT' else + if self.val = UInt32($8D52) then Result := 'RENDERBUFFER_BLUE_SIZE_OES' else + if self.val = UInt32($8D53) then Result := 'RENDERBUFFER_ALPHA_SIZE' else + if self.val = UInt32($8D53) then Result := 'RENDERBUFFER_ALPHA_SIZE_EXT' else + if self.val = UInt32($8D53) then Result := 'RENDERBUFFER_ALPHA_SIZE_OES' else + if self.val = UInt32($8D54) then Result := 'RENDERBUFFER_DEPTH_SIZE' else + if self.val = UInt32($8D54) then Result := 'RENDERBUFFER_DEPTH_SIZE_EXT' else + if self.val = UInt32($8D54) then Result := 'RENDERBUFFER_DEPTH_SIZE_OES' else + if self.val = UInt32($8D55) then Result := 'RENDERBUFFER_STENCIL_SIZE' else + if self.val = UInt32($8D55) then Result := 'RENDERBUFFER_STENCIL_SIZE_EXT' else + if self.val = UInt32($8D55) then Result := 'RENDERBUFFER_STENCIL_SIZE_OES' else + if self.val = UInt32($8E10) then Result := 'RENDERBUFFER_COLOR_SAMPLES_NV' else + if self.val = UInt32($9133) then Result := 'RENDERBUFFER_SAMPLES_IMG' else + if self.val = UInt32($91B2) then Result := 'RENDERBUFFER_STORAGE_SAMPLES_AMD' else + Result := self.val.ToString; end; end; @@ -7683,10 +10021,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(RenderbufferTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->RenderbufferTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'RenderbufferTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8D41) then Result := 'RENDERBUFFER' else + if self.val = UInt32($8D41) then Result := 'RENDERBUFFER_OES' else + Result := self.val.ToString; end; end; @@ -7705,10 +10042,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(RenderingMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->RenderingMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'RenderingMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1C00) then Result := 'RENDER' else + if self.val = UInt32($1C01) then Result := 'FEEDBACK' else + if self.val = UInt32($1C02) then Result := 'SELECT' else + Result := self.val.ToString; end; end; @@ -7717,22 +10054,26 @@ uses System.Runtime.CompilerServices; public val: UInt32; public constructor(val: UInt32) := self.val := val; - private static _TEXTURE_BORDER_COLOR := new SamplerParameterF($1004); - private static _TEXTURE_MIN_LOD := new SamplerParameterF($813A); - private static _TEXTURE_MAX_LOD := new SamplerParameterF($813B); - private static _TEXTURE_MAX_ANISOTROPY := new SamplerParameterF($84FE); + private static _TEXTURE_BORDER_COLOR := new SamplerParameterF($1004); + private static _TEXTURE_MIN_LOD := new SamplerParameterF($813A); + private static _TEXTURE_MAX_LOD := new SamplerParameterF($813B); + private static _TEXTURE_MAX_ANISOTROPY := new SamplerParameterF($84FE); + private static _TEXTURE_UNNORMALIZED_COORDINATES_ARM := new SamplerParameterF($8F6A); - public static property TEXTURE_BORDER_COLOR: SamplerParameterF read _TEXTURE_BORDER_COLOR; - public static property TEXTURE_MIN_LOD: SamplerParameterF read _TEXTURE_MIN_LOD; - public static property TEXTURE_MAX_LOD: SamplerParameterF read _TEXTURE_MAX_LOD; - public static property TEXTURE_MAX_ANISOTROPY: SamplerParameterF read _TEXTURE_MAX_ANISOTROPY; + public static property TEXTURE_BORDER_COLOR: SamplerParameterF read _TEXTURE_BORDER_COLOR; + public static property TEXTURE_MIN_LOD: SamplerParameterF read _TEXTURE_MIN_LOD; + public static property TEXTURE_MAX_LOD: SamplerParameterF read _TEXTURE_MAX_LOD; + public static property TEXTURE_MAX_ANISOTROPY: SamplerParameterF read _TEXTURE_MAX_ANISOTROPY; + public static property TEXTURE_UNNORMALIZED_COORDINATES_ARM: SamplerParameterF read _TEXTURE_UNNORMALIZED_COORDINATES_ARM; public function ToString: string; override; begin - var res := typeof(SamplerParameterF).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SamplerParameterF(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SamplerParameterF[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1004) then Result := 'TEXTURE_BORDER_COLOR' else + if self.val = UInt32($813A) then Result := 'TEXTURE_MIN_LOD' else + if self.val = UInt32($813B) then Result := 'TEXTURE_MAX_LOD' else + if self.val = UInt32($84FE) then Result := 'TEXTURE_MAX_ANISOTROPY' else + if self.val = UInt32($8F6A) then Result := 'TEXTURE_UNNORMALIZED_COORDINATES_ARM' else + Result := self.val.ToString; end; end; @@ -7741,28 +10082,35 @@ uses System.Runtime.CompilerServices; public val: UInt32; public constructor(val: UInt32) := self.val := val; - private static _TEXTURE_MAG_FILTER := new SamplerParameterI($2800); - private static _TEXTURE_MIN_FILTER := new SamplerParameterI($2801); - private static _TEXTURE_WRAP_S := new SamplerParameterI($2802); - private static _TEXTURE_WRAP_T := new SamplerParameterI($2803); - private static _TEXTURE_WRAP_R := new SamplerParameterI($8072); - private static _TEXTURE_COMPARE_MODE := new SamplerParameterI($884C); - private static _TEXTURE_COMPARE_FUNC := new SamplerParameterI($884D); + private static _TEXTURE_MAG_FILTER := new SamplerParameterI($2800); + private static _TEXTURE_MIN_FILTER := new SamplerParameterI($2801); + private static _TEXTURE_WRAP_S := new SamplerParameterI($2802); + private static _TEXTURE_WRAP_T := new SamplerParameterI($2803); + private static _TEXTURE_WRAP_R := new SamplerParameterI($8072); + private static _TEXTURE_COMPARE_MODE := new SamplerParameterI($884C); + private static _TEXTURE_COMPARE_FUNC := new SamplerParameterI($884D); + private static _TEXTURE_UNNORMALIZED_COORDINATES_ARM := new SamplerParameterI($8F6A); - public static property TEXTURE_MAG_FILTER: SamplerParameterI read _TEXTURE_MAG_FILTER; - public static property TEXTURE_MIN_FILTER: SamplerParameterI read _TEXTURE_MIN_FILTER; - public static property TEXTURE_WRAP_S: SamplerParameterI read _TEXTURE_WRAP_S; - public static property TEXTURE_WRAP_T: SamplerParameterI read _TEXTURE_WRAP_T; - public static property TEXTURE_WRAP_R: SamplerParameterI read _TEXTURE_WRAP_R; - public static property TEXTURE_COMPARE_MODE: SamplerParameterI read _TEXTURE_COMPARE_MODE; - public static property TEXTURE_COMPARE_FUNC: SamplerParameterI read _TEXTURE_COMPARE_FUNC; + public static property TEXTURE_MAG_FILTER: SamplerParameterI read _TEXTURE_MAG_FILTER; + public static property TEXTURE_MIN_FILTER: SamplerParameterI read _TEXTURE_MIN_FILTER; + public static property TEXTURE_WRAP_S: SamplerParameterI read _TEXTURE_WRAP_S; + public static property TEXTURE_WRAP_T: SamplerParameterI read _TEXTURE_WRAP_T; + public static property TEXTURE_WRAP_R: SamplerParameterI read _TEXTURE_WRAP_R; + public static property TEXTURE_COMPARE_MODE: SamplerParameterI read _TEXTURE_COMPARE_MODE; + public static property TEXTURE_COMPARE_FUNC: SamplerParameterI read _TEXTURE_COMPARE_FUNC; + public static property TEXTURE_UNNORMALIZED_COORDINATES_ARM: SamplerParameterI read _TEXTURE_UNNORMALIZED_COORDINATES_ARM; public function ToString: string; override; begin - var res := typeof(SamplerParameterI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SamplerParameterI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SamplerParameterI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2800) then Result := 'TEXTURE_MAG_FILTER' else + if self.val = UInt32($2801) then Result := 'TEXTURE_MIN_FILTER' else + if self.val = UInt32($2802) then Result := 'TEXTURE_WRAP_S' else + if self.val = UInt32($2803) then Result := 'TEXTURE_WRAP_T' else + if self.val = UInt32($8072) then Result := 'TEXTURE_WRAP_R' else + if self.val = UInt32($884C) then Result := 'TEXTURE_COMPARE_MODE' else + if self.val = UInt32($884D) then Result := 'TEXTURE_COMPARE_FUNC' else + if self.val = UInt32($8F6A) then Result := 'TEXTURE_UNNORMALIZED_COORDINATES_ARM' else + Result := self.val.ToString; end; end; @@ -7781,10 +10129,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ScalarType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ScalarType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ScalarType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + Result := self.val.ToString; end; end; @@ -7799,10 +10147,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SemaphoreParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SemaphoreParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SemaphoreParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9595) then Result := 'D3D12_FENCE_VALUE_EXT' else + Result := self.val.ToString; end; end; @@ -7825,10 +10171,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ShaderParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ShaderParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ShaderParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8B4F) then Result := 'SHADER_TYPE' else + if self.val = UInt32($8B80) then Result := 'DELETE_STATUS' else + if self.val = UInt32($8B81) then Result := 'COMPILE_STATUS' else + if self.val = UInt32($8B84) then Result := 'INFO_LOG_LENGTH' else + if self.val = UInt32($8B88) then Result := 'SHADER_SOURCE_LENGTH' else + Result := self.val.ToString; end; end; @@ -7857,10 +10205,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ShaderType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ShaderType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ShaderType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8B30) then Result := 'FRAGMENT_SHADER' else + if self.val = UInt32($8B30) then Result := 'FRAGMENT_SHADER_ARB' else + if self.val = UInt32($8B31) then Result := 'VERTEX_SHADER' else + if self.val = UInt32($8B31) then Result := 'VERTEX_SHADER_ARB' else + if self.val = UInt32($8DD9) then Result := 'GEOMETRY_SHADER' else + if self.val = UInt32($8E87) then Result := 'TESS_EVALUATION_SHADER' else + if self.val = UInt32($8E88) then Result := 'TESS_CONTROL_SHADER' else + if self.val = UInt32($91B9) then Result := 'COMPUTE_SHADER' else + Result := self.val.ToString; end; end; @@ -7877,10 +10230,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ShadingModel).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ShadingModel(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ShadingModel[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1D00) then Result := 'FLAT' else + if self.val = UInt32($1D01) then Result := 'SMOOTH' else + Result := self.val.ToString; end; end; @@ -7899,10 +10251,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(StencilFaceDirection).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->StencilFaceDirection(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'StencilFaceDirection[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0404) then Result := 'FRONT' else + if self.val = UInt32($0405) then Result := 'BACK' else + if self.val = UInt32($0408) then Result := 'FRONT_AND_BACK' else + Result := self.val.ToString; end; end; @@ -7931,10 +10283,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(StencilFunction).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->StencilFunction(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'StencilFunction[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0200) then Result := 'NEVER' else + if self.val = UInt32($0201) then Result := 'LESS' else + if self.val = UInt32($0202) then Result := 'EQUAL' else + if self.val = UInt32($0203) then Result := 'LEQUAL' else + if self.val = UInt32($0204) then Result := 'GREATER' else + if self.val = UInt32($0205) then Result := 'NOTEQUAL' else + if self.val = UInt32($0206) then Result := 'GEQUAL' else + if self.val = UInt32($0207) then Result := 'ALWAYS' else + Result := self.val.ToString; end; end; @@ -7963,10 +10320,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(StencilOp).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->StencilOp(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'StencilOp[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'ZERO' else + if self.val = UInt32($150A) then Result := 'INVERT' else + if self.val = UInt32($1E00) then Result := 'KEEP' else + if self.val = UInt32($1E01) then Result := 'REPLACE' else + if self.val = UInt32($1E02) then Result := 'INCR' else + if self.val = UInt32($1E03) then Result := 'DECR' else + if self.val = UInt32($8507) then Result := 'INCR_WRAP' else + if self.val = UInt32($8508) then Result := 'DECR_WRAP' else + Result := self.val.ToString; end; end; @@ -7989,10 +10351,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(StringName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->StringName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'StringName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1F00) then Result := 'VENDOR' else + if self.val = UInt32($1F01) then Result := 'RENDERER' else + if self.val = UInt32($1F02) then Result := 'VERSION' else + if self.val = UInt32($1F03) then Result := 'EXTENSIONS' else + if self.val = UInt32($8B8C) then Result := 'SHADING_LANGUAGE_VERSION' else + Result := self.val.ToString; end; end; @@ -8013,10 +10377,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SubroutineParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SubroutineParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SubroutineParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8A38) then Result := 'UNIFORM_SIZE' else + if self.val = UInt32($8A39) then Result := 'UNIFORM_NAME_LENGTH' else + if self.val = UInt32($8E4A) then Result := 'NUM_COMPATIBLE_SUBROUTINES' else + if self.val = UInt32($8E4B) then Result := 'COMPATIBLE_SUBROUTINES' else + Result := self.val.ToString; end; end; @@ -8031,10 +10396,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SyncCondition).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SyncCondition(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SyncCondition[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9117) then Result := 'SYNC_GPU_COMMANDS_COMPLETE' else + Result := self.val.ToString; end; end; @@ -8056,10 +10419,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SyncObjectMask).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'SyncObjectMask[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'SYNC_FLUSH_COMMANDS_BIT+'; + if self.val and UInt32($0001) = UInt32($0001) then res += 'SYNC_FLUSH_COMMANDS_BIT_APPLE+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -8080,10 +10448,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SyncParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SyncParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SyncParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9112) then Result := 'OBJECT_TYPE' else + if self.val = UInt32($9113) then Result := 'SYNC_CONDITION' else + if self.val = UInt32($9114) then Result := 'SYNC_STATUS' else + if self.val = UInt32($9115) then Result := 'SYNC_FLAGS' else + Result := self.val.ToString; end; end; @@ -8104,10 +10473,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SyncStatus).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SyncStatus(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SyncStatus[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($911A) then Result := 'ALREADY_SIGNALED' else + if self.val = UInt32($911B) then Result := 'TIMEOUT_EXPIRED' else + if self.val = UInt32($911C) then Result := 'CONDITION_SATISFIED' else + if self.val = UInt32($911D) then Result := 'WAIT_FAILED' else + Result := self.val.ToString; end; end; @@ -8128,10 +10498,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TexCoordPointerType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TexCoordPointerType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TexCoordPointerType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -8152,10 +10523,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureCoordName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureCoordName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureCoordName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2000) then Result := 'S' else + if self.val = UInt32($2001) then Result := 'T' else + if self.val = UInt32($2002) then Result := 'R' else + if self.val = UInt32($2003) then Result := 'Q' else + Result := self.val.ToString; end; end; @@ -8172,10 +10544,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureEnvParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureEnvParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureEnvParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2200) then Result := 'TEXTURE_ENV_MODE' else + if self.val = UInt32($2201) then Result := 'TEXTURE_ENV_COLOR' else + Result := self.val.ToString; end; end; @@ -8190,10 +10561,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureEnvTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureEnvTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureEnvTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2300) then Result := 'TEXTURE_ENV' else + Result := self.val.ToString; end; end; @@ -8220,10 +10589,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureGenParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureGenParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureGenParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($2500) then Result := 'TEXTURE_GEN_MODE' else + if self.val = UInt32($2501) then Result := 'OBJECT_PLANE' else + if self.val = UInt32($2502) then Result := 'EYE_PLANE' else + if self.val = UInt32($81F4) then Result := 'EYE_POINT_SGIS' else + if self.val = UInt32($81F5) then Result := 'OBJECT_POINT_SGIS' else + if self.val = UInt32($81F6) then Result := 'EYE_LINE_SGIS' else + if self.val = UInt32($81F7) then Result := 'OBJECT_LINE_SGIS' else + Result := self.val.ToString; end; end; @@ -8254,10 +10627,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureLayout).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureLayout(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureLayout[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($9530) then Result := 'LAYOUT_DEPTH_READ_ONLY_STENCIL_ATTACHMENT_EXT' else + if self.val = UInt32($9531) then Result := 'LAYOUT_DEPTH_ATTACHMENT_STENCIL_READ_ONLY_EXT' else + if self.val = UInt32($958D) then Result := 'LAYOUT_GENERAL_EXT' else + if self.val = UInt32($958E) then Result := 'LAYOUT_COLOR_ATTACHMENT_EXT' else + if self.val = UInt32($958F) then Result := 'LAYOUT_DEPTH_STENCIL_ATTACHMENT_EXT' else + if self.val = UInt32($9590) then Result := 'LAYOUT_DEPTH_STENCIL_READ_ONLY_EXT' else + if self.val = UInt32($9591) then Result := 'LAYOUT_SHADER_READ_ONLY_EXT' else + if self.val = UInt32($9592) then Result := 'LAYOUT_TRANSFER_SRC_EXT' else + if self.val = UInt32($9593) then Result := 'LAYOUT_TRANSFER_DST_EXT' else + Result := self.val.ToString; end; end; @@ -8266,158 +10645,230 @@ uses System.Runtime.CompilerServices; public val: UInt32; public constructor(val: UInt32) := self.val := val; - private static _TEXTURE_WIDTH := new TextureParameterName($1000); - private static _TEXTURE_HEIGHT := new TextureParameterName($1001); - private static _TEXTURE_COMPONENTS := new TextureParameterName($1003); - private static _TEXTURE_INTERNAL_FORMAT := new TextureParameterName($1003); - private static _TEXTURE_BORDER_COLOR := new TextureParameterName($1004); - private static _TEXTURE_BORDER_COLOR_NV := new TextureParameterName($1004); - private static _TEXTURE_BORDER := new TextureParameterName($1005); - private static _TEXTURE_MAG_FILTER := new TextureParameterName($2800); - private static _TEXTURE_MIN_FILTER := new TextureParameterName($2801); - private static _TEXTURE_WRAP_S := new TextureParameterName($2802); - private static _TEXTURE_WRAP_T := new TextureParameterName($2803); - private static _TEXTURE_RED_SIZE := new TextureParameterName($805C); - private static _TEXTURE_GREEN_SIZE := new TextureParameterName($805D); - private static _TEXTURE_BLUE_SIZE := new TextureParameterName($805E); - private static _TEXTURE_ALPHA_SIZE := new TextureParameterName($805F); - private static _TEXTURE_LUMINANCE_SIZE := new TextureParameterName($8060); - private static _TEXTURE_INTENSITY_SIZE := new TextureParameterName($8061); - private static _TEXTURE_PRIORITY := new TextureParameterName($8066); - private static _TEXTURE_PRIORITY_EXT := new TextureParameterName($8066); - private static _TEXTURE_RESIDENT := new TextureParameterName($8067); - private static _TEXTURE_DEPTH_EXT := new TextureParameterName($8071); - private static _TEXTURE_WRAP_R := new TextureParameterName($8072); - private static _TEXTURE_WRAP_R_EXT := new TextureParameterName($8072); - private static _TEXTURE_WRAP_R_OES := new TextureParameterName($8072); - private static _DETAIL_TEXTURE_LEVEL_SGIS := new TextureParameterName($809A); - private static _DETAIL_TEXTURE_MODE_SGIS := new TextureParameterName($809B); - private static _DETAIL_TEXTURE_FUNC_POINTS_SGIS := new TextureParameterName($809C); - private static _SHARPEN_TEXTURE_FUNC_POINTS_SGIS := new TextureParameterName($80B0); - private static _SHADOW_AMBIENT_SGIX := new TextureParameterName($80BF); - private static _DUAL_TEXTURE_SELECT_SGIS := new TextureParameterName($8124); - private static _QUAD_TEXTURE_SELECT_SGIS := new TextureParameterName($8125); - private static _TEXTURE_4DSIZE_SGIS := new TextureParameterName($8136); - private static _TEXTURE_WRAP_Q_SGIS := new TextureParameterName($8137); - private static _TEXTURE_MIN_LOD := new TextureParameterName($813A); - private static _TEXTURE_MIN_LOD_SGIS := new TextureParameterName($813A); - private static _TEXTURE_MAX_LOD := new TextureParameterName($813B); - private static _TEXTURE_MAX_LOD_SGIS := new TextureParameterName($813B); - private static _TEXTURE_BASE_LEVEL := new TextureParameterName($813C); - private static _TEXTURE_BASE_LEVEL_SGIS := new TextureParameterName($813C); - private static _TEXTURE_MAX_LEVEL := new TextureParameterName($813D); - private static _TEXTURE_MAX_LEVEL_SGIS := new TextureParameterName($813D); - private static _TEXTURE_FILTER4_SIZE_SGIS := new TextureParameterName($8147); - private static _TEXTURE_CLIPMAP_CENTER_SGIX := new TextureParameterName($8171); - private static _TEXTURE_CLIPMAP_FRAME_SGIX := new TextureParameterName($8172); - private static _TEXTURE_CLIPMAP_OFFSET_SGIX := new TextureParameterName($8173); - private static _TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX := new TextureParameterName($8174); - private static _TEXTURE_CLIPMAP_LOD_OFFSET_SGIX := new TextureParameterName($8175); - private static _TEXTURE_CLIPMAP_DEPTH_SGIX := new TextureParameterName($8176); - private static _POST_TEXTURE_FILTER_BIAS_SGIX := new TextureParameterName($8179); - private static _POST_TEXTURE_FILTER_SCALE_SGIX := new TextureParameterName($817A); - private static _TEXTURE_LOD_BIAS_S_SGIX := new TextureParameterName($818E); - private static _TEXTURE_LOD_BIAS_T_SGIX := new TextureParameterName($818F); - private static _TEXTURE_LOD_BIAS_R_SGIX := new TextureParameterName($8190); - private static _GENERATE_MIPMAP := new TextureParameterName($8191); - private static _GENERATE_MIPMAP_SGIS := new TextureParameterName($8191); - private static _TEXTURE_COMPARE_SGIX := new TextureParameterName($819A); - private static _TEXTURE_COMPARE_OPERATOR_SGIX := new TextureParameterName($819B); - private static _TEXTURE_LEQUAL_R_SGIX := new TextureParameterName($819C); - private static _TEXTURE_GEQUAL_R_SGIX := new TextureParameterName($819D); - private static _TEXTURE_MAX_CLAMP_S_SGIX := new TextureParameterName($8369); - private static _TEXTURE_MAX_CLAMP_T_SGIX := new TextureParameterName($836A); - private static _TEXTURE_MAX_CLAMP_R_SGIX := new TextureParameterName($836B); - private static _TEXTURE_LOD_BIAS := new TextureParameterName($8501); - private static _TEXTURE_COMPARE_MODE := new TextureParameterName($884C); - private static _TEXTURE_COMPARE_FUNC := new TextureParameterName($884D); - private static _TEXTURE_SWIZZLE_R := new TextureParameterName($8E42); - private static _TEXTURE_SWIZZLE_G := new TextureParameterName($8E43); - private static _TEXTURE_SWIZZLE_B := new TextureParameterName($8E44); - private static _TEXTURE_SWIZZLE_A := new TextureParameterName($8E45); - private static _TEXTURE_SWIZZLE_RGBA := new TextureParameterName($8E46); - private static _DEPTH_STENCIL_TEXTURE_MODE := new TextureParameterName($90EA); - private static _TEXTURE_TILING_EXT := new TextureParameterName($9580); + private static _TEXTURE_WIDTH := new TextureParameterName($1000); + private static _TEXTURE_HEIGHT := new TextureParameterName($1001); + private static _TEXTURE_COMPONENTS := new TextureParameterName($1003); + private static _TEXTURE_INTERNAL_FORMAT := new TextureParameterName($1003); + private static _TEXTURE_BORDER_COLOR := new TextureParameterName($1004); + private static _TEXTURE_BORDER_COLOR_NV := new TextureParameterName($1004); + private static _TEXTURE_BORDER := new TextureParameterName($1005); + private static _TEXTURE_MAG_FILTER := new TextureParameterName($2800); + private static _TEXTURE_MIN_FILTER := new TextureParameterName($2801); + private static _TEXTURE_WRAP_S := new TextureParameterName($2802); + private static _TEXTURE_WRAP_T := new TextureParameterName($2803); + private static _TEXTURE_RED_SIZE := new TextureParameterName($805C); + private static _TEXTURE_GREEN_SIZE := new TextureParameterName($805D); + private static _TEXTURE_BLUE_SIZE := new TextureParameterName($805E); + private static _TEXTURE_ALPHA_SIZE := new TextureParameterName($805F); + private static _TEXTURE_LUMINANCE_SIZE := new TextureParameterName($8060); + private static _TEXTURE_INTENSITY_SIZE := new TextureParameterName($8061); + private static _TEXTURE_PRIORITY := new TextureParameterName($8066); + private static _TEXTURE_PRIORITY_EXT := new TextureParameterName($8066); + private static _TEXTURE_RESIDENT := new TextureParameterName($8067); + private static _TEXTURE_DEPTH_EXT := new TextureParameterName($8071); + private static _TEXTURE_WRAP_R := new TextureParameterName($8072); + private static _TEXTURE_WRAP_R_EXT := new TextureParameterName($8072); + private static _TEXTURE_WRAP_R_OES := new TextureParameterName($8072); + private static _DETAIL_TEXTURE_LEVEL_SGIS := new TextureParameterName($809A); + private static _DETAIL_TEXTURE_MODE_SGIS := new TextureParameterName($809B); + private static _DETAIL_TEXTURE_FUNC_POINTS_SGIS := new TextureParameterName($809C); + private static _SHARPEN_TEXTURE_FUNC_POINTS_SGIS := new TextureParameterName($80B0); + private static _SHADOW_AMBIENT_SGIX := new TextureParameterName($80BF); + private static _DUAL_TEXTURE_SELECT_SGIS := new TextureParameterName($8124); + private static _QUAD_TEXTURE_SELECT_SGIS := new TextureParameterName($8125); + private static _TEXTURE_4DSIZE_SGIS := new TextureParameterName($8136); + private static _TEXTURE_WRAP_Q_SGIS := new TextureParameterName($8137); + private static _TEXTURE_MIN_LOD := new TextureParameterName($813A); + private static _TEXTURE_MIN_LOD_SGIS := new TextureParameterName($813A); + private static _TEXTURE_MAX_LOD := new TextureParameterName($813B); + private static _TEXTURE_MAX_LOD_SGIS := new TextureParameterName($813B); + private static _TEXTURE_BASE_LEVEL := new TextureParameterName($813C); + private static _TEXTURE_BASE_LEVEL_SGIS := new TextureParameterName($813C); + private static _TEXTURE_MAX_LEVEL := new TextureParameterName($813D); + private static _TEXTURE_MAX_LEVEL_SGIS := new TextureParameterName($813D); + private static _TEXTURE_FILTER4_SIZE_SGIS := new TextureParameterName($8147); + private static _TEXTURE_CLIPMAP_CENTER_SGIX := new TextureParameterName($8171); + private static _TEXTURE_CLIPMAP_FRAME_SGIX := new TextureParameterName($8172); + private static _TEXTURE_CLIPMAP_OFFSET_SGIX := new TextureParameterName($8173); + private static _TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX := new TextureParameterName($8174); + private static _TEXTURE_CLIPMAP_LOD_OFFSET_SGIX := new TextureParameterName($8175); + private static _TEXTURE_CLIPMAP_DEPTH_SGIX := new TextureParameterName($8176); + private static _POST_TEXTURE_FILTER_BIAS_SGIX := new TextureParameterName($8179); + private static _POST_TEXTURE_FILTER_SCALE_SGIX := new TextureParameterName($817A); + private static _TEXTURE_LOD_BIAS_S_SGIX := new TextureParameterName($818E); + private static _TEXTURE_LOD_BIAS_T_SGIX := new TextureParameterName($818F); + private static _TEXTURE_LOD_BIAS_R_SGIX := new TextureParameterName($8190); + private static _GENERATE_MIPMAP := new TextureParameterName($8191); + private static _GENERATE_MIPMAP_SGIS := new TextureParameterName($8191); + private static _TEXTURE_COMPARE_SGIX := new TextureParameterName($819A); + private static _TEXTURE_COMPARE_OPERATOR_SGIX := new TextureParameterName($819B); + private static _TEXTURE_LEQUAL_R_SGIX := new TextureParameterName($819C); + private static _TEXTURE_GEQUAL_R_SGIX := new TextureParameterName($819D); + private static _TEXTURE_MAX_CLAMP_S_SGIX := new TextureParameterName($8369); + private static _TEXTURE_MAX_CLAMP_T_SGIX := new TextureParameterName($836A); + private static _TEXTURE_MAX_CLAMP_R_SGIX := new TextureParameterName($836B); + private static _TEXTURE_LOD_BIAS := new TextureParameterName($8501); + private static _TEXTURE_COMPARE_MODE := new TextureParameterName($884C); + private static _TEXTURE_COMPARE_FUNC := new TextureParameterName($884D); + private static _TEXTURE_SWIZZLE_R := new TextureParameterName($8E42); + private static _TEXTURE_SWIZZLE_G := new TextureParameterName($8E43); + private static _TEXTURE_SWIZZLE_B := new TextureParameterName($8E44); + private static _TEXTURE_SWIZZLE_A := new TextureParameterName($8E45); + private static _TEXTURE_SWIZZLE_RGBA := new TextureParameterName($8E46); + private static _TEXTURE_UNNORMALIZED_COORDINATES_ARM := new TextureParameterName($8F6A); + private static _DEPTH_STENCIL_TEXTURE_MODE := new TextureParameterName($90EA); + private static _TEXTURE_TILING_EXT := new TextureParameterName($9580); - public static property TEXTURE_WIDTH: TextureParameterName read _TEXTURE_WIDTH; - public static property TEXTURE_HEIGHT: TextureParameterName read _TEXTURE_HEIGHT; - public static property TEXTURE_COMPONENTS: TextureParameterName read _TEXTURE_COMPONENTS; - public static property TEXTURE_INTERNAL_FORMAT: TextureParameterName read _TEXTURE_INTERNAL_FORMAT; - public static property TEXTURE_BORDER_COLOR: TextureParameterName read _TEXTURE_BORDER_COLOR; - public static property TEXTURE_BORDER_COLOR_NV: TextureParameterName read _TEXTURE_BORDER_COLOR_NV; - public static property TEXTURE_BORDER: TextureParameterName read _TEXTURE_BORDER; - public static property TEXTURE_MAG_FILTER: TextureParameterName read _TEXTURE_MAG_FILTER; - public static property TEXTURE_MIN_FILTER: TextureParameterName read _TEXTURE_MIN_FILTER; - public static property TEXTURE_WRAP_S: TextureParameterName read _TEXTURE_WRAP_S; - public static property TEXTURE_WRAP_T: TextureParameterName read _TEXTURE_WRAP_T; - public static property TEXTURE_RED_SIZE: TextureParameterName read _TEXTURE_RED_SIZE; - public static property TEXTURE_GREEN_SIZE: TextureParameterName read _TEXTURE_GREEN_SIZE; - public static property TEXTURE_BLUE_SIZE: TextureParameterName read _TEXTURE_BLUE_SIZE; - public static property TEXTURE_ALPHA_SIZE: TextureParameterName read _TEXTURE_ALPHA_SIZE; - public static property TEXTURE_LUMINANCE_SIZE: TextureParameterName read _TEXTURE_LUMINANCE_SIZE; - public static property TEXTURE_INTENSITY_SIZE: TextureParameterName read _TEXTURE_INTENSITY_SIZE; - public static property TEXTURE_PRIORITY: TextureParameterName read _TEXTURE_PRIORITY; - public static property TEXTURE_PRIORITY_EXT: TextureParameterName read _TEXTURE_PRIORITY_EXT; - public static property TEXTURE_RESIDENT: TextureParameterName read _TEXTURE_RESIDENT; - public static property TEXTURE_DEPTH_EXT: TextureParameterName read _TEXTURE_DEPTH_EXT; - public static property TEXTURE_WRAP_R: TextureParameterName read _TEXTURE_WRAP_R; - public static property TEXTURE_WRAP_R_EXT: TextureParameterName read _TEXTURE_WRAP_R_EXT; - public static property TEXTURE_WRAP_R_OES: TextureParameterName read _TEXTURE_WRAP_R_OES; - public static property DETAIL_TEXTURE_LEVEL_SGIS: TextureParameterName read _DETAIL_TEXTURE_LEVEL_SGIS; - public static property DETAIL_TEXTURE_MODE_SGIS: TextureParameterName read _DETAIL_TEXTURE_MODE_SGIS; - public static property DETAIL_TEXTURE_FUNC_POINTS_SGIS: TextureParameterName read _DETAIL_TEXTURE_FUNC_POINTS_SGIS; - public static property SHARPEN_TEXTURE_FUNC_POINTS_SGIS: TextureParameterName read _SHARPEN_TEXTURE_FUNC_POINTS_SGIS; - public static property SHADOW_AMBIENT_SGIX: TextureParameterName read _SHADOW_AMBIENT_SGIX; - public static property DUAL_TEXTURE_SELECT_SGIS: TextureParameterName read _DUAL_TEXTURE_SELECT_SGIS; - public static property QUAD_TEXTURE_SELECT_SGIS: TextureParameterName read _QUAD_TEXTURE_SELECT_SGIS; - public static property TEXTURE_4DSIZE_SGIS: TextureParameterName read _TEXTURE_4DSIZE_SGIS; - public static property TEXTURE_WRAP_Q_SGIS: TextureParameterName read _TEXTURE_WRAP_Q_SGIS; - public static property TEXTURE_MIN_LOD: TextureParameterName read _TEXTURE_MIN_LOD; - public static property TEXTURE_MIN_LOD_SGIS: TextureParameterName read _TEXTURE_MIN_LOD_SGIS; - public static property TEXTURE_MAX_LOD: TextureParameterName read _TEXTURE_MAX_LOD; - public static property TEXTURE_MAX_LOD_SGIS: TextureParameterName read _TEXTURE_MAX_LOD_SGIS; - public static property TEXTURE_BASE_LEVEL: TextureParameterName read _TEXTURE_BASE_LEVEL; - public static property TEXTURE_BASE_LEVEL_SGIS: TextureParameterName read _TEXTURE_BASE_LEVEL_SGIS; - public static property TEXTURE_MAX_LEVEL: TextureParameterName read _TEXTURE_MAX_LEVEL; - public static property TEXTURE_MAX_LEVEL_SGIS: TextureParameterName read _TEXTURE_MAX_LEVEL_SGIS; - public static property TEXTURE_FILTER4_SIZE_SGIS: TextureParameterName read _TEXTURE_FILTER4_SIZE_SGIS; - public static property TEXTURE_CLIPMAP_CENTER_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_CENTER_SGIX; - public static property TEXTURE_CLIPMAP_FRAME_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_FRAME_SGIX; - public static property TEXTURE_CLIPMAP_OFFSET_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_OFFSET_SGIX; - public static property TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX; - public static property TEXTURE_CLIPMAP_LOD_OFFSET_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_LOD_OFFSET_SGIX; - public static property TEXTURE_CLIPMAP_DEPTH_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_DEPTH_SGIX; - public static property POST_TEXTURE_FILTER_BIAS_SGIX: TextureParameterName read _POST_TEXTURE_FILTER_BIAS_SGIX; - public static property POST_TEXTURE_FILTER_SCALE_SGIX: TextureParameterName read _POST_TEXTURE_FILTER_SCALE_SGIX; - public static property TEXTURE_LOD_BIAS_S_SGIX: TextureParameterName read _TEXTURE_LOD_BIAS_S_SGIX; - public static property TEXTURE_LOD_BIAS_T_SGIX: TextureParameterName read _TEXTURE_LOD_BIAS_T_SGIX; - public static property TEXTURE_LOD_BIAS_R_SGIX: TextureParameterName read _TEXTURE_LOD_BIAS_R_SGIX; - public static property GENERATE_MIPMAP: TextureParameterName read _GENERATE_MIPMAP; - public static property GENERATE_MIPMAP_SGIS: TextureParameterName read _GENERATE_MIPMAP_SGIS; - public static property TEXTURE_COMPARE_SGIX: TextureParameterName read _TEXTURE_COMPARE_SGIX; - public static property TEXTURE_COMPARE_OPERATOR_SGIX: TextureParameterName read _TEXTURE_COMPARE_OPERATOR_SGIX; - public static property TEXTURE_LEQUAL_R_SGIX: TextureParameterName read _TEXTURE_LEQUAL_R_SGIX; - public static property TEXTURE_GEQUAL_R_SGIX: TextureParameterName read _TEXTURE_GEQUAL_R_SGIX; - public static property TEXTURE_MAX_CLAMP_S_SGIX: TextureParameterName read _TEXTURE_MAX_CLAMP_S_SGIX; - public static property TEXTURE_MAX_CLAMP_T_SGIX: TextureParameterName read _TEXTURE_MAX_CLAMP_T_SGIX; - public static property TEXTURE_MAX_CLAMP_R_SGIX: TextureParameterName read _TEXTURE_MAX_CLAMP_R_SGIX; - public static property TEXTURE_LOD_BIAS: TextureParameterName read _TEXTURE_LOD_BIAS; - public static property TEXTURE_COMPARE_MODE: TextureParameterName read _TEXTURE_COMPARE_MODE; - public static property TEXTURE_COMPARE_FUNC: TextureParameterName read _TEXTURE_COMPARE_FUNC; - public static property TEXTURE_SWIZZLE_R: TextureParameterName read _TEXTURE_SWIZZLE_R; - public static property TEXTURE_SWIZZLE_G: TextureParameterName read _TEXTURE_SWIZZLE_G; - public static property TEXTURE_SWIZZLE_B: TextureParameterName read _TEXTURE_SWIZZLE_B; - public static property TEXTURE_SWIZZLE_A: TextureParameterName read _TEXTURE_SWIZZLE_A; - public static property TEXTURE_SWIZZLE_RGBA: TextureParameterName read _TEXTURE_SWIZZLE_RGBA; - public static property DEPTH_STENCIL_TEXTURE_MODE: TextureParameterName read _DEPTH_STENCIL_TEXTURE_MODE; - public static property TEXTURE_TILING_EXT: TextureParameterName read _TEXTURE_TILING_EXT; + public static property TEXTURE_WIDTH: TextureParameterName read _TEXTURE_WIDTH; + public static property TEXTURE_HEIGHT: TextureParameterName read _TEXTURE_HEIGHT; + public static property TEXTURE_COMPONENTS: TextureParameterName read _TEXTURE_COMPONENTS; + public static property TEXTURE_INTERNAL_FORMAT: TextureParameterName read _TEXTURE_INTERNAL_FORMAT; + public static property TEXTURE_BORDER_COLOR: TextureParameterName read _TEXTURE_BORDER_COLOR; + public static property TEXTURE_BORDER_COLOR_NV: TextureParameterName read _TEXTURE_BORDER_COLOR_NV; + public static property TEXTURE_BORDER: TextureParameterName read _TEXTURE_BORDER; + public static property TEXTURE_MAG_FILTER: TextureParameterName read _TEXTURE_MAG_FILTER; + public static property TEXTURE_MIN_FILTER: TextureParameterName read _TEXTURE_MIN_FILTER; + public static property TEXTURE_WRAP_S: TextureParameterName read _TEXTURE_WRAP_S; + public static property TEXTURE_WRAP_T: TextureParameterName read _TEXTURE_WRAP_T; + public static property TEXTURE_RED_SIZE: TextureParameterName read _TEXTURE_RED_SIZE; + public static property TEXTURE_GREEN_SIZE: TextureParameterName read _TEXTURE_GREEN_SIZE; + public static property TEXTURE_BLUE_SIZE: TextureParameterName read _TEXTURE_BLUE_SIZE; + public static property TEXTURE_ALPHA_SIZE: TextureParameterName read _TEXTURE_ALPHA_SIZE; + public static property TEXTURE_LUMINANCE_SIZE: TextureParameterName read _TEXTURE_LUMINANCE_SIZE; + public static property TEXTURE_INTENSITY_SIZE: TextureParameterName read _TEXTURE_INTENSITY_SIZE; + public static property TEXTURE_PRIORITY: TextureParameterName read _TEXTURE_PRIORITY; + public static property TEXTURE_PRIORITY_EXT: TextureParameterName read _TEXTURE_PRIORITY_EXT; + public static property TEXTURE_RESIDENT: TextureParameterName read _TEXTURE_RESIDENT; + public static property TEXTURE_DEPTH_EXT: TextureParameterName read _TEXTURE_DEPTH_EXT; + public static property TEXTURE_WRAP_R: TextureParameterName read _TEXTURE_WRAP_R; + public static property TEXTURE_WRAP_R_EXT: TextureParameterName read _TEXTURE_WRAP_R_EXT; + public static property TEXTURE_WRAP_R_OES: TextureParameterName read _TEXTURE_WRAP_R_OES; + public static property DETAIL_TEXTURE_LEVEL_SGIS: TextureParameterName read _DETAIL_TEXTURE_LEVEL_SGIS; + public static property DETAIL_TEXTURE_MODE_SGIS: TextureParameterName read _DETAIL_TEXTURE_MODE_SGIS; + public static property DETAIL_TEXTURE_FUNC_POINTS_SGIS: TextureParameterName read _DETAIL_TEXTURE_FUNC_POINTS_SGIS; + public static property SHARPEN_TEXTURE_FUNC_POINTS_SGIS: TextureParameterName read _SHARPEN_TEXTURE_FUNC_POINTS_SGIS; + public static property SHADOW_AMBIENT_SGIX: TextureParameterName read _SHADOW_AMBIENT_SGIX; + public static property DUAL_TEXTURE_SELECT_SGIS: TextureParameterName read _DUAL_TEXTURE_SELECT_SGIS; + public static property QUAD_TEXTURE_SELECT_SGIS: TextureParameterName read _QUAD_TEXTURE_SELECT_SGIS; + public static property TEXTURE_4DSIZE_SGIS: TextureParameterName read _TEXTURE_4DSIZE_SGIS; + public static property TEXTURE_WRAP_Q_SGIS: TextureParameterName read _TEXTURE_WRAP_Q_SGIS; + public static property TEXTURE_MIN_LOD: TextureParameterName read _TEXTURE_MIN_LOD; + public static property TEXTURE_MIN_LOD_SGIS: TextureParameterName read _TEXTURE_MIN_LOD_SGIS; + public static property TEXTURE_MAX_LOD: TextureParameterName read _TEXTURE_MAX_LOD; + public static property TEXTURE_MAX_LOD_SGIS: TextureParameterName read _TEXTURE_MAX_LOD_SGIS; + public static property TEXTURE_BASE_LEVEL: TextureParameterName read _TEXTURE_BASE_LEVEL; + public static property TEXTURE_BASE_LEVEL_SGIS: TextureParameterName read _TEXTURE_BASE_LEVEL_SGIS; + public static property TEXTURE_MAX_LEVEL: TextureParameterName read _TEXTURE_MAX_LEVEL; + public static property TEXTURE_MAX_LEVEL_SGIS: TextureParameterName read _TEXTURE_MAX_LEVEL_SGIS; + public static property TEXTURE_FILTER4_SIZE_SGIS: TextureParameterName read _TEXTURE_FILTER4_SIZE_SGIS; + public static property TEXTURE_CLIPMAP_CENTER_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_CENTER_SGIX; + public static property TEXTURE_CLIPMAP_FRAME_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_FRAME_SGIX; + public static property TEXTURE_CLIPMAP_OFFSET_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_OFFSET_SGIX; + public static property TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX; + public static property TEXTURE_CLIPMAP_LOD_OFFSET_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_LOD_OFFSET_SGIX; + public static property TEXTURE_CLIPMAP_DEPTH_SGIX: TextureParameterName read _TEXTURE_CLIPMAP_DEPTH_SGIX; + public static property POST_TEXTURE_FILTER_BIAS_SGIX: TextureParameterName read _POST_TEXTURE_FILTER_BIAS_SGIX; + public static property POST_TEXTURE_FILTER_SCALE_SGIX: TextureParameterName read _POST_TEXTURE_FILTER_SCALE_SGIX; + public static property TEXTURE_LOD_BIAS_S_SGIX: TextureParameterName read _TEXTURE_LOD_BIAS_S_SGIX; + public static property TEXTURE_LOD_BIAS_T_SGIX: TextureParameterName read _TEXTURE_LOD_BIAS_T_SGIX; + public static property TEXTURE_LOD_BIAS_R_SGIX: TextureParameterName read _TEXTURE_LOD_BIAS_R_SGIX; + public static property GENERATE_MIPMAP: TextureParameterName read _GENERATE_MIPMAP; + public static property GENERATE_MIPMAP_SGIS: TextureParameterName read _GENERATE_MIPMAP_SGIS; + public static property TEXTURE_COMPARE_SGIX: TextureParameterName read _TEXTURE_COMPARE_SGIX; + public static property TEXTURE_COMPARE_OPERATOR_SGIX: TextureParameterName read _TEXTURE_COMPARE_OPERATOR_SGIX; + public static property TEXTURE_LEQUAL_R_SGIX: TextureParameterName read _TEXTURE_LEQUAL_R_SGIX; + public static property TEXTURE_GEQUAL_R_SGIX: TextureParameterName read _TEXTURE_GEQUAL_R_SGIX; + public static property TEXTURE_MAX_CLAMP_S_SGIX: TextureParameterName read _TEXTURE_MAX_CLAMP_S_SGIX; + public static property TEXTURE_MAX_CLAMP_T_SGIX: TextureParameterName read _TEXTURE_MAX_CLAMP_T_SGIX; + public static property TEXTURE_MAX_CLAMP_R_SGIX: TextureParameterName read _TEXTURE_MAX_CLAMP_R_SGIX; + public static property TEXTURE_LOD_BIAS: TextureParameterName read _TEXTURE_LOD_BIAS; + public static property TEXTURE_COMPARE_MODE: TextureParameterName read _TEXTURE_COMPARE_MODE; + public static property TEXTURE_COMPARE_FUNC: TextureParameterName read _TEXTURE_COMPARE_FUNC; + public static property TEXTURE_SWIZZLE_R: TextureParameterName read _TEXTURE_SWIZZLE_R; + public static property TEXTURE_SWIZZLE_G: TextureParameterName read _TEXTURE_SWIZZLE_G; + public static property TEXTURE_SWIZZLE_B: TextureParameterName read _TEXTURE_SWIZZLE_B; + public static property TEXTURE_SWIZZLE_A: TextureParameterName read _TEXTURE_SWIZZLE_A; + public static property TEXTURE_SWIZZLE_RGBA: TextureParameterName read _TEXTURE_SWIZZLE_RGBA; + public static property TEXTURE_UNNORMALIZED_COORDINATES_ARM: TextureParameterName read _TEXTURE_UNNORMALIZED_COORDINATES_ARM; + public static property DEPTH_STENCIL_TEXTURE_MODE: TextureParameterName read _DEPTH_STENCIL_TEXTURE_MODE; + public static property TEXTURE_TILING_EXT: TextureParameterName read _TEXTURE_TILING_EXT; public function ToString: string; override; begin - var res := typeof(TextureParameterName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureParameterName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureParameterName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1000) then Result := 'TEXTURE_WIDTH' else + if self.val = UInt32($1001) then Result := 'TEXTURE_HEIGHT' else + if self.val = UInt32($1003) then Result := 'TEXTURE_COMPONENTS' else + if self.val = UInt32($1003) then Result := 'TEXTURE_INTERNAL_FORMAT' else + if self.val = UInt32($1004) then Result := 'TEXTURE_BORDER_COLOR' else + if self.val = UInt32($1004) then Result := 'TEXTURE_BORDER_COLOR_NV' else + if self.val = UInt32($1005) then Result := 'TEXTURE_BORDER' else + if self.val = UInt32($2800) then Result := 'TEXTURE_MAG_FILTER' else + if self.val = UInt32($2801) then Result := 'TEXTURE_MIN_FILTER' else + if self.val = UInt32($2802) then Result := 'TEXTURE_WRAP_S' else + if self.val = UInt32($2803) then Result := 'TEXTURE_WRAP_T' else + if self.val = UInt32($805C) then Result := 'TEXTURE_RED_SIZE' else + if self.val = UInt32($805D) then Result := 'TEXTURE_GREEN_SIZE' else + if self.val = UInt32($805E) then Result := 'TEXTURE_BLUE_SIZE' else + if self.val = UInt32($805F) then Result := 'TEXTURE_ALPHA_SIZE' else + if self.val = UInt32($8060) then Result := 'TEXTURE_LUMINANCE_SIZE' else + if self.val = UInt32($8061) then Result := 'TEXTURE_INTENSITY_SIZE' else + if self.val = UInt32($8066) then Result := 'TEXTURE_PRIORITY' else + if self.val = UInt32($8066) then Result := 'TEXTURE_PRIORITY_EXT' else + if self.val = UInt32($8067) then Result := 'TEXTURE_RESIDENT' else + if self.val = UInt32($8071) then Result := 'TEXTURE_DEPTH_EXT' else + if self.val = UInt32($8072) then Result := 'TEXTURE_WRAP_R' else + if self.val = UInt32($8072) then Result := 'TEXTURE_WRAP_R_EXT' else + if self.val = UInt32($8072) then Result := 'TEXTURE_WRAP_R_OES' else + if self.val = UInt32($809A) then Result := 'DETAIL_TEXTURE_LEVEL_SGIS' else + if self.val = UInt32($809B) then Result := 'DETAIL_TEXTURE_MODE_SGIS' else + if self.val = UInt32($809C) then Result := 'DETAIL_TEXTURE_FUNC_POINTS_SGIS' else + if self.val = UInt32($80B0) then Result := 'SHARPEN_TEXTURE_FUNC_POINTS_SGIS' else + if self.val = UInt32($80BF) then Result := 'SHADOW_AMBIENT_SGIX' else + if self.val = UInt32($8124) then Result := 'DUAL_TEXTURE_SELECT_SGIS' else + if self.val = UInt32($8125) then Result := 'QUAD_TEXTURE_SELECT_SGIS' else + if self.val = UInt32($8136) then Result := 'TEXTURE_4DSIZE_SGIS' else + if self.val = UInt32($8137) then Result := 'TEXTURE_WRAP_Q_SGIS' else + if self.val = UInt32($813A) then Result := 'TEXTURE_MIN_LOD' else + if self.val = UInt32($813A) then Result := 'TEXTURE_MIN_LOD_SGIS' else + if self.val = UInt32($813B) then Result := 'TEXTURE_MAX_LOD' else + if self.val = UInt32($813B) then Result := 'TEXTURE_MAX_LOD_SGIS' else + if self.val = UInt32($813C) then Result := 'TEXTURE_BASE_LEVEL' else + if self.val = UInt32($813C) then Result := 'TEXTURE_BASE_LEVEL_SGIS' else + if self.val = UInt32($813D) then Result := 'TEXTURE_MAX_LEVEL' else + if self.val = UInt32($813D) then Result := 'TEXTURE_MAX_LEVEL_SGIS' else + if self.val = UInt32($8147) then Result := 'TEXTURE_FILTER4_SIZE_SGIS' else + if self.val = UInt32($8171) then Result := 'TEXTURE_CLIPMAP_CENTER_SGIX' else + if self.val = UInt32($8172) then Result := 'TEXTURE_CLIPMAP_FRAME_SGIX' else + if self.val = UInt32($8173) then Result := 'TEXTURE_CLIPMAP_OFFSET_SGIX' else + if self.val = UInt32($8174) then Result := 'TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX' else + if self.val = UInt32($8175) then Result := 'TEXTURE_CLIPMAP_LOD_OFFSET_SGIX' else + if self.val = UInt32($8176) then Result := 'TEXTURE_CLIPMAP_DEPTH_SGIX' else + if self.val = UInt32($8179) then Result := 'POST_TEXTURE_FILTER_BIAS_SGIX' else + if self.val = UInt32($817A) then Result := 'POST_TEXTURE_FILTER_SCALE_SGIX' else + if self.val = UInt32($818E) then Result := 'TEXTURE_LOD_BIAS_S_SGIX' else + if self.val = UInt32($818F) then Result := 'TEXTURE_LOD_BIAS_T_SGIX' else + if self.val = UInt32($8190) then Result := 'TEXTURE_LOD_BIAS_R_SGIX' else + if self.val = UInt32($8191) then Result := 'GENERATE_MIPMAP' else + if self.val = UInt32($8191) then Result := 'GENERATE_MIPMAP_SGIS' else + if self.val = UInt32($819A) then Result := 'TEXTURE_COMPARE_SGIX' else + if self.val = UInt32($819B) then Result := 'TEXTURE_COMPARE_OPERATOR_SGIX' else + if self.val = UInt32($819C) then Result := 'TEXTURE_LEQUAL_R_SGIX' else + if self.val = UInt32($819D) then Result := 'TEXTURE_GEQUAL_R_SGIX' else + if self.val = UInt32($8369) then Result := 'TEXTURE_MAX_CLAMP_S_SGIX' else + if self.val = UInt32($836A) then Result := 'TEXTURE_MAX_CLAMP_T_SGIX' else + if self.val = UInt32($836B) then Result := 'TEXTURE_MAX_CLAMP_R_SGIX' else + if self.val = UInt32($8501) then Result := 'TEXTURE_LOD_BIAS' else + if self.val = UInt32($884C) then Result := 'TEXTURE_COMPARE_MODE' else + if self.val = UInt32($884D) then Result := 'TEXTURE_COMPARE_FUNC' else + if self.val = UInt32($8E42) then Result := 'TEXTURE_SWIZZLE_R' else + if self.val = UInt32($8E43) then Result := 'TEXTURE_SWIZZLE_G' else + if self.val = UInt32($8E44) then Result := 'TEXTURE_SWIZZLE_B' else + if self.val = UInt32($8E45) then Result := 'TEXTURE_SWIZZLE_A' else + if self.val = UInt32($8E46) then Result := 'TEXTURE_SWIZZLE_RGBA' else + if self.val = UInt32($8F6A) then Result := 'TEXTURE_UNNORMALIZED_COORDINATES_ARM' else + if self.val = UInt32($90EA) then Result := 'DEPTH_STENCIL_TEXTURE_MODE' else + if self.val = UInt32($9580) then Result := 'TEXTURE_TILING_EXT' else + Result := self.val.ToString; end; end; @@ -8518,10 +10969,51 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureTarget).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureTarget(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureTarget[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0DE0) then Result := 'TEXTURE_1D' else + if self.val = UInt32($0DE1) then Result := 'TEXTURE_2D' else + if self.val = UInt32($8063) then Result := 'PROXY_TEXTURE_1D' else + if self.val = UInt32($8063) then Result := 'PROXY_TEXTURE_1D_EXT' else + if self.val = UInt32($8064) then Result := 'PROXY_TEXTURE_2D' else + if self.val = UInt32($8064) then Result := 'PROXY_TEXTURE_2D_EXT' else + if self.val = UInt32($806F) then Result := 'TEXTURE_3D' else + if self.val = UInt32($806F) then Result := 'TEXTURE_3D_EXT' else + if self.val = UInt32($806F) then Result := 'TEXTURE_3D_OES' else + if self.val = UInt32($8070) then Result := 'PROXY_TEXTURE_3D' else + if self.val = UInt32($8070) then Result := 'PROXY_TEXTURE_3D_EXT' else + if self.val = UInt32($8095) then Result := 'DETAIL_TEXTURE_2D_SGIS' else + if self.val = UInt32($8134) then Result := 'TEXTURE_4D_SGIS' else + if self.val = UInt32($8135) then Result := 'PROXY_TEXTURE_4D_SGIS' else + if self.val = UInt32($84F5) then Result := 'TEXTURE_RECTANGLE' else + if self.val = UInt32($84F7) then Result := 'PROXY_TEXTURE_RECTANGLE' else + if self.val = UInt32($84F7) then Result := 'PROXY_TEXTURE_RECTANGLE_ARB' else + if self.val = UInt32($84F7) then Result := 'PROXY_TEXTURE_RECTANGLE_NV' else + if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP' else + if self.val = UInt32($8515) then Result := 'TEXTURE_CUBE_MAP_POSITIVE_X' else + if self.val = UInt32($8516) then Result := 'TEXTURE_CUBE_MAP_NEGATIVE_X' else + if self.val = UInt32($8517) then Result := 'TEXTURE_CUBE_MAP_POSITIVE_Y' else + if self.val = UInt32($8518) then Result := 'TEXTURE_CUBE_MAP_NEGATIVE_Y' else + if self.val = UInt32($8519) then Result := 'TEXTURE_CUBE_MAP_POSITIVE_Z' else + if self.val = UInt32($851A) then Result := 'TEXTURE_CUBE_MAP_NEGATIVE_Z' else + if self.val = UInt32($851B) then Result := 'PROXY_TEXTURE_CUBE_MAP' else + if self.val = UInt32($851B) then Result := 'PROXY_TEXTURE_CUBE_MAP_ARB' else + if self.val = UInt32($851B) then Result := 'PROXY_TEXTURE_CUBE_MAP_EXT' else + if self.val = UInt32($8C18) then Result := 'TEXTURE_1D_ARRAY' else + if self.val = UInt32($8C19) then Result := 'PROXY_TEXTURE_1D_ARRAY' else + if self.val = UInt32($8C19) then Result := 'PROXY_TEXTURE_1D_ARRAY_EXT' else + if self.val = UInt32($8C1A) then Result := 'TEXTURE_2D_ARRAY' else + if self.val = UInt32($8C1B) then Result := 'PROXY_TEXTURE_2D_ARRAY' else + if self.val = UInt32($8C1B) then Result := 'PROXY_TEXTURE_2D_ARRAY_EXT' else + if self.val = UInt32($9009) then Result := 'TEXTURE_CUBE_MAP_ARRAY' else + if self.val = UInt32($9009) then Result := 'TEXTURE_CUBE_MAP_ARRAY_ARB' else + if self.val = UInt32($9009) then Result := 'TEXTURE_CUBE_MAP_ARRAY_EXT' else + if self.val = UInt32($9009) then Result := 'TEXTURE_CUBE_MAP_ARRAY_OES' else + if self.val = UInt32($900B) then Result := 'PROXY_TEXTURE_CUBE_MAP_ARRAY' else + if self.val = UInt32($900B) then Result := 'PROXY_TEXTURE_CUBE_MAP_ARRAY_ARB' else + if self.val = UInt32($9100) then Result := 'TEXTURE_2D_MULTISAMPLE' else + if self.val = UInt32($9101) then Result := 'PROXY_TEXTURE_2D_MULTISAMPLE' else + if self.val = UInt32($9102) then Result := 'TEXTURE_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($9103) then Result := 'PROXY_TEXTURE_2D_MULTISAMPLE_ARRAY' else + Result := self.val.ToString; end; end; @@ -8598,10 +11090,39 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureUnit).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureUnit(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureUnit[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($84C0) then Result := 'TEXTURE0' else + if self.val = UInt32($84C1) then Result := 'TEXTURE1' else + if self.val = UInt32($84C2) then Result := 'TEXTURE2' else + if self.val = UInt32($84C3) then Result := 'TEXTURE3' else + if self.val = UInt32($84C4) then Result := 'TEXTURE4' else + if self.val = UInt32($84C5) then Result := 'TEXTURE5' else + if self.val = UInt32($84C6) then Result := 'TEXTURE6' else + if self.val = UInt32($84C7) then Result := 'TEXTURE7' else + if self.val = UInt32($84C8) then Result := 'TEXTURE8' else + if self.val = UInt32($84C9) then Result := 'TEXTURE9' else + if self.val = UInt32($84CA) then Result := 'TEXTURE10' else + if self.val = UInt32($84CB) then Result := 'TEXTURE11' else + if self.val = UInt32($84CC) then Result := 'TEXTURE12' else + if self.val = UInt32($84CD) then Result := 'TEXTURE13' else + if self.val = UInt32($84CE) then Result := 'TEXTURE14' else + if self.val = UInt32($84CF) then Result := 'TEXTURE15' else + if self.val = UInt32($84D0) then Result := 'TEXTURE16' else + if self.val = UInt32($84D1) then Result := 'TEXTURE17' else + if self.val = UInt32($84D2) then Result := 'TEXTURE18' else + if self.val = UInt32($84D3) then Result := 'TEXTURE19' else + if self.val = UInt32($84D4) then Result := 'TEXTURE20' else + if self.val = UInt32($84D5) then Result := 'TEXTURE21' else + if self.val = UInt32($84D6) then Result := 'TEXTURE22' else + if self.val = UInt32($84D7) then Result := 'TEXTURE23' else + if self.val = UInt32($84D8) then Result := 'TEXTURE24' else + if self.val = UInt32($84D9) then Result := 'TEXTURE25' else + if self.val = UInt32($84DA) then Result := 'TEXTURE26' else + if self.val = UInt32($84DB) then Result := 'TEXTURE27' else + if self.val = UInt32($84DC) then Result := 'TEXTURE28' else + if self.val = UInt32($84DD) then Result := 'TEXTURE29' else + if self.val = UInt32($84DE) then Result := 'TEXTURE30' else + if self.val = UInt32($84DF) then Result := 'TEXTURE31' else + Result := self.val.ToString; end; end; @@ -8618,10 +11139,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TransformFeedbackBufferMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TransformFeedbackBufferMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TransformFeedbackBufferMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8C8C) then Result := 'INTERLEAVED_ATTRIBS' else + if self.val = UInt32($8C8D) then Result := 'SEPARATE_ATTRIBS' else + Result := self.val.ToString; end; end; @@ -8644,10 +11164,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TransformFeedbackPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TransformFeedbackPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TransformFeedbackPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8C84) then Result := 'TRANSFORM_FEEDBACK_BUFFER_START' else + if self.val = UInt32($8C85) then Result := 'TRANSFORM_FEEDBACK_BUFFER_SIZE' else + if self.val = UInt32($8C8F) then Result := 'TRANSFORM_FEEDBACK_BUFFER_BINDING' else + if self.val = UInt32($8E23) then Result := 'TRANSFORM_FEEDBACK_PAUSED' else + if self.val = UInt32($8E24) then Result := 'TRANSFORM_FEEDBACK_ACTIVE' else + Result := self.val.ToString; end; end; @@ -8682,10 +11204,18 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(UniformBlockPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->UniformBlockPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'UniformBlockPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($84F0) then Result := 'UNIFORM_BLOCK_REFERENCED_BY_TESS_CONTROL_SHADER' else + if self.val = UInt32($84F1) then Result := 'UNIFORM_BLOCK_REFERENCED_BY_TESS_EVALUATION_SHADER' else + if self.val = UInt32($8A3F) then Result := 'UNIFORM_BLOCK_BINDING' else + if self.val = UInt32($8A40) then Result := 'UNIFORM_BLOCK_DATA_SIZE' else + if self.val = UInt32($8A41) then Result := 'UNIFORM_BLOCK_NAME_LENGTH' else + if self.val = UInt32($8A42) then Result := 'UNIFORM_BLOCK_ACTIVE_UNIFORMS' else + if self.val = UInt32($8A43) then Result := 'UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES' else + if self.val = UInt32($8A44) then Result := 'UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER' else + if self.val = UInt32($8A45) then Result := 'UNIFORM_BLOCK_REFERENCED_BY_GEOMETRY_SHADER' else + if self.val = UInt32($8A46) then Result := 'UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER' else + if self.val = UInt32($90EC) then Result := 'UNIFORM_BLOCK_REFERENCED_BY_COMPUTE_SHADER' else + Result := self.val.ToString; end; end; @@ -8716,10 +11246,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(UniformPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->UniformPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'UniformPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8A37) then Result := 'UNIFORM_TYPE' else + if self.val = UInt32($8A38) then Result := 'UNIFORM_SIZE' else + if self.val = UInt32($8A39) then Result := 'UNIFORM_NAME_LENGTH' else + if self.val = UInt32($8A3A) then Result := 'UNIFORM_BLOCK_INDEX' else + if self.val = UInt32($8A3B) then Result := 'UNIFORM_OFFSET' else + if self.val = UInt32($8A3C) then Result := 'UNIFORM_ARRAY_STRIDE' else + if self.val = UInt32($8A3D) then Result := 'UNIFORM_MATRIX_STRIDE' else + if self.val = UInt32($8A3E) then Result := 'UNIFORM_IS_ROW_MAJOR' else + if self.val = UInt32($92DA) then Result := 'UNIFORM_ATOMIC_COUNTER_BUFFER_INDEX' else + Result := self.val.ToString; end; end; @@ -8888,10 +11424,85 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(UniformType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->UniformType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'UniformType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + if self.val = UInt32($8B50) then Result := 'FLOAT_VEC2' else + if self.val = UInt32($8B51) then Result := 'FLOAT_VEC3' else + if self.val = UInt32($8B52) then Result := 'FLOAT_VEC4' else + if self.val = UInt32($8B53) then Result := 'INT_VEC2' else + if self.val = UInt32($8B54) then Result := 'INT_VEC3' else + if self.val = UInt32($8B55) then Result := 'INT_VEC4' else + if self.val = UInt32($8B56) then Result := 'BOOL' else + if self.val = UInt32($8B57) then Result := 'BOOL_VEC2' else + if self.val = UInt32($8B58) then Result := 'BOOL_VEC3' else + if self.val = UInt32($8B59) then Result := 'BOOL_VEC4' else + if self.val = UInt32($8B5A) then Result := 'FLOAT_MAT2' else + if self.val = UInt32($8B5B) then Result := 'FLOAT_MAT3' else + if self.val = UInt32($8B5C) then Result := 'FLOAT_MAT4' else + if self.val = UInt32($8B5D) then Result := 'SAMPLER_1D' else + if self.val = UInt32($8B5E) then Result := 'SAMPLER_2D' else + if self.val = UInt32($8B5F) then Result := 'SAMPLER_3D' else + if self.val = UInt32($8B60) then Result := 'SAMPLER_CUBE' else + if self.val = UInt32($8B61) then Result := 'SAMPLER_1D_SHADOW' else + if self.val = UInt32($8B62) then Result := 'SAMPLER_2D_SHADOW' else + if self.val = UInt32($8B63) then Result := 'SAMPLER_2D_RECT' else + if self.val = UInt32($8B64) then Result := 'SAMPLER_2D_RECT_SHADOW' else + if self.val = UInt32($8B65) then Result := 'FLOAT_MAT2x3' else + if self.val = UInt32($8B66) then Result := 'FLOAT_MAT2x4' else + if self.val = UInt32($8B67) then Result := 'FLOAT_MAT3x2' else + if self.val = UInt32($8B68) then Result := 'FLOAT_MAT3x4' else + if self.val = UInt32($8B69) then Result := 'FLOAT_MAT4x2' else + if self.val = UInt32($8B6A) then Result := 'FLOAT_MAT4x3' else + if self.val = UInt32($8DC0) then Result := 'SAMPLER_1D_ARRAY' else + if self.val = UInt32($8DC1) then Result := 'SAMPLER_2D_ARRAY' else + if self.val = UInt32($8DC2) then Result := 'SAMPLER_BUFFER' else + if self.val = UInt32($8DC3) then Result := 'SAMPLER_1D_ARRAY_SHADOW' else + if self.val = UInt32($8DC4) then Result := 'SAMPLER_2D_ARRAY_SHADOW' else + if self.val = UInt32($8DC5) then Result := 'SAMPLER_CUBE_SHADOW' else + if self.val = UInt32($8DC6) then Result := 'UNSIGNED_INT_VEC2' else + if self.val = UInt32($8DC7) then Result := 'UNSIGNED_INT_VEC3' else + if self.val = UInt32($8DC8) then Result := 'UNSIGNED_INT_VEC4' else + if self.val = UInt32($8DC9) then Result := 'INT_SAMPLER_1D' else + if self.val = UInt32($8DCA) then Result := 'INT_SAMPLER_2D' else + if self.val = UInt32($8DCB) then Result := 'INT_SAMPLER_3D' else + if self.val = UInt32($8DCC) then Result := 'INT_SAMPLER_CUBE' else + if self.val = UInt32($8DCD) then Result := 'INT_SAMPLER_2D_RECT' else + if self.val = UInt32($8DCE) then Result := 'INT_SAMPLER_1D_ARRAY' else + if self.val = UInt32($8DCF) then Result := 'INT_SAMPLER_2D_ARRAY' else + if self.val = UInt32($8DD0) then Result := 'INT_SAMPLER_BUFFER' else + if self.val = UInt32($8DD1) then Result := 'UNSIGNED_INT_SAMPLER_1D' else + if self.val = UInt32($8DD2) then Result := 'UNSIGNED_INT_SAMPLER_2D' else + if self.val = UInt32($8DD3) then Result := 'UNSIGNED_INT_SAMPLER_3D' else + if self.val = UInt32($8DD4) then Result := 'UNSIGNED_INT_SAMPLER_CUBE' else + if self.val = UInt32($8DD5) then Result := 'UNSIGNED_INT_SAMPLER_2D_RECT' else + if self.val = UInt32($8DD6) then Result := 'UNSIGNED_INT_SAMPLER_1D_ARRAY' else + if self.val = UInt32($8DD7) then Result := 'UNSIGNED_INT_SAMPLER_2D_ARRAY' else + if self.val = UInt32($8DD8) then Result := 'UNSIGNED_INT_SAMPLER_BUFFER' else + if self.val = UInt32($8F46) then Result := 'DOUBLE_MAT2' else + if self.val = UInt32($8F47) then Result := 'DOUBLE_MAT3' else + if self.val = UInt32($8F48) then Result := 'DOUBLE_MAT4' else + if self.val = UInt32($8F49) then Result := 'DOUBLE_MAT2x3' else + if self.val = UInt32($8F4A) then Result := 'DOUBLE_MAT2x4' else + if self.val = UInt32($8F4B) then Result := 'DOUBLE_MAT3x2' else + if self.val = UInt32($8F4C) then Result := 'DOUBLE_MAT3x4' else + if self.val = UInt32($8F4D) then Result := 'DOUBLE_MAT4x2' else + if self.val = UInt32($8F4E) then Result := 'DOUBLE_MAT4x3' else + if self.val = UInt32($8FFC) then Result := 'DOUBLE_VEC2' else + if self.val = UInt32($8FFD) then Result := 'DOUBLE_VEC3' else + if self.val = UInt32($8FFE) then Result := 'DOUBLE_VEC4' else + if self.val = UInt32($900C) then Result := 'SAMPLER_CUBE_MAP_ARRAY' else + if self.val = UInt32($900D) then Result := 'SAMPLER_CUBE_MAP_ARRAY_SHADOW' else + if self.val = UInt32($900E) then Result := 'INT_SAMPLER_CUBE_MAP_ARRAY' else + if self.val = UInt32($900F) then Result := 'UNSIGNED_INT_SAMPLER_CUBE_MAP_ARRAY' else + if self.val = UInt32($9108) then Result := 'SAMPLER_2D_MULTISAMPLE' else + if self.val = UInt32($9109) then Result := 'INT_SAMPLER_2D_MULTISAMPLE' else + if self.val = UInt32($910A) then Result := 'UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE' else + if self.val = UInt32($910B) then Result := 'SAMPLER_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($910C) then Result := 'INT_SAMPLER_2D_MULTISAMPLE_ARRAY' else + if self.val = UInt32($910D) then Result := 'UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE_ARRAY' else + Result := self.val.ToString; end; end; @@ -8961,10 +11572,31 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(UseProgramStageMask).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'UseProgramStageMask[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'VERTEX_SHADER_BIT+'; + if self.val and UInt32($0001) = UInt32($0001) then res += 'VERTEX_SHADER_BIT_EXT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'FRAGMENT_SHADER_BIT+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'FRAGMENT_SHADER_BIT_EXT+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'GEOMETRY_SHADER_BIT+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'GEOMETRY_SHADER_BIT_EXT+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'GEOMETRY_SHADER_BIT_OES+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'TESS_CONTROL_SHADER_BIT+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'TESS_CONTROL_SHADER_BIT_EXT+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'TESS_CONTROL_SHADER_BIT_OES+'; + if self.val and UInt32($0010) = UInt32($0010) then res += 'TESS_EVALUATION_SHADER_BIT+'; + if self.val and UInt32($0010) = UInt32($0010) then res += 'TESS_EVALUATION_SHADER_BIT_EXT+'; + if self.val and UInt32($0010) = UInt32($0010) then res += 'TESS_EVALUATION_SHADER_BIT_OES+'; + if self.val and UInt32($0020) = UInt32($0020) then res += 'COMPUTE_SHADER_BIT+'; + if self.val and UInt32($0040) = UInt32($0040) then res += 'MESH_SHADER_BIT_NV+'; + if self.val and UInt32($0080) = UInt32($0080) then res += 'TASK_SHADER_BIT_NV+'; + if self.val and UInt32($FFFFFFFF) = UInt32($FFFFFFFF) then res += 'ALL_SHADER_BITS+'; + if self.val and UInt32($FFFFFFFF) = UInt32($FFFFFFFF) then res += 'ALL_SHADER_BITS_EXT+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -8995,10 +11627,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexArrayPName).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexArrayPName(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexArrayPName[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($82D5) then Result := 'VERTEX_ATTRIB_RELATIVE_OFFSET' else + if self.val = UInt32($8622) then Result := 'VERTEX_ATTRIB_ARRAY_ENABLED' else + if self.val = UInt32($8623) then Result := 'VERTEX_ATTRIB_ARRAY_SIZE' else + if self.val = UInt32($8624) then Result := 'VERTEX_ATTRIB_ARRAY_STRIDE' else + if self.val = UInt32($8625) then Result := 'VERTEX_ATTRIB_ARRAY_TYPE' else + if self.val = UInt32($874E) then Result := 'VERTEX_ATTRIB_ARRAY_LONG' else + if self.val = UInt32($886A) then Result := 'VERTEX_ATTRIB_ARRAY_NORMALIZED' else + if self.val = UInt32($88FD) then Result := 'VERTEX_ATTRIB_ARRAY_INTEGER' else + if self.val = UInt32($88FE) then Result := 'VERTEX_ATTRIB_ARRAY_DIVISOR' else + Result := self.val.ToString; end; end; @@ -9029,10 +11667,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexAttribEnum).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexAttribEnum(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexAttribEnum[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8622) then Result := 'VERTEX_ATTRIB_ARRAY_ENABLED' else + if self.val = UInt32($8623) then Result := 'VERTEX_ATTRIB_ARRAY_SIZE' else + if self.val = UInt32($8624) then Result := 'VERTEX_ATTRIB_ARRAY_STRIDE' else + if self.val = UInt32($8625) then Result := 'VERTEX_ATTRIB_ARRAY_TYPE' else + if self.val = UInt32($8626) then Result := 'CURRENT_VERTEX_ATTRIB' else + if self.val = UInt32($886A) then Result := 'VERTEX_ATTRIB_ARRAY_NORMALIZED' else + if self.val = UInt32($889F) then Result := 'VERTEX_ATTRIB_ARRAY_BUFFER_BINDING' else + if self.val = UInt32($88FD) then Result := 'VERTEX_ATTRIB_ARRAY_INTEGER' else + if self.val = UInt32($88FE) then Result := 'VERTEX_ATTRIB_ARRAY_DIVISOR' else + Result := self.val.ToString; end; end; @@ -9057,10 +11701,13 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexAttribIType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexAttribIType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexAttribIType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + Result := self.val.ToString; end; end; @@ -9075,10 +11722,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexAttribLType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexAttribLType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexAttribLType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -9125,10 +11770,24 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexAttribPointerType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexAttribPointerType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexAttribPointerType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + if self.val = UInt32($140B) then Result := 'HALF_FLOAT' else + if self.val = UInt32($140C) then Result := 'FIXED' else + if self.val = UInt32($140E) then Result := 'INT64_ARB' else + if self.val = UInt32($140E) then Result := 'INT64_NV' else + if self.val = UInt32($140F) then Result := 'UNSIGNED_INT64_ARB' else + if self.val = UInt32($140F) then Result := 'UNSIGNED_INT64_NV' else + if self.val = UInt32($8368) then Result := 'UNSIGNED_INT_2_10_10_10_REV' else + if self.val = UInt32($8C3B) then Result := 'UNSIGNED_INT_10F_11F_11F_REV' else + if self.val = UInt32($8D9F) then Result := 'INT_2_10_10_10_REV' else + Result := self.val.ToString; end; end; @@ -9167,10 +11826,20 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexAttribType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexAttribType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexAttribType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + if self.val = UInt32($140B) then Result := 'HALF_FLOAT' else + if self.val = UInt32($140C) then Result := 'FIXED' else + if self.val = UInt32($8368) then Result := 'UNSIGNED_INT_2_10_10_10_REV' else + if self.val = UInt32($8C3B) then Result := 'UNSIGNED_INT_10F_11F_11F_REV' else + if self.val = UInt32($8D9F) then Result := 'INT_2_10_10_10_REV' else + Result := self.val.ToString; end; end; @@ -9201,10 +11870,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexBufferObjectParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexBufferObjectParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexBufferObjectParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($821F) then Result := 'BUFFER_IMMUTABLE_STORAGE' else + if self.val = UInt32($8220) then Result := 'BUFFER_STORAGE_FLAGS' else + if self.val = UInt32($8764) then Result := 'BUFFER_SIZE' else + if self.val = UInt32($8765) then Result := 'BUFFER_USAGE' else + if self.val = UInt32($88BB) then Result := 'BUFFER_ACCESS' else + if self.val = UInt32($88BC) then Result := 'BUFFER_MAPPED' else + if self.val = UInt32($911F) then Result := 'BUFFER_ACCESS_FLAGS' else + if self.val = UInt32($9120) then Result := 'BUFFER_MAP_LENGTH' else + if self.val = UInt32($9121) then Result := 'BUFFER_MAP_OFFSET' else + Result := self.val.ToString; end; end; @@ -9235,10 +11910,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexBufferObjectUsage).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexBufferObjectUsage(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexBufferObjectUsage[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($88E0) then Result := 'STREAM_DRAW' else + if self.val = UInt32($88E1) then Result := 'STREAM_READ' else + if self.val = UInt32($88E2) then Result := 'STREAM_COPY' else + if self.val = UInt32($88E4) then Result := 'STATIC_DRAW' else + if self.val = UInt32($88E5) then Result := 'STATIC_READ' else + if self.val = UInt32($88E6) then Result := 'STATIC_COPY' else + if self.val = UInt32($88E8) then Result := 'DYNAMIC_DRAW' else + if self.val = UInt32($88E9) then Result := 'DYNAMIC_READ' else + if self.val = UInt32($88EA) then Result := 'DYNAMIC_COPY' else + Result := self.val.ToString; end; end; @@ -9259,10 +11940,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexPointerType).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexPointerType(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexPointerType[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -9279,10 +11961,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexProvokingMode).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexProvokingMode(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexProvokingMode[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8E4D) then Result := 'FIRST_VERTEX_CONVENTION' else + if self.val = UInt32($8E4E) then Result := 'LAST_VERTEX_CONVENTION' else + Result := self.val.ToString; end; end; @@ -9299,10 +11980,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexShaderTextureUnitParameter).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexShaderTextureUnitParameter(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexShaderTextureUnitParameter[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0B03) then Result := 'CURRENT_TEXTURE_COORDS' else + if self.val = UInt32($0BA8) then Result := 'TEXTURE_MATRIX' else + Result := self.val.ToString; end; end; @@ -9325,10 +12005,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BufferAccessARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BufferAccessARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BufferAccessARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($88B8) then Result := 'READ_ONLY' else + if self.val = UInt32($88B9) then Result := 'WRITE_ONLY' else + if self.val = UInt32($88BA) then Result := 'READ_WRITE' else + Result := self.val.ToString; end; end; @@ -9367,10 +12047,20 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BufferPNameARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BufferPNameARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BufferPNameARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($821F) then Result := 'BUFFER_IMMUTABLE_STORAGE' else + if self.val = UInt32($8220) then Result := 'BUFFER_STORAGE_FLAGS' else + if self.val = UInt32($8764) then Result := 'BUFFER_SIZE' else + if self.val = UInt32($8764) then Result := 'BUFFER_SIZE_ARB' else + if self.val = UInt32($8765) then Result := 'BUFFER_USAGE' else + if self.val = UInt32($8765) then Result := 'BUFFER_USAGE_ARB' else + if self.val = UInt32($88BB) then Result := 'BUFFER_ACCESS' else + if self.val = UInt32($88BB) then Result := 'BUFFER_ACCESS_ARB' else + if self.val = UInt32($88BC) then Result := 'BUFFER_MAPPED' else + if self.val = UInt32($88BC) then Result := 'BUFFER_MAPPED_ARB' else + if self.val = UInt32($911F) then Result := 'BUFFER_ACCESS_FLAGS' else + if self.val = UInt32($9120) then Result := 'BUFFER_MAP_LENGTH' else + if self.val = UInt32($9121) then Result := 'BUFFER_MAP_OFFSET' else + Result := self.val.ToString; end; end; @@ -9387,10 +12077,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BufferPointerNameARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BufferPointerNameARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BufferPointerNameARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($88BD) then Result := 'BUFFER_MAP_POINTER' else + if self.val = UInt32($88BD) then Result := 'BUFFER_MAP_POINTER_ARB' else + Result := self.val.ToString; end; end; @@ -9433,10 +12122,22 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BufferTargetARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BufferTargetARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BufferTargetARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($80EE) then Result := 'PARAMETER_BUFFER' else + if self.val = UInt32($8892) then Result := 'ARRAY_BUFFER' else + if self.val = UInt32($8893) then Result := 'ELEMENT_ARRAY_BUFFER' else + if self.val = UInt32($88EB) then Result := 'PIXEL_PACK_BUFFER' else + if self.val = UInt32($88EC) then Result := 'PIXEL_UNPACK_BUFFER' else + if self.val = UInt32($8A11) then Result := 'UNIFORM_BUFFER' else + if self.val = UInt32($8C2A) then Result := 'TEXTURE_BUFFER' else + if self.val = UInt32($8C8E) then Result := 'TRANSFORM_FEEDBACK_BUFFER' else + if self.val = UInt32($8F36) then Result := 'COPY_READ_BUFFER' else + if self.val = UInt32($8F37) then Result := 'COPY_WRITE_BUFFER' else + if self.val = UInt32($8F3F) then Result := 'DRAW_INDIRECT_BUFFER' else + if self.val = UInt32($90D2) then Result := 'SHADER_STORAGE_BUFFER' else + if self.val = UInt32($90EE) then Result := 'DISPATCH_INDIRECT_BUFFER' else + if self.val = UInt32($9192) then Result := 'QUERY_BUFFER' else + if self.val = UInt32($92C0) then Result := 'ATOMIC_COUNTER_BUFFER' else + Result := self.val.ToString; end; end; @@ -9467,10 +12168,16 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BufferUsageARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BufferUsageARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BufferUsageARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($88E0) then Result := 'STREAM_DRAW' else + if self.val = UInt32($88E1) then Result := 'STREAM_READ' else + if self.val = UInt32($88E2) then Result := 'STREAM_COPY' else + if self.val = UInt32($88E4) then Result := 'STATIC_DRAW' else + if self.val = UInt32($88E5) then Result := 'STATIC_READ' else + if self.val = UInt32($88E6) then Result := 'STATIC_COPY' else + if self.val = UInt32($88E8) then Result := 'DYNAMIC_DRAW' else + if self.val = UInt32($88E9) then Result := 'DYNAMIC_READ' else + if self.val = UInt32($88EA) then Result := 'DYNAMIC_COPY' else + Result := self.val.ToString; end; end; @@ -9491,10 +12198,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ClampColorModeARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ClampColorModeARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ClampColorModeARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'FALSE' else + if self.val = UInt32($0001) then Result := 'TRUE' else + if self.val = UInt32($891D) then Result := 'FIXED_ONLY' else + if self.val = UInt32($891D) then Result := 'FIXED_ONLY_ARB' else + Result := self.val.ToString; end; end; @@ -9515,10 +12223,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ClampColorTargetARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ClampColorTargetARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ClampColorTargetARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($891A) then Result := 'CLAMP_VERTEX_COLOR_ARB' else + if self.val = UInt32($891B) then Result := 'CLAMP_FRAGMENT_COLOR_ARB' else + if self.val = UInt32($891C) then Result := 'CLAMP_READ_COLOR' else + if self.val = UInt32($891C) then Result := 'CLAMP_READ_COLOR_ARB' else + Result := self.val.ToString; end; end; @@ -9537,10 +12246,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MatrixIndexPointerTypeARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MatrixIndexPointerTypeARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MatrixIndexPointerTypeARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + Result := self.val.ToString; end; end; @@ -9561,10 +12270,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PointParameterNameARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PointParameterNameARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PointParameterNameARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8126) then Result := 'POINT_SIZE_MIN_EXT' else + if self.val = UInt32($8127) then Result := 'POINT_SIZE_MAX_EXT' else + if self.val = UInt32($8128) then Result := 'POINT_FADE_THRESHOLD_SIZE' else + if self.val = UInt32($8128) then Result := 'POINT_FADE_THRESHOLD_SIZE_EXT' else + Result := self.val.ToString; end; end; @@ -9617,10 +12327,27 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ProgramPropertyARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ProgramPropertyARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ProgramPropertyARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8267) then Result := 'COMPUTE_WORK_GROUP_SIZE' else + if self.val = UInt32($8741) then Result := 'PROGRAM_BINARY_LENGTH' else + if self.val = UInt32($8916) then Result := 'GEOMETRY_VERTICES_OUT' else + if self.val = UInt32($8917) then Result := 'GEOMETRY_INPUT_TYPE' else + if self.val = UInt32($8918) then Result := 'GEOMETRY_OUTPUT_TYPE' else + if self.val = UInt32($8A35) then Result := 'ACTIVE_UNIFORM_BLOCK_MAX_NAME_LENGTH' else + if self.val = UInt32($8A36) then Result := 'ACTIVE_UNIFORM_BLOCKS' else + if self.val = UInt32($8B80) then Result := 'DELETE_STATUS' else + if self.val = UInt32($8B82) then Result := 'LINK_STATUS' else + if self.val = UInt32($8B83) then Result := 'VALIDATE_STATUS' else + if self.val = UInt32($8B84) then Result := 'INFO_LOG_LENGTH' else + if self.val = UInt32($8B85) then Result := 'ATTACHED_SHADERS' else + if self.val = UInt32($8B86) then Result := 'ACTIVE_UNIFORMS' else + if self.val = UInt32($8B87) then Result := 'ACTIVE_UNIFORM_MAX_LENGTH' else + if self.val = UInt32($8B89) then Result := 'ACTIVE_ATTRIBUTES' else + if self.val = UInt32($8B8A) then Result := 'ACTIVE_ATTRIBUTE_MAX_LENGTH' else + if self.val = UInt32($8C76) then Result := 'TRANSFORM_FEEDBACK_VARYING_MAX_LENGTH' else + if self.val = UInt32($8C7F) then Result := 'TRANSFORM_FEEDBACK_BUFFER_MODE' else + if self.val = UInt32($8C83) then Result := 'TRANSFORM_FEEDBACK_VARYINGS' else + if self.val = UInt32($92D9) then Result := 'ACTIVE_ATOMIC_COUNTER_BUFFERS' else + Result := self.val.ToString; end; end; @@ -9637,10 +12364,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexAttribPointerPropertyARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexAttribPointerPropertyARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexAttribPointerPropertyARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8645) then Result := 'VERTEX_ATTRIB_ARRAY_POINTER' else + if self.val = UInt32($8645) then Result := 'VERTEX_ATTRIB_ARRAY_POINTER_ARB' else + Result := self.val.ToString; end; end; @@ -9679,10 +12405,20 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexAttribPropertyARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexAttribPropertyARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexAttribPropertyARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($82D4) then Result := 'VERTEX_ATTRIB_BINDING' else + if self.val = UInt32($82D5) then Result := 'VERTEX_ATTRIB_RELATIVE_OFFSET' else + if self.val = UInt32($8622) then Result := 'VERTEX_ATTRIB_ARRAY_ENABLED' else + if self.val = UInt32($8623) then Result := 'VERTEX_ATTRIB_ARRAY_SIZE' else + if self.val = UInt32($8624) then Result := 'VERTEX_ATTRIB_ARRAY_STRIDE' else + if self.val = UInt32($8625) then Result := 'VERTEX_ATTRIB_ARRAY_TYPE' else + if self.val = UInt32($8626) then Result := 'CURRENT_VERTEX_ATTRIB' else + if self.val = UInt32($874E) then Result := 'VERTEX_ATTRIB_ARRAY_LONG' else + if self.val = UInt32($886A) then Result := 'VERTEX_ATTRIB_ARRAY_NORMALIZED' else + if self.val = UInt32($889F) then Result := 'VERTEX_ATTRIB_ARRAY_BUFFER_BINDING' else + if self.val = UInt32($88FD) then Result := 'VERTEX_ATTRIB_ARRAY_INTEGER' else + if self.val = UInt32($88FD) then Result := 'VERTEX_ATTRIB_ARRAY_INTEGER_EXT' else + if self.val = UInt32($88FE) then Result := 'VERTEX_ATTRIB_ARRAY_DIVISOR' else + Result := self.val.ToString; end; end; @@ -9711,10 +12447,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(WeightPointerTypeARB).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->WeightPointerTypeARB(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'WeightPointerTypeARB[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -9743,10 +12484,13 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BinormalPointerTypeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BinormalPointerTypeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BinormalPointerTypeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + if self.val = UInt32($140A) then Result := 'DOUBLE_EXT' else + Result := self.val.ToString; end; end; @@ -9783,10 +12527,19 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(BlendEquationModeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->BlendEquationModeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'BlendEquationModeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8006) then Result := 'FUNC_ADD' else + if self.val = UInt32($8006) then Result := 'FUNC_ADD_EXT' else + if self.val = UInt32($8007) then Result := 'MIN' else + if self.val = UInt32($8007) then Result := 'MIN_EXT' else + if self.val = UInt32($8008) then Result := 'MAX' else + if self.val = UInt32($8008) then Result := 'MAX_EXT' else + if self.val = UInt32($800A) then Result := 'FUNC_SUBTRACT' else + if self.val = UInt32($800A) then Result := 'FUNC_SUBTRACT_EXT' else + if self.val = UInt32($800B) then Result := 'FUNC_REVERSE_SUBTRACT' else + if self.val = UInt32($800B) then Result := 'FUNC_REVERSE_SUBTRACT_EXT' else + if self.val = UInt32($8320) then Result := 'ALPHA_MIN_SGIX' else + if self.val = UInt32($8321) then Result := 'ALPHA_MAX_SGIX' else + Result := self.val.ToString; end; end; @@ -9811,10 +12564,13 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ConvolutionParameterEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ConvolutionParameterEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ConvolutionParameterEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8013) then Result := 'CONVOLUTION_BORDER_MODE' else + if self.val = UInt32($8013) then Result := 'CONVOLUTION_BORDER_MODE_EXT' else + if self.val = UInt32($8014) then Result := 'CONVOLUTION_FILTER_SCALE' else + if self.val = UInt32($8014) then Result := 'CONVOLUTION_FILTER_SCALE_EXT' else + if self.val = UInt32($8015) then Result := 'CONVOLUTION_FILTER_BIAS' else + if self.val = UInt32($8015) then Result := 'CONVOLUTION_FILTER_BIAS_EXT' else + Result := self.val.ToString; end; end; @@ -9835,10 +12591,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ConvolutionTargetEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ConvolutionTargetEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ConvolutionTargetEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8010) then Result := 'CONVOLUTION_1D' else + if self.val = UInt32($8010) then Result := 'CONVOLUTION_1D_EXT' else + if self.val = UInt32($8011) then Result := 'CONVOLUTION_2D' else + if self.val = UInt32($8011) then Result := 'CONVOLUTION_2D_EXT' else + Result := self.val.ToString; end; end; @@ -9855,10 +12612,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CullParameterEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CullParameterEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CullParameterEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($81AB) then Result := 'CULL_VERTEX_EYE_POSITION_EXT' else + if self.val = UInt32($81AC) then Result := 'CULL_VERTEX_OBJECT_POSITION_EXT' else + Result := self.val.ToString; end; end; @@ -9877,10 +12633,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(DataTypeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->DataTypeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'DataTypeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($87BE) then Result := 'SCALAR_EXT' else + if self.val = UInt32($87BF) then Result := 'VECTOR_EXT' else + if self.val = UInt32($87C0) then Result := 'MATRIX_EXT' else + Result := self.val.ToString; end; end; @@ -9897,10 +12653,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FogPointerTypeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FogPointerTypeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FogPointerTypeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -9945,10 +12700,23 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetHistogramParameterPNameEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetHistogramParameterPNameEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetHistogramParameterPNameEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8026) then Result := 'HISTOGRAM_WIDTH' else + if self.val = UInt32($8026) then Result := 'HISTOGRAM_WIDTH_EXT' else + if self.val = UInt32($8027) then Result := 'HISTOGRAM_FORMAT' else + if self.val = UInt32($8027) then Result := 'HISTOGRAM_FORMAT_EXT' else + if self.val = UInt32($8028) then Result := 'HISTOGRAM_RED_SIZE' else + if self.val = UInt32($8028) then Result := 'HISTOGRAM_RED_SIZE_EXT' else + if self.val = UInt32($8029) then Result := 'HISTOGRAM_GREEN_SIZE' else + if self.val = UInt32($8029) then Result := 'HISTOGRAM_GREEN_SIZE_EXT' else + if self.val = UInt32($802A) then Result := 'HISTOGRAM_BLUE_SIZE' else + if self.val = UInt32($802A) then Result := 'HISTOGRAM_BLUE_SIZE_EXT' else + if self.val = UInt32($802B) then Result := 'HISTOGRAM_ALPHA_SIZE' else + if self.val = UInt32($802B) then Result := 'HISTOGRAM_ALPHA_SIZE_EXT' else + if self.val = UInt32($802C) then Result := 'HISTOGRAM_LUMINANCE_SIZE' else + if self.val = UInt32($802C) then Result := 'HISTOGRAM_LUMINANCE_SIZE_EXT' else + if self.val = UInt32($802D) then Result := 'HISTOGRAM_SINK' else + if self.val = UInt32($802D) then Result := 'HISTOGRAM_SINK_EXT' else + Result := self.val.ToString; end; end; @@ -9969,10 +12737,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetMinmaxParameterPNameEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetMinmaxParameterPNameEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetMinmaxParameterPNameEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($802F) then Result := 'MINMAX_FORMAT' else + if self.val = UInt32($802F) then Result := 'MINMAX_FORMAT_EXT' else + if self.val = UInt32($8030) then Result := 'MINMAX_SINK' else + if self.val = UInt32($8030) then Result := 'MINMAX_SINK_EXT' else + Result := self.val.ToString; end; end; @@ -9993,10 +12762,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetVariantValueEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetVariantValueEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetVariantValueEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($87E4) then Result := 'VARIANT_VALUE_EXT' else + if self.val = UInt32($87E5) then Result := 'VARIANT_DATATYPE_EXT' else + if self.val = UInt32($87E6) then Result := 'VARIANT_ARRAY_STRIDE_EXT' else + if self.val = UInt32($87E7) then Result := 'VARIANT_ARRAY_TYPE_EXT' else + Result := self.val.ToString; end; end; @@ -10017,10 +12787,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(HistogramTargetEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->HistogramTargetEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'HistogramTargetEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8024) then Result := 'HISTOGRAM' else + if self.val = UInt32($8024) then Result := 'HISTOGRAM_EXT' else + if self.val = UInt32($8025) then Result := 'PROXY_HISTOGRAM' else + if self.val = UInt32($8025) then Result := 'PROXY_HISTOGRAM_EXT' else + Result := self.val.ToString; end; end; @@ -10049,10 +12820,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(IndexFunctionEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->IndexFunctionEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'IndexFunctionEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0200) then Result := 'NEVER' else + if self.val = UInt32($0201) then Result := 'LESS' else + if self.val = UInt32($0202) then Result := 'EQUAL' else + if self.val = UInt32($0203) then Result := 'LEQUAL' else + if self.val = UInt32($0204) then Result := 'GREATER' else + if self.val = UInt32($0205) then Result := 'NOTEQUAL' else + if self.val = UInt32($0206) then Result := 'GEQUAL' else + if self.val = UInt32($0207) then Result := 'ALWAYS' else + Result := self.val.ToString; end; end; @@ -10067,10 +12843,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(IndexMaterialParameterEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->IndexMaterialParameterEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'IndexMaterialParameterEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0D13) then Result := 'INDEX_OFFSET' else + Result := self.val.ToString; end; end; @@ -10091,10 +12865,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(LightTextureModeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->LightTextureModeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'LightTextureModeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8349) then Result := 'FRAGMENT_MATERIAL_EXT' else + if self.val = UInt32($834A) then Result := 'FRAGMENT_NORMAL_EXT' else + if self.val = UInt32($834C) then Result := 'FRAGMENT_COLOR_EXT' else + if self.val = UInt32($8452) then Result := 'FRAGMENT_DEPTH_EXT' else + Result := self.val.ToString; end; end; @@ -10111,10 +12886,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(LightTexturePNameEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->LightTexturePNameEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'LightTexturePNameEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($834D) then Result := 'ATTENUATION_EXT' else + if self.val = UInt32($834E) then Result := 'SHADOW_ATTENUATION_EXT' else + Result := self.val.ToString; end; end; @@ -10131,10 +12905,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MinmaxTargetEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MinmaxTargetEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MinmaxTargetEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($802E) then Result := 'MINMAX' else + if self.val = UInt32($802E) then Result := 'MINMAX_EXT' else + Result := self.val.ToString; end; end; @@ -10151,10 +12924,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ParameterRangeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ParameterRangeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ParameterRangeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($87E0) then Result := 'NORMALIZED_RANGE_EXT' else + if self.val = UInt32($87E1) then Result := 'FULL_RANGE_EXT' else + Result := self.val.ToString; end; end; @@ -10173,10 +12945,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelTransformPNameEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelTransformPNameEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelTransformPNameEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8331) then Result := 'PIXEL_MAG_FILTER_EXT' else + if self.val = UInt32($8332) then Result := 'PIXEL_MIN_FILTER_EXT' else + if self.val = UInt32($8333) then Result := 'PIXEL_CUBIC_WEIGHT_EXT' else + Result := self.val.ToString; end; end; @@ -10191,10 +12963,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelTransformTargetEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelTransformTargetEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelTransformTargetEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8330) then Result := 'PIXEL_TRANSFORM_2D_EXT' else + Result := self.val.ToString; end; end; @@ -10221,10 +12991,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SamplePatternEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SamplePatternEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SamplePatternEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($80A1) then Result := 'GL_1PASS_EXT' else + if self.val = UInt32($80A2) then Result := 'GL_2PASS_0_EXT' else + if self.val = UInt32($80A3) then Result := 'GL_2PASS_1_EXT' else + if self.val = UInt32($80A4) then Result := 'GL_4PASS_0_EXT' else + if self.val = UInt32($80A5) then Result := 'GL_4PASS_1_EXT' else + if self.val = UInt32($80A6) then Result := 'GL_4PASS_2_EXT' else + if self.val = UInt32($80A7) then Result := 'GL_4PASS_3_EXT' else + Result := self.val.ToString; end; end; @@ -10241,10 +13015,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SeparableTargetEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SeparableTargetEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SeparableTargetEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8012) then Result := 'SEPARABLE_2D' else + if self.val = UInt32($8012) then Result := 'SEPARABLE_2D_EXT' else + Result := self.val.ToString; end; end; @@ -10269,10 +13042,13 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TangentPointerTypeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TangentPointerTypeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TangentPointerTypeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1400) then Result := 'BYTE' else + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + if self.val = UInt32($140A) then Result := 'DOUBLE_EXT' else + Result := self.val.ToString; end; end; @@ -10287,10 +13063,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureNormalModeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureNormalModeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureNormalModeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($85AE) then Result := 'PERTURB_EXT' else + Result := self.val.ToString; end; end; @@ -10305,10 +13079,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VariantCapEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VariantCapEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VariantCapEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($87E8) then Result := 'VARIANT_ARRAY_EXT' else + Result := self.val.ToString; end; end; @@ -10343,10 +13115,18 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexShaderCoordOutEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexShaderCoordOutEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexShaderCoordOutEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($87D5) then Result := 'X_EXT' else + if self.val = UInt32($87D6) then Result := 'Y_EXT' else + if self.val = UInt32($87D7) then Result := 'Z_EXT' else + if self.val = UInt32($87D8) then Result := 'W_EXT' else + if self.val = UInt32($87D9) then Result := 'NEGATIVE_X_EXT' else + if self.val = UInt32($87DA) then Result := 'NEGATIVE_Y_EXT' else + if self.val = UInt32($87DB) then Result := 'NEGATIVE_Z_EXT' else + if self.val = UInt32($87DC) then Result := 'NEGATIVE_W_EXT' else + if self.val = UInt32($87DD) then Result := 'ZERO_EXT' else + if self.val = UInt32($87DE) then Result := 'ONE_EXT' else + if self.val = UInt32($87DF) then Result := 'NEGATIVE_ONE_EXT' else + Result := self.val.ToString; end; end; @@ -10407,10 +13187,31 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexShaderOpEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexShaderOpEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexShaderOpEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8782) then Result := 'OP_INDEX_EXT' else + if self.val = UInt32($8783) then Result := 'OP_NEGATE_EXT' else + if self.val = UInt32($8784) then Result := 'OP_DOT3_EXT' else + if self.val = UInt32($8785) then Result := 'OP_DOT4_EXT' else + if self.val = UInt32($8786) then Result := 'OP_MUL_EXT' else + if self.val = UInt32($8787) then Result := 'OP_ADD_EXT' else + if self.val = UInt32($8788) then Result := 'OP_MADD_EXT' else + if self.val = UInt32($8789) then Result := 'OP_FRAC_EXT' else + if self.val = UInt32($878A) then Result := 'OP_MAX_EXT' else + if self.val = UInt32($878B) then Result := 'OP_MIN_EXT' else + if self.val = UInt32($878C) then Result := 'OP_SET_GE_EXT' else + if self.val = UInt32($878D) then Result := 'OP_SET_LT_EXT' else + if self.val = UInt32($878E) then Result := 'OP_CLAMP_EXT' else + if self.val = UInt32($878F) then Result := 'OP_FLOOR_EXT' else + if self.val = UInt32($8790) then Result := 'OP_ROUND_EXT' else + if self.val = UInt32($8791) then Result := 'OP_EXP_BASE_2_EXT' else + if self.val = UInt32($8792) then Result := 'OP_LOG_BASE_2_EXT' else + if self.val = UInt32($8793) then Result := 'OP_POWER_EXT' else + if self.val = UInt32($8794) then Result := 'OP_RECIP_EXT' else + if self.val = UInt32($8795) then Result := 'OP_RECIP_SQRT_EXT' else + if self.val = UInt32($8796) then Result := 'OP_SUB_EXT' else + if self.val = UInt32($8797) then Result := 'OP_CROSS_PRODUCT_EXT' else + if self.val = UInt32($8798) then Result := 'OP_MULTIPLY_MATRIX_EXT' else + if self.val = UInt32($8799) then Result := 'OP_MOV_EXT' else + Result := self.val.ToString; end; end; @@ -10427,10 +13228,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexShaderParameterEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexShaderParameterEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexShaderParameterEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($87E2) then Result := 'CURRENT_VERTEX_EXT' else + if self.val = UInt32($87E3) then Result := 'MVP_MATRIX_EXT' else + Result := self.val.ToString; end; end; @@ -10451,10 +13251,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexShaderStorageTypeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexShaderStorageTypeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexShaderStorageTypeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($87C1) then Result := 'VARIANT_EXT' else + if self.val = UInt32($87C2) then Result := 'INVARIANT_EXT' else + if self.val = UInt32($87C3) then Result := 'LOCAL_CONSTANT_EXT' else + if self.val = UInt32($87C4) then Result := 'LOCAL_EXT' else + Result := self.val.ToString; end; end; @@ -10471,10 +13272,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexShaderWriteMaskEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexShaderWriteMaskEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexShaderWriteMaskEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'FALSE' else + if self.val = UInt32($0001) then Result := 'TRUE' else + Result := self.val.ToString; end; end; @@ -10489,10 +13289,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexWeightPointerTypeEXT).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexWeightPointerTypeEXT(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexWeightPointerTypeEXT[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1406) then Result := 'FLOAT' else + Result := self.val.ToString; end; end; @@ -10515,10 +13313,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureStorageMaskAMD).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'TextureStorageMaskAMD[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'TEXTURE_STORAGE_SPARSE_BIT_AMD+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -10539,10 +13341,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ObjectTypeAPPLE).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ObjectTypeAPPLE(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ObjectTypeAPPLE[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8A0A) then Result := 'DRAW_PIXELS_APPLE' else + if self.val = UInt32($8A0B) then Result := 'FENCE_APPLE' else + Result := self.val.ToString; end; end; @@ -10561,10 +13362,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexArrayPNameAPPLE).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexArrayPNameAPPLE(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexArrayPNameAPPLE[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($85B4) then Result := 'STORAGE_CLIENT_APPLE' else + if self.val = UInt32($85BE) then Result := 'STORAGE_CACHED_APPLE' else + if self.val = UInt32($85BF) then Result := 'STORAGE_SHARED_APPLE' else + Result := self.val.ToString; end; end; @@ -10585,10 +13386,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ArrayObjectPNameATI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ArrayObjectPNameATI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ArrayObjectPNameATI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8764) then Result := 'OBJECT_BUFFER_SIZE_ATI' else + if self.val = UInt32($8765) then Result := 'OBJECT_BUFFER_USAGE_ATI' else + Result := self.val.ToString; end; end; @@ -10605,10 +13405,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ArrayObjectUsageATI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ArrayObjectUsageATI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ArrayObjectUsageATI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8760) then Result := 'STATIC_ATI' else + if self.val = UInt32($8761) then Result := 'DYNAMIC_ATI' else + Result := self.val.ToString; end; end; @@ -10627,10 +13426,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ElementPointerTypeATI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ElementPointerTypeATI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ElementPointerTypeATI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + Result := self.val.ToString; end; end; @@ -10665,10 +13464,18 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FragmentOpATI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FragmentOpATI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FragmentOpATI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8961) then Result := 'MOV_ATI' else + if self.val = UInt32($8963) then Result := 'ADD_ATI' else + if self.val = UInt32($8964) then Result := 'MUL_ATI' else + if self.val = UInt32($8965) then Result := 'SUB_ATI' else + if self.val = UInt32($8966) then Result := 'DOT3_ATI' else + if self.val = UInt32($8967) then Result := 'DOT4_ATI' else + if self.val = UInt32($8968) then Result := 'MAD_ATI' else + if self.val = UInt32($8969) then Result := 'LERP_ATI' else + if self.val = UInt32($896A) then Result := 'CND_ATI' else + if self.val = UInt32($896B) then Result := 'CND0_ATI' else + if self.val = UInt32($896C) then Result := 'DOT2_ADD_ATI' else + Result := self.val.ToString; end; end; @@ -10689,10 +13496,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetTexBumpParameterATI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetTexBumpParameterATI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetTexBumpParameterATI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8775) then Result := 'BUMP_ROT_MATRIX_ATI' else + if self.val = UInt32($8776) then Result := 'BUMP_ROT_MATRIX_SIZE_ATI' else + if self.val = UInt32($8777) then Result := 'BUMP_NUM_TEX_UNITS_ATI' else + if self.val = UInt32($8778) then Result := 'BUMP_TEX_UNITS_ATI' else + Result := self.val.ToString; end; end; @@ -10711,10 +13519,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PNTrianglesPNameATI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PNTrianglesPNameATI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PNTrianglesPNameATI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($87F2) then Result := 'PN_TRIANGLES_POINT_MODE_ATI' else + if self.val = UInt32($87F3) then Result := 'PN_TRIANGLES_NORMAL_MODE_ATI' else + if self.val = UInt32($87F4) then Result := 'PN_TRIANGLES_TESSELATION_LEVEL_ATI' else + Result := self.val.ToString; end; end; @@ -10731,10 +13539,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PreserveModeATI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PreserveModeATI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PreserveModeATI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8762) then Result := 'PRESERVE_ATI' else + if self.val = UInt32($8763) then Result := 'DISCARD_ATI' else + Result := self.val.ToString; end; end; @@ -10755,10 +13562,27 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SwizzleOpATI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SwizzleOpATI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SwizzleOpATI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8976) then Result := 'SWIZZLE_STR_ATI' else + if self.val = UInt32($8977) then Result := 'SWIZZLE_STQ_ATI' else + if self.val = UInt32($8978) then Result := 'SWIZZLE_STR_DR_ATI' else + if self.val = UInt32($8979) then Result := 'SWIZZLE_STQ_DQ_ATI' else + Result := self.val.ToString; + end; + + end; + + TexBumpParameterATI = record + public val: UInt32; + public constructor(val: UInt32) := self.val := val; + + private static _BUMP_ROT_MATRIX_ATI := new TexBumpParameterATI($8775); + + public static property BUMP_ROT_MATRIX_ATI: TexBumpParameterATI read _BUMP_ROT_MATRIX_ATI; + + public function ToString: string; override; + begin + if self.val = UInt32($8775) then Result := 'BUMP_ROT_MATRIX_ATI' else + Result := self.val.ToString; end; end; @@ -10787,10 +13611,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexStreamATI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexStreamATI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexStreamATI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($876C) then Result := 'VERTEX_STREAM0_ATI' else + if self.val = UInt32($876D) then Result := 'VERTEX_STREAM1_ATI' else + if self.val = UInt32($876E) then Result := 'VERTEX_STREAM2_ATI' else + if self.val = UInt32($876F) then Result := 'VERTEX_STREAM3_ATI' else + if self.val = UInt32($8770) then Result := 'VERTEX_STREAM4_ATI' else + if self.val = UInt32($8771) then Result := 'VERTEX_STREAM5_ATI' else + if self.val = UInt32($8772) then Result := 'VERTEX_STREAM6_ATI' else + if self.val = UInt32($8773) then Result := 'VERTEX_STREAM7_ATI' else + Result := self.val.ToString; end; end; @@ -10811,10 +13640,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelDataTypeGDI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelDataTypeGDI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelDataTypeGDI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'RGBA' else + if self.val = UInt32($0001) then Result := 'COLORINDEX' else + Result := self.val.ToString; end; end; @@ -10881,10 +13709,30 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelFormatFlagsGDI).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'PixelFormatFlagsGDI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'DOUBLEBUFFER+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'STEREO+'; + if self.val and UInt32($0004) = UInt32($0004) then res += 'DRAW_TO_WINDOW+'; + if self.val and UInt32($0008) = UInt32($0008) then res += 'DRAW_TO_BITMAP+'; + if self.val and UInt32($000A) = UInt32($000A) then res += 'SUPPORT_GDI+'; + if self.val and UInt32($0014) = UInt32($0014) then res += 'SUPPORT_OPENGL+'; + if self.val and UInt32($0028) = UInt32($0028) then res += 'GENERIC_FORMAT+'; + if self.val and UInt32($0050) = UInt32($0050) then res += 'NEED_PALETTE+'; + if self.val and UInt32($0064) = UInt32($0064) then res += 'NEED_SYSTEM_PALETTE+'; + if self.val and UInt32($00C8) = UInt32($00C8) then res += 'SWAP_EXCHANGE+'; + if self.val and UInt32($0190) = UInt32($0190) then res += 'SWAP_COPY+'; + if self.val and UInt32($0320) = UInt32($0320) then res += 'SWAP_LAYER_BUFFERS+'; + if self.val and UInt32($03E8) = UInt32($03E8) then res += 'GENERIC_ACCELERATED+'; + if self.val and UInt32($07D0) = UInt32($07D0) then res += 'SUPPORT_DIRECTDRAW+'; + if self.val and UInt32($1312D00) = UInt32($1312D00) then res += 'DEPTH_DONTCARE+'; + if self.val and UInt32($2625A00) = UInt32($2625A00) then res += 'DOUBLEBUFFER_DONTCARE+'; + if self.val and UInt32($4C4B400) = UInt32($4C4B400) then res += 'STEREO_DONTCARE+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -10921,10 +13769,17 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ImageTransformPNameHP).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ImageTransformPNameHP(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ImageTransformPNameHP[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8155) then Result := 'IMAGE_SCALE_X_HP' else + if self.val = UInt32($8156) then Result := 'IMAGE_SCALE_Y_HP' else + if self.val = UInt32($8157) then Result := 'IMAGE_TRANSLATE_X_HP' else + if self.val = UInt32($8158) then Result := 'IMAGE_TRANSLATE_Y_HP' else + if self.val = UInt32($8159) then Result := 'IMAGE_ROTATE_ANGLE_HP' else + if self.val = UInt32($815A) then Result := 'IMAGE_ROTATE_ORIGIN_X_HP' else + if self.val = UInt32($815B) then Result := 'IMAGE_ROTATE_ORIGIN_Y_HP' else + if self.val = UInt32($815C) then Result := 'IMAGE_MAG_FILTER_HP' else + if self.val = UInt32($815D) then Result := 'IMAGE_MIN_FILTER_HP' else + if self.val = UInt32($815E) then Result := 'IMAGE_CUBIC_WEIGHT_HP' else + Result := self.val.ToString; end; end; @@ -10939,10 +13794,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ImageTransformTargetHP).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ImageTransformTargetHP(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ImageTransformTargetHP[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8161) then Result := 'IMAGE_TRANSFORM_2D_HP' else + Result := self.val.ToString; end; end; @@ -10963,10 +13816,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FogPointerTypeIBM).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FogPointerTypeIBM(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FogPointerTypeIBM[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -10987,10 +13839,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SecondaryColorPointerTypeIBM).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SecondaryColorPointerTypeIBM(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SecondaryColorPointerTypeIBM[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1402) then Result := 'SHORT' else + if self.val = UInt32($1404) then Result := 'INT' else + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -11016,10 +13869,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PerfQueryCapFlagsINTEL).GetProperties.Where(prop->prop.Name.StartsWith('HAS_FLAG_') and boolean(prop.GetValue(self))).Select(prop->prop.Name.TrimStart('&')).ToList; - Result := res.Count=0? - $'PerfQueryCapFlagsINTEL[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.JoinToString('+'); + var res := new StringBuilder; + if self.val and UInt32($0000) = UInt32($0000) then res += 'PERFQUERY_SINGLE_CONTEXT_INTEL+'; + if self.val and UInt32($0001) = UInt32($0001) then res += 'PERFQUERY_GLOBAL_CONTEXT_INTEL+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; end; end; @@ -11038,10 +13896,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PerfQueryDataFlagsINTEL).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PerfQueryDataFlagsINTEL(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PerfQueryDataFlagsINTEL[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($83F9) then Result := 'PERFQUERY_DONOT_FLUSH_INTEL' else + if self.val = UInt32($83FA) then Result := 'PERFQUERY_FLUSH_INTEL' else + if self.val = UInt32($83FB) then Result := 'PERFQUERY_WAIT_INTEL' else + Result := self.val.ToString; end; end; @@ -11062,10 +13920,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CombinerBiasNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CombinerBiasNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CombinerBiasNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NONE' else + if self.val = UInt32($8541) then Result := 'BIAS_BY_NEGATIVE_ONE_HALF_NV' else + Result := self.val.ToString; end; end; @@ -11084,10 +13941,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CombinerComponentUsageNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CombinerComponentUsageNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CombinerComponentUsageNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1905) then Result := 'BLUE' else + if self.val = UInt32($1906) then Result := 'ALPHA' else + if self.val = UInt32($1907) then Result := 'RGB' else + Result := self.val.ToString; end; end; @@ -11116,10 +13973,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CombinerMappingNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CombinerMappingNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CombinerMappingNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8536) then Result := 'UNSIGNED_IDENTITY_NV' else + if self.val = UInt32($8537) then Result := 'UNSIGNED_INVERT_NV' else + if self.val = UInt32($8538) then Result := 'EXPAND_NORMAL_NV' else + if self.val = UInt32($8539) then Result := 'EXPAND_NEGATE_NV' else + if self.val = UInt32($853A) then Result := 'HALF_BIAS_NORMAL_NV' else + if self.val = UInt32($853B) then Result := 'HALF_BIAS_NEGATE_NV' else + if self.val = UInt32($853C) then Result := 'SIGNED_IDENTITY_NV' else + if self.val = UInt32($853D) then Result := 'SIGNED_NEGATE_NV' else + Result := self.val.ToString; end; end; @@ -11138,10 +14000,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CombinerParameterNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CombinerParameterNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CombinerParameterNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8542) then Result := 'COMBINER_INPUT_NV' else + if self.val = UInt32($8543) then Result := 'COMBINER_MAPPING_NV' else + if self.val = UInt32($8544) then Result := 'COMBINER_COMPONENT_USAGE_NV' else + Result := self.val.ToString; end; end; @@ -11158,10 +14020,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CombinerPortionNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CombinerPortionNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CombinerPortionNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1906) then Result := 'ALPHA' else + if self.val = UInt32($1907) then Result := 'RGB' else + Result := self.val.ToString; end; end; @@ -11188,10 +14049,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CombinerRegisterNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CombinerRegisterNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CombinerRegisterNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($84C0) then Result := 'TEXTURE0_ARB' else + if self.val = UInt32($84C1) then Result := 'TEXTURE1_ARB' else + if self.val = UInt32($852C) then Result := 'PRIMARY_COLOR_NV' else + if self.val = UInt32($852D) then Result := 'SECONDARY_COLOR_NV' else + if self.val = UInt32($852E) then Result := 'SPARE0_NV' else + if self.val = UInt32($852F) then Result := 'SPARE1_NV' else + if self.val = UInt32($8530) then Result := 'DISCARD_NV' else + Result := self.val.ToString; end; end; @@ -11212,10 +14077,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CombinerScaleNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CombinerScaleNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CombinerScaleNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($0000) then Result := 'NONE' else + if self.val = UInt32($853E) then Result := 'SCALE_BY_TWO_NV' else + if self.val = UInt32($853F) then Result := 'SCALE_BY_FOUR_NV' else + if self.val = UInt32($8540) then Result := 'SCALE_BY_ONE_HALF_NV' else + Result := self.val.ToString; end; end; @@ -11244,10 +14110,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CombinerStageNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CombinerStageNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CombinerStageNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8550) then Result := 'COMBINER0_NV' else + if self.val = UInt32($8551) then Result := 'COMBINER1_NV' else + if self.val = UInt32($8552) then Result := 'COMBINER2_NV' else + if self.val = UInt32($8553) then Result := 'COMBINER3_NV' else + if self.val = UInt32($8554) then Result := 'COMBINER4_NV' else + if self.val = UInt32($8555) then Result := 'COMBINER5_NV' else + if self.val = UInt32($8556) then Result := 'COMBINER6_NV' else + if self.val = UInt32($8557) then Result := 'COMBINER7_NV' else + Result := self.val.ToString; end; end; @@ -11274,10 +14145,14 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(CombinerVariableNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->CombinerVariableNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'CombinerVariableNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8523) then Result := 'VARIABLE_A_NV' else + if self.val = UInt32($8524) then Result := 'VARIABLE_B_NV' else + if self.val = UInt32($8525) then Result := 'VARIABLE_C_NV' else + if self.val = UInt32($8526) then Result := 'VARIABLE_D_NV' else + if self.val = UInt32($8527) then Result := 'VARIABLE_E_NV' else + if self.val = UInt32($8528) then Result := 'VARIABLE_F_NV' else + if self.val = UInt32($8529) then Result := 'VARIABLE_G_NV' else + Result := self.val.ToString; end; end; @@ -11292,10 +14167,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(EvalMapsModeNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->EvalMapsModeNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'EvalMapsModeNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1B02) then Result := 'FILL_NV' else + Result := self.val.ToString; end; end; @@ -11312,10 +14185,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(EvalTargetNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->EvalTargetNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'EvalTargetNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($86C0) then Result := 'EVAL_2D_NV' else + if self.val = UInt32($86C1) then Result := 'EVAL_TRIANGULAR_2D_NV' else + Result := self.val.ToString; end; end; @@ -11330,10 +14202,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FenceConditionNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FenceConditionNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FenceConditionNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($84F2) then Result := 'ALL_COMPLETED_NV' else + Result := self.val.ToString; end; end; @@ -11350,10 +14220,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FenceParameterNameNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FenceParameterNameNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FenceParameterNameNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($84F3) then Result := 'FENCE_STATUS_NV' else + if self.val = UInt32($84F4) then Result := 'FENCE_CONDITION_NV' else + Result := self.val.ToString; end; end; @@ -11372,10 +14241,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetMultisamplePNameNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetMultisamplePNameNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetMultisamplePNameNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8E50) then Result := 'SAMPLE_LOCATION_ARB' else + if self.val = UInt32($8E50) then Result := 'SAMPLE_POSITION' else + if self.val = UInt32($9341) then Result := 'PROGRAMMABLE_SAMPLE_LOCATION_ARB' else + Result := self.val.ToString; end; end; @@ -11392,10 +14261,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MapAttribParameterNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MapAttribParameterNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MapAttribParameterNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($86C3) then Result := 'MAP_ATTRIB_U_ORDER_NV' else + if self.val = UInt32($86C4) then Result := 'MAP_ATTRIB_V_ORDER_NV' else + Result := self.val.ToString; end; end; @@ -11410,10 +14278,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MapParameterNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MapParameterNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MapParameterNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($86C2) then Result := 'MAP_TESSELLATION_NV' else + Result := self.val.ToString; end; end; @@ -11430,10 +14296,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(MapTypeNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->MapTypeNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'MapTypeNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1406) then Result := 'FLOAT' else + if self.val = UInt32($140A) then Result := 'DOUBLE' else + Result := self.val.ToString; end; end; @@ -11450,10 +14315,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(OcclusionQueryParameterNameNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->OcclusionQueryParameterNameNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'OcclusionQueryParameterNameNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8866) then Result := 'PIXEL_COUNT_NV' else + if self.val = UInt32($8867) then Result := 'PIXEL_COUNT_AVAILABLE_NV' else + Result := self.val.ToString; end; end; @@ -11470,10 +14334,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelDataRangeTargetNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelDataRangeTargetNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelDataRangeTargetNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8878) then Result := 'WRITE_PIXEL_DATA_RANGE_NV' else + if self.val = UInt32($8879) then Result := 'READ_PIXEL_DATA_RANGE_NV' else + Result := self.val.ToString; end; end; @@ -11488,10 +14351,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(VertexAttribEnumNV).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->VertexAttribEnumNV(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'VertexAttribEnumNV[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8644) then Result := 'PROGRAM_PARAMETER_NV' else + Result := self.val.ToString; end; end; @@ -11516,10 +14377,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(HintTargetPGI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->HintTargetPGI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'HintTargetPGI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1A22A) then Result := 'VERTEX_DATA_HINT_PGI' else + if self.val = UInt32($1A22B) then Result := 'VERTEX_CONSISTENT_HINT_PGI' else + if self.val = UInt32($1A22C) then Result := 'MATERIAL_SIDE_HINT_PGI' else + if self.val = UInt32($1A22D) then Result := 'MAX_VERTEX_HINT_PGI' else + Result := self.val.ToString; end; end; @@ -11528,6 +14390,79 @@ uses System.Runtime.CompilerServices; {$region SGI} + ColorTableParameterPNameSGI = record + public val: UInt32; + public constructor(val: UInt32) := self.val := val; + + private static _COLOR_TABLE_SCALE := new ColorTableParameterPNameSGI($80D6); + private static _COLOR_TABLE_SCALE_SGI := new ColorTableParameterPNameSGI($80D6); + private static _COLOR_TABLE_BIAS := new ColorTableParameterPNameSGI($80D7); + private static _COLOR_TABLE_BIAS_SGI := new ColorTableParameterPNameSGI($80D7); + private static _COLOR_TABLE_FORMAT := new ColorTableParameterPNameSGI($80D8); + private static _COLOR_TABLE_FORMAT_SGI := new ColorTableParameterPNameSGI($80D8); + private static _COLOR_TABLE_WIDTH := new ColorTableParameterPNameSGI($80D9); + private static _COLOR_TABLE_WIDTH_SGI := new ColorTableParameterPNameSGI($80D9); + private static _COLOR_TABLE_RED_SIZE := new ColorTableParameterPNameSGI($80DA); + private static _COLOR_TABLE_RED_SIZE_SGI := new ColorTableParameterPNameSGI($80DA); + private static _COLOR_TABLE_GREEN_SIZE := new ColorTableParameterPNameSGI($80DB); + private static _COLOR_TABLE_GREEN_SIZE_SGI := new ColorTableParameterPNameSGI($80DB); + private static _COLOR_TABLE_BLUE_SIZE := new ColorTableParameterPNameSGI($80DC); + private static _COLOR_TABLE_BLUE_SIZE_SGI := new ColorTableParameterPNameSGI($80DC); + private static _COLOR_TABLE_ALPHA_SIZE := new ColorTableParameterPNameSGI($80DD); + private static _COLOR_TABLE_ALPHA_SIZE_SGI := new ColorTableParameterPNameSGI($80DD); + private static _COLOR_TABLE_LUMINANCE_SIZE := new ColorTableParameterPNameSGI($80DE); + private static _COLOR_TABLE_LUMINANCE_SIZE_SGI := new ColorTableParameterPNameSGI($80DE); + private static _COLOR_TABLE_INTENSITY_SIZE := new ColorTableParameterPNameSGI($80DF); + private static _COLOR_TABLE_INTENSITY_SIZE_SGI := new ColorTableParameterPNameSGI($80DF); + + public static property COLOR_TABLE_SCALE: ColorTableParameterPNameSGI read _COLOR_TABLE_SCALE; + public static property COLOR_TABLE_SCALE_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_SCALE_SGI; + public static property COLOR_TABLE_BIAS: ColorTableParameterPNameSGI read _COLOR_TABLE_BIAS; + public static property COLOR_TABLE_BIAS_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_BIAS_SGI; + public static property COLOR_TABLE_FORMAT: ColorTableParameterPNameSGI read _COLOR_TABLE_FORMAT; + public static property COLOR_TABLE_FORMAT_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_FORMAT_SGI; + public static property COLOR_TABLE_WIDTH: ColorTableParameterPNameSGI read _COLOR_TABLE_WIDTH; + public static property COLOR_TABLE_WIDTH_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_WIDTH_SGI; + public static property COLOR_TABLE_RED_SIZE: ColorTableParameterPNameSGI read _COLOR_TABLE_RED_SIZE; + public static property COLOR_TABLE_RED_SIZE_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_RED_SIZE_SGI; + public static property COLOR_TABLE_GREEN_SIZE: ColorTableParameterPNameSGI read _COLOR_TABLE_GREEN_SIZE; + public static property COLOR_TABLE_GREEN_SIZE_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_GREEN_SIZE_SGI; + public static property COLOR_TABLE_BLUE_SIZE: ColorTableParameterPNameSGI read _COLOR_TABLE_BLUE_SIZE; + public static property COLOR_TABLE_BLUE_SIZE_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_BLUE_SIZE_SGI; + public static property COLOR_TABLE_ALPHA_SIZE: ColorTableParameterPNameSGI read _COLOR_TABLE_ALPHA_SIZE; + public static property COLOR_TABLE_ALPHA_SIZE_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_ALPHA_SIZE_SGI; + public static property COLOR_TABLE_LUMINANCE_SIZE: ColorTableParameterPNameSGI read _COLOR_TABLE_LUMINANCE_SIZE; + public static property COLOR_TABLE_LUMINANCE_SIZE_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_LUMINANCE_SIZE_SGI; + public static property COLOR_TABLE_INTENSITY_SIZE: ColorTableParameterPNameSGI read _COLOR_TABLE_INTENSITY_SIZE; + public static property COLOR_TABLE_INTENSITY_SIZE_SGI: ColorTableParameterPNameSGI read _COLOR_TABLE_INTENSITY_SIZE_SGI; + + public function ToString: string; override; + begin + if self.val = UInt32($80D6) then Result := 'COLOR_TABLE_SCALE' else + if self.val = UInt32($80D6) then Result := 'COLOR_TABLE_SCALE_SGI' else + if self.val = UInt32($80D7) then Result := 'COLOR_TABLE_BIAS' else + if self.val = UInt32($80D7) then Result := 'COLOR_TABLE_BIAS_SGI' else + if self.val = UInt32($80D8) then Result := 'COLOR_TABLE_FORMAT' else + if self.val = UInt32($80D8) then Result := 'COLOR_TABLE_FORMAT_SGI' else + if self.val = UInt32($80D9) then Result := 'COLOR_TABLE_WIDTH' else + if self.val = UInt32($80D9) then Result := 'COLOR_TABLE_WIDTH_SGI' else + if self.val = UInt32($80DA) then Result := 'COLOR_TABLE_RED_SIZE' else + if self.val = UInt32($80DA) then Result := 'COLOR_TABLE_RED_SIZE_SGI' else + if self.val = UInt32($80DB) then Result := 'COLOR_TABLE_GREEN_SIZE' else + if self.val = UInt32($80DB) then Result := 'COLOR_TABLE_GREEN_SIZE_SGI' else + if self.val = UInt32($80DC) then Result := 'COLOR_TABLE_BLUE_SIZE' else + if self.val = UInt32($80DC) then Result := 'COLOR_TABLE_BLUE_SIZE_SGI' else + if self.val = UInt32($80DD) then Result := 'COLOR_TABLE_ALPHA_SIZE' else + if self.val = UInt32($80DD) then Result := 'COLOR_TABLE_ALPHA_SIZE_SGI' else + if self.val = UInt32($80DE) then Result := 'COLOR_TABLE_LUMINANCE_SIZE' else + if self.val = UInt32($80DE) then Result := 'COLOR_TABLE_LUMINANCE_SIZE_SGI' else + if self.val = UInt32($80DF) then Result := 'COLOR_TABLE_INTENSITY_SIZE' else + if self.val = UInt32($80DF) then Result := 'COLOR_TABLE_INTENSITY_SIZE_SGI' else + Result := self.val.ToString; + end; + + end; + ColorTableTargetSGI = record public val: UInt32; public constructor(val: UInt32) := self.val := val; @@ -11564,10 +14499,21 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ColorTableTargetSGI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ColorTableTargetSGI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ColorTableTargetSGI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($80BC) then Result := 'TEXTURE_COLOR_TABLE_SGI' else + if self.val = UInt32($80BD) then Result := 'PROXY_TEXTURE_COLOR_TABLE_SGI' else + if self.val = UInt32($80D0) then Result := 'COLOR_TABLE' else + if self.val = UInt32($80D0) then Result := 'COLOR_TABLE_SGI' else + if self.val = UInt32($80D1) then Result := 'POST_CONVOLUTION_COLOR_TABLE' else + if self.val = UInt32($80D1) then Result := 'POST_CONVOLUTION_COLOR_TABLE_SGI' else + if self.val = UInt32($80D2) then Result := 'POST_COLOR_MATRIX_COLOR_TABLE' else + if self.val = UInt32($80D2) then Result := 'POST_COLOR_MATRIX_COLOR_TABLE_SGI' else + if self.val = UInt32($80D3) then Result := 'PROXY_COLOR_TABLE' else + if self.val = UInt32($80D3) then Result := 'PROXY_COLOR_TABLE_SGI' else + if self.val = UInt32($80D4) then Result := 'PROXY_POST_CONVOLUTION_COLOR_TABLE' else + if self.val = UInt32($80D4) then Result := 'PROXY_POST_CONVOLUTION_COLOR_TABLE_SGI' else + if self.val = UInt32($80D5) then Result := 'PROXY_POST_COLOR_MATRIX_COLOR_TABLE' else + if self.val = UInt32($80D5) then Result := 'PROXY_POST_COLOR_MATRIX_COLOR_TABLE_SGI' else + Result := self.val.ToString; end; end; @@ -11620,10 +14566,27 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(GetColorTableParameterPNameSGI).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->GetColorTableParameterPNameSGI(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'GetColorTableParameterPNameSGI[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($80D6) then Result := 'COLOR_TABLE_SCALE' else + if self.val = UInt32($80D6) then Result := 'COLOR_TABLE_SCALE_SGI' else + if self.val = UInt32($80D7) then Result := 'COLOR_TABLE_BIAS' else + if self.val = UInt32($80D7) then Result := 'COLOR_TABLE_BIAS_SGI' else + if self.val = UInt32($80D8) then Result := 'COLOR_TABLE_FORMAT' else + if self.val = UInt32($80D8) then Result := 'COLOR_TABLE_FORMAT_SGI' else + if self.val = UInt32($80D9) then Result := 'COLOR_TABLE_WIDTH' else + if self.val = UInt32($80D9) then Result := 'COLOR_TABLE_WIDTH_SGI' else + if self.val = UInt32($80DA) then Result := 'COLOR_TABLE_RED_SIZE' else + if self.val = UInt32($80DA) then Result := 'COLOR_TABLE_RED_SIZE_SGI' else + if self.val = UInt32($80DB) then Result := 'COLOR_TABLE_GREEN_SIZE' else + if self.val = UInt32($80DB) then Result := 'COLOR_TABLE_GREEN_SIZE_SGI' else + if self.val = UInt32($80DC) then Result := 'COLOR_TABLE_BLUE_SIZE' else + if self.val = UInt32($80DC) then Result := 'COLOR_TABLE_BLUE_SIZE_SGI' else + if self.val = UInt32($80DD) then Result := 'COLOR_TABLE_ALPHA_SIZE' else + if self.val = UInt32($80DD) then Result := 'COLOR_TABLE_ALPHA_SIZE_SGI' else + if self.val = UInt32($80DE) then Result := 'COLOR_TABLE_LUMINANCE_SIZE' else + if self.val = UInt32($80DE) then Result := 'COLOR_TABLE_LUMINANCE_SIZE_SGI' else + if self.val = UInt32($80DF) then Result := 'COLOR_TABLE_INTENSITY_SIZE' else + if self.val = UInt32($80DF) then Result := 'COLOR_TABLE_INTENSITY_SIZE_SGI' else + Result := self.val.ToString; end; end; @@ -11644,10 +14607,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelTexGenParameterNameSGIS).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelTexGenParameterNameSGIS(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelTexGenParameterNameSGIS[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8354) then Result := 'PIXEL_FRAGMENT_RGB_SOURCE_SGIS' else + if self.val = UInt32($8355) then Result := 'PIXEL_FRAGMENT_ALPHA_SOURCE_SGIS' else + Result := self.val.ToString; end; end; @@ -11688,10 +14650,21 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SamplePatternSGIS).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SamplePatternSGIS(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SamplePatternSGIS[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($80A1) then Result := 'GL_1PASS_EXT' else + if self.val = UInt32($80A1) then Result := 'GL_1PASS_SGIS' else + if self.val = UInt32($80A2) then Result := 'GL_2PASS_0_EXT' else + if self.val = UInt32($80A2) then Result := 'GL_2PASS_0_SGIS' else + if self.val = UInt32($80A3) then Result := 'GL_2PASS_1_EXT' else + if self.val = UInt32($80A3) then Result := 'GL_2PASS_1_SGIS' else + if self.val = UInt32($80A4) then Result := 'GL_4PASS_0_EXT' else + if self.val = UInt32($80A4) then Result := 'GL_4PASS_0_SGIS' else + if self.val = UInt32($80A5) then Result := 'GL_4PASS_1_EXT' else + if self.val = UInt32($80A5) then Result := 'GL_4PASS_1_SGIS' else + if self.val = UInt32($80A6) then Result := 'GL_4PASS_2_EXT' else + if self.val = UInt32($80A6) then Result := 'GL_4PASS_2_SGIS' else + if self.val = UInt32($80A7) then Result := 'GL_4PASS_3_EXT' else + if self.val = UInt32($80A7) then Result := 'GL_4PASS_3_SGIS' else + Result := self.val.ToString; end; end; @@ -11706,10 +14679,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(TextureFilterSGIS).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->TextureFilterSGIS(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'TextureFilterSGIS[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8146) then Result := 'FILTER4_SGIS' else + Result := self.val.ToString; end; end; @@ -11718,6 +14689,36 @@ uses System.Runtime.CompilerServices; {$region SGIX} + FfdMaskSGIX = record + public val: UInt32; + public constructor(val: UInt32) := self.val := val; + + private static _TEXTURE_DEFORMATION_BIT_SGIX := new FfdMaskSGIX($0001); + private static _GEOMETRY_DEFORMATION_BIT_SGIX := new FfdMaskSGIX($0002); + + public static property TEXTURE_DEFORMATION_BIT_SGIX: FfdMaskSGIX read _TEXTURE_DEFORMATION_BIT_SGIX; + public static property GEOMETRY_DEFORMATION_BIT_SGIX: FfdMaskSGIX read _GEOMETRY_DEFORMATION_BIT_SGIX; + + public static function operator or(f1,f2: FfdMaskSGIX) := new FfdMaskSGIX(f1.val or f2.val); + + public property HAS_FLAG_TEXTURE_DEFORMATION_BIT_SGIX: boolean read self.val and $0001 <> 0; + public property HAS_FLAG_GEOMETRY_DEFORMATION_BIT_SGIX: boolean read self.val and $0002 <> 0; + + public function ToString: string; override; + begin + var res := new StringBuilder; + if self.val and UInt32($0001) = UInt32($0001) then res += 'TEXTURE_DEFORMATION_BIT_SGIX+'; + if self.val and UInt32($0002) = UInt32($0002) then res += 'GEOMETRY_DEFORMATION_BIT_SGIX+'; + if res.Length<>0 then + begin + res.Length -= 1; + Result := res.ToString; + end else + Result := self.val.ToString; + end; + + end; + FfdTargetSGIX = record public val: UInt32; public constructor(val: UInt32) := self.val := val; @@ -11730,10 +14731,9 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FfdTargetSGIX).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FfdTargetSGIX(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FfdTargetSGIX[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8194) then Result := 'GEOMETRY_DEFORMATION_SGIX' else + if self.val = UInt32($8195) then Result := 'TEXTURE_DEFORMATION_SGIX' else + Result := self.val.ToString; end; end; @@ -11754,10 +14754,11 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FragmentLightModelParameterSGIX).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FragmentLightModelParameterSGIX(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FragmentLightModelParameterSGIX[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8408) then Result := 'FRAGMENT_LIGHT_MODEL_LOCAL_VIEWER_SGIX' else + if self.val = UInt32($8409) then Result := 'FRAGMENT_LIGHT_MODEL_TWO_SIDE_SGIX' else + if self.val = UInt32($840A) then Result := 'FRAGMENT_LIGHT_MODEL_AMBIENT_SGIX' else + if self.val = UInt32($840B) then Result := 'FRAGMENT_LIGHT_MODEL_NORMAL_INTERPOLATION_SGIX' else + Result := self.val.ToString; end; end; @@ -11786,10 +14787,15 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FragmentLightNameSGIX).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FragmentLightNameSGIX(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FragmentLightNameSGIX[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($840C) then Result := 'FRAGMENT_LIGHT0_SGIX' else + if self.val = UInt32($840D) then Result := 'FRAGMENT_LIGHT1_SGIX' else + if self.val = UInt32($840E) then Result := 'FRAGMENT_LIGHT2_SGIX' else + if self.val = UInt32($840F) then Result := 'FRAGMENT_LIGHT3_SGIX' else + if self.val = UInt32($8410) then Result := 'FRAGMENT_LIGHT4_SGIX' else + if self.val = UInt32($8411) then Result := 'FRAGMENT_LIGHT5_SGIX' else + if self.val = UInt32($8412) then Result := 'FRAGMENT_LIGHT6_SGIX' else + if self.val = UInt32($8413) then Result := 'FRAGMENT_LIGHT7_SGIX' else + Result := self.val.ToString; end; end; @@ -11822,10 +14828,17 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(FragmentLightParameterSGIX).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->FragmentLightParameterSGIX(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'FragmentLightParameterSGIX[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1200) then Result := 'AMBIENT' else + if self.val = UInt32($1201) then Result := 'DIFFUSE' else + if self.val = UInt32($1202) then Result := 'SPECULAR' else + if self.val = UInt32($1203) then Result := 'POSITION' else + if self.val = UInt32($1204) then Result := 'SPOT_DIRECTION' else + if self.val = UInt32($1205) then Result := 'SPOT_EXPONENT' else + if self.val = UInt32($1206) then Result := 'SPOT_CUTOFF' else + if self.val = UInt32($1207) then Result := 'CONSTANT_ATTENUATION' else + if self.val = UInt32($1208) then Result := 'LINEAR_ATTENUATION' else + if self.val = UInt32($1209) then Result := 'QUADRATIC_ATTENUATION' else + Result := self.val.ToString; end; end; @@ -11840,10 +14853,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(LightEnvParameterSGIX).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->LightEnvParameterSGIX(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'LightEnvParameterSGIX[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8407) then Result := 'LIGHT_ENV_MODE_SGIX' else + Result := self.val.ToString; end; end; @@ -11866,10 +14877,12 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(PixelTexGenModeSGIX).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->PixelTexGenModeSGIX(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'PixelTexGenModeSGIX[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8184) then Result := 'PIXEL_TEX_GEN_Q_CEILING_SGIX' else + if self.val = UInt32($8185) then Result := 'PIXEL_TEX_GEN_Q_ROUND_SGIX' else + if self.val = UInt32($8186) then Result := 'PIXEL_TEX_GEN_Q_FLOOR_SGIX' else + if self.val = UInt32($8189) then Result := 'PIXEL_TEX_GEN_ALPHA_LS_SGIX' else + if self.val = UInt32($818A) then Result := 'PIXEL_TEX_GEN_ALPHA_MS_SGIX' else + Result := self.val.ToString; end; end; @@ -11884,10 +14897,8 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(SpriteParameterNameSGIX).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->SpriteParameterNameSGIX(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'SpriteParameterNameSGIX[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($8149) then Result := 'SPRITE_MODE_SGIX' else + Result := self.val.ToString; end; end; @@ -11910,10 +14921,10 @@ uses System.Runtime.CompilerServices; public function ToString: string; override; begin - var res := typeof(ReplacementCodeTypeSUN).GetFields(System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic).FirstOrDefault(fld->ReplacementCodeTypeSUN(fld.GetValue(nil)).val=self.val); - Result := res=nil? - $'ReplacementCodeTypeSUN[{ self.val=default(UInt32) ? ''NONE'' : self.val.ToString(''X'') }]': - res.Name.SubString(1); + if self.val = UInt32($1401) then Result := 'UNSIGNED_BYTE' else + if self.val = UInt32($1403) then Result := 'UNSIGNED_SHORT' else + if self.val = UInt32($1405) then Result := 'UNSIGNED_INT' else + Result := self.val.ToString; end; end; @@ -19752,6 +22763,7 @@ uses System.Runtime.CompilerServices; type + [PCUNotRestore] gl = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -19819,13 +22831,13 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffer(target: BufferTargetARB; buffer: BufferName) := z_BindBuffer_ovr_0(target, buffer); - // added in gl3.1 + // added in gl3.0 private z_BindBufferBase_adr := GetFuncAdr('glBindBufferBase'); private z_BindBufferBase_ovr_0 := GetFuncOrNil&(z_BindBufferBase_adr); public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferBase(target: BufferTargetARB; index: UInt32; buffer: BufferName) := z_BindBufferBase_ovr_0(target, index, buffer); - // added in gl3.1 + // added in gl3.0 private z_BindBufferRange_adr := GetFuncAdr('glBindBufferRange'); private z_BindBufferRange_ovr_0 := GetFuncOrNil&(z_BindBufferRange_adr); public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferRange(target: BufferTargetARB; index: UInt32; buffer: BufferName; offset: IntPtr; size: IntPtr) := @@ -22380,7 +25392,7 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64v(pname: GetPName; data: IntPtr) := z_GetInteger64v_ovr_2(pname, data); - // added in gl3.1 + // added in gl3.0 private z_GetIntegeri_v_adr := GetFuncAdr('glGetIntegeri_v'); private z_GetIntegeri_v_ovr_0 := GetFuncOrNil&(z_GetIntegeri_v_adr); private z_GetIntegeri_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetIntegeri_v_adr); @@ -22766,19 +25778,17 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectPtrLabel(ptr: IntPtr; bufSize: Int32; length: IntPtr; &label: IntPtr) := z_GetObjectPtrLabel_ovr_2(ptr, bufSize, length, &label); - // added in gl1.1 - private static procedure z_GetPointerv_ovr_0(pname: GetPointervPName; var ¶ms: IntPtr); - external 'opengl32.dll' name 'glGetPointerv'; - private static procedure z_GetPointerv_ovr_0_anh001(pname: GetPointervPName; ¶ms: IntPtr); - external 'opengl32.dll' name 'glGetPointerv'; + // added in gl4.3 + private z_GetPointerv_adr := GetFuncAdr('glGetPointerv'); + private z_GetPointerv_ovr_0 := GetFuncOrNil&(z_GetPointerv_adr); + private z_GetPointerv_ovr_0_anh001 := GetFuncOrNil&(z_GetPointerv_adr); public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerv(pname: GetPointervPName; ¶ms: array of IntPtr) := if (¶ms<>nil) and (¶ms.Length<>0) then z_GetPointerv_ovr_0(pname, ¶ms[0]) else z_GetPointerv_ovr_0_anh001(pname, IntPtr.Zero); public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerv(pname: GetPointervPName; var ¶ms: IntPtr) := z_GetPointerv_ovr_0(pname, ¶ms); - private static procedure z_GetPointerv_ovr_2(pname: GetPointervPName; ¶ms: pointer); - external 'opengl32.dll' name 'glGetPointerv'; + private z_GetPointerv_ovr_2 := GetFuncOrNil&(z_GetPointerv_adr); public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerv(pname: GetPointervPName; ¶ms: pointer) := z_GetPointerv_ovr_2(pname, ¶ms); @@ -24998,9 +28008,9 @@ type z_PointSize_ovr_0(size); // added in gl1.0 - private static procedure z_PolygonMode_ovr_0(face: DummyEnum; mode: OpenGL.PolygonMode); + private static procedure z_PolygonMode_ovr_0(face: MaterialFace; mode: OpenGL.PolygonMode); external 'opengl32.dll' name 'glPolygonMode'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonMode(face: DummyEnum; mode: OpenGL.PolygonMode) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonMode(face: MaterialFace; mode: OpenGL.PolygonMode) := z_PolygonMode_ovr_0(face, mode); // added in gl1.1 @@ -28249,6 +31259,7 @@ type end; + [PCUNotRestore] glD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -28749,9 +31760,9 @@ type z_Color4usv_ovr_2(v); // added in gl1.0, deprecated in gl3.2 - private static procedure z_ColorMaterial_ovr_0(face: DummyEnum; mode: ColorMaterialParameter); + private static procedure z_ColorMaterial_ovr_0(face: MaterialFace; mode: ColorMaterialParameter); external 'opengl32.dll' name 'glColorMaterial'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorMaterial(face: DummyEnum; mode: ColorMaterialParameter) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorMaterial(face: MaterialFace; mode: ColorMaterialParameter) := z_ColorMaterial_ovr_0(face, mode); // added in gl1.1, deprecated in gl3.2 @@ -29157,35 +32168,35 @@ type z_GetMapiv_ovr_2(target, query, v); // added in gl1.0, deprecated in gl3.2 - private static procedure z_GetMaterialfv_ovr_0(face: DummyEnum; pname: MaterialParameter; var ¶ms: single); + private static procedure z_GetMaterialfv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single); external 'opengl32.dll' name 'glGetMaterialfv'; - private static procedure z_GetMaterialfv_ovr_0_anh0001(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_GetMaterialfv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glGetMaterialfv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialfv(face: DummyEnum; pname: MaterialParameter; ¶ms: array of single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialfv(face: MaterialFace; pname: MaterialParameter; ¶ms: array of single) := if (¶ms<>nil) and (¶ms.Length<>0) then z_GetMaterialfv_ovr_0(face, pname, ¶ms[0]) else z_GetMaterialfv_ovr_0_anh0001(face, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialfv(face: DummyEnum; pname: MaterialParameter; var ¶ms: single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialfv(face: MaterialFace; pname: MaterialParameter; var ¶ms: single) := z_GetMaterialfv_ovr_0(face, pname, ¶ms); - private static procedure z_GetMaterialfv_ovr_2(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_GetMaterialfv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glGetMaterialfv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialfv(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialfv(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) := z_GetMaterialfv_ovr_2(face, pname, ¶ms); // added in gl1.0, deprecated in gl3.2 - private static procedure z_GetMaterialiv_ovr_0(face: DummyEnum; pname: MaterialParameter; var ¶ms: Int32); + private static procedure z_GetMaterialiv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32); external 'opengl32.dll' name 'glGetMaterialiv'; - private static procedure z_GetMaterialiv_ovr_0_anh0001(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_GetMaterialiv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glGetMaterialiv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialiv(face: DummyEnum; pname: MaterialParameter; ¶ms: array of Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialiv(face: MaterialFace; pname: MaterialParameter; ¶ms: array of Int32) := if (¶ms<>nil) and (¶ms.Length<>0) then z_GetMaterialiv_ovr_0(face, pname, ¶ms[0]) else z_GetMaterialiv_ovr_0_anh0001(face, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialiv(face: DummyEnum; pname: MaterialParameter; var ¶ms: Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialiv(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32) := z_GetMaterialiv_ovr_0(face, pname, ¶ms); - private static procedure z_GetMaterialiv_ovr_2(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_GetMaterialiv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glGetMaterialiv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialiv(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialiv(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) := z_GetMaterialiv_ovr_2(face, pname, ¶ms); // added in gl1.0, deprecated in gl3.2 @@ -29733,47 +32744,47 @@ type z_MapGrid2f_ovr_0(un, u1, u2, vn, v1, v2); // added in gl1.0, deprecated in gl3.2 - private static procedure z_Materialf_ovr_0(face: DummyEnum; pname: MaterialParameter; param: single); + private static procedure z_Materialf_ovr_0(face: MaterialFace; pname: MaterialParameter; param: single); external 'opengl32.dll' name 'glMaterialf'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialf(face: DummyEnum; pname: MaterialParameter; param: single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialf(face: MaterialFace; pname: MaterialParameter; param: single) := z_Materialf_ovr_0(face, pname, param); // added in gl1.0, deprecated in gl3.2 - private static procedure z_Materialfv_ovr_0(face: DummyEnum; pname: MaterialParameter; var ¶ms: single); + private static procedure z_Materialfv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single); external 'opengl32.dll' name 'glMaterialfv'; - private static procedure z_Materialfv_ovr_0_anh0001(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_Materialfv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glMaterialfv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialfv(face: DummyEnum; pname: MaterialParameter; ¶ms: array of single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialfv(face: MaterialFace; pname: MaterialParameter; ¶ms: array of single) := if (¶ms<>nil) and (¶ms.Length<>0) then z_Materialfv_ovr_0(face, pname, ¶ms[0]) else z_Materialfv_ovr_0_anh0001(face, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialfv(face: DummyEnum; pname: MaterialParameter; var ¶ms: single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialfv(face: MaterialFace; pname: MaterialParameter; var ¶ms: single) := z_Materialfv_ovr_0(face, pname, ¶ms); - private static procedure z_Materialfv_ovr_2(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_Materialfv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glMaterialfv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialfv(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialfv(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) := z_Materialfv_ovr_2(face, pname, ¶ms); // added in gl1.0, deprecated in gl3.2 - private static procedure z_Materiali_ovr_0(face: DummyEnum; pname: MaterialParameter; param: Int32); + private static procedure z_Materiali_ovr_0(face: MaterialFace; pname: MaterialParameter; param: Int32); external 'opengl32.dll' name 'glMateriali'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materiali(face: DummyEnum; pname: MaterialParameter; param: Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materiali(face: MaterialFace; pname: MaterialParameter; param: Int32) := z_Materiali_ovr_0(face, pname, param); // added in gl1.0, deprecated in gl3.2 - private static procedure z_Materialiv_ovr_0(face: DummyEnum; pname: MaterialParameter; var ¶ms: Int32); + private static procedure z_Materialiv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32); external 'opengl32.dll' name 'glMaterialiv'; - private static procedure z_Materialiv_ovr_0_anh0001(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_Materialiv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glMaterialiv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialiv(face: DummyEnum; pname: MaterialParameter; ¶ms: array of Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialiv(face: MaterialFace; pname: MaterialParameter; ¶ms: array of Int32) := if (¶ms<>nil) and (¶ms.Length<>0) then z_Materialiv_ovr_0(face, pname, ¶ms[0]) else z_Materialiv_ovr_0_anh0001(face, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialiv(face: DummyEnum; pname: MaterialParameter; var ¶ms: Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialiv(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32) := z_Materialiv_ovr_0(face, pname, ¶ms); - private static procedure z_Materialiv_ovr_2(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_Materialiv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glMaterialiv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialiv(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialiv(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) := z_Materialiv_ovr_2(face, pname, ¶ms); // added in gl1.0, deprecated in gl3.2 @@ -32114,6 +35125,7 @@ type end; + [PCUNotRestore] wgl = static class // added in wgl1.0 @@ -32298,15 +35310,7 @@ type end; - glx = static class - public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; - external 'opengl32.dll' name 'glXGetProcAddress'; - public static function GetFuncOrNil(fadr: IntPtr) := - fadr=IntPtr.Zero ? default(T) : - Marshal.GetDelegateForFunctionPointer&(fadr); - - end; - + [PCUNotRestore] gdi = static class private static function z_ChoosePixelFormat_ovr_0(hDc: GDI_DC; var pPfd: GDI_PixelFormatDescriptor): Int32; @@ -32383,6 +35387,7 @@ type {$region Extensions} + [PCUNotRestore] glTbuffer3DFX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -32397,6 +35402,7 @@ type end; + [PCUNotRestore] glDebugOutputAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -32446,6 +35452,7 @@ type end; + [PCUNotRestore] glDrawBuffersBlendAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -32475,6 +35482,7 @@ type end; + [PCUNotRestore] glFramebufferMultisampleAdvancedAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -32494,6 +35502,7 @@ type end; + [PCUNotRestore] glFramebufferSamplePositionsAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -32563,6 +35572,7 @@ type end; + [PCUNotRestore] glGpuShaderInt64AMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -32922,6 +35932,7 @@ type end; + [PCUNotRestore] glInterleavedElementsAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -32936,6 +35947,7 @@ type end; + [PCUNotRestore] glMultiDrawIndirectAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -32955,6 +35967,7 @@ type end; + [PCUNotRestore] glNameGenDeleteAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -32999,6 +36012,7 @@ type end; + [PCUNotRestore] glOcclusionQueryEventAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33013,6 +36027,7 @@ type end; + [PCUNotRestore] glPerformanceMonitorAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33419,6 +36434,7 @@ type end; + [PCUNotRestore] glSamplePositionsAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33443,6 +36459,7 @@ type end; + [PCUNotRestore] glSparseTextureAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33462,6 +36479,7 @@ type end; + [PCUNotRestore] glStencilOperationExtendedAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33476,6 +36494,7 @@ type end; + [PCUNotRestore] glVertexShaderTessellatorAMD = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33495,6 +36514,7 @@ type end; + [PCUNotRestore] glElementArrayAPPLE = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33625,6 +36645,7 @@ type end; + [PCUNotRestore] glFenceAPPLE = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33694,6 +36715,7 @@ type end; + [PCUNotRestore] glFlushBufferRangeAPPLE = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33713,6 +36735,7 @@ type end; + [PCUNotRestore] glObjectPurgeableAPPLE = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33747,6 +36770,7 @@ type end; + [PCUNotRestore] glTextureRangeAPPLE = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33776,6 +36800,7 @@ type end; + [PCUNotRestore] glVertexArrayObjectAPPLE = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33825,6 +36850,7 @@ type end; + [PCUNotRestore] glVertexArrayRangeAPPLE = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33849,6 +36875,7 @@ type end; + [PCUNotRestore] glVertexProgramEvaluatorsAPPLE = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -33933,6 +36960,7 @@ type end; + [PCUNotRestore] glES2CompatibilityARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34025,6 +37053,7 @@ type end; + [PCUNotRestore] glES31CompatibilityARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34039,6 +37068,7 @@ type end; + [PCUNotRestore] glES32CompatibilityARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34053,6 +37083,7 @@ type end; + [PCUNotRestore] glBaseInstanceARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34077,6 +37108,7 @@ type end; + [PCUNotRestore] glBindlessTextureARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34206,6 +37238,7 @@ type end; + [PCUNotRestore] glBlendFuncExtendedARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34237,6 +37270,7 @@ type end; + [PCUNotRestore] glBufferStorageARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34251,6 +37285,7 @@ type end; + [PCUNotRestore] glClEventARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34313,6 +37348,7 @@ type end; + [PCUNotRestore] glClearBufferObjectARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34332,6 +37368,7 @@ type end; + [PCUNotRestore] glClearTextureARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34351,6 +37388,7 @@ type end; + [PCUNotRestore] glClipControlARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34365,6 +37403,7 @@ type end; + [PCUNotRestore] glColorBufferFloatARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34379,6 +37418,7 @@ type end; + [PCUNotRestore] glComputeShaderARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34398,6 +37438,7 @@ type end; + [PCUNotRestore] glComputeVariableGroupSizeARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34412,6 +37453,7 @@ type end; + [PCUNotRestore] glCopyBufferARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34426,6 +37468,7 @@ type end; + [PCUNotRestore] glCopyImageARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34440,6 +37483,7 @@ type end; + [PCUNotRestore] glDebugOutputARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -34489,6 +37533,7 @@ type end; + [PCUNotRestore] glDirectStateAccessARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -35575,6 +38620,7 @@ type end; + [PCUNotRestore] glDrawBuffersARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -35599,6 +38645,7 @@ type end; + [PCUNotRestore] glDrawBuffersBlendARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -35628,6 +38675,7 @@ type end; + [PCUNotRestore] glDrawElementsBaseVertexARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -35861,6 +38909,7 @@ type end; + [PCUNotRestore] glDrawIndirectARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -35880,6 +38929,7 @@ type end; + [PCUNotRestore] glDrawInstancedARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -35899,6 +38949,7 @@ type end; + [PCUNotRestore] glFragmentProgramARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -36113,6 +39164,7 @@ type end; + [PCUNotRestore] glFramebufferNoAttachmentsARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -36142,6 +39194,7 @@ type end; + [PCUNotRestore] glFramebufferObjectARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -36311,6 +39364,7 @@ type end; + [PCUNotRestore] glGeometryShader4ARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -36340,6 +39394,7 @@ type end; + [PCUNotRestore] glGetProgramBinaryARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -36412,6 +39467,7 @@ type end; + [PCUNotRestore] glGetTextureSubImageARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -36431,6 +39487,7 @@ type end; + [PCUNotRestore] glGlSpirvARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -36561,6 +39618,7 @@ type end; + [PCUNotRestore] glGpuShaderFp64ARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -36800,6 +39858,7 @@ type end; + [PCUNotRestore] glGpuShaderInt64ARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -37189,6 +40248,7 @@ type end; + [PCUNotRestore] glImagingARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -37211,34 +40271,34 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTable(target: ColorTableTarget; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; table: IntPtr) := z_ColorTable_ovr_0(target, _internalformat, width, format, &type, table); - private static procedure z_ColorTableParameterfv_ovr_0(target: ColorTableTarget; pname: DummyEnum; var ¶ms: single); + private static procedure z_ColorTableParameterfv_ovr_0(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; var ¶ms: single); external 'opengl32.dll' name 'glColorTableParameterfv'; - private static procedure z_ColorTableParameterfv_ovr_0_anh0001(target: ColorTableTarget; pname: DummyEnum; ¶ms: IntPtr); + private static procedure z_ColorTableParameterfv_ovr_0_anh0001(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr); external 'opengl32.dll' name 'glColorTableParameterfv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: ColorTableTarget; pname: DummyEnum; ¶ms: array of single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: array of single) := if (¶ms<>nil) and (¶ms.Length<>0) then z_ColorTableParameterfv_ovr_0(target, pname, ¶ms[0]) else z_ColorTableParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: ColorTableTarget; pname: DummyEnum; var ¶ms: single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; var ¶ms: single) := z_ColorTableParameterfv_ovr_0(target, pname, ¶ms); - private static procedure z_ColorTableParameterfv_ovr_2(target: ColorTableTarget; pname: DummyEnum; ¶ms: IntPtr); + private static procedure z_ColorTableParameterfv_ovr_2(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr); external 'opengl32.dll' name 'glColorTableParameterfv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: ColorTableTarget; pname: DummyEnum; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr) := z_ColorTableParameterfv_ovr_2(target, pname, ¶ms); - private static procedure z_ColorTableParameteriv_ovr_0(target: ColorTableTarget; pname: DummyEnum; var ¶ms: Int32); + private static procedure z_ColorTableParameteriv_ovr_0(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; var ¶ms: Int32); external 'opengl32.dll' name 'glColorTableParameteriv'; - private static procedure z_ColorTableParameteriv_ovr_0_anh0001(target: ColorTableTarget; pname: DummyEnum; ¶ms: IntPtr); + private static procedure z_ColorTableParameteriv_ovr_0_anh0001(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr); external 'opengl32.dll' name 'glColorTableParameteriv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: ColorTableTarget; pname: DummyEnum; ¶ms: array of Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: array of Int32) := if (¶ms<>nil) and (¶ms.Length<>0) then z_ColorTableParameteriv_ovr_0(target, pname, ¶ms[0]) else z_ColorTableParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: ColorTableTarget; pname: DummyEnum; var ¶ms: Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; var ¶ms: Int32) := z_ColorTableParameteriv_ovr_0(target, pname, ¶ms); - private static procedure z_ColorTableParameteriv_ovr_2(target: ColorTableTarget; pname: DummyEnum; ¶ms: IntPtr); + private static procedure z_ColorTableParameteriv_ovr_2(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr); external 'opengl32.dll' name 'glColorTableParameteriv'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: ColorTableTarget; pname: DummyEnum; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr) := z_ColorTableParameteriv_ovr_2(target, pname, ¶ms); private static procedure z_CopyColorTable_ovr_0(target: ColorTableTarget; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32); @@ -37488,6 +40548,7 @@ type end; + [PCUNotRestore] glIndirectParametersARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -37507,6 +40568,7 @@ type end; + [PCUNotRestore] glInstancedArraysARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -37521,6 +40583,7 @@ type end; + [PCUNotRestore] glInternalformatQueryARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -37545,6 +40608,7 @@ type end; + [PCUNotRestore] glInternalformatQuery2ARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -37569,6 +40633,7 @@ type end; + [PCUNotRestore] glInvalidateSubdataARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -37628,6 +40693,7 @@ type end; + [PCUNotRestore] glMapBufferRangeARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -37647,6 +40713,7 @@ type end; + [PCUNotRestore] glMatrixPaletteARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -37711,6 +40778,7 @@ type end; + [PCUNotRestore] glMultiBindARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -38208,6 +41276,7 @@ type end; + [PCUNotRestore] glMultiDrawIndirectARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -38227,6 +41296,7 @@ type end; + [PCUNotRestore] glMultisampleARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -38241,6 +41311,7 @@ type end; + [PCUNotRestore] glMultitextureARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -38580,6 +41651,7 @@ type end; + [PCUNotRestore] glOcclusionQueryARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -38679,6 +41751,7 @@ type end; + [PCUNotRestore] glParallelShaderCompileARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -38693,6 +41766,7 @@ type end; + [PCUNotRestore] glPointParametersARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -38722,6 +41796,7 @@ type end; + [PCUNotRestore] glPolygonOffsetClampARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -38736,6 +41811,7 @@ type end; + [PCUNotRestore] glProgramInterfaceQueryARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -39009,6 +42085,7 @@ type end; + [PCUNotRestore] glProvokingVertexARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -39023,6 +42100,7 @@ type end; + [PCUNotRestore] glRobustnessARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -39242,6 +42320,7 @@ type end; + [PCUNotRestore] glSampleLocationsARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -39286,6 +42365,7 @@ type end; + [PCUNotRestore] glSampleShadingARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -39300,6 +42380,7 @@ type end; + [PCUNotRestore] glSamplerObjectsARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -39479,6 +42560,7 @@ type end; + [PCUNotRestore] glSeparateShaderObjectsARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -40191,6 +43273,7 @@ type end; + [PCUNotRestore] glShaderAtomicCountersARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -40215,6 +43298,7 @@ type end; + [PCUNotRestore] glShaderImageLoadStoreARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -40234,6 +43318,7 @@ type end; + [PCUNotRestore] glShaderObjectsARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -40934,6 +44019,7 @@ type end; + [PCUNotRestore] glShaderStorageBufferObjectARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -40948,6 +44034,7 @@ type end; + [PCUNotRestore] glShaderSubroutineARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41069,6 +44156,7 @@ type end; + [PCUNotRestore] glShadingLanguageIncludeARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41276,6 +44364,7 @@ type end; + [PCUNotRestore] glSparseBufferARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41300,6 +44389,7 @@ type end; + [PCUNotRestore] glSparseTextureARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41314,6 +44404,7 @@ type end; + [PCUNotRestore] glSyncARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41416,6 +44507,7 @@ type end; + [PCUNotRestore] glTessellationShaderARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41445,6 +44537,7 @@ type end; + [PCUNotRestore] glTextureBarrierARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41459,6 +44552,7 @@ type end; + [PCUNotRestore] glTextureBufferObjectARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41473,6 +44567,7 @@ type end; + [PCUNotRestore] glTextureBufferRangeARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41487,6 +44582,7 @@ type end; + [PCUNotRestore] glTextureCompressionARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41531,6 +44627,7 @@ type end; + [PCUNotRestore] glTextureMultisampleARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41570,6 +44667,7 @@ type end; + [PCUNotRestore] glTextureStorageARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41594,6 +44692,7 @@ type end; + [PCUNotRestore] glTextureStorageMultisampleARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41613,6 +44712,7 @@ type end; + [PCUNotRestore] glTextureViewARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41627,6 +44727,7 @@ type end; + [PCUNotRestore] glTimerQueryARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41671,6 +44772,7 @@ type end; + [PCUNotRestore] glTransformFeedback2ARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41735,6 +44837,7 @@ type end; + [PCUNotRestore] glTransformFeedback3ARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41774,6 +44877,7 @@ type end; + [PCUNotRestore] glTransformFeedbackInstancedARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41793,6 +44897,7 @@ type end; + [PCUNotRestore] glTransposeMatrixARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -41862,6 +44967,7 @@ type end; + [PCUNotRestore] glUniformBufferObjectARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -42091,6 +45197,7 @@ type end; + [PCUNotRestore] glVertexArrayObjectARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -42140,6 +45247,7 @@ type end; + [PCUNotRestore] glVertexAttrib64bitARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -42249,6 +45357,7 @@ type end; + [PCUNotRestore] glVertexAttribBindingARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -42288,6 +45397,7 @@ type end; + [PCUNotRestore] glVertexBlendARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -42427,6 +45537,7 @@ type end; + [PCUNotRestore] glVertexBufferObjectARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -42531,6 +45642,7 @@ type end; + [PCUNotRestore] glVertexProgramARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -43230,6 +46342,7 @@ type end; + [PCUNotRestore] glVertexShaderARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -43947,6 +47060,7 @@ type end; + [PCUNotRestore] glVertexType2101010RevARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44336,6 +47450,7 @@ type end; + [PCUNotRestore] glViewportArrayARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44485,6 +47600,7 @@ type end; + [PCUNotRestore] glWindowPosARB = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44654,6 +47770,7 @@ type end; + [PCUNotRestore] glDrawBuffersATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44678,6 +47795,7 @@ type end; + [PCUNotRestore] glElementArrayATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44702,6 +47820,7 @@ type end; + [PCUNotRestore] glEnvmapBumpmapATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44709,34 +47828,34 @@ type fadr=IntPtr.Zero ? default(T) : Marshal.GetDelegateForFunctionPointer&(fadr); - private static procedure z_TexBumpParameterivATI_ovr_0(pname: DummyEnum; var param: Int32); + private static procedure z_TexBumpParameterivATI_ovr_0(pname: TexBumpParameterATI; var param: Int32); external 'opengl32.dll' name 'glTexBumpParameterivATI'; - private static procedure z_TexBumpParameterivATI_ovr_0_anh001(pname: DummyEnum; param: IntPtr); + private static procedure z_TexBumpParameterivATI_ovr_0_anh001(pname: TexBumpParameterATI; param: IntPtr); external 'opengl32.dll' name 'glTexBumpParameterivATI'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterivATI(pname: DummyEnum; param: array of Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterivATI(pname: TexBumpParameterATI; param: array of Int32) := if (param<>nil) and (param.Length<>0) then z_TexBumpParameterivATI_ovr_0(pname, param[0]) else z_TexBumpParameterivATI_ovr_0_anh001(pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterivATI(pname: DummyEnum; var param: Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterivATI(pname: TexBumpParameterATI; var param: Int32) := z_TexBumpParameterivATI_ovr_0(pname, param); - private static procedure z_TexBumpParameterivATI_ovr_2(pname: DummyEnum; param: IntPtr); + private static procedure z_TexBumpParameterivATI_ovr_2(pname: TexBumpParameterATI; param: IntPtr); external 'opengl32.dll' name 'glTexBumpParameterivATI'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterivATI(pname: DummyEnum; param: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterivATI(pname: TexBumpParameterATI; param: IntPtr) := z_TexBumpParameterivATI_ovr_2(pname, param); - private static procedure z_TexBumpParameterfvATI_ovr_0(pname: DummyEnum; var param: single); + private static procedure z_TexBumpParameterfvATI_ovr_0(pname: TexBumpParameterATI; var param: single); external 'opengl32.dll' name 'glTexBumpParameterfvATI'; - private static procedure z_TexBumpParameterfvATI_ovr_0_anh001(pname: DummyEnum; param: IntPtr); + private static procedure z_TexBumpParameterfvATI_ovr_0_anh001(pname: TexBumpParameterATI; param: IntPtr); external 'opengl32.dll' name 'glTexBumpParameterfvATI'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterfvATI(pname: DummyEnum; param: array of single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterfvATI(pname: TexBumpParameterATI; param: array of single) := if (param<>nil) and (param.Length<>0) then z_TexBumpParameterfvATI_ovr_0(pname, param[0]) else z_TexBumpParameterfvATI_ovr_0_anh001(pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterfvATI(pname: DummyEnum; var param: single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterfvATI(pname: TexBumpParameterATI; var param: single) := z_TexBumpParameterfvATI_ovr_0(pname, param); - private static procedure z_TexBumpParameterfvATI_ovr_2(pname: DummyEnum; param: IntPtr); + private static procedure z_TexBumpParameterfvATI_ovr_2(pname: TexBumpParameterATI; param: IntPtr); external 'opengl32.dll' name 'glTexBumpParameterfvATI'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterfvATI(pname: DummyEnum; param: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterfvATI(pname: TexBumpParameterATI; param: IntPtr) := z_TexBumpParameterfvATI_ovr_2(pname, param); private static procedure z_GetTexBumpParameterivATI_ovr_0(pname: GetTexBumpParameterATI; var param: Int32); @@ -44771,6 +47890,7 @@ type end; + [PCUNotRestore] glFragmentShaderATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44860,6 +47980,7 @@ type end; + [PCUNotRestore] glMapObjectBufferATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44879,6 +48000,7 @@ type end; + [PCUNotRestore] glPnTrianglesATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44898,6 +48020,7 @@ type end; + [PCUNotRestore] glSeparateStencilATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -44917,6 +48040,7 @@ type end; + [PCUNotRestore] glVertexArrayObjectATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45046,6 +48170,7 @@ type end; + [PCUNotRestore] glVertexAttribArrayObjectATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45090,6 +48215,7 @@ type end; + [PCUNotRestore] glVertexStreamsATI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45534,6 +48660,7 @@ type end; + [PCUNotRestore] glEGLImageStorageEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45573,6 +48700,7 @@ type end; + [PCUNotRestore] glBindableUniformEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45597,6 +48725,7 @@ type end; + [PCUNotRestore] glBlendColorEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45611,6 +48740,7 @@ type end; + [PCUNotRestore] glBlendEquationSeparateEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45625,6 +48755,7 @@ type end; + [PCUNotRestore] glBlendFuncSeparateEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45639,6 +48770,7 @@ type end; + [PCUNotRestore] glBlendMinmaxEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45653,6 +48785,7 @@ type end; + [PCUNotRestore] glColorSubtableEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45672,6 +48805,7 @@ type end; + [PCUNotRestore] glCompiledVertexArrayEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45691,6 +48825,7 @@ type end; + [PCUNotRestore] glConvolutionEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -45805,6 +48940,7 @@ type end; + [PCUNotRestore] glCoordinateFrameEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -46024,6 +49160,7 @@ type end; + [PCUNotRestore] glCopyTextureEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -46058,6 +49195,7 @@ type end; + [PCUNotRestore] glCullVertexEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -46097,6 +49235,7 @@ type end; + [PCUNotRestore] glDebugLabelEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -46132,6 +49271,7 @@ type end; + [PCUNotRestore] glDebugMarkerEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -46168,6 +49308,7 @@ type end; + [PCUNotRestore] glDepthBoundsTestEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -46182,6 +49323,7 @@ type end; + [PCUNotRestore] glDirectStateAccessEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48496,6 +51638,7 @@ type end; + [PCUNotRestore] glDrawBuffers2EXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48555,6 +51698,7 @@ type end; + [PCUNotRestore] glDrawInstancedEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48574,6 +51718,7 @@ type end; + [PCUNotRestore] glDrawRangeElementsEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48588,6 +51733,7 @@ type end; + [PCUNotRestore] glExternalBufferEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48607,6 +51753,7 @@ type end; + [PCUNotRestore] glFogCoordEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48661,6 +51808,7 @@ type end; + [PCUNotRestore] glFramebufferBlitEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48675,6 +51823,7 @@ type end; + [PCUNotRestore] glFramebufferMultisampleEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48689,6 +51838,7 @@ type end; + [PCUNotRestore] glFramebufferObjectEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48843,6 +51993,7 @@ type end; + [PCUNotRestore] glGeometryShader4EXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48857,6 +52008,7 @@ type end; + [PCUNotRestore] glGpuProgramParametersEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -48896,6 +52048,7 @@ type end; + [PCUNotRestore] glGpuShader4EXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49022,6 +52175,7 @@ type end; + [PCUNotRestore] glHistogramEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49121,6 +52275,7 @@ type end; + [PCUNotRestore] glIndexFuncEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49135,6 +52290,7 @@ type end; + [PCUNotRestore] glIndexMaterialEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49142,13 +52298,14 @@ type fadr=IntPtr.Zero ? default(T) : Marshal.GetDelegateForFunctionPointer&(fadr); - private static procedure z_IndexMaterialEXT_ovr_0(face: DummyEnum; mode: IndexMaterialParameterEXT); + private static procedure z_IndexMaterialEXT_ovr_0(face: MaterialFace; mode: IndexMaterialParameterEXT); external 'opengl32.dll' name 'glIndexMaterialEXT'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexMaterialEXT(face: DummyEnum; mode: IndexMaterialParameterEXT) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexMaterialEXT(face: MaterialFace; mode: IndexMaterialParameterEXT) := z_IndexMaterialEXT_ovr_0(face, mode); end; + [PCUNotRestore] glLightTextureEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49166,13 +52323,14 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureLightEXT(pname: LightTexturePNameEXT) := z_TextureLightEXT_ovr_0(pname); - private static procedure z_TextureMaterialEXT_ovr_0(face: DummyEnum; mode: MaterialParameter); + private static procedure z_TextureMaterialEXT_ovr_0(face: MaterialFace; mode: MaterialParameter); external 'opengl32.dll' name 'glTextureMaterialEXT'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureMaterialEXT(face: DummyEnum; mode: MaterialParameter) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureMaterialEXT(face: MaterialFace; mode: MaterialParameter) := z_TextureMaterialEXT_ovr_0(face, mode); end; + [PCUNotRestore] glMemoryObjectEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49337,6 +52495,7 @@ type end; + [PCUNotRestore] glMemoryObjectFdEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49351,6 +52510,7 @@ type end; + [PCUNotRestore] glMemoryObjectWin32EXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49370,6 +52530,7 @@ type end; + [PCUNotRestore] glMultiDrawArraysEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49487,6 +52648,7 @@ type end; + [PCUNotRestore] glMultisampleEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49506,6 +52668,7 @@ type end; + [PCUNotRestore] glPalettedTextureEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49555,6 +52718,7 @@ type end; + [PCUNotRestore] glPixelTransformEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49634,6 +52798,7 @@ type end; + [PCUNotRestore] glPointParametersEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49663,6 +52828,7 @@ type end; + [PCUNotRestore] glPolygonOffsetEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49677,6 +52843,7 @@ type end; + [PCUNotRestore] glPolygonOffsetClampEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49691,6 +52858,7 @@ type end; + [PCUNotRestore] glProvokingVertexEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49705,6 +52873,7 @@ type end; + [PCUNotRestore] glRasterMultisampleEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -49719,6 +52888,7 @@ type end; + [PCUNotRestore] glSemaphoreEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50225,6 +53395,7 @@ type end; + [PCUNotRestore] glSemaphoreFdEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50239,6 +53410,7 @@ type end; + [PCUNotRestore] glSemaphoreWin32EXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50258,6 +53430,7 @@ type end; + [PCUNotRestore] glSecondaryColorEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50432,6 +53605,7 @@ type end; + [PCUNotRestore] glSeparateShaderObjectsEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50462,6 +53636,7 @@ type end; + [PCUNotRestore] glShaderFramebufferFetchNonCoherentEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50476,6 +53651,7 @@ type end; + [PCUNotRestore] glShaderImageLoadStoreEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50495,6 +53671,7 @@ type end; + [PCUNotRestore] glStencilClearTagEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50509,6 +53686,7 @@ type end; + [PCUNotRestore] glStencilTwoSideEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50523,6 +53701,7 @@ type end; + [PCUNotRestore] glSubtextureEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50542,6 +53721,7 @@ type end; + [PCUNotRestore] glTexture3DEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50561,6 +53741,7 @@ type end; + [PCUNotRestore] glTextureArrayEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50575,6 +53756,7 @@ type end; + [PCUNotRestore] glTextureBufferObjectEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50589,6 +53771,7 @@ type end; + [PCUNotRestore] glTextureIntegerEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50668,6 +53851,7 @@ type end; + [PCUNotRestore] glTextureObjectEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50823,6 +54007,7 @@ type end; + [PCUNotRestore] glTexturePerturbNormalEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50837,6 +54022,7 @@ type end; + [PCUNotRestore] glTimerQueryEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -50876,6 +54062,7 @@ type end; + [PCUNotRestore] glTransformFeedbackEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51134,6 +54321,7 @@ type end; + [PCUNotRestore] glVertexArrayEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51208,6 +54396,7 @@ type end; + [PCUNotRestore] glVertexAttrib64bitEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51317,6 +54506,7 @@ type end; + [PCUNotRestore] glVertexShaderEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51539,9 +54729,9 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindLightParameterEXT(light: LightName; value: LightParameter): UInt32 := z_BindLightParameterEXT_ovr_0(light, value); - private static function z_BindMaterialParameterEXT_ovr_0(face: DummyEnum; value: MaterialParameter): UInt32; + private static function z_BindMaterialParameterEXT_ovr_0(face: MaterialFace; value: MaterialParameter): UInt32; external 'opengl32.dll' name 'glBindMaterialParameterEXT'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindMaterialParameterEXT(face: DummyEnum; value: MaterialParameter): UInt32 := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindMaterialParameterEXT(face: MaterialFace; value: MaterialParameter): UInt32 := z_BindMaterialParameterEXT_ovr_0(face, value); private static function z_BindTexGenParameterEXT_ovr_0(&unit: TextureUnit; coord: TextureCoordName; value: TextureGenParameter): UInt32; @@ -51716,6 +54906,7 @@ type end; + [PCUNotRestore] glVertexWeightingEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51750,6 +54941,7 @@ type end; + [PCUNotRestore] glWin32KeyedMutexEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51769,6 +54961,7 @@ type end; + [PCUNotRestore] glWindowRectanglesEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51793,6 +54986,7 @@ type end; + [PCUNotRestore] glX11SyncObjectEXT = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51807,6 +55001,7 @@ type end; + [PCUNotRestore] glFrameTerminatorGREMEDY = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51821,6 +55016,7 @@ type end; + [PCUNotRestore] glStringMarkerGREMEDY = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51835,6 +55031,7 @@ type end; + [PCUNotRestore] glImageTransformHP = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -51914,6 +55111,7 @@ type end; + [PCUNotRestore] glMultimodeDrawArraysIBM = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52337,6 +55535,7 @@ type end; + [PCUNotRestore] glStaticDataIBM = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52351,6 +55550,7 @@ type end; + [PCUNotRestore] glVertexArrayListsIBM = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52496,6 +55696,7 @@ type end; + [PCUNotRestore] glBlendFuncSeparateINGR = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52510,6 +55711,7 @@ type end; + [PCUNotRestore] glFramebufferCMAAINTEL = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52524,6 +55726,7 @@ type end; + [PCUNotRestore] glMapTextureINTEL = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52596,6 +55799,7 @@ type end; + [PCUNotRestore] glParallelArraysINTEL = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52665,6 +55869,7 @@ type end; + [PCUNotRestore] glPerformanceQueryINTEL = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52764,6 +55969,7 @@ type end; + [PCUNotRestore] glBlendEquationAdvancedKHR = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52778,6 +55984,7 @@ type end; + [PCUNotRestore] glDebugKHR = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52910,6 +56117,7 @@ type end; + [PCUNotRestore] glRobustnessKHR = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52974,6 +56182,7 @@ type end; + [PCUNotRestore] glParallelShaderCompileKHR = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -52988,6 +56197,7 @@ type end; + [PCUNotRestore] glFramebufferFlipYMESA = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53017,6 +56227,7 @@ type end; + [PCUNotRestore] glResizeBuffersMESA = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53031,6 +56242,7 @@ type end; + [PCUNotRestore] glWindowPosMESA = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53280,6 +56492,7 @@ type end; + [PCUNotRestore] glConditionalRenderNVX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53299,6 +56512,7 @@ type end; + [PCUNotRestore] glLinkedGpuMulticastNVX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53323,6 +56537,7 @@ type end; + [PCUNotRestore] glAlphaToCoverageDitherControlNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53337,6 +56552,7 @@ type end; + [PCUNotRestore] glBindlessMultiDrawIndirectNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53356,6 +56572,7 @@ type end; + [PCUNotRestore] glBindlessMultiDrawIndirectCountNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53375,6 +56592,7 @@ type end; + [PCUNotRestore] glBindlessTextureNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53469,6 +56687,7 @@ type end; + [PCUNotRestore] glBlendEquationAdvancedNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53488,6 +56707,7 @@ type end; + [PCUNotRestore] glClipSpaceWScalingNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -53502,6 +56722,7 @@ type end; + [PCUNotRestore] glCommandListNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56072,6 +59293,7 @@ type end; + [PCUNotRestore] glConditionalRenderNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56091,6 +59313,7 @@ type end; + [PCUNotRestore] glConservativeRasterNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56105,6 +59328,7 @@ type end; + [PCUNotRestore] glConservativeRasterDilateNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56119,6 +59343,7 @@ type end; + [PCUNotRestore] glConservativeRasterPreSnapTrianglesNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56133,6 +59358,7 @@ type end; + [PCUNotRestore] glCopyImageNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56147,6 +59373,7 @@ type end; + [PCUNotRestore] glDepthBufferFloatNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56171,6 +59398,7 @@ type end; + [PCUNotRestore] glDrawTextureNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56185,6 +59413,7 @@ type end; + [PCUNotRestore] glDrawVulkanImageNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56225,6 +59454,7 @@ type end; + [PCUNotRestore] glEvaluatorsNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56339,6 +59569,7 @@ type end; + [PCUNotRestore] glExplicitMultisampleNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56373,6 +59604,7 @@ type end; + [PCUNotRestore] glFenceNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56447,6 +59679,7 @@ type end; + [PCUNotRestore] glFragmentCoverageToColorNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56461,6 +59694,7 @@ type end; + [PCUNotRestore] glFragmentProgramNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56712,6 +59946,7 @@ type end; + [PCUNotRestore] glFramebufferMixedSamplesNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56761,6 +59996,7 @@ type end; + [PCUNotRestore] glFramebufferMultisampleCoverageNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56775,6 +60011,7 @@ type end; + [PCUNotRestore] glGeometryProgram4NV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -56804,6 +60041,7 @@ type end; + [PCUNotRestore] glGpuProgram4NV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -57013,6 +60251,7 @@ type end; + [PCUNotRestore] glGpuProgram5NV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -57052,6 +60291,7 @@ type end; + [PCUNotRestore] glGpuShader5NV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -57396,6 +60636,7 @@ type end; + [PCUNotRestore] glHalfFloatNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -57885,6 +61126,7 @@ type end; + [PCUNotRestore] glInternalformatSampleQueryNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -57909,6 +61151,7 @@ type end; + [PCUNotRestore] glGpuMulticastNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -58028,6 +61271,7 @@ type end; + [PCUNotRestore] glGpuMulticast2NVX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -59647,6 +62891,7 @@ type end; + [PCUNotRestore] glProgressFenceNVX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -59820,6 +63065,7 @@ type end; + [PCUNotRestore] glMemoryAttachmentNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -59869,6 +63115,7 @@ type end; + [PCUNotRestore] glMeshShaderNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -59898,6 +63145,7 @@ type end; + [PCUNotRestore] glOcclusionQueryNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -59982,6 +63230,7 @@ type end; + [PCUNotRestore] glParameterBufferObjectNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -60036,6 +63285,7 @@ type end; + [PCUNotRestore] glPathRenderingNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -61894,6 +65144,7 @@ type end; + [PCUNotRestore] glPixelDataRangeNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -61913,6 +65164,7 @@ type end; + [PCUNotRestore] glPointSpriteNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -61942,6 +65194,7 @@ type end; + [PCUNotRestore] glPresentVideoNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62021,6 +65274,7 @@ type end; + [PCUNotRestore] glPrimitiveRestartNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62040,6 +65294,7 @@ type end; + [PCUNotRestore] glQueryResourceNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62064,6 +65319,7 @@ type end; + [PCUNotRestore] glQueryResourceTagNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62114,6 +65370,7 @@ type end; + [PCUNotRestore] glRegisterCombinersNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62268,6 +65525,7 @@ type end; + [PCUNotRestore] glRegisterCombiners2NV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62307,6 +65565,7 @@ type end; + [PCUNotRestore] glSampleLocationsNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62351,6 +65610,7 @@ type end; + [PCUNotRestore] glScissorExclusiveNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62380,6 +65640,7 @@ type end; + [PCUNotRestore] glShaderBufferLoadNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62519,6 +65780,7 @@ type end; + [PCUNotRestore] glShadingRateImageNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62603,6 +65865,7 @@ type end; + [PCUNotRestore] glTextureBarrierNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62617,6 +65880,7 @@ type end; + [PCUNotRestore] glTextureMultisampleNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -62656,6 +65920,7 @@ type end; + [PCUNotRestore] glTransformFeedbackNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -63011,6 +66276,7 @@ type end; + [PCUNotRestore] glTransformFeedback2NV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -63075,6 +66341,7 @@ type end; + [PCUNotRestore] glVdpauInteropNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -63222,6 +66489,7 @@ type end; + [PCUNotRestore] glVdpauInterop2NV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -63246,6 +66514,7 @@ type end; + [PCUNotRestore] glVertexArrayRangeNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -63265,6 +66534,7 @@ type end; + [PCUNotRestore] glVertexAttribInteger64bitNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -63469,6 +66739,7 @@ type end; + [PCUNotRestore] glVertexBufferUnifiedMemoryNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -63548,6 +66819,7 @@ type end; + [PCUNotRestore] glVertexProgramNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -64365,6 +67637,7 @@ type end; + [PCUNotRestore] glVertexProgram4NV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -64629,6 +67902,7 @@ type end; + [PCUNotRestore] glVideoCaptureNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -64816,6 +68090,7 @@ type end; + [PCUNotRestore] glViewportSwizzleNV = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -64830,6 +68105,7 @@ type end; + [PCUNotRestore] glByteCoordinatesOES = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -65059,6 +68335,7 @@ type end; + [PCUNotRestore] glFixedPointOES = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -65251,24 +68528,24 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixxOES(m: IntPtr) := z_LoadMatrixxOES_ovr_2(m); - private static procedure z_MaterialxOES_ovr_0(face: DummyEnum; pname: MaterialParameter; param: Fixed); + private static procedure z_MaterialxOES_ovr_0(face: MaterialFace; pname: MaterialParameter; param: Fixed); external 'opengl32.dll' name 'glMaterialxOES'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxOES(face: DummyEnum; pname: MaterialParameter; param: Fixed) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxOES(face: MaterialFace; pname: MaterialParameter; param: Fixed) := z_MaterialxOES_ovr_0(face, pname, param); - private static procedure z_MaterialxvOES_ovr_0(face: DummyEnum; pname: MaterialParameter; var param: Fixed); + private static procedure z_MaterialxvOES_ovr_0(face: MaterialFace; pname: MaterialParameter; var param: Fixed); external 'opengl32.dll' name 'glMaterialxvOES'; - private static procedure z_MaterialxvOES_ovr_0_anh0001(face: DummyEnum; pname: MaterialParameter; param: IntPtr); + private static procedure z_MaterialxvOES_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; param: IntPtr); external 'opengl32.dll' name 'glMaterialxvOES'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxvOES(face: DummyEnum; pname: MaterialParameter; param: array of Fixed) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxvOES(face: MaterialFace; pname: MaterialParameter; param: array of Fixed) := if (param<>nil) and (param.Length<>0) then z_MaterialxvOES_ovr_0(face, pname, param[0]) else z_MaterialxvOES_ovr_0_anh0001(face, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxvOES(face: DummyEnum; pname: MaterialParameter; var param: Fixed) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxvOES(face: MaterialFace; pname: MaterialParameter; var param: Fixed) := z_MaterialxvOES_ovr_0(face, pname, param); - private static procedure z_MaterialxvOES_ovr_2(face: DummyEnum; pname: MaterialParameter; param: IntPtr); + private static procedure z_MaterialxvOES_ovr_2(face: MaterialFace; pname: MaterialParameter; param: IntPtr); external 'opengl32.dll' name 'glMaterialxvOES'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxvOES(face: DummyEnum; pname: MaterialParameter; param: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxvOES(face: MaterialFace; pname: MaterialParameter; param: IntPtr) := z_MaterialxvOES_ovr_2(face, pname, param); private static procedure z_MultMatrixxOES_ovr_0(var m: Fixed); @@ -65581,9 +68858,9 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapxvOES(target: MapTarget; query: GetMapQuery; v: IntPtr) := z_GetMapxvOES_ovr_2(target, query, v); - private static procedure z_GetMaterialxOES_ovr_0(face: DummyEnum; pname: MaterialParameter; param: Fixed); + private static procedure z_GetMaterialxOES_ovr_0(face: MaterialFace; pname: MaterialParameter; param: Fixed); external 'opengl32.dll' name 'glGetMaterialxOES'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialxOES(face: DummyEnum; pname: MaterialParameter; param: Fixed) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialxOES(face: MaterialFace; pname: MaterialParameter; param: Fixed) := z_GetMaterialxOES_ovr_0(face, pname, param); private static procedure z_GetPixelMapxv_ovr_0(map: PixelMap; size: Int32; var values: Fixed); @@ -66159,6 +69436,7 @@ type end; + [PCUNotRestore] glQueryMatrixOES = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66221,6 +69499,7 @@ type end; + [PCUNotRestore] glSinglePrecisionOES = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66280,6 +69559,7 @@ type end; + [PCUNotRestore] glMultiviewOVR = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66294,6 +69574,7 @@ type end; + [PCUNotRestore] glMiscHintsPGI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66308,6 +69589,7 @@ type end; + [PCUNotRestore] glDetailTextureSGIS = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66347,6 +69629,7 @@ type end; + [PCUNotRestore] glFogFunctionSGIS = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66386,6 +69669,7 @@ type end; + [PCUNotRestore] glMultisampleSGIS = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66405,6 +69689,7 @@ type end; + [PCUNotRestore] glPixelTextureSGIS = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66484,6 +69769,7 @@ type end; + [PCUNotRestore] glPointParametersSGIS = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66513,6 +69799,7 @@ type end; + [PCUNotRestore] glSharpenTextureSGIS = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66552,6 +69839,7 @@ type end; + [PCUNotRestore] glTexture4DSGIS = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66571,6 +69859,7 @@ type end; + [PCUNotRestore] glTextureColorMaskSGIS = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66585,6 +69874,7 @@ type end; + [PCUNotRestore] glTextureFilter4SGIS = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66624,6 +69914,7 @@ type end; + [PCUNotRestore] glAsyncSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66683,6 +69974,7 @@ type end; + [PCUNotRestore] glFlushRasterSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66697,6 +69989,7 @@ type end; + [PCUNotRestore] glFragmentLightingSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66704,9 +69997,9 @@ type fadr=IntPtr.Zero ? default(T) : Marshal.GetDelegateForFunctionPointer&(fadr); - private static procedure z_FragmentColorMaterialSGIX_ovr_0(face: DummyEnum; mode: MaterialParameter); + private static procedure z_FragmentColorMaterialSGIX_ovr_0(face: MaterialFace; mode: MaterialParameter); external 'opengl32.dll' name 'glFragmentColorMaterialSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentColorMaterialSGIX(face: DummyEnum; mode: MaterialParameter) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentColorMaterialSGIX(face: MaterialFace; mode: MaterialParameter) := z_FragmentColorMaterialSGIX_ovr_0(face, mode); private static procedure z_FragmentLightfSGIX_ovr_0(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; param: single); @@ -66789,44 +70082,44 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightModelivSGIX(pname: FragmentLightModelParameterSGIX; ¶ms: IntPtr) := z_FragmentLightModelivSGIX_ovr_2(pname, ¶ms); - private static procedure z_FragmentMaterialfSGIX_ovr_0(face: DummyEnum; pname: MaterialParameter; param: single); + private static procedure z_FragmentMaterialfSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; param: single); external 'opengl32.dll' name 'glFragmentMaterialfSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfSGIX(face: DummyEnum; pname: MaterialParameter; param: single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfSGIX(face: MaterialFace; pname: MaterialParameter; param: single) := z_FragmentMaterialfSGIX_ovr_0(face, pname, param); - private static procedure z_FragmentMaterialfvSGIX_ovr_0(face: DummyEnum; pname: MaterialParameter; var ¶ms: single); + private static procedure z_FragmentMaterialfvSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single); external 'opengl32.dll' name 'glFragmentMaterialfvSGIX'; - private static procedure z_FragmentMaterialfvSGIX_ovr_0_anh0001(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_FragmentMaterialfvSGIX_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glFragmentMaterialfvSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfvSGIX(face: DummyEnum; pname: MaterialParameter; ¶ms: array of single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: array of single) := if (¶ms<>nil) and (¶ms.Length<>0) then z_FragmentMaterialfvSGIX_ovr_0(face, pname, ¶ms[0]) else z_FragmentMaterialfvSGIX_ovr_0_anh0001(face, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfvSGIX(face: DummyEnum; pname: MaterialParameter; var ¶ms: single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; var ¶ms: single) := z_FragmentMaterialfvSGIX_ovr_0(face, pname, ¶ms); - private static procedure z_FragmentMaterialfvSGIX_ovr_2(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_FragmentMaterialfvSGIX_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glFragmentMaterialfvSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfvSGIX(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) := z_FragmentMaterialfvSGIX_ovr_2(face, pname, ¶ms); - private static procedure z_FragmentMaterialiSGIX_ovr_0(face: DummyEnum; pname: MaterialParameter; param: Int32); + private static procedure z_FragmentMaterialiSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; param: Int32); external 'opengl32.dll' name 'glFragmentMaterialiSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialiSGIX(face: DummyEnum; pname: MaterialParameter; param: Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialiSGIX(face: MaterialFace; pname: MaterialParameter; param: Int32) := z_FragmentMaterialiSGIX_ovr_0(face, pname, param); - private static procedure z_FragmentMaterialivSGIX_ovr_0(face: DummyEnum; pname: MaterialParameter; var ¶ms: Int32); + private static procedure z_FragmentMaterialivSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32); external 'opengl32.dll' name 'glFragmentMaterialivSGIX'; - private static procedure z_FragmentMaterialivSGIX_ovr_0_anh0001(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_FragmentMaterialivSGIX_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glFragmentMaterialivSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialivSGIX(face: DummyEnum; pname: MaterialParameter; ¶ms: array of Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: array of Int32) := if (¶ms<>nil) and (¶ms.Length<>0) then z_FragmentMaterialivSGIX_ovr_0(face, pname, ¶ms[0]) else z_FragmentMaterialivSGIX_ovr_0_anh0001(face, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialivSGIX(face: DummyEnum; pname: MaterialParameter; var ¶ms: Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32) := z_FragmentMaterialivSGIX_ovr_0(face, pname, ¶ms); - private static procedure z_FragmentMaterialivSGIX_ovr_2(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_FragmentMaterialivSGIX_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glFragmentMaterialivSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialivSGIX(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) := z_FragmentMaterialivSGIX_ovr_2(face, pname, ¶ms); private static procedure z_GetFragmentLightfvSGIX_ovr_0(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; var ¶ms: single); @@ -66859,34 +70152,34 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentLightivSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr) := z_GetFragmentLightivSGIX_ovr_2(light, pname, ¶ms); - private static procedure z_GetFragmentMaterialfvSGIX_ovr_0(face: DummyEnum; pname: MaterialParameter; var ¶ms: single); + private static procedure z_GetFragmentMaterialfvSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single); external 'opengl32.dll' name 'glGetFragmentMaterialfvSGIX'; - private static procedure z_GetFragmentMaterialfvSGIX_ovr_0_anh0001(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_GetFragmentMaterialfvSGIX_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glGetFragmentMaterialfvSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialfvSGIX(face: DummyEnum; pname: MaterialParameter; ¶ms: array of single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: array of single) := if (¶ms<>nil) and (¶ms.Length<>0) then z_GetFragmentMaterialfvSGIX_ovr_0(face, pname, ¶ms[0]) else z_GetFragmentMaterialfvSGIX_ovr_0_anh0001(face, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialfvSGIX(face: DummyEnum; pname: MaterialParameter; var ¶ms: single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; var ¶ms: single) := z_GetFragmentMaterialfvSGIX_ovr_0(face, pname, ¶ms); - private static procedure z_GetFragmentMaterialfvSGIX_ovr_2(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_GetFragmentMaterialfvSGIX_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glGetFragmentMaterialfvSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialfvSGIX(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) := z_GetFragmentMaterialfvSGIX_ovr_2(face, pname, ¶ms); - private static procedure z_GetFragmentMaterialivSGIX_ovr_0(face: DummyEnum; pname: MaterialParameter; var ¶ms: Int32); + private static procedure z_GetFragmentMaterialivSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32); external 'opengl32.dll' name 'glGetFragmentMaterialivSGIX'; - private static procedure z_GetFragmentMaterialivSGIX_ovr_0_anh0001(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_GetFragmentMaterialivSGIX_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glGetFragmentMaterialivSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialivSGIX(face: DummyEnum; pname: MaterialParameter; ¶ms: array of Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: array of Int32) := if (¶ms<>nil) and (¶ms.Length<>0) then z_GetFragmentMaterialivSGIX_ovr_0(face, pname, ¶ms[0]) else z_GetFragmentMaterialivSGIX_ovr_0_anh0001(face, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialivSGIX(face: DummyEnum; pname: MaterialParameter; var ¶ms: Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32) := z_GetFragmentMaterialivSGIX_ovr_0(face, pname, ¶ms); - private static procedure z_GetFragmentMaterialivSGIX_ovr_2(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr); + private static procedure z_GetFragmentMaterialivSGIX_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr); external 'opengl32.dll' name 'glGetFragmentMaterialivSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialivSGIX(face: DummyEnum; pname: MaterialParameter; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) := z_GetFragmentMaterialivSGIX_ovr_2(face, pname, ¶ms); private static procedure z_LightEnviSGIX_ovr_0(pname: LightEnvParameterSGIX; param: Int32); @@ -66896,6 +70189,7 @@ type end; + [PCUNotRestore] glFramezoomSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66910,6 +70204,7 @@ type end; + [PCUNotRestore] glIglooInterfaceSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66924,6 +70219,7 @@ type end; + [PCUNotRestore] glInstrumentsSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -66983,6 +70279,7 @@ type end; + [PCUNotRestore] glListPrioritySGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67062,6 +70359,7 @@ type end; + [PCUNotRestore] glPixelTextureSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67076,6 +70374,7 @@ type end; + [PCUNotRestore] glPolynomialFfdSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67113,18 +70412,19 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformationMap3fSGIX(target: FfdTargetSGIX; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; w1: single; w2: single; wstride: Int32; worder: Int32; points: IntPtr) := z_DeformationMap3fSGIX_ovr_2(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, w1, w2, wstride, worder, points); - private static procedure z_DeformSGIX_ovr_0(mask: DummyFlags); + private static procedure z_DeformSGIX_ovr_0(mask: FfdMaskSGIX); external 'opengl32.dll' name 'glDeformSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformSGIX(mask: DummyFlags) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformSGIX(mask: FfdMaskSGIX) := z_DeformSGIX_ovr_0(mask); - private static procedure z_LoadIdentityDeformationMapSGIX_ovr_0(mask: DummyFlags); + private static procedure z_LoadIdentityDeformationMapSGIX_ovr_0(mask: FfdMaskSGIX); external 'opengl32.dll' name 'glLoadIdentityDeformationMapSGIX'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadIdentityDeformationMapSGIX(mask: DummyFlags) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadIdentityDeformationMapSGIX(mask: FfdMaskSGIX) := z_LoadIdentityDeformationMapSGIX_ovr_0(mask); end; + [PCUNotRestore] glReferencePlaneSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67149,6 +70449,7 @@ type end; + [PCUNotRestore] glSpriteSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67198,6 +70499,7 @@ type end; + [PCUNotRestore] glTagSampleBufferSGIX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67212,6 +70514,7 @@ type end; + [PCUNotRestore] glColorTableSGI = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67224,34 +70527,34 @@ type public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableSGI(target: ColorTableTargetSGI; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; table: IntPtr) := z_ColorTableSGI_ovr_0(target, _internalformat, width, format, &type, table); - private static procedure z_ColorTableParameterfvSGI_ovr_0(target: ColorTableTargetSGI; pname: DummyEnum; var ¶ms: single); + private static procedure z_ColorTableParameterfvSGI_ovr_0(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; var ¶ms: single); external 'opengl32.dll' name 'glColorTableParameterfvSGI'; - private static procedure z_ColorTableParameterfvSGI_ovr_0_anh0001(target: ColorTableTargetSGI; pname: DummyEnum; ¶ms: IntPtr); + private static procedure z_ColorTableParameterfvSGI_ovr_0_anh0001(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr); external 'opengl32.dll' name 'glColorTableParameterfvSGI'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: DummyEnum; ¶ms: array of single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: array of single) := if (¶ms<>nil) and (¶ms.Length<>0) then z_ColorTableParameterfvSGI_ovr_0(target, pname, ¶ms[0]) else z_ColorTableParameterfvSGI_ovr_0_anh0001(target, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: DummyEnum; var ¶ms: single) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; var ¶ms: single) := z_ColorTableParameterfvSGI_ovr_0(target, pname, ¶ms); - private static procedure z_ColorTableParameterfvSGI_ovr_2(target: ColorTableTargetSGI; pname: DummyEnum; ¶ms: IntPtr); + private static procedure z_ColorTableParameterfvSGI_ovr_2(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr); external 'opengl32.dll' name 'glColorTableParameterfvSGI'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: DummyEnum; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr) := z_ColorTableParameterfvSGI_ovr_2(target, pname, ¶ms); - private static procedure z_ColorTableParameterivSGI_ovr_0(target: ColorTableTargetSGI; pname: DummyEnum; var ¶ms: Int32); + private static procedure z_ColorTableParameterivSGI_ovr_0(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; var ¶ms: Int32); external 'opengl32.dll' name 'glColorTableParameterivSGI'; - private static procedure z_ColorTableParameterivSGI_ovr_0_anh0001(target: ColorTableTargetSGI; pname: DummyEnum; ¶ms: IntPtr); + private static procedure z_ColorTableParameterivSGI_ovr_0_anh0001(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr); external 'opengl32.dll' name 'glColorTableParameterivSGI'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: ColorTableTargetSGI; pname: DummyEnum; ¶ms: array of Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: array of Int32) := if (¶ms<>nil) and (¶ms.Length<>0) then z_ColorTableParameterivSGI_ovr_0(target, pname, ¶ms[0]) else z_ColorTableParameterivSGI_ovr_0_anh0001(target, pname, IntPtr.Zero); - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: ColorTableTargetSGI; pname: DummyEnum; var ¶ms: Int32) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; var ¶ms: Int32) := z_ColorTableParameterivSGI_ovr_0(target, pname, ¶ms); - private static procedure z_ColorTableParameterivSGI_ovr_2(target: ColorTableTargetSGI; pname: DummyEnum; ¶ms: IntPtr); + private static procedure z_ColorTableParameterivSGI_ovr_2(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr); external 'opengl32.dll' name 'glColorTableParameterivSGI'; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: ColorTableTargetSGI; pname: DummyEnum; ¶ms: IntPtr) := + public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr) := z_ColorTableParameterivSGI_ovr_2(target, pname, ¶ms); private static procedure z_CopyColorTableSGI_ovr_0(target: ColorTableTargetSGI; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32); @@ -67296,6 +70599,7 @@ type end; + [PCUNotRestore] glConstantDataSUNX = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67310,6 +70614,7 @@ type end; + [PCUNotRestore] glGlobalAlphaSUN = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67359,6 +70664,7 @@ type end; + [PCUNotRestore] glMeshArraySUN = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67373,6 +70679,7 @@ type end; + [PCUNotRestore] glTriangleListSUN = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -67457,6 +70764,7 @@ type end; + [PCUNotRestore] glVertexSUN = sealed class public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr; external 'opengl32.dll' name 'wglGetProcAddress'; @@ -68338,6 +71646,7 @@ type end; + [PCUNotRestore] wglStereoControl3DL = static class private static function z_SetStereoEmitterState3DL_ovr_0(hDC: GDI_DC; uState: UInt32): UInt32; @@ -68347,6 +71656,7 @@ type end; + [PCUNotRestore] wglGpuAssociationAMD = static class private static function z_GetGPUIDsAMD_ovr_0(maxCount: UInt32; var ids: UInt32): UInt32; @@ -68416,6 +71726,7 @@ type end; + [PCUNotRestore] wglBufferRegionARB = static class private static function z_CreateBufferRegionARB_ovr_0(hDC: GDI_DC; iLayerPlane: Int32; uType: UInt32): IntPtr; @@ -68440,6 +71751,7 @@ type end; + [PCUNotRestore] wglCreateContextARB = static class private static function z_CreateContextAttribsARB_ovr_0(hDC: GDI_DC; hShareContext: GLContext; var attribList: Int32): GLContext; @@ -68459,6 +71771,7 @@ type end; + [PCUNotRestore] wglExtensionsStringARB = static class private static function z_GetExtensionsStringARB_ovr_0(hdc: GDI_DC): IntPtr; @@ -68471,6 +71784,7 @@ type end; + [PCUNotRestore] wglMakeCurrentReadARB = static class private static function z_MakeContextCurrentARB_ovr_0(hDrawDC: GDI_DC; hReadDC: GDI_DC; hglrc: GLContext): UInt32; @@ -68485,6 +71799,7 @@ type end; + [PCUNotRestore] wglPbufferARB = static class private static function z_CreatePbufferARB_ovr_0(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; var piAttribList: Int32): HPBUFFER; @@ -68534,6 +71849,7 @@ type end; + [PCUNotRestore] wglPixelFormatARB = static class private static function z_GetPixelFormatAttribivARB_ovr_0(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var piValues: Int32): UInt32; @@ -69429,6 +72745,7 @@ type end; + [PCUNotRestore] wglRenderTextureARB = static class private static function z_BindTexImageARB_ovr_0(_hPbuffer: HPBUFFER; iBuffer: Int32): UInt32; @@ -69458,6 +72775,7 @@ type end; + [PCUNotRestore] wglDisplayColorTableEXT = static class private static function z_CreateDisplayColorTableEXT_ovr_0(id: UInt16): boolean; @@ -69492,6 +72810,7 @@ type end; + [PCUNotRestore] wglExtensionsStringEXT = static class private static function z_GetExtensionsStringEXT_ovr_0: IntPtr; @@ -69504,6 +72823,7 @@ type end; + [PCUNotRestore] wglMakeCurrentReadEXT = static class private static function z_MakeContextCurrentEXT_ovr_0(hDrawDC: GDI_DC; hReadDC: GDI_DC; hglrc: GLContext): UInt32; @@ -69518,6 +72838,7 @@ type end; + [PCUNotRestore] wglPbufferEXT = static class private static function z_CreatePbufferEXT_ovr_0(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; var piAttribList: Int32): HPBUFFER; @@ -69567,6 +72888,7 @@ type end; + [PCUNotRestore] wglPixelFormatEXT = static class private static function z_GetPixelFormatAttribivEXT_ovr_0(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var piValues: Int32): UInt32; @@ -70462,6 +73784,7 @@ type end; + [PCUNotRestore] wglSwapControlEXT = static class private static function z_SwapIntervalEXT_ovr_0(interval: Int32): UInt32; @@ -70476,6 +73799,7 @@ type end; + [PCUNotRestore] wglDigitalVideoControlI3D = static class private static function z_GetDigitalVideoParametersI3D_ovr_0(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32; @@ -70510,6 +73834,7 @@ type end; + [PCUNotRestore] wglGammaI3D = static class private static function z_GetGammaTableParametersI3D_ovr_0(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32; @@ -70946,6 +74271,7 @@ type end; + [PCUNotRestore] wglGenlockI3D = static class private static function z_EnableGenlockI3D_ovr_0(hDC: GDI_DC): UInt32; @@ -71108,6 +74434,7 @@ type end; + [PCUNotRestore] wglImageBufferI3D = static class private static function z_CreateImageBufferI3D_ovr_0(hDC: GDI_DC; dwSize: UInt32; uFlags: UInt32): IntPtr; @@ -71346,6 +74673,7 @@ type end; + [PCUNotRestore] wglSwapFrameLockI3D = static class private static function z_EnableFrameLockI3D_ovr_0: UInt32; @@ -71390,6 +74718,7 @@ type end; + [PCUNotRestore] wglSwapFrameUsageI3D = static class private static function z_GetFrameUsageI3D_ovr_0(var pUsage: single): UInt32; @@ -71620,6 +74949,7 @@ type end; + [PCUNotRestore] wglCopyImageNV = static class private static function z_CopyImageSubDataNV_ovr_0(hSrcRC: GLContext; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; hDstRC: GLContext; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; width: Int32; height: Int32; depth: Int32): UInt32; @@ -71629,6 +74959,7 @@ type end; + [PCUNotRestore] wglDelayBeforeSwapNV = static class private static function z_DelayBeforeSwapNV_ovr_0(hDC: GDI_DC; seconds: single): UInt32; @@ -71638,6 +74969,7 @@ type end; + [PCUNotRestore] wglDXInteropNV = static class private static function z_DXSetResourceShareHandleNV_ovr_0(dxObject: IntPtr; shareHandle: IntPtr): UInt32; @@ -71702,6 +75034,7 @@ type end; + [PCUNotRestore] wglGpuAffinityNV = static class private static function z_EnumGpusNV_ovr_0(iGpuIndex: UInt32; var phGpu: HGPUNV): UInt32; @@ -71761,6 +75094,7 @@ type end; + [PCUNotRestore] wglPresentVideoNV = static class private static function z_EnumerateVideoDevicesNV_ovr_0(hDc: GDI_DC; var phDeviceList: HVIDEOOUTPUTDEVICENV): Int32; @@ -71810,6 +75144,7 @@ type end; + [PCUNotRestore] wglSwapGroupNV = static class private static function z_JoinSwapGroupNV_ovr_0(hDC: GDI_DC; group: UInt32): UInt32; @@ -71950,6 +75285,7 @@ type end; + [PCUNotRestore] wglVideoCaptureNV = static class private static function z_BindVideoCaptureDeviceNV_ovr_0(uVideoSlot: UInt32; hDevice: HVIDEOINPUTDEVICENV): UInt32; @@ -71999,6 +75335,7 @@ type end; + [PCUNotRestore] wglVideoOutputNV = static class private static function z_GetVideoDeviceNV_ovr_0(hDC: GDI_DC; numDevices: Int32; var hVideoDevice: HPVIDEODEV): UInt32; @@ -72101,6 +75438,7 @@ type end; + [PCUNotRestore] wglVertexArrayRangeNV = static class private static function z_AllocateMemoryNV_ovr_0(size: Int32; readfreq: single; writefreq: single; priority: single): IntPtr; @@ -72115,6 +75453,7 @@ type end; + [PCUNotRestore] wglSyncControlOML = static class private static function z_GetSyncValuesOML_ovr_0(hdc: GDI_DC; var ust: Int64; var msc: Int64; var sbc: Int64): UInt32; diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas index 9712a064b..841087676 100644 --- a/TestSuite/CompilationSamples/PABCSystem.pas +++ b/TestSuite/CompilationSamples/PABCSystem.pas @@ -9517,8 +9517,7 @@ begin Result := Self.Aggregate((max, x)-> comp.Compare(selector(x), selector(max)) >= 0 ? x : max); end; -/// Возвращает последние count элементов последовательности -function TakeLast(Self: sequence of T; count: integer): sequence of T; extensionmethod; +{function TakeLast(Self: sequence of T; count: integer): sequence of T; extensionmethod; begin if count < 0 then raise new System.ArgumentOutOfRangeException('count', count, GetTranslation(PARAMETER_MUST_BE_GREATER_EQUAL_0)); @@ -9549,15 +9548,15 @@ begin yield buf[p]; p := (p+1) mod count; end; -end; - -{function TakeLast(Self: sequence of T; count: integer): sequence of T; extensionmethod; -begin - Result := Self.Reverse.Take(count).Reverse; end;} -/// Возвращает последовательность без последних count элементов -function SkipLast(Self: sequence of T; count: integer): sequence of T; extensionmethod; +/// Возвращает последние count элементов последовательности +function TakeLast(Self: sequence of T; count: integer): sequence of T; extensionmethod; +begin + Result := Self.Reverse.Take(count).Reverse; +end; + +{function SkipLast(Self: sequence of T; count: integer): sequence of T; extensionmethod; begin if count < 0 then raise new System.ArgumentOutOfRangeException('count', count, GetTranslation(PARAMETER_MUST_BE_GREATER_EQUAL_0)); @@ -9581,15 +9580,16 @@ begin buf[p] := x; p := (p+1) mod count; end; -end; +end;} -function SkipLast(Self: sequence of T): sequence of T; extensionmethod := - Self.SkipLast(1); +{function SkipLast(Self: sequence of T): sequence of T; extensionmethod := + Self.SkipLast(1);} -{function SkipLast(self: sequence of T; count: integer := 1): sequence of T; extensionmethod; +/// Возвращает последовательность без последних count элементов +function SkipLast(self: sequence of T; count: integer := 1): sequence of T; extensionmethod; begin Result := Self.Reverse.Skip(count).Reverse; -end;} +end; /// Декартово произведение последовательностей function Cartesian(Self: sequence of T; b: sequence of T1): sequence of (T, T1); extensionmethod; diff --git a/TestSuite/TakeLast.pas b/TestSuite/TakeLast.pas new file mode 100644 index 000000000..30ef3cc6f --- /dev/null +++ b/TestSuite/TakeLast.pas @@ -0,0 +1,3 @@ +begin + Assert(Arr(1, 2, 3, 4).Order.TakeLast(2).SequenceEqual(Arr(3,4))) +end. \ No newline at end of file