mirror of
https://github.com/mumble-voip/mumble.git
synced 2025-10-26 11:19:16 +00:00
The class implements an API similar to OpenBSD's arc4random: - A way to get a random uint32_t. (arc4random) - A way to get a random uint32_t with an upper bound. (arc4random_uniform) - A way to fill a buffer with random data. (arc4random_buf)
117 lines
4.5 KiB
Perl
Executable File
117 lines
4.5 KiB
Perl
Executable File
#! /usr/bin/perl
|
|
#
|
|
# Copyright 2005-2017 The Mumble Developers. All rights reserved.
|
|
# Use of this source code is governed by a BSD-style license
|
|
# that can be found in the LICENSE file at the root of the
|
|
# Mumble source tree or at <https://www.mumble.info/LICENSE>.
|
|
|
|
use warnings;
|
|
use strict;
|
|
use Carp;
|
|
|
|
sub licenseFileToVar($$) {
|
|
my ($var,$file)=@_;
|
|
|
|
my $ret;
|
|
|
|
|
|
open(IN, $file) or croak;
|
|
my $l = join("", <IN>);
|
|
$l =~ s/\r//g;
|
|
$l =~ s/\f//g;
|
|
$l =~ s/\"/\\\"/g;
|
|
|
|
$l = join("\\n\"\n\t\"",split(/\n/, $l));
|
|
|
|
return qq!static const char *${var} = \n\t\"! . $l . "\";\n";
|
|
}
|
|
|
|
sub printGuarded($$$) {
|
|
my ($F, $S, $Guard)=@_;
|
|
|
|
if ($Guard) {
|
|
print $F "#ifdef " . $Guard . "\n";
|
|
}
|
|
print $F $S;
|
|
|
|
if ($Guard) {
|
|
print $F "#endif\n";
|
|
}
|
|
}
|
|
|
|
|
|
open(my $F, "> ../src/licenses.h");
|
|
binmode $F; # Ensure consistent file endings across platforms
|
|
|
|
print $F "/*\n";
|
|
print $F " * This file was auto-generated by scripts/mklic.pl\n";
|
|
print $F " * DO NOT EDIT IT MANUALLY\n";
|
|
print $F " */\n";
|
|
print $F "#ifndef MUMBLE_LICENSES_H_\n";
|
|
print $F "#define MUMBLE_LICENSES_H_\n";
|
|
print $F "\n";
|
|
print $F "#include <QtGlobal>\n";
|
|
print $F "\n";
|
|
print $F "struct ThirdPartyLicense {\n";
|
|
print $F " const char* name;\n";
|
|
print $F " const char* url;\n";
|
|
print $F " const char* license;\n";
|
|
print $F "\n";
|
|
print $F " ThirdPartyLicense() : name(0), url(0), license(0) {}\n";
|
|
print $F " ThirdPartyLicense(const char* name_, const char* url_, const char* license_)\n";
|
|
print $F " : name(name_), url(url_), license(license_) {}\n";
|
|
print $F " bool isEmpty() const { return (name == 0 && url == 0 && license == 0); }\n";
|
|
print $F "};\n";
|
|
print $F "\n";
|
|
|
|
|
|
print $F licenseFileToVar("licenseMumble", "../LICENSE");
|
|
print $F "\n\n";
|
|
|
|
print $F licenseFileToVar("authorsMumble", "../AUTHORS");
|
|
print $F "\n\n";
|
|
|
|
# List of 3rd party licenses [<variableName>, <pathToLicenseFile>, <DisplayName>, <URL>]
|
|
my @thirdPartyLicenses = (
|
|
["licenseCELT", "../3rdparty/celt-0.11.0-src/COPYING", "CELT", "http://www.celt-codec.org/"],
|
|
["licenseOpus", "../3rdparty/opus-src/COPYING", "Opus", "http://www.opus-codec.org/"],
|
|
["licenseSPEEX", "../3rdparty/speex-src/COPYING", "Speex", "http://www.speex.org/"],
|
|
["licenseOpenSSL", "../3rdPartyLicenses/openssl_license.txt", "OpenSSL", "http://www.openssl.org/"],
|
|
["licenseLibsndfile", "../3rdPartyLicenses/libsndfile_license.txt", "libsndfile", "http://www.mega-nerd.com/libsndfile/"],
|
|
["licenseOgg", "../3rdPartyLicenses/libogg_license.txt", "libogg", "http://www.xiph.org/"],
|
|
["licenseVorbis", "../3rdPartyLicenses/libvorbis_license.txt", "libvorbis", "http://www.xiph.org/"],
|
|
["licenseFLAC", "../3rdPartyLicenses/libflac_license.txt", "libFLAC", "http://flac.sourceforge.net/"],
|
|
["licenseMachOverride", "../3rdPartyLicenses/mach_override_license.txt", "mach_override", "https://github.com/rentzsch/mach_star", "Q_OS_MAC"],
|
|
["licenseMinHook", "../3rdPartyLicenses/minhook_license.txt", "MinHook", "https://github.com/TsudaKageyu/minhook", "Q_OS_WIN64"],
|
|
["licenseQtTranslations", "../src/mumble/qttranslations/LICENSE",
|
|
"Additional Qt translations", "https://www.virtualbox.org/ticket/2018", "USING_BUNDLED_QT_TRANSLATIONS"],
|
|
["licenseFilterSvg", "../icons/filter.txt", "filter.svg icon", "https://commons.wikimedia.org/wiki/File:Filter.svg"],
|
|
["licenseEmojiOne", "../3rdPartyLicenses/cc_by_sa_40_legalcode.txt", "Emoji One artwork", "http://emojione.com/"],
|
|
["licenseXInputCheck", "../3rdparty/xinputcheck-src/COPYING.txt", "XInputCheck (SDL_IsXInput function)", "https://www.libsdl.org/"],
|
|
["licenseQQBonjour", "../3rdparty/qqbonjour-src/LICENSE", "QQBonjour", "https://doc.qt.io/archives/qq/qq23-bonjour.html"],
|
|
["licenseSmallFT", "../3rdparty/smallft-src/LICENSE", "smallft", "https://www.xiph.org"],
|
|
["licenseOldStyleLicenseHeaders", "../3rdPartyLicenses/mumble-old-license-headers/LICENSE.txt", "Old-style Mumble license headers", "https://www.mumble.info"],
|
|
["licenseArc4RandomUniform", "../3rdparty/arc4random-src/LICENSE", "arc4random_uniform", "https://www.openbsd.org"],
|
|
|
|
);
|
|
|
|
# Print 3rd party licenses
|
|
foreach (@thirdPartyLicenses) {
|
|
printGuarded($F, licenseFileToVar(@$_[0], @$_[1]), @$_[4]);
|
|
print $F "\n\n";
|
|
}
|
|
|
|
|
|
# Print list of 3rd party licenses
|
|
print $F "static const ThirdPartyLicense licenses3rdParties[] = {\n";
|
|
foreach (@thirdPartyLicenses) {
|
|
printGuarded($F, "\tThirdPartyLicense(\"" . @$_[2] . "\", \"" . @$_[3] . "\", " . @$_[0] . "),\n", @$_[4]);
|
|
}
|
|
# Empty entry that marks the end of the array
|
|
printGuarded($F, "\tThirdPartyLicense(),\n", @$_[4]);
|
|
print $F "};\n\n\n";
|
|
|
|
print $F "#endif\n";
|
|
|
|
close($F);
|