mirror of https://github.com/GNOME/gimp.git
91 lines
1.5 KiB
Perl
Executable File
91 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# The GIMP -- an image manipulation program
|
|
# Copyright (C) 2000 Sven Neumann <sven@gimp.org>
|
|
|
|
# No, this script does not create new GIMP authors ;-)
|
|
|
|
|
|
my $contributors = {};
|
|
|
|
|
|
print "\nProcessing contributors...\n";
|
|
|
|
open (INPUT, "contributors")
|
|
or die ("Couldn't open file 'contributors'.");
|
|
while (<INPUT>)
|
|
{
|
|
chomp;
|
|
s/[,\.]$//;
|
|
if (length ($_) and not (/^\#/))
|
|
{
|
|
if (/(.{1,})\[(.{1,})\]/)
|
|
{
|
|
$utf{$1} = $2;
|
|
push (@contributors, $1);
|
|
}
|
|
else
|
|
{
|
|
push (@contributors, $_);
|
|
}
|
|
}
|
|
}
|
|
close (INPUT);
|
|
|
|
|
|
open (AUTHORS, ">../../AUTHORS")
|
|
or die ("Couldn't write to file '../../AUTHORS'.");
|
|
print AUTHORS <<EOT;
|
|
The GIMP: Authors
|
|
=================
|
|
|
|
The people that made it happen!
|
|
|
|
1. Main Authors
|
|
===============
|
|
|
|
Spencer Kimball
|
|
Peter Mattis
|
|
|
|
2. Contributers
|
|
===============
|
|
|
|
With patches, fixes, plugins, extensions, scripts, translations, documentation,
|
|
and more from (in alphabetical order):
|
|
|
|
EOT
|
|
foreach $author (@contributors)
|
|
{
|
|
print AUTHORS "$author\n";
|
|
}
|
|
close (AUTHORS);
|
|
|
|
|
|
open (AUTHORS, ">../../app/gui/authors.h")
|
|
or die ("Couldn't write to file '../../app/gui/authors.h'.");
|
|
print AUTHORS <<EOT;
|
|
/* NOTE: This file is autogenerated by authorsgen.pl. */
|
|
|
|
/*
|
|
* The main authors are Spencer Kimball and Peter Mattis.
|
|
*/
|
|
|
|
static gchar *authors[] =
|
|
{
|
|
EOT
|
|
foreach $author (@contributors)
|
|
{
|
|
if ($utf{$author})
|
|
{
|
|
print AUTHORS " \"$utf{$author}\",\n";
|
|
}
|
|
else
|
|
{
|
|
print AUTHORS " \"$author\",\n";
|
|
}
|
|
}
|
|
print AUTHORS "};\n";
|
|
close (AUTHORS);
|
|
|
|
exit;
|