this repo has no description
dekker.one
1#!/usr/bin/perl
2#
3# Main authors:
4# Christian Schulte <schulte@gecode.org>
5#
6# Copyright:
7# Christian Schulte, 2005
8#
9# This file is part of Gecode, the generic constraint
10# development environment:
11# http://www.gecode.org
12#
13# Permission is hereby granted, free of charge, to any person obtaining
14# a copy of this software and associated documentation files (the
15# "Software"), to deal in the Software without restriction, including
16# without limitation the rights to use, copy, modify, merge, publish,
17# distribute, sublicense, and/or sell copies of the Software, and to
18# permit persons to whom the Software is furnished to do so, subject to
19# the following conditions:
20#
21# The above copyright notice and this permission notice shall be
22# included in all copies or substantial portions of the Software.
23#
24# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
25# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
26# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
27# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
28# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
29# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
30# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
31#
32#
33
34#
35# Get authors of all files
36#
37
38%main = ();
39%fix = ();
40
41while ($l = <>) {
42 if (($l =~ /Main authors:/) || ($l =~ /Contributing authors:/)) {
43 while (($l = <>) && ($l =~ /([A-Z].*) <(.*)>/)) {
44 $main{$1} = $2;
45 }
46 } elsif ($l =~ /provided by:/) {
47 while (($l = <>) && ($l =~ /([A-Z][^<]*)/)) {
48 $fix{$1} = "";
49 }
50 }
51}
52
53print <<EOF
54/**
55 \\page PageLic %Gecode license and authors
56
57\\section SectLicLic GECODE LICENSE AGREEMENT
58
59This software and its documentation are copyrighted by the
60individual authors as listed in each file. All files, unless explicitly disclaimed in individual files, may be used according to the terms of the
61<a href="http://www.opensource.org/licenses/mit-license.php">
62MIT license</a>, which reads as follows:
63
64<TT>
65Permission is hereby granted, free of charge, to any person obtaining
66a copy of this software and associated documentation files (the
67"Software"), to deal in the Software without restriction, including
68without limitation the rights to use, copy, modify, merge, publish,
69distribute, sublicense, and/or sell copies of the Software, and to
70permit persons to whom the Software is furnished to do so, subject to
71the following conditions:
72
73The above copyright notice and this permission notice shall be
74included in all copies or substantial portions of the Software.
75
76THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
77EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
78MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
79NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
80LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
81OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
82WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
83</TT>
84
85\\section SecLicAuthors Gecode authors
86
87The following authors have contributed to the %Gecode library
88and its documentation (in alphabetical order of firstname):
89EOF
90;
91
92
93foreach $n (sort(keys(%main))) {
94 $e = $main{$n};
95 print " - $n <$e>\n";
96}
97
98print <<EOF
99
100The above authors are grateful to the following people who have provided
101bugfixes:
102EOF
103;
104
105foreach $n (sort(keys(%fix))) {
106 print " - $n\n";
107}
108
109print <<EOF
110
111We are also grateful for our users reporting bugs and suggesting
112improvements.
113
114*/
115EOF
116;
117