mirror of
https://gitlab.gnome.org/GNOME/gimp
synced 2024-10-21 20:12:30 +00:00
90739b781c
2000-07-29 Sven Neumann <sven@gimp.org> * plug-ins/common/decompose.c: applied gimp-kirchgessner-000728-0, a patch by Peter Kirchgessner that resolves request #16795 and changes the generated filenames for decomposed images. * app/authors.h * tools/authorsgen/Makefile.am * tools/authorsgen/authorsgen.pl: works better now --Sven
110 lines
1.9 KiB
Perl
Executable file
110 lines
1.9 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,})\]/)
|
|
{
|
|
$iso{$1} = $2;
|
|
push (@contributors, $1);
|
|
}
|
|
else
|
|
{
|
|
push (@contributors, $_);
|
|
}
|
|
}
|
|
}
|
|
close (INPUT);
|
|
|
|
|
|
open (ICONV, "iconv -f iso-8859-1 -t utf-8 contributors |")
|
|
or die ("Call to iconv failed.");
|
|
while (<ICONV>)
|
|
{
|
|
chomp;
|
|
if (length ($_) and not (/^\#/) and (/(.{1,})\[(.{1,})\]/))
|
|
{
|
|
$utf{$1} = $2;
|
|
}
|
|
}
|
|
close (ICONV);
|
|
|
|
|
|
|
|
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/authors.h")
|
|
or die ("Couldn't write to file '../../app/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 ($iso{$author} and $utf{$author})
|
|
{
|
|
print AUTHORS "#ifndef GDK_USE_UTF8_MBS\n";
|
|
print AUTHORS " \"$iso{$author}\",\n";
|
|
print AUTHORS "#else\n";
|
|
print AUTHORS " \"$utf{$author}\",\n";
|
|
print AUTHORS "#endif\n";
|
|
}
|
|
else
|
|
{
|
|
print AUTHORS " \"$author\",\n";
|
|
}
|
|
}
|
|
print AUTHORS "};\n";
|
|
close (AUTHORS);
|
|
|
|
|
|
exit;
|