From owner-svn-ports-all@FreeBSD.ORG  Mon Oct 29 12:18:43 2012
Return-Path: <owner-svn-ports-all@FreeBSD.ORG>
Delivered-To: svn-ports-all@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52])
 by hub.freebsd.org (Postfix) with ESMTP id D00DBE3C;
 Mon, 29 Oct 2012 12:18:43 +0000 (UTC)
 (envelope-from ehaupt@FreeBSD.org)
Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:4f8:fff6::2c])
 by mx1.freebsd.org (Postfix) with ESMTP id AD8128FC14;
 Mon, 29 Oct 2012 12:18:43 +0000 (UTC)
Received: from svn.freebsd.org (localhost [127.0.0.1])
 by svn.freebsd.org (8.14.4/8.14.4) with ESMTP id q9TCIhqe059117;
 Mon, 29 Oct 2012 12:18:43 GMT (envelope-from ehaupt@svn.freebsd.org)
Received: (from ehaupt@localhost)
 by svn.freebsd.org (8.14.4/8.14.4/Submit) id q9TCIhrR059116;
 Mon, 29 Oct 2012 12:18:43 GMT (envelope-from ehaupt@svn.freebsd.org)
Message-Id: <201210291218.q9TCIhrR059116@svn.freebsd.org>
From: Emanuel Haupt <ehaupt@FreeBSD.org>
Date: Mon, 29 Oct 2012 12:18:43 +0000 (UTC)
To: ports-committers@freebsd.org, svn-ports-all@freebsd.org,
 svn-ports-head@freebsd.org
Subject: svn commit: r306605 - head/Tools/scripts
X-SVN-Group: ports-head
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: svn-ports-all@freebsd.org
X-Mailman-Version: 2.1.14
Precedence: list
List-Id: SVN commit messages for the ports tree <svn-ports-all.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-ports-all>,
 <mailto:svn-ports-all-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-ports-all>
List-Post: <mailto:svn-ports-all@freebsd.org>
List-Help: <mailto:svn-ports-all-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-ports-all>,
 <mailto:svn-ports-all-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Mon, 29 Oct 2012 12:18:44 -0000

Author: ehaupt
Date: Mon Oct 29 12:18:43 2012
New Revision: 306605
URL: http://svn.freebsd.org/changeset/ports/306605

Log:
  Add convert-makefile-header.pl, a perl script that converts old style Makefile
  headers to the new format.
  
  Feature safe: yes

Added:
  head/Tools/scripts/convert-makefile-header.pl   (contents, props changed)

Added: head/Tools/scripts/convert-makefile-header.pl
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/Tools/scripts/convert-makefile-header.pl	Mon Oct 29 12:18:43 2012	(r306605)
@@ -0,0 +1,111 @@
+#!/usr/bin/env perl
+#
+# convert-makefile-header.pl - perl script that converts old style Makefile
+# headers to the new format.
+#
+# Created by: Emanuel Haupt <ehaupt@FreeBSD.org>
+#
+# MAINTAINER=   ehaupt@FreeBSD.org
+#
+# $FreeBSD$
+
+use strict;
+use warnings;
+
+use File::Basename;
+use Getopt::Long qw(:config posix_default no_ignore_case);
+
+sub usage() {
+	my $bn=basename($0);
+	print(<< "_ENOUSAGE");
+Usage: $bn [OPTION] PORT
+  -c                    use 'created by' header
+  -d                    use simple \$FreeBSD\$ RCS string header (default)
+  -h, --help            this help
+  -n, --nowrite         don't change file, just print what would be done
+
+_ENOUSAGE
+}
+
+sub get_creator($) {
+	my $header=shift;
+	my $creator;
+	for my $line (@$header) {
+		if($line=~m'\s+whom:\s+(.*)'i) {
+			return $1;
+		} elsif($line=~m'\s+Created by:\s+(.*)'i) {
+			return $1;
+		}
+	}
+	return $creator;
+}
+
+MAIN: {
+	# get options
+	my $opt={};
+	GetOptions($opt, 'help|h', 'default|d', 'createdby|c', 'nowrite|n');
+
+	if(defined($opt->{help})) {
+		usage();
+		exit 0;
+	}
+
+	if(not @ARGV) {
+		push(@ARGV, '.');
+	}
+
+	for my $arg (@ARGV) {
+		my @header;
+		my @makefile;
+		my $in_header=1;
+		if(-f "$arg/Makefile") {
+			my $mf=$arg . "/Makefile";
+			open(F,'<'.$mf);
+			while(my $line=<F>) {
+				chomp($line);
+				if($line=~m'^#' and $in_header) {
+					push(@header, $line);
+				} else {
+					$in_header=0;
+					push(@makefile, $line);
+				}
+			}
+			close(F);
+
+			my $outh;
+			if(defined($opt->{nowrite})) {
+				$outh = \*STDOUT;
+			} else {
+				open(MF,'>'.$mf.'.tmp_header_rename');
+				$outh = \*MF;
+			}
+
+			# write new Makefile
+			if(defined($opt->{default}) || !defined($opt->{createdby})) {
+				print $outh "# \$FreeBSD\$\n";
+			} elsif(defined($opt->{createdby})) {
+				my $creator=get_creator(\@header);
+				if(defined($creator)) {
+					print $outh "# Created by: $creator\n";
+				} else {
+					print STDERR "$mf creator not found. Reverting to RCS string only.\n";
+				}
+				print $outh "# \$FreeBSD\$\n";
+			}
+		
+			for my $line (@makefile) {
+				print $outh $line . "\n";
+			}
+
+			if(not defined($opt->{nowrite})) {
+				# move new Makefile
+				`mv $mf $mf.orig`;
+				`mv $mf.tmp_header_rename $mf`;
+				print STDERR "$mf converted.\n";
+			}
+
+		} else {
+			print STDERR "$arg/Makefile does not exist.\n";
+		}
+	}
+}