mirror of
https://repo.dactyloidae.xyz/Dactyloidae/UXP.git
synced 2026-10-09 16:57:30 +09:00
edc8d83307
This is the reference implementation for the Alliance for Open Media's av1 video code. The commit used was 4d668d7feb1f8abd809d1bca0418570a7f142a36.
93 lines
3.3 KiB
Perl
Executable file
93 lines
3.3 KiB
Perl
Executable file
#!/usr/bin/env perl
|
|
##
|
|
## Copyright (c) 2016, Alliance for Open Media. All rights reserved
|
|
##
|
|
## This source code is subject to the terms of the BSD 2 Clause License and
|
|
## the Alliance for Open Media Patent License 1.0. If the BSD 2 Clause License
|
|
## was not distributed with this source code in the LICENSE file, you can
|
|
## obtain it at www.aomedia.org/license/software. If the Alliance for Open
|
|
## Media Patent License 1.0 was not distributed with this source code in the
|
|
## PATENTS file, you can obtain it at www.aomedia.org/license/patent.
|
|
##
|
|
use strict;
|
|
use warnings;
|
|
use 5.010;
|
|
use Getopt::Long;
|
|
|
|
my $version_data;
|
|
my $version_filename;
|
|
GetOptions('version_data=s' => \$version_data,
|
|
'version_filename=s' => \$version_filename) or
|
|
die("Invalid arg(s): $!");
|
|
|
|
if (!defined $version_data || length($version_data) == 0 ||
|
|
!defined $version_filename || length($version_filename) == 0) {
|
|
die("--version_data and --version_filename are required.");
|
|
}
|
|
|
|
# Determine if $version_data is a filename or a git tag/description.
|
|
my $version_string;
|
|
if (-r $version_data) {
|
|
# $version_data is the path to the CHANGELOG. Parse the most recent version.
|
|
my $changelog_filename = $version_data;
|
|
open(my $changelog_file, '<', $changelog_filename) or
|
|
die("Unable to open CHANGELOG @ $changelog_filename: $!.");
|
|
|
|
while (my $line = <$changelog_file>) {
|
|
my @split_line = split(" ", $line, 3);
|
|
next if @split_line < 2;
|
|
$version_string = $split_line[1];
|
|
last if substr($version_string, 0, 1) eq "v";
|
|
}
|
|
close($changelog_file);
|
|
} else {
|
|
# $version_data is either a tag name or a full git description, one of:
|
|
# tagName OR tagName-commitsSinceTag-shortCommitHash
|
|
# In either case we want the first element of the array returned by split.
|
|
$version_string = (split("-", $version_data))[0];
|
|
}
|
|
|
|
if (substr($version_string, 0, 1) eq "v") {
|
|
$version_string = substr($version_string, 1);
|
|
}
|
|
|
|
my @version_components = split('\.', $version_string, 4);
|
|
my $version_major = $version_components[0];
|
|
my $version_minor = $version_components[1];
|
|
my $version_patch = $version_components[2];
|
|
|
|
my $version_extra = "";
|
|
if (@version_components > 3) {
|
|
$version_extra = $version_components[3];
|
|
}
|
|
|
|
open(my $version_file, '>', $version_filename) or
|
|
die("Cannot open $version_filename: $!");
|
|
|
|
my $version_packed = "((VERSION_MAJOR<<16)|(VERSION_MINOR<<8)|(VERSION_PATCH))";
|
|
my $year = (localtime)[5] + 1900;
|
|
my $lic_block = << "EOF";
|
|
/*
|
|
* Copyright (c) $year, Alliance for Open Media. All rights reserved
|
|
*
|
|
* This source code is subject to the terms of the BSD 2 Clause License and
|
|
* the Alliance for Open Media Patent License 1.0. If the BSD 2 Clause License
|
|
* was not distributed with this source code in the LICENSE file, you can
|
|
* obtain it at www.aomedia.org/license/software. If the Alliance for Open
|
|
* Media Patent License 1.0 was not distributed with this source code in the
|
|
* PATENTS file, you can obtain it at www.aomedia.org/license/patent.
|
|
*/
|
|
EOF
|
|
|
|
select $version_file;
|
|
print << "EOF";
|
|
$lic_block
|
|
#define VERSION_MAJOR $version_major
|
|
#define VERSION_MINOR $version_minor
|
|
#define VERSION_PATCH $version_patch
|
|
#define VERSION_EXTRA \"$version_extra\"
|
|
#define VERSION_PACKED $version_packed
|
|
#define VERSION_STRING_NOSP \"v$version_string\"
|
|
#define VERSION_STRING \" v$version_string\"
|
|
EOF
|
|
close($version_file);
|