Mac Video Capture: Add Blackmagic DeckLink SDK for Mac to third_party folder

third_party/devscripts/licensecheck.pl

 #!/usr/bin/perl -w
 # This script was originally based on the script of the same name from
 # the KDE SDK (by dfaure@kde.org)
 #
 # This version is
 #   Copyright (C) 2007, 2008 Adam D. Barratt
 #   Copyright (C) 2012 Francesco Poli
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ skipping 578 matching lines @@
         $license = "Ms-PL $license";
     }
 
     if ($licensetext =~ /as defined in and that are subject to the Apple Public Source License([ ,-]+Version ([^ ]+)?(\.))/) {
         $license = "APSL " . ($1 ? "(v$2) " : '') . $license;
     } elsif ($licensetext =~ /provided that if you redistribute the Apple Software in its entirety and without modifications, you must retain this notice and the following text and disclaimers in all such redistributions of the Apple Software/) {
         # https://fedoraproject.org/wiki/Licensing/Apple_MIT_License
         $license = "Apple MIT $license";
     }
 
-    if ($licensetext =~ /Permission is hereby granted, free of charge, to any person or organization obtaining a copy of the software and accompanying documentation covered by this license \(the \"Software\"\)/ or

[Paweł Hajdan Jr., 2014/09/09 12:31:36]

This is likely to regress other cases where quotes are used. Can you make it
handle both cases, quotes and no quotes? I'm fine with just making each of the
\" optional.

[mcasas, 2014/09/09 15:31:50]

Done.

+    if ($licensetext =~ /Permission is hereby granted, free of charge, to any person or organization obtaining a copy of the software and accompanying documentation covered by this license \(the Software\)/ or
         $licensetext =~ /Boost Software License([ ,-]+Version ([^ ]+)?(\.))/i) {
         $license = "BSL " . ($1 ? "(v$2) " : '') . $license;
     }
 
     if ($licensetext =~ /PYTHON SOFTWARE FOUNDATION LICENSE (VERSION ([^ ]+))/i) {
         $license = "PSF " . ($1 ? "(v$2) " : '') . $license;
     }
 
     if ($licensetext =~ /The origin of this software must not be misrepresented.*Altered source versions must be plainly marked as such.*This notice may not be removed or altered from any source distribution/ or
         $licensetext =~ /see copyright notice in zlib\.h/) {
@@ skipping 45 matching lines @@
     return $license;
 }
 
 sub fatal($) {
     my ($pack,$file,$line);
     ($pack,$file,$line) = caller();
     (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d;
     $msg =~ s/\n\n$/\n/;
     die $msg;
 }