Add the first efforts on my mkptools, the successor to makeport.pl.

mkptools are broken up into simple scripts:

mkpskel takes a distribution file as an argument and generates a
skeleton; it guesses the extract method, the package name, and so forth,
and generates populated Makefile and distinfo and empty pkg-descr,
pkg-comment, and pkg-plist.

mkpextr goes through the extract phase, and generates what it believes
are the necessary variables necessary to build the port.  It guesses the
work source directory, what the Makefile is called, whether it has
configure, whether to use libtool, and other bits such as wildly
guessing kde, qt, gtk, gnome, and ssl requirements.  Run it in a port
directory, and it generates Makefile.extr.

mkpmerge merges the results from mkpskel and mkpextr (and will later
merge the results from the other phases) into Makefile.

mkpclean cleans up any extra files that may be hanging about.

4 files changed, 613 insertions, 0 deletions

diff --git a/Tools/scripts/mkptools/mkpclean b/Tools/scripts/mkptools/mkpclean
new file mode 100755
index 000000000000..90beab470e9e
--- /dev/null
+++ b/Tools/scripts/mkptools/mkpclean
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+#
+# Copyright (c) 2000 Neil Blakey-Milner
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+
+unlink("Makefile.old");
+unlink("Makefile.extr");
+`make clean NOCLEANDEPENDS=1`;
diff --git a/Tools/scripts/mkptools/mkpextr b/Tools/scripts/mkptools/mkpextr
new file mode 100755
index 000000000000..4e2fe8e97e69
--- /dev/null
+++ b/Tools/scripts/mkptools/mkpextr
@@ -0,0 +1,255 @@
+#!/usr/bin/perl -w
+#
+# Copyright (c) 2000 Neil Blakey-Milner
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+
+use strict;
+
+use Getopt::Std qw( getopts );
+
+my ($initdir, $distname);
+my ($makefile, $wrksrc);
+my ($portname, $portversion);
+my (%cap); # persistent version of the make variables
+my (%tmp); # temporary version of the make variables
+
+chomp($initdir = `pwd`);
+
+getopts('o');
+
+#&usage if $#ARGV != 0;
+
+&initmk;
+&chk_scripts;
+chdir($initdir);
+open(MAKEFILE, ">Makefile.extr");
+&writemk;
+
+exit;
+
+sub nl {
+	print MAKEFILE "\n";
+}
+
+sub writeiffound {
+	my($var) = (@_);
+
+	if ($tmp{"$var"}) {
+		print MAKEFILE "$var=\t". $tmp{$var} . "\n";
+		delete($tmp{$var});
+		return 1;
+	}
+	return 0;
+}
+
+sub appendvar {
+	my ($var, $item) = (@_);
+
+	if ($tmp{$var}) {
+		$tmp{$var} .= "\t\\\n\t\t$item";
+	} else {
+		$tmp{$var} = "$item";
+	}
+}
+
+sub writemk {
+
+	my (@freeform);
+
+	my ($key);
+
+	foreach $key (keys %cap) {
+		$tmp{$key} = $cap{$key};
+	}
+
+	foreach $key (keys %tmp) {
+		if ($tmp{"USE_KDE"}) {
+			appendvar("LIB_DEPENDS",
+				"kdecore.4:\${PORTSDIR}/x11/kdelibs2");
+			delete($tmp{"USE_KDE"});
+		}
+
+		if ($tmp{"USE_GNOME"}) {
+			appendvar("LIB_DEPENDS",
+				"gnome.4:\${PORTSDIR}/x11/gnomelibs");
+			delete($tmp{"USE_GNOME"});
+		}
+
+		if ($tmp{"USE_GTK"}) {
+			appendvar("LIB_DEPENDS",
+				"gtk12.2:\${PORTSDIR}/x11-toolkits/gtk12");
+
+			$tmp{"GTK_CONFIG"} = 
+				"\${X11BASE}/bin/gtk12-config";
+
+			appendvar("CONFIGURE_ENV",
+					"GTK_CONFIG=\"\${GTK_CONFIG}\"");
+
+			delete($tmp{"USE_GTK"});
+		}
+	}
+
+	my ($date);
+	chomp($date = `date +"\%d \%b \%Y"`);
+
+	nl if writeiffound("LIB_DEPENDS");
+
+	nl if (writeiffound("GNU_CONFIGURE") +
+		writeiffound("HAS_CONFIGURE") +
+		writeiffound("CONFIGURE_ARGS") +
+		writeiffound("CONFIGURE_ENV"));
+
+	#second group
+	foreach $key (keys %tmp) {
+		my($tmp) = $tmp{$key};
+		print MAKEFILE "$key=\t$tmp\n";
+	}
+
+	print MAKEFILE @freeform;
+
+	print MAKEFILE "\n.include <bsd.port.mk>\n";	
+	close (MAKEFILE);
+}
+
+sub initmk {
+	chomp($portname = `make -V PORTNAME`);
+	chomp($portversion = `make -V PORTVERSION`);
+	`make extract`;
+}
+
+sub getwrksrc {
+	my (@files);
+	my ($wrkdir);
+	$wrkdir = "work";
+	chdir ($initdir);
+	chdir ($wrkdir);
+
+	if (-d "$portname-$portversion") {
+		$wrksrc = $wrkdir . "$portname-$portversion";
+		chdir ("$portname-$portversion");
+		return;
+	}
+
+	opendir(DIR, ".");
+	@files = grep { ! /^\./ } readdir(DIR);
+	closedir DIR;
+	if ($#files > 1) { # more than one entry in dir
+		$cap{"NO_WRKSUBDIR"} = "YES";
+		$wrksrc = $wrkdir;
+	} else { # just one, so change to directory
+		$cap{"WRKSRC"} = '${WRKDIR}/' . $files[0];
+		$wrksrc = $wrkdir . $files[0];
+		chdir ($files[0]);
+	}
+}
+
+sub getmkfile {
+	if ((! -f "Makefile")) {
+		if (-f "Makefile.in") {
+			$makefile = "Makefile.in";
+		} elsif (-f "makefile") {
+			$cap{"MAKEFILE"} = "makefile";
+			$makefile = "makefile";
+		} elsif (-f "GNUmakefile") {
+			$cap{"MAKEFILE"} = "GNUmakefile";
+			$cap{"USE_GMAKE"} = "YES";
+			$makefile = "GNUmakefile";
+		} else {
+			print STDERR "No Makefile!\n";
+			$cap{"NO_BUILD"} = "YES";
+			$cap{"NO_INSTALL"} = "YES";
+		}
+	} else {
+		$makefile = "Makefile";
+	}
+}
+
+sub gettargets {
+	my($targets);
+	$targets = "";
+	$targets = `make -f $makefile -dg1 -q | grep "^[^.#][-_.a-zA-Z ]*:" | awk "{\$1}"` if defined($makefile);
+	print $targets;
+}
+
+sub getconfinfo {
+	if (-f "configure") { # ooh, but HAS_CONFIGURE or GNU_CONFIGURE?
+		if (`./configure --version` =~ /autoconf/) {
+			$cap{"GNU_CONFIGURE"} = "YES";
+			$cap{"USE_QT"} = "YES" if (`./configure --help | grep -Fe --with-qt`);
+			$cap{"USE_GTK"} = "YES" if (`./configure --help | grep -Fe --with-gtk`);
+			$cap{"USE_GNOME"} = "YES" if (`./configure --help | grep -Fe --with-gnome`);
+			$cap{"USE_KDE"} = "YES" if (`grep -F "checking for KDE" configure`);
+			$cap{"USE_OPENSSL"} = "MUST" if (`grep -F 'configure: error: --with-openssl must be specified' configure`);
+			$cap{"USE_OPENSSL"} = "OPTIONAL" if ( (`grep -F 'configure: error: "OpenSSL not in ' configure`) && !($cap{"USE_OPENSSL"}) );
+		} else {
+			$cap{"HAS_CONFIGURE"} = "YES";
+		}
+	} else { # maybe they expect us to build configure for them?!
+		if (-f "configure.in") {
+			$cap{"USE_AUTOCONF"} = "YES";
+		} elsif (-f "Configure") {
+			$cap{"HAS_CONFIGURE"} = "YES";
+			$cap{"CONFIGURE_SCRIPT"} = "Configure";
+		}
+	}
+
+	if (!$cap{"USE_QT"}) { # haven't seen QT yet, let's try some more
+		if ($cap{"USE_KDE"}) {
+			$cap{"USE_QT"} = "YES";
+		} elsif (-f "automoc") {
+			$cap{"USE_QT"} = "YES";
+		} elsif (-d "moc") {
+			$cap{"USE_QT"} = "YES";
+		} elsif (defined($makefile) && -f $makefile && `grep -F -e -lqt $makefile`) { # more insane.
+			$cap{"USE_QT"} = "YES";
+		}
+	}
+}
+
+sub chk_scripts {
+	&getwrksrc;
+	&getmkfile;
+	#&gettargets;
+
+	&getconfinfo;
+
+	if (-f "ltconfig") {
+		$cap{"USE_LIBTOOL"} = "YES";
+	}
+
+	if (-f "Imakefile") {
+		$cap{"USE_IMAKE"} = "YES";
+	}
+}
+
+sub usage {
+	print STDERR <<"EOF";
+usage: $0 filename
+
+	generates a ports skeleton for port based on filename
+
+EOF
+	exit;
+}
diff --git a/Tools/scripts/mkptools/mkpmerge b/Tools/scripts/mkptools/mkpmerge
new file mode 100755
index 000000000000..76cddb359805
--- /dev/null
+++ b/Tools/scripts/mkptools/mkpmerge
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+#
+# Copyright (c) 2000 Neil Blakey-Milner
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+
+open(OLDMAKE, "<Makefile") || die "$!";
+open(EXTMAKE, "<Makefile.extr") || die "Makefile.extr - $! - run mpkextr\n";
+open(NEWMAKE, ">Makefile.new") || die "$!";
+
+while(<OLDMAKE>) {
+	print NEWMAKE $_;
+	last if /^# -- eos --$/;
+}
+
+print NEWMAKE "\n";
+
+while(<EXTMAKE>) {
+	print NEWMAKE $_;
+}
+
+close(NEWMAKE);
+close(EXTMAKE);
+close(OLDMAKE);
+
+`cp -f Makefile Makefile.old`;
+`mv -f Makefile.new Makefile`;
diff --git a/Tools/scripts/mkptools/mkpskel b/Tools/scripts/mkptools/mkpskel
new file mode 100755
index 000000000000..bc5336812ed6
--- /dev/null
+++ b/Tools/scripts/mkptools/mkpskel
@@ -0,0 +1,280 @@
+#!/usr/bin/perl -w
+#
+# Copyright (c) 2000 Neil Blakey-Milner
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+
+# a script to gain a bit of knowledge about a supplied distfile
+
+use strict;
+use vars qw/ $opt_n /;
+
+use File::Basename qw( basename dirname );
+use Getopt::Std qw( getopts );
+
+my ($filename, $ver, $initdir, $distdir, $wrkdir, $tmpdir);
+my ($makefile, $wrksrc);
+my (%cap);
+
+chomp($initdir = `pwd`);
+
+$cap{"MAINTAINER"} = ($ENV{"MAINTAINER"} || "ports\@freebsd.org");
+
+getopts('n');
+
+&usage if $#ARGV != 0;
+
+$filename = $ARGV[0];
+
+if ($filename =~ m#^(f|ht)tp\://#) {
+	print `fetch $filename`;
+	$filename = basename($filename);
+}
+chdir(dirname($filename));
+chomp($distdir = `pwd`);
+chdir ($initdir);
+
+&chk_extract; # .tar.gz vs .tgz vs .tar.bz2, &c.
+&enh_distname;
+if ($opt_n) {
+	print "filename is $filename\n";
+	print "PORTNAME is " . $cap{"PORTNAME"} . "\n";
+	print "PORTVERSION is " . $cap{"PORTVERSION"} . "\n";
+	exit;
+}
+&bareskel;
+&md5;
+&writemk;
+
+exit;
+
+sub bareskel {
+	$tmpdir = $cap{'PORTNAME'};
+	$tmpdir .= ".$$" while -e $tmpdir;
+	mkdir($tmpdir,0777);
+
+	`printf "\n" > $tmpdir/pkg-plist`;
+	`printf "\n" > $tmpdir/pkg-descr`;
+	`printf "A\n" > $tmpdir/pkg-comment`;
+}
+
+sub writemk {
+
+	my (%tmp);
+	my ($key);
+
+	my ($distname);
+	$distname = $cap{"PORTNAME"};
+
+	foreach $key (keys %cap) {
+		$tmp{$key} = $cap{$key};
+	}
+
+	open(MAKEFILE, ">$tmpdir/Makefile");
+	my ($date);
+	chomp($date = `date +"\%d \%b \%Y"`);
+
+	print MAKEFILE <<EOF;
+# New ports collection makefile for: $distname
+# Date created:		$date
+# Whom:			makeport.pl
+#
+# \$FreeBSD\$
+#
+
+EOF
+
+	print MAKEFILE "PORTNAME=	" . $tmp{"PORTNAME"} . "\n";
+	print MAKEFILE "PORTVERSION=	" . $tmp{"PORTVERSION"} . "\n";
+	delete($tmp{"PORTNAME"});
+	delete($tmp{"PORTVERSION"});
+
+	print MAKEFILE "CATEGORIES=	misc\n";
+	foreach $key (keys %tmp) {
+		my($tmp) = $tmp{$key};
+		if (($key eq "DISTNAME") || ($key eq "EXTRACT_SUFX")) {
+			print MAKEFILE "$key=\t$tmp\n";
+			delete($tmp{$key});
+		}
+	}
+
+	print MAKEFILE "\nMAINTAINER=\t" . $tmp{"MAINTAINER"} . "\n\n";
+	delete($tmp{"MAINTAINER"});
+
+	if ($tmp{"LIB_DEPENDS"}) {
+		print MAKEFILE "LIB_DEPENDS=". $tmp{"LIB_DEPENDS"} . "\n\n";
+		delete($tmp{"LIB_DEPENDS"});
+	}
+
+	#second group
+	foreach $key (keys %tmp) {
+		my($tmp) = $tmp{$key};
+		print MAKEFILE "$key=\t$tmp\n";
+	}
+
+	print MAKEFILE "# -- eos --\n\n";
+
+	print MAKEFILE ".include <bsd.port.mk>\n";	
+	close (MAKEFILE);
+}
+
+sub md5 {
+	my $tmp = basename($filename);
+	chdir ($initdir);
+	`md5 $filename | perl -pe "s#$filename#$tmp#" > $tmpdir/distinfo`;
+}
+
+sub chk_extract {
+	my $tmp = basename($filename);
+
+	$tmp =~ s/(\.tgz)$// && do {
+		$cap{"DISTNAME"} = $tmp;
+		$cap{"EXTRACT_SUFX"} = $1;
+		return;
+	};
+	$tmp =~ s/(\.tar\.bz2)$// && do {
+		$cap{"DISTNAME"} = $tmp;
+		$cap{"EXTRACT_SUFX"} = $1 if ($1 ne ".tar.bz2");
+		$cap{"USE_BZIP2"} = "YES";
+		return;
+	};
+	$tmp =~ s/(\.tar)$// && do {
+		$cap{"DISTNAME"} = $tmp;
+		$cap{"EXTRACT_SUFX"} = $1;
+		return;
+	};
+	$tmp =~ s/(\.tar.*)$// && do {
+		$cap{"DISTNAME"} = $tmp;
+		$cap{"EXTRACT_SUFX"} = $1 if ($1 ne ".tar.gz");
+		return;
+	};
+}
+
+sub add_extsuffix {
+	return if $cap{"EXTRACT_SUFX"};
+	if ($cap{"USE_BZIP2"}) {
+		$cap{"EXTRACT_SUFX"} = ".tar.bz2";
+	} else {
+		$cap{"EXTRACT_SUFX"} = ".tar.gz";
+	}
+}
+
+sub enh_distname {
+	my($changes) = 0;
+	my($play) = $cap{"DISTNAME"};
+	#print "starting play...\n";
+	my($firstshot) = 0;
+	my($portname, $portversion);
+	if (defined($play) eq "") {
+		die "can't make heads or tails of $filename";
+	}
+	while ($changes == 0) {
+		$changes = 1;
+		$firstshot++;
+		$_ = $play;
+		#print "using $play\n";
+		/^(.*[0-9][a-z]?)([-._][a-z]*)$/i && do {
+			print "Door #1\n";
+			$cap{"DISTNAME"} = $1;
+			$play = $1;
+			&add_extsuffix;
+			$cap{"EXTRACT_SUFX"} = $2 . $cap{"EXTRACT_SUFX"};
+			$changes = 0;
+			next;
+		};
+		/^([a-z]*)([0-9]+)([-._])([0-9]+([-._]).*)$/i && do {
+			print "Door #2\n";
+			if ($5 eq $3) {
+				$play = "$1-$2.$4";
+				#$cap{"PORTNAME"} = $1;
+				#$cap{"PORTVERSION"} = "$2.$4";
+				$portname = $1;
+				$portversion = "$2.$4";
+				$changes = 0;
+				next;
+			}
+		};
+		/^(.*?[^-._])([0-9])([-._])([^v]?[0-9]*[a-z]*)([-._]?)(.*)$/i &&( $firstshot == 1) && do {
+			print "Door #4\n";
+			if (($5 eq $3) || ($5 eq "")) {
+				#$cap{"PORTNAME"} = $1;
+				#$cap{"PORTVERSION"} = "$2$3$4$5$6";
+				$portname = $1;
+				$portversion = "$2$3$4$5$6";
+				next;
+			}
+		};
+		/^(.*?)([-._])(v?)((?:[0-9][-._])*[0-9][a-z]?.*)$/i && do {
+			print "Door #3\n";
+			my($tmp);
+			$tmp = $1;
+			$ver = "$4";
+			if ($ver =~ /^(.*)([-._])([0-9]?)([a-z])[a-z]+([0-9]?)$/) {
+				print "Door #3.1\n";
+				my($foo) = "";
+				#print "1 - $1\n";
+				#print "2 - $2\n";
+				#print "3 - $3\n";
+				#print "4 - $4\n";
+				#print "5 - $5\n";
+				$foo = "." if $2;
+				#$ver = "$1$foo$3$4$5";
+				$ver = "$1$foo$3$4$5";
+			}
+			$portname = $tmp;
+			$portversion = $ver;
+			next;
+		};
+	}
+
+	if (defined($portversion) eq "") {
+		die "can't make heads or tails of $filename";
+	}
+
+	$portversion =~ s/_/./g;
+	$portversion =~ s/-/./g;
+
+	$cap{"PORTNAME"} = $portname;
+	$cap{"PORTVERSION"} = $portversion;
+		
+	my ($temp1);
+	my ($temp2);
+
+	$temp1 = $cap{"DISTNAME"};
+	$temp2 = $cap{"PORTNAME"} . "-" . $cap{"PORTVERSION"};
+
+	if ($temp1 eq $temp2) {
+		delete($cap{"DISTNAME"});
+	}
+}
+
+sub usage {
+	print STDERR <<"EOF";
+usage: $0 filename
+
+	generates a ports skeleton for port based on filename
+
+EOF
+	exit;
+}