mpv/TOOLS/vdpau_functions.pl

#! /usr/bin/env perl

# Generates vdpau_template.c

use strict;
use warnings;

sub camelize($) {
    my $s = shift;
    $s =~ s/(?:^|_)([a-z])/\u$1/g;
    $s;
}

print <<EOF;
/* Lists the VDPAU functions used by MPV.
 * Generated by vdpau_functions.pl.
 * First argument on each line is the VDPAU function type name,
 * second is the macro name needed to get the function address,
 * third is the name MPV uses for the function.
 */

EOF

while (my $f = <DATA>) {
    # strip whitespace, ignore anything after a '#'
    $f =~ /^\s*(.*?)\s*(?:(?<!\\)#.*)?$/;
    $f = $1;
    next unless $f; # empty / comment line

    my ($mp_name, $vdpau_name) = split /\s+/, $f;
    $vdpau_name = camelize $mp_name unless $vdpau_name;

    print "VDP_FUNCTION(Vdp$vdpau_name, VDP_FUNC_ID_\U$mp_name\E, $mp_name)\n";
}

__DATA__
# get_error_string should be first, because the function lookup loop should
# have it available to print errors for other functions
get_error_string

bitmap_surface_create
bitmap_surface_destroy
bitmap_surface_put_bits_native
bitmap_surface_query_capabilities
decoder_create
decoder_destroy
decoder_render
device_destroy
generate_csc_matrix GenerateCSCMatrix  # CSC completely capitalized
output_surface_create
output_surface_destroy
output_surface_get_bits_native
output_surface_put_bits_indexed
output_surface_put_bits_native
output_surface_render_bitmap_surface
output_surface_render_output_surface
preemption_callback_register
presentation_queue_block_until_surface_idle
presentation_queue_create
presentation_queue_destroy
presentation_queue_display
presentation_queue_get_time
presentation_queue_query_surface_status
presentation_queue_target_create_x11
presentation_queue_target_destroy
video_mixer_create
video_mixer_destroy
video_mixer_query_feature_support
video_mixer_render
video_mixer_set_attribute_values
video_mixer_set_feature_enables
video_surface_create
video_surface_destroy
video_surface_put_bits_y_cb_cr