Hugging Face's logo

kimjunhan
/
vkgs-sim

Model card Files
xet
 Community
vkgs-sim / third_party /ktx-src /external /dfdutils /makevk2dfd.pl
kimjunhan's picture
kimjunhan
Add files using upload-large-folder tool
ee1cef6 verified
Raw History Blame Contribute Delete
22.9 kB
#!/usr/bin/perl
# -*- tab-width: 4; -*-
# vi: set sw=2 ts=4 expandtab:
# Copyright 2019-2020 The Khronos Group Inc.
# SPDX-License-Identifier: Apache-2.0
use strict;
use warnings;
# N.B. 0 arguments, read stdin, write stdout.
# 1 argument, read ARGV[0], write stdout.
# 2 arguments, read ARGV[0], write ARGV[1].
my $infile = shift @ARGV;
my $outfile = shift @ARGV;
my $input;
if (defined $infile) {
open($input, '<', $infile);
} else {
$input = *STDIN;
}
if (defined $outfile) {
open (my $output, '>', $outfile);
select $output;
}
# Endianness is a parameter to the (non-block-compressed) generators
# This doesn't have to be a number: $bigEndian = "myBigEndianFlag" will drop this argument in the generated code
my $bigEndian = 0;
# Keep track of formats we've seen to avoid duplicates
my %foundFormats = ();
# Check if we've processed a format. Returns true for extension formats
# that have been promoted to core when the core format has been processed.
# Usually only _KHR and _EXT extensions are promoted so only those are
# checked.
sub formatProcessed {
my $format =$_[0];
my $format_noext = $format;
$format_noext =~ s/_(EXT|KHR)$//;
return (exists($foundFormats{$format})
|| exists($foundFormats{$format_noext}));
}
print "/* Copyright 2019-2020 The Khronos Group Inc. */\n";
print "/* SPDX-", "License-Identifier: Apache-2.0 */\n\n";
print "/***************************** Do not edit. *****************************\n";
print " Automatically generated by makevk2dfd.pl.\n";
print " *************************************************************************/\n\n";
# Loop over each line of input
# IMPORTANT: Do not use `<>` as that reads all files given on the
# command line.
while (my $line = <$input>) {
# Match any format that starts with a channel description (some number of R, G, B, A or a number)
# In PERL, "=~" performs a regex operation on the left argument
# m/<regex>/ matches the regular expression
my $format = "";
my $suffix = "";
my $channels = "";
my $scheme = "";
# VK_FORMAT_ is a simple 422 format
if ($line =~ m/(VK_FORMAT_[RGBX0-9]+_422_UNORM(_4PACK16)?)/) {
$format = $1; # Extract the format identifier from the rest of the line
if (exists($foundFormats{$format})) { next }
$foundFormats{$format} = 1;
# VK_FORMAT_G8B8G8R8_422_UNORM,
# VK_FORMAT_B8G8R8G8_422_UNORM,
# VK_FORMAT_G10X6B10X6G10X6R10X6_422_UNORM_4PACK16,
# VK_FORMAT_B10X6G10X6R10X6G10X6_422_UNORM_4PACK16,
# VK_FORMAT_G12X4B12X4G12X4R12X4_422_UNORM_4PACK16,
# VK_FORMAT_B12X4G12X4R12X4G12X4_422_UNORM_4PACK16,
# VK_FORMAT_G16B16G16R16_422_UNORM,
# VK_FORMAT_B16G16R16G16_422_UNORM,
$format =~ m/VK_FORMAT_([RGBX0-9]+)_422_UNORM(_4PACK16)?/;
my $formatChannels = $1;
my $bits = "";
my $shiftBits = "";
my $position_xs = "";
my $position_ys = "";
my $last_green = 1;
while ($formatChannels =~ m/([RGBX0-9]*)([RGB])([0-9]+)X?([0-9]+)?/) {
# Processing from right to left for ease of regex expression
my $channel = $2;
my $bit = $3;
my $padding = $4 ? $4 : "";
if ($channels ne "") {
$channels = ", " . $channels;
$bits = ", " . $bits;
$shiftBits = ", " . $shiftBits;
$position_xs = ", " . $position_xs;
$position_ys = ", " . $position_ys;
}
# The default 4:2:2 positioning is currently cosited-even.
# Block size is 2x1: Sample positions coded as 1/128 on X and 1/256 on Y
# Cosited-even:
# Position Sample
# X Y X Y
# Y0: 0.5, 0.5 -> 64, 128
# U : 0.5, 0.5 -> 64, 128
# Y1: 1.5, 0.5 -> 192, 128
# V : 0.5, 0.5 -> 64, 128
# Midpoint:
# Position Sample
# X Y X Y
# Y0: 0.5, 0.5 -> 64, 128
# U : 1.0, 0.5 -> 128, 128
# Y1: 1.5, 0.5 -> 192, 128
# V : 1.0, 0.5 -> 128, 128
if ($channel eq 'R') {
$channels = "2" . $channels; # 2 = Cr / V
$position_xs = "64" . $position_xs;
$position_ys = "128" . $position_ys;
} elsif ($channel eq 'G') {
$channels = "0" . $channels; # 0 = Y
$position_xs = ($last_green ? "192" : "64") . $position_xs;
$position_ys = "128" . $position_ys;
$last_green = 0;
} elsif ($channel eq 'B') {
$channels = "1" . $channels; # 1 = Cb / U
$position_xs = "64" . $position_xs;
$position_ys = "128" . $position_ys;
}
$bits = $bit . $bits;
if ($padding ne "") { $shiftBits = $padding . $shiftBits; }
else { $shiftBits = "0" . $shiftBits; }
$formatChannels = $1;
}
print "case $format: {\n";
print " int channels[] = {$channels}; int bits[] = {$bits}; int shiftBits[] = {$shiftBits};\n";
print " int position_xs[] = {$position_xs}; int position_ys[] = {$position_ys};\n";
print " return createDFD422($bigEndian, 4, bits, shiftBits, channels, position_xs, position_ys, s_UNORM);\n}\n";
} elsif ($line =~ m/VK_FORMAT_[RGBAE0-9]+_/) {
# Set $format to the enum identifier
($line =~ m/(VK_FORMAT[A-Z0-9_]+)/);
# $<number> holds the <number>'th parenthesised entry in the previous regex
# (only one in this case)
$format = $1;
# Skip a format if we've already processed it
if (!formatProcessed($format)) {
if ($format =~ m/_E5B9G9R9/) {
# Special case (assumed little-endian).
print "case $format: {\n";
print " int bits[] = {0}; int channels[] = {0};\n";
print " return createDFDPacked(0, 6, bits, channels, s_UFLOAT);\n";
print "}\n";
$foundFormats{$format} = 1;
} elsif ($format =~ m/_PACK/) {
# Packed formats end "_PACK<n>" - is this format packed?
# Extract the channel identifiers and suffix from the packed format
$format =~ m/VK_FORMAT_([RGBA0-9]+)_([^_]+)_PACK[0-9]+/;
# The first parenthesised bit of regex is the channels ("R5G5B5" etc.)
$channels = $1;
# The second parenthesised bit of regex is the suffix ("UNORM" etc.)
$suffix = $2;
# N.B. We don't care about the total bit count (after "PACK" in the name)
# Create an empty array of channel names and corresponding bits
my @packChannels = ();
my @packBits = ();
# Loop over channels, separating out the last letter followed by a number
while ($channels =~ m/([RGBA0-9]*)([RGBA])([0-9]+)/) {
# Add the rightmost channel name to our array
push @packChannels, $2;
# Add the rightmost channel bits to the array
push @packBits, $3;
# Truncate the channels string to remove the channel we've processed
$channels = $1;
}
# The number of channels we've found is the array length we've built
my $numChannels = @packChannels;
# Packed output needs a C block for local variables
print "case $format: {\n";
# Start with a null list of channel ids
my $channelIds = "";
# Loop over the channel names we've found
foreach (@packChannels) {
# Use a comma as a separator, so don't add it if the $channelIds string is empty
if ($channelIds ne "") { $channelIds .= ","; }
# Map the channel names to our internal numbering
if ($_ eq 'R') { $channelIds .= "0"; }
elsif ($_ eq 'G') { $channelIds .= "1"; }
elsif ($_ eq 'B') { $channelIds .= "2"; }
elsif ($_ eq 'A') { $channelIds .= "3"; }
}
# Channel bit counts are easier: we can use join() to make a comma-separated
# string of the numbers in the array
my $channelBits = join (',', @packBits);
# Print initialisation for the two arrays we've created
print " int channels[] = {" . $channelIds . "}; ";
print "int bits[] = {" . $channelBits . "};\n";
# Now print the function call and close the block
print " return createDFDPacked($bigEndian, $numChannels, bits, channels, s_$suffix);\n";
print "}\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
# If we're not packed, do we have a simple RGBA channel size list with a suffix?
# N.B. We don't want to pick up downsampled or planar formats, which have more _-separated fields
# - "$" matches the end of the format identifier
} elsif ($format =~ m/VK_FORMAT_A([0-9]+)_([^_]+)(_[^_]+)?$/) {
# Special case for alpha-only formats
# Extract our "suffix" (e.g. "UNORM") and bytes per channel
$suffix = $2;
my $bytesPerChannel = $1 / 8;
# Output the case entry
print "case $format: return createDFDAlpha($bigEndian, $bytesPerChannel, s_$suffix);\n";
} elsif ($format =~ m/VK_FORMAT_([RGBA0-9]+)_([^_]+)$/) {
# Extract our "channels" (e.g. "B8G8R8") and "suffix" (e.g. "UNORM")
$channels = $1;
$suffix = $2;
my $rbswap = 0;
my $numChannels = 0;
# Non-packed format either start with red (R8G8B8A8) or blue (B8G8R8A8)
# We have a special case to notice when we start with blue
if (substr($channels,0,1) eq "B") {
# Red and blue are swapped (B, G, R, A) - record this
# N.B. createDFDUnpacked() just knows this and R,G,B,A channel order, not arbitrary
$rbswap = 1;
# We know we saw "B" for blue, so we must also have red and green
$numChannels = 3;
# If we have "A" in the channels as well, we have four channels
if ($channels =~ m/A/) {
$numChannels = 4;
}
} else {
# We didn't start "B", so we're in conventional order (R, G, B, A)
$rbswap = 0;
# Check for the channel names present and map that to the number of channels
if ($channels =~ m/A/) {
$numChannels = 4;
} elsif ($channels =~ m/B/) {
$numChannels = 3;
} elsif ($channels =~ m/G/) {
$numChannels = 2;
} else {
$numChannels = 1;
}
}
# In an unpacked format, all the channels are the same size, so we only need to check one
$channels =~ m/R([0-9]+)/;
# For unpacked, we need bytes per channel, not bits
my $bytesPerChannel = $1 / 8;
# Output the case entry
print "case $format: return createDFDUnpacked($bigEndian, $numChannels, $bytesPerChannel, $rbswap, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
} elsif ($format =~ m/R16G16_SFIXED5_NV/) {
# Currently only this 2-channel SFIXED5 format exists so an
# explicit match is used.
# Output the case entry
print "case $format: return createDFDUnpacked($bigEndian, 2, 2, 0, s_SFIXED5);\n";
}
}
# VK_FORMAT_ is a packed HDR formats with padding
# R10X6_UNORM_PACK16
# R10X6G10X6_UNORM_2PACK16
# R10X6G10X6B10X6A10X6_UNORM_4PACK16
# R12X4_UNORM_PACK16
# R12X4G12X4_UNORM_2PACK16
# R12X4G12X4B12X4A12X4_UNORM_4PACK16
} elsif ($line =~ m/(VK_FORMAT_R10X6_UNORM_PACK16)/) {
$format = $1; # Extract the format identifier from the rest of the line
if (!exists($foundFormats{$format})) {
$foundFormats{$format} = 1;
print "case $format: {\n";
print " int channels[] = {0}; int bits[] = {10}; int shiftBits[] = {6};\n";
print " return createDFDPackedShifted($bigEndian, 1, bits, shiftBits, channels, s_UNORM);\n}\n"
}
} elsif ($line =~ m/(VK_FORMAT_R10X6G10X6_UNORM_2PACK16)/) {
$format = $1; # Extract the format identifier from the rest of the line
if (!exists($foundFormats{$format})) {
$foundFormats{$format} = 1;
print "case $format: {\n";
print " int channels[] = {0, 1}; int bits[] = {10, 10}; int shiftBits[] = {6, 6};\n";
print " return createDFDPackedShifted($bigEndian, 2, bits, shiftBits, channels, s_UNORM);\n}\n"
}
} elsif ($line =~ m/(VK_FORMAT_R10X6G10X6B10X6A10X6_UNORM_4PACK16)/) {
$format = $1; # Extract the format identifier from the rest of the line
if (!exists($foundFormats{$format})) {
$foundFormats{$format} = 1;
print "case $format: {\n";
print " int channels[] = {0, 1, 2, 3}; int bits[] = {10, 10, 10, 10}; int shiftBits[] = {6, 6, 6, 6};\n";
print " return createDFDPackedShifted($bigEndian, 4, bits, shiftBits, channels, s_UNORM);\n}\n"
}
} elsif ($line =~ m/(VK_FORMAT_R12X4_UNORM_PACK16)/) {
$format = $1; # Extract the format identifier from the rest of the line
if (!exists($foundFormats{$format})) {
$foundFormats{$format} = 1;
print "case $format: {\n";
print " int channels[] = {0}; int bits[] = {12}; int shiftBits[] = {4};\n";
print " return createDFDPackedShifted($bigEndian, 1, bits, shiftBits, channels, s_UNORM);\n}\n"
}
} elsif ($line =~ m/(VK_FORMAT_R12X4G12X4_UNORM_2PACK16)/) {
$format = $1; # Extract the format identifier from the rest of the line
if (!exists($foundFormats{$format})) {
$foundFormats{$format} = 1;
print "case $format: {\n";
print " int channels[] = {0, 1}; int bits[] = {12, 12}; int shiftBits[] = {4, 4};\n";
print " return createDFDPackedShifted($bigEndian, 2, bits, shiftBits, channels, s_UNORM);\n}\n"
}
} elsif ($line =~ m/(VK_FORMAT_R12X4G12X4B12X4A12X4_UNORM_4PACK16)/) {
$format = $1; # Extract the format identifier from the rest of the line
if (!exists($foundFormats{$format})) {
$foundFormats{$format} = 1;
print "case $format: {\n";
print " int channels[] = {0, 1, 2, 3}; int bits[] = {12, 12, 12, 12}; int shiftBits[] = {4, 4, 4, 4};\n";
print " return createDFDPackedShifted($bigEndian, 4, bits, shiftBits, channels, s_UNORM);\n}\n"
}
# If we weren't VK_FORMAT_ plus a channel, we might be a compressed
# format, that ends "_BLOCK"
} elsif ($line =~ m/(VK_FORMAT_[A-Z0-9x_]+_BLOCK(_[A-Z]+)?)/) {
# Extract the format identifier from the rest of the line
$format = $1;
# Skip a format if we've already processed it
if (!formatProcessed($format)) {
# Special-case BC1_RGB to separate it from BC1_RGBA
if ($line =~ m/VK_FORMAT_BC1_RGB_([A-Z]+)_BLOCK/) {
# Pull out the suffix ("UNORM" etc.)
$suffix = $1;
# Output the special case - a 4x4 BC1 block
print "case $format: return createDFDCompressed(c_BC1_RGB, 4, 4, 1, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
# Special case BC1_RGBA (but still extract the suffix with a regex)
} elsif ($line =~ m/VK_FORMAT_BC1_RGBA_([A-Z]+)_BLOCK/) {
$suffix = $1;
print "case $format: return createDFDCompressed(c_BC1_RGBA, 4, 4, 1, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
# All the other BC formats don't have a channel identifier in the name, so we regex match them
} elsif ($line =~ m/VK_FORMAT_(BC(?:[2-57]|6H))_([A-Z]+)_BLOCK/) {
$scheme = $1;
$suffix = $2;
print "case $format: return createDFDCompressed(c_$scheme, 4, 4, 1, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
# The ETC and EAC formats have two-part names (ETC2_R8G8B8, EAC_R11 etc.) starting with "E"
} elsif ($line =~ m/VK_FORMAT_(E[^_]+_[^_]+)_([A-Z]+)_BLOCK/) {
$scheme = $1;
$suffix = $2;
print "case $format: return createDFDCompressed(c_$scheme, 4, 4, 1, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
# Finally, ASTC and PVRTC, the only cases where the block size is a parameter
} elsif ($line =~ m/VK_FORMAT_ASTC_([0-9]+)x([0-9]+)(x([0-9]+))?_([A-Z]+)_BLOCK(_EXT)?/) {
my $w = $1;
my $h = $2;
my $d = $4 ? $4 : '1';
$suffix = $5;
print "case $format: return createDFDCompressed(c_ASTC, $w, $h, $d, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
} elsif ($line =~ m/VK_FORMAT_PVRTC1_2BPP_([A-Z]+)_BLOCK_IMG/) {
# Pull out the suffix ("UNORM" etc.)
$suffix = $1;
# Output the special case - an 8x4 PVRTC block
print "case $format: return createDFDCompressed(c_PVRTC, 8, 4, 1, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
} elsif ($line =~ m/VK_FORMAT_PVRTC1_4BPP_([A-Z]+)_BLOCK_IMG/) {
# Pull out the suffix ("UNORM" etc.)
$suffix = $1;
# Output the special case - an 8x4 PVRTC block
print "case $format: return createDFDCompressed(c_PVRTC, 4, 4, 1, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
} elsif ($line =~ m/VK_FORMAT_PVRTC2_2BPP_([A-Z]+)_BLOCK_IMG/) {
# Pull out the suffix ("UNORM" etc.)
$suffix = $1;
# Output the special case - an 8x4 PVRTC block
print "case $format: return createDFDCompressed(c_PVRTC2, 8, 4, 1, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
} elsif ($line =~ m/VK_FORMAT_PVRTC2_4BPP_([A-Z]+)_BLOCK_IMG/) {
# Pull out the suffix ("UNORM" etc.)
$suffix = $1;
# Output the special case - an 8x4 PVRTC block
print "case $format: return createDFDCompressed(c_PVRTC2, 4, 4, 1, s_$suffix);\n";
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
}
}
} elsif ($line =~ m/(VK_FORMAT_X8_D24_UNORM_PACK32)/) {
# Extract the format identifier from the rest of the line
$format = $1;
if (!exists($foundFormats{$format})) {
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
print "case $format: return createDFDDepthStencil(24,0,4);\n";
}
} elsif ($line =~ m/(VK_FORMAT_D32_SFLOAT_S8_UINT)/) {
# Extract the format identifier from the rest of the line
$format = $1;
if (!exists($foundFormats{$format})) {
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
print "case $format: return createDFDDepthStencil(32,8,8);\n";
}
} elsif ($line =~ m/(VK_FORMAT_D16_UNORM_S8_UINT)/) {
# Extract the format identifier from the rest of the line
$format = $1;
if (!exists($foundFormats{$format})) {
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
print "case $format: return createDFDDepthStencil(16,8,4);\n";
}
} elsif ($line =~ m/(VK_FORMAT_D24_UNORM_S8_UINT)/) {
# Extract the format identifier from the rest of the line
$format = $1;
if (!exists($foundFormats{$format})) {
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
print "case $format: return createDFDDepthStencil(24,8,4);\n";
}
} elsif ($line =~ m/(VK_FORMAT_D32_SFLOAT)/) {
# Extract the format identifier from the rest of the line
$format = $1;
if (!exists($foundFormats{$format})) {
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
print "case $format: return createDFDDepthStencil(32,0,4);\n";
}
} elsif ($line =~ m/(VK_FORMAT_S8_UINT)/) {
# Extract the format identifier from the rest of the line
$format = $1;
if (!exists($foundFormats{$format})) {
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
print "case $format: return createDFDDepthStencil(0,8,1);\n";
}
} elsif ($line =~ m/(VK_FORMAT_D16_UNORM)/) {
# Extract the format identifier from the rest of the line
$format = $1;
if (!exists($foundFormats{$format})) {
# Add the format we've processed to our "done" hash
$foundFormats{$format} = 1;
print "case $format: return createDFDDepthStencil(16,0,2);\n";
}
}
# ...and continue to the next line
}
# vim:ai:ts=4:sts=4:sw=2:expandtab