diff options
Diffstat (limited to 'tools/add-copyright')
-rwxr-xr-x | tools/add-copyright | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/tools/add-copyright b/tools/add-copyright deleted file mode 100755 index 201d887d..00000000 --- a/tools/add-copyright +++ /dev/null @@ -1,62 +0,0 @@ -#!/usr/local/bin/perl -w - -# Spit the copyright - -# If there is a leading block comment that looks like this -# license, don't add the license. - -$ARGV[0] =~ s!^\./!!; - -open IN, "<$ARGV[0]" or die "Cannot open $ARGV[0]: $!"; -open OUT, ">$ARGV[0].new" or die "Cannot open $ARGV[0].new: $!"; - -$old = ""; -while (<IN>) { - $old .= $_; - m!^(/| )\*! or last; -} - -if ($old !~ /Free Software Foundation/) { - while (<DATA>) { - s/\@NAME\@/$ARGV[0]/; - print OUT; - } -} - -print OUT $old; -while (<IN>) { - print OUT; -} - -close IN; -close OUT; - -if (system("diff $ARGV[0] $ARGV[0].new > /dev/null") != 0) { - system ("mv $ARGV[0] $ARGV[0].bak"); - system ("mv $ARGV[0].new $ARGV[0]"); -} else { - system ("rm $ARGV[0].new"); -} - -__DATA__ -/* Pango - * @NAME@: - * - * Copyright (C) 1999 Red Hat Software - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - */ - |