OLD | NEW |
1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -w |
2 # This script was originally based on the script of the same name from | 2 # This script was originally based on the script of the same name from |
3 # the KDE SDK (by dfaure@kde.org) | 3 # the KDE SDK (by dfaure@kde.org) |
4 # | 4 # |
5 # This version is | 5 # This version is |
6 # Copyright (C) 2007, 2008 Adam D. Barratt | 6 # Copyright (C) 2007, 2008 Adam D. Barratt |
7 # Copyright (C) 2012 Francesco Poli | 7 # Copyright (C) 2012 Francesco Poli |
8 # | 8 # |
9 # This program is free software; you can redistribute it and/or modify | 9 # This program is free software; you can redistribute it and/or modify |
10 # it under the terms of the GNU General Public License as published by | 10 # it under the terms of the GNU General Public License as published by |
(...skipping 559 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
570 } | 570 } |
571 | 571 |
572 if ($licensetext =~ /As a special exception, you may create a larger work th
at contains part or all of the Bison parser skeleton and distribute that work un
der terms of your choice/) { | 572 if ($licensetext =~ /As a special exception, you may create a larger work th
at contains part or all of the Bison parser skeleton and distribute that work un
der terms of your choice/) { |
573 $license = $license . "with Bison parser exception"; | 573 $license = $license . "with Bison parser exception"; |
574 } | 574 } |
575 | 575 |
576 if ($licensetext =~ /As a special exception to the GNU General Public Licens
e, if you distribute this file as part of a program or library that is built usi
ng GNU Libtool, you may include this file under the same distribution terms that
you use for the rest of that program/) { | 576 if ($licensetext =~ /As a special exception to the GNU General Public Licens
e, if you distribute this file as part of a program or library that is built usi
ng GNU Libtool, you may include this file under the same distribution terms that
you use for the rest of that program/) { |
577 $license = $license . "with libtool exception"; | 577 $license = $license . "with libtool exception"; |
578 } | 578 } |
579 | 579 |
| 580 if ($licensetext =~ /These materials are protected by copyright laws and con
tain material proprietary to the Khronos Group, Inc\. You may use these material
s for implementing Khronos specifications, without altering or removing any trad
emark, copyright or other notice from the specification/) { |
| 581 $license = $license . "Khronos Group"; |
| 582 } |
| 583 |
580 $license = "UNKNOWN" if (!length($license)); | 584 $license = "UNKNOWN" if (!length($license)); |
581 | 585 |
582 # Remove trailing spaces. | 586 # Remove trailing spaces. |
583 $license =~ s/\s+$//; | 587 $license =~ s/\s+$//; |
584 | 588 |
585 return $license; | 589 return $license; |
586 } | 590 } |
587 | 591 |
588 sub fatal($) { | 592 sub fatal($) { |
589 my ($pack,$file,$line); | 593 my ($pack,$file,$line); |
590 ($pack,$file,$line) = caller(); | 594 ($pack,$file,$line) = caller(); |
591 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; | 595 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; |
592 $msg =~ s/\n\n$/\n/; | 596 $msg =~ s/\n\n$/\n/; |
593 die $msg; | 597 die $msg; |
594 } | 598 } |
OLD | NEW |