aboutsummaryrefslogtreecommitdiff
path: root/Tools
diff options
context:
space:
mode:
authorBaptiste Daroussin <bapt@FreeBSD.org>2013-09-21 00:06:29 +0000
committerBaptiste Daroussin <bapt@FreeBSD.org>2013-09-21 00:06:29 +0000
commita4ae5c22ec2189e0e380e17d6a86ab546a72f9c3 (patch)
tree635ebd20014102b22bd327f2b25bb6ac2e11065f /Tools
parentc30de1720518ec9e8e1256842d7b1f34be31332a (diff)
downloadports-a4ae5c22ec2189e0e380e17d6a86ab546a72f9c3.tar.gz
ports-a4ae5c22ec2189e0e380e17d6a86ab546a72f9c3.zip
Notes
Diffstat (limited to 'Tools')
-rw-r--r--Tools/scripts/README1
-rwxr-xr-xTools/scripts/convert-makefile-header.pl182
2 files changed, 0 insertions, 183 deletions
diff --git a/Tools/scripts/README b/Tools/scripts/README
index fc1cad03af42..7c2e9232d16d 100644
--- a/Tools/scripts/README
+++ b/Tools/scripts/README
@@ -17,7 +17,6 @@ checknewvers - checks for availability for a newest version of distfiles on
chkorigin.sh - checks all ports in the tree for a wrong PKGORIGIN.
Run this tool after every repocopy.
close-pr - a slightly hacked version of edit-pr(1) to quickly close PR.
-convert-makefile-header.pl - converts old style headers to modern one-line version
de-pkg-comment - converts pkg-comment to COMMENT (will be obsoleted when
the mass conversion is finished)
distclean - compare md5 sums of distfiles in ports/distfiles with currently
diff --git a/Tools/scripts/convert-makefile-header.pl b/Tools/scripts/convert-makefile-header.pl
deleted file mode 100755
index ccda7837ffd3..000000000000
--- a/Tools/scripts/convert-makefile-header.pl
+++ /dev/null
@@ -1,182 +0,0 @@
-#!/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 (default)
- -r use simple \$FreeBSD\$ RCS string header
- (make sure the original creator is ok with this)
- -h, --help this help
- -n, --nowrite don't change file, just print what would be done
- -N, --nopreserve don't preserve original file
-
-_ENOUSAGE
-}
-
-# You may add yourself to the following list if you agree to waive on the
-# "Created by" attribution
-sub get_nice_people() {
- my $committers=[
- 'araujo',
- 'az',
- 'avilla',
- 'bapt',
- 'bdrewery',
- 'beat',
- 'brooks',
- 'crees',
- 'eadler',
- 'flo',
- 'flz',
- 'garga',
- 'kuriyama',
- 'linimon',
- 'makc',
- 'pgollucci',
- 'rm',
- 'tabthorpe',
- 'wxs'
- ];
-
- # append FreeBSD.org domain to the list of committers
- map ($_ .= '\@FreeBSD\.org', @$committers);
-
- my $maintainers=[
- 'cvs-src\@yandex\.ru',
- 'makc\@issp\.ac\.ru',
- 'villa\.alberto\@',
- 'pgollucci\@p6m7g8\.com',
- 'bsdkaffee\@',
- 'baptiste\.daroussin\@gmail\.com'
- ];
-
- # merge committer and maintainer addresses
- my @nice_people=(@$committers, @$maintainers);
-
- # prepend regex
- map ($_ = '(\\s|<|^)' . $_, @nice_people);
-
- return \@nice_people;
-}
-
-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={};
- my $nice_people=get_nice_people();
- GetOptions($opt, 'help|h', 'rcsonly|r', 'createdby|c', 'nowrite|n', 'nopreserve|N');
-
- if(defined($opt->{help})) {
- usage();
- exit 0;
- }
-
- if(not @ARGV) {
- push(@ARGV, '.');
- }
-
- for my $arg (@ARGV) {
- my @header;
- my @makefile;
- my @header_exception;
- 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);
- }
-
- # tolerate $MCom RCS tags
- if($line=~m'\$MCom') {
- push(@header_exception, $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->{rcsonly})) {
- print $outh "# \$FreeBSD\$\n";
- } elsif(defined($opt->{createdby}) || !defined($opt->{rcsonly})) {
- my $creator=get_creator(\@header);
- if(defined($creator)) {
- my $is_nice=0;
- for my $c (@$nice_people) {
- if($creator=~m"${c}"i) {
- $is_nice=1;
- last;
- }
- }
-
- # normalize FreeBSD.org
- $creator=~s#\@freebsd\.org#\@FreeBSD.org#i;
-
- print $outh "# Created by: $creator\n" if(!$is_nice);
- } else {
- print STDERR "$mf creator not found. Reverting to RCS string only.\n";
- }
- print $outh "# \$FreeBSD\$\n";
-
- # append header exceptions
- for my $h (@header_exception) {
- print $outh $h . "\n";
- }
- }
-
- for my $line (@makefile) {
- print $outh $line . "\n";
- }
-
- if(not defined($opt->{nowrite})) {
- # move new Makefile
- `mv $mf $mf.orig` if(not defined($opt->{nopreserve}));
- `mv $mf.tmp_header_rename $mf`;
- print STDERR "$mf converted.\n";
- }
-
- } else {
- print STDERR "$arg/Makefile does not exist.\n";
- }
- }
-}