aboutsummaryrefslogtreecommitdiff
path: root/ports-mgmt
diff options
context:
space:
mode:
Diffstat (limited to 'ports-mgmt')
-rw-r--r--ports-mgmt/pib/Makefile24
-rw-r--r--ports-mgmt/pib/distinfo1
-rw-r--r--ports-mgmt/pib/pkg-comment1
-rw-r--r--ports-mgmt/pib/pkg-descr5
-rw-r--r--ports-mgmt/pib/pkg-plist5
-rw-r--r--ports-mgmt/pkg_remove/Makefile26
-rw-r--r--ports-mgmt/pkg_remove/distinfo1
-rw-r--r--ports-mgmt/pkg_remove/pkg-comment1
-rw-r--r--ports-mgmt/pkg_remove/pkg-descr2
-rw-r--r--ports-mgmt/pkg_remove/pkg-plist1
-rw-r--r--ports-mgmt/portcheckout/Makefile22
-rw-r--r--ports-mgmt/portcheckout/distinfo1
-rw-r--r--ports-mgmt/portcheckout/pkg-comment1
-rw-r--r--ports-mgmt/portcheckout/pkg-descr7
-rw-r--r--ports-mgmt/portcheckout/pkg-plist1
-rw-r--r--ports-mgmt/portlint/Makefile33
-rw-r--r--ports-mgmt/portlint/pkg-comment1
-rw-r--r--ports-mgmt/portlint/pkg-descr10
-rw-r--r--ports-mgmt/portlint/pkg-plist1
-rw-r--r--ports-mgmt/portlint/src/portlint.1129
-rw-r--r--ports-mgmt/portlint/src/portlint.pl1649
21 files changed, 0 insertions, 1922 deletions
diff --git a/ports-mgmt/pib/Makefile b/ports-mgmt/pib/Makefile
deleted file mode 100644
index 56097d1ecbc2..000000000000
--- a/ports-mgmt/pib/Makefile
+++ /dev/null
@@ -1,24 +0,0 @@
-# New ports collection makefile for: pib
-# Date created: 30 December 1996
-# Whom: Mike Smith <msmith@freebsd.org>
-#
-# $FreeBSD$
-#
-
-PORTNAME= pib
-PORTVERSION= 1.1
-CATEGORIES= sysutils tk82
-MASTER_SITES= http://people.FreeBSD.org/~msmith/pib/
-
-MAINTAINER= msmith@freebsd.org
-
-BUILD_DEPENDS= wish8.2:${PORTSDIR}/x11-toolkits/tk82
-RUN_DEPENDS= wish8.2:${PORTSDIR}/x11-toolkits/tk82
-
-do-install:
- ${MKDIR} ${PREFIX}/lib/pib
- ${INSTALL_SCRIPT} ${WRKSRC}/*.tcl ${PREFIX}/lib/pib
- ${INSTALL_DATA} ${WRKSRC}/libTkSteal.so.2* ${PREFIX}/lib/pib
- ${LN} -fs ${PREFIX}/lib/pib/pib.tcl ${PREFIX}/bin/pib
-
-.include <bsd.port.mk>
diff --git a/ports-mgmt/pib/distinfo b/ports-mgmt/pib/distinfo
deleted file mode 100644
index 58278d366f99..000000000000
--- a/ports-mgmt/pib/distinfo
+++ /dev/null
@@ -1 +0,0 @@
-MD5 (pib-1.1.tar.gz) = 3f3a95f17b9d34fa70cdb86816525cd0
diff --git a/ports-mgmt/pib/pkg-comment b/ports-mgmt/pib/pkg-comment
deleted file mode 100644
index 90d60b5c4274..000000000000
--- a/ports-mgmt/pib/pkg-comment
+++ /dev/null
@@ -1 +0,0 @@
-GUI Ports Collection management tool
diff --git a/ports-mgmt/pib/pkg-descr b/ports-mgmt/pib/pkg-descr
deleted file mode 100644
index b71d74e66030..000000000000
--- a/ports-mgmt/pib/pkg-descr
+++ /dev/null
@@ -1,5 +0,0 @@
-The Ports Index Browser provides a quick and powerful means for browsing the
-FreeBSD Ports Collection INDEX file and performing related functions.
-
-It provides an intuitive GUI interface, online help and useful distfile
-management functions.
diff --git a/ports-mgmt/pib/pkg-plist b/ports-mgmt/pib/pkg-plist
deleted file mode 100644
index 5af3e9ca784f..000000000000
--- a/ports-mgmt/pib/pkg-plist
+++ /dev/null
@@ -1,5 +0,0 @@
-bin/pib
-lib/pib/pib.tcl
-lib/pib/tkSteal.tcl
-lib/pib/libTkSteal.so.2
-@dirrm lib/pib
diff --git a/ports-mgmt/pkg_remove/Makefile b/ports-mgmt/pkg_remove/Makefile
deleted file mode 100644
index ba8fbb637e1b..000000000000
--- a/ports-mgmt/pkg_remove/Makefile
+++ /dev/null
@@ -1,26 +0,0 @@
-# New ports collection makefile for: pkg_remove
-# Date created: 8 Jan 2000
-# Whom: NAKAJI Hiroyuki <nakaji@tutrp.tut.ac.jp>
-#
-# $FreeBSD$
-#
-
-PORTNAME= pkg_remove
-PORTVERSION= 1.0
-CATEGORIES= sysutils
-MASTER_SITES= http://www.rr.iij4u.or.jp/~sada/scripts/
-DISTNAME= pkg_remove
-EXTRACT_SUFX= .txt
-
-MAINTAINER= nakaji@tutrp.tut.ac.jp
-
-EXTRACT_CMD= ${CP}
-EXTRACT_BEFORE_ARGS=
-EXTRACT_AFTER_ARGS= .
-NO_WRKSUBDIR= yes
-NO_BUILD= yes
-
-do-install:
- ${INSTALL_SCRIPT} ${WRKDIR}/pkg_remove.txt ${PREFIX}/bin/pkg_remove
-
-.include <bsd.port.mk>
diff --git a/ports-mgmt/pkg_remove/distinfo b/ports-mgmt/pkg_remove/distinfo
deleted file mode 100644
index c81c3d4f24b6..000000000000
--- a/ports-mgmt/pkg_remove/distinfo
+++ /dev/null
@@ -1 +0,0 @@
-MD5 (pkg_remove.txt) = 7d83feadfe5c902c3afc1230eb5443d4
diff --git a/ports-mgmt/pkg_remove/pkg-comment b/ports-mgmt/pkg_remove/pkg-comment
deleted file mode 100644
index 4461d9da8a57..000000000000
--- a/ports-mgmt/pkg_remove/pkg-comment
+++ /dev/null
@@ -1 +0,0 @@
-Utility to uninstall packages
diff --git a/ports-mgmt/pkg_remove/pkg-descr b/ports-mgmt/pkg_remove/pkg-descr
deleted file mode 100644
index 95735efe50fb..000000000000
--- a/ports-mgmt/pkg_remove/pkg-descr
+++ /dev/null
@@ -1,2 +0,0 @@
-Utility to uninstall packages.
-This perl script is written by SADA Kenji <sada@rr.IIJ4U.OR.JP>.
diff --git a/ports-mgmt/pkg_remove/pkg-plist b/ports-mgmt/pkg_remove/pkg-plist
deleted file mode 100644
index b8701984f27d..000000000000
--- a/ports-mgmt/pkg_remove/pkg-plist
+++ /dev/null
@@ -1 +0,0 @@
-bin/pkg_remove
diff --git a/ports-mgmt/portcheckout/Makefile b/ports-mgmt/portcheckout/Makefile
deleted file mode 100644
index d9704983963d..000000000000
--- a/ports-mgmt/portcheckout/Makefile
+++ /dev/null
@@ -1,22 +0,0 @@
-# New ports collection makefile for: portcheckout
-# Date created: 1 November 1998
-# Whom: wosch
-#
-# $FreeBSD$
-#
-
-PORTNAME= portcheckout
-PORTVERSION= 2.0
-CATEGORIES= devel
-MASTER_SITES= http://www.de.freebsd.org/~wosch/src/
-
-MAINTAINER= wosch@FreeBSD.org
-
-USE_PERL5= yes
-MAN1= portcheckout.1
-MANCOMPRESSED= maybe
-
-post-patch:
- perl -pi -e 's^\#\!/usr/local/bin/perl^#!${PERL5}^' ${WRKSRC}/portcheckout.pl
-
-.include <bsd.port.mk>
diff --git a/ports-mgmt/portcheckout/distinfo b/ports-mgmt/portcheckout/distinfo
deleted file mode 100644
index f2d1c7df605f..000000000000
--- a/ports-mgmt/portcheckout/distinfo
+++ /dev/null
@@ -1 +0,0 @@
-MD5 (portcheckout-2.0.tar.gz) = 930a626eb8761f5012b6105e553e75ad
diff --git a/ports-mgmt/portcheckout/pkg-comment b/ports-mgmt/portcheckout/pkg-comment
deleted file mode 100644
index df12e5fb0b2a..000000000000
--- a/ports-mgmt/portcheckout/pkg-comment
+++ /dev/null
@@ -1 +0,0 @@
-Checkout and build ports and all depending ports
diff --git a/ports-mgmt/portcheckout/pkg-descr b/ports-mgmt/portcheckout/pkg-descr
deleted file mode 100644
index d78a7e082585..000000000000
--- a/ports-mgmt/portcheckout/pkg-descr
+++ /dev/null
@@ -1,7 +0,0 @@
-The portcheckout(1) reads the /usr/ports/INDEX file and checks-out
-a given port and its dependencies. This makes it easy to use the
-ports system without having a full and up-to-date /usr/ports tree.
-
-A typical use would be to connect to the Internet, possibly download
-a new INDEX and ports upgrade kit, download a port skeleton with
-portcheckout(1), and then build the port.
diff --git a/ports-mgmt/portcheckout/pkg-plist b/ports-mgmt/portcheckout/pkg-plist
deleted file mode 100644
index 4d9dab92c11b..000000000000
--- a/ports-mgmt/portcheckout/pkg-plist
+++ /dev/null
@@ -1 +0,0 @@
-bin/portcheckout
diff --git a/ports-mgmt/portlint/Makefile b/ports-mgmt/portlint/Makefile
deleted file mode 100644
index 4aa4bc3b6f60..000000000000
--- a/ports-mgmt/portlint/Makefile
+++ /dev/null
@@ -1,33 +0,0 @@
-# New ports collection makefile for: portlint
-# Date created: 13 Jun 1997
-# Whom: Jun-ichiro itojun Hagino <itojun@itojun.org>
-#
-# $FreeBSD$
-#
-# This port is self contained in the src directory.
-#
-
-PORTNAME= portlint
-PORTVERSION= 2.2.2
-CATEGORIES= devel
-MASTER_SITES= # none
-DISTFILES= # none
-
-MAINTAINER= mharo@FreeBSD.org
-
-NO_BUILD= yes
-NO_WRKSUBDIR= yes
-USE_PERL5= yes
-
-SRC= ${.CURDIR}/src
-
-MAN1= portlint.1
-
-do-fetch:
- @${DO_NADA}
-
-do-install:
- ${INSTALL_SCRIPT} ${SRC}/portlint.pl ${PREFIX}/bin/portlint
- ${INSTALL_MAN} ${SRC}/portlint.1 ${MAN1PREFIX}/man/man1
-
-.include <bsd.port.mk>
diff --git a/ports-mgmt/portlint/pkg-comment b/ports-mgmt/portlint/pkg-comment
deleted file mode 100644
index 01f338f767e7..000000000000
--- a/ports-mgmt/portlint/pkg-comment
+++ /dev/null
@@ -1 +0,0 @@
-A verifier for FreeBSD port directory
diff --git a/ports-mgmt/portlint/pkg-descr b/ports-mgmt/portlint/pkg-descr
deleted file mode 100644
index 39bf003d355e..000000000000
--- a/ports-mgmt/portlint/pkg-descr
+++ /dev/null
@@ -1,10 +0,0 @@
-portlint makes a small set of sanity checks for port directory.
-
-usage: portlint [-abctvN] [-B#] [port_directory]
- -a additional check for scripts/* and pkg/*
- -b warn $(VARIABLE)
- -c committer mode
- -v verbose mode
- -t nit pick about use of spaces
- -N writing a new port
- -B# allow # contiguous blank lines (default: 1 line)
diff --git a/ports-mgmt/portlint/pkg-plist b/ports-mgmt/portlint/pkg-plist
deleted file mode 100644
index 39ff07b136f0..000000000000
--- a/ports-mgmt/portlint/pkg-plist
+++ /dev/null
@@ -1 +0,0 @@
-bin/portlint
diff --git a/ports-mgmt/portlint/src/portlint.1 b/ports-mgmt/portlint/src/portlint.1
deleted file mode 100644
index d5c3f4e1615c..000000000000
--- a/ports-mgmt/portlint/src/portlint.1
+++ /dev/null
@@ -1,129 +0,0 @@
-.\" $FreeBSD$
-.\"
-.\" Copyright (c) 1997 by Jun-ichiro Hagino <itojun@itojun.org>.
-.\" All Rights Reserved. Absolutely no warranty.
-.\"
-.Dd July 11, 1997
-.Dt PORTLINT 1
-.Sh NAME
-.Nm portlint
-.Nd a verifier for port directory
-.Sh SYNOPSIS
-.Nm portlint
-.Op Fl abchvN
-.Op Fl B Ar n
-.Op Ar dir
-.Sh DESCRIPTION
-.Nm
-tries to verify the content of a port directory.
-The purpose of
-.Nm
-can be separated into two parts:
-.Pq 1
-to let the submitters easily polish her/his own port directory, and
-.Pq 2
-to decrease the labor of the committers.
-.Pp
-.Nm
-uses very simple regular-expression matching for verifying
-files that make up a port directory.
-Note that it does NOT implement complete parser for those files.
-Because of this the user may see some extra warnings,
-especially when checking complex
-.Pa Makefile Ns No s .
-.Pp
-.Sy Options
-.Bl -tag -width Fl
-.It Fl a
-Perform additional checks for extra files, such as
-.Pa scripts/*
-and
-.Pa pkg/* .
-.It Fl b
-Warn the use of
-.Pa $(VARIABLE) .
-Some of the committers prefer
-.Pa ${VARIABLE}
-instead of
-.Pa $(VARIABLE) ,
-even though they are semantically same.
-.It Fl c
-Committer flag.
-It will add several checks useful only for committers.
-If you are a committer and performing check just before commiting a port,
-use this option.
-.It Fl h
-Show the summary of command line options, then exit.
-.It Fl v
-Be verbose.
-Show the progress report for items that are being checked.
-.It Fl N
-New port flag.
-Adds several checks specific to newly submitted port.
-If you are willing to submit the directory to be checked as a new port,
-use this option.
-.It Fl B Ar n
-Set the number of contiguous blank lines allowed in
-.Pa Makefile
-to
-.Ar n .
-(by default,
-.Ar n
-is 1)
-.It dir
-The port directory to be checked.
-If omitted, check will be performed over the current directory.
-.El
-.Sh DIAGNOSTICS
-Messages will be sent to standard output, not standard error output.
-.Bl -tag -width WARN: foobaa
-.It FATAL: ...
-This type of error messages suggest that there is some fatal error
-in the port directory.
-For example, if some files need a rewrite, or if
-some inevitable files are missing, this message will show up.
-This kind of errors should be avoided BEFORE submitting
-a port via send-pr to the comitters.
-.\"If a submitter submit it without update, committers will need to rewrite
-.\"on behalf of the submitters, which may result in delay of
-.\"the development of operating system itself.
-.It WARN: ...
-This type of error messages suggest that some files may (or may not)
-need some fix.
-Basically, warnings are produced when
-.Nm
-is not completely sure about the result.
-For example, complex
-.Pa Makefile Ns No s
-may need some statements that can match the regular expression
-.Nm
-uses for sanity checks.
-In those cases, the user should evaluate the result manually,
-and obey/ignore the result.
-.It OK: ...
-This type of messages are used in verbose mode
-.Pq Fl v .
-.El
-.Sh FILES
-.Bl -tag -width bsd.port.mkxx -compact
-.It Pa bsd.port.mk
-master Makefile for ports
-.Po
-.Pa bsd.pkg.mk
-on NetBSD/OpenBSD
-.Pc
-.It Pa /usr/ports/*
-port collection
-.Po
-.Pa /usr/pkgsrc/*
-on NetBSD/OpenBSD
-.Pc
-.Sh AUTHORS
-.An Michael Haro Aq mharo@FreeBSD.org
-.An Jun-ichiro Hagino Aq itojun@itojun.org
-and
-.An Yoshishige Arai Aq ryo2@on.rim.or.jp .
-Many people has contributed patches and comments/suggestions.
-.Sh BUGS
-.Nm
-is not a magic wand, as described above.
diff --git a/ports-mgmt/portlint/src/portlint.pl b/ports-mgmt/portlint/src/portlint.pl
deleted file mode 100644
index 792a89031f99..000000000000
--- a/ports-mgmt/portlint/src/portlint.pl
+++ /dev/null
@@ -1,1649 +0,0 @@
-#! /usr/bin/perl
-# ex:ts=4
-#
-# portlint - lint for port directory
-# implemented by:
-# Jun-ichiro itojun Hagino <itojun@itojun.org>
-# Yoshishige Arai <ryo2@on.rim.or.jp>
-#
-# Copyright(c) 1997 by Jun-ichiro Hagino <itojun@itojun.org>.
-# All rights reserved.
-# Freely redistributable. Absolutely no warranty.
-#
-# Please note that this perl code used to be able to handle (Open|Net|Free)BSD
-# bsd.port.mk. There are significant differences in those so you'll have
-# hard time upgrading this...
-# This code now mainly supports FreeBSD, but patches to update support for
-# OpenBSD and NetBSD will be accepted.
-#
-# $FreeBSD$
-# $Id: portlint.pl,v 1.28.2.1 2000/04/24 02:12:36 mharo Exp $
-#
-
-use vars qw/ $opt_a $opt_b $opt_c $opt_h $opt_t $opt_v $opt_M $opt_N $opt_B $opt_V /;
-use Getopt::Std;
-#use strict;
-
-my ($err, $warn);
-my ($extrafile, $parenwarn, $committer, $verbose, $usetabs, $newport);
-my $contblank;
-my $portdir;
-my $makeenv;
-
-$err = $warn = 0;
-$extrafile = $parenwarn = $committer = $verbose = $usetabs = $newport = 0;
-$contblank = 1;
-$portdir = '.';
-
-# version variables
-my $major = 2;
-my $minor = 2;
-
-sub l { '[{(]'; }
-sub r { '[)}]'; }
-sub s { '[ \t]'; }
-
-my $l = &l;
-my $r = &r;
-my $s = &s;
-
-# default setting - for FreeBSD
-my $portsdir = '/usr/ports';
-my $rcsidstr = 'FreeBSD';
-my $multiplist = 0;
-my $ldconfigwithtrue = 0;
-my $rcsidinplist = 0;
-my $mancompress = 1;
-my $manstrict = 0;
-my $newxdef = 1;
-my $automan = 1;
-my $manchapters = '123456789ln';
-my $localbase = '/usr/local';
-
-my @lang_cat = split(/\s+/, <<EOF);
-chinese german japanese korean russian vietnamese
-EOF
-my @lang_pref = split(/\s+/, <<EOF);
-de ja ko ru vi zh
-EOF
-my $re_lang_pref = '(' . join('|', @lang_pref) . ')';
-
-my ($prog) = ($0 =~ /([^\/]+)$/);
-sub usage {
- print STDERR <<EOF;
-usage: $prog [-abctvN] [-B#] [port_directory]
- -a additional check for scripts/* and pkg/*
- -b warn \$(VARIABLE)
- -c committer mode
- -v verbose mode
- -t nit pick about use of spaces
- -M set make variables (ex. PORTSDIR=/usr/ports.work)
- -N writing a new port
- -B# allow # contiguous blank lines (default: $contblank line)
-EOF
- exit 0;
-}
-
-sub version {
- print "$prog version $major.$minor\n";
- exit $major;
-}
-
-
-getopts('abchtvBM:N:V');
-
-&usage if $opt_h;
-&version if $opt_V;
-$extrafile = 1 if $opt_a;
-$parenwarn = 1 if $opt_b;
-$committer = 1 if $opt_c;
-$verbose = 1 if $opt_v;
-$newport = 1 if $opt_N;
-$usetabs = 1 if $opt_t;
-$contblank = $opt_B if $opt_B;
-$makeenv = $opt_M;
-
-$portdir = $ARGV[0] ? $ARGV[0] : '.';
-
-# OS dependent configs
-# os portsdir rcsid mplist ldcfg plist-rcsid mancompresss strict localbase newxdef automan
-my @osdep = split(/\n/, <<EOF);
-FreeBSD /usr/ports FreeBSD 0 0 0 1 0 /usr/local 1 1
-NetBSD /usr/pkgsrc NetBSD 1 1 1 0 1 /usr/pkg 0 0
-EOF
-my $osname = `uname -s`;
-$osname =~ s/\n$//;
-foreach my $i (@osdep) {
- if ($i =~ /^$osname\t(.*)/) {
- print "OK: found OS config for $osname.\n" if ($verbose);
- ($portsdir, $rcsidstr, $multiplist, $ldconfigwithtrue,
- $rcsidinplist, $mancompress, $manstrict, $localbase,
- $newxdef, $automan)
- = split(/\t+/, $1);
- last;
- }
-}
-if ($verbose) {
- print "OK: config: portsdir: \"$portsdir\" ".
- "rcsidstr: \"$rcsidstr\" ".
- "multiplist: $multiplist ".
- "ldconfigwithtrue: $ldconfigwithtrue ".
- "rcsidinplist: $rcsidinplist ".
- "mancompress: $mancompress ".
- "manstrict: $manstrict ".
- "localbase: $localbase ".
- "\n";
-}
-
-#
-# just for safety.
-#
-if (! -d $portdir) {
- print STDERR "FATAL: invalid directory $portdir specified.\n";
- exit 1;
-}
-
-chdir "$portdir" || die "$portdir: $!";
-
-# get make vars
-my $cmd = "make $makeenv MASTER_SITE_BACKUP=''";
-my @varlist = (split(/\s+/, <<EOF));
-PORTNAME PORTVERSION PKGNAME PKGNAMEPREFIX PKGNAMESUFFIX
-DISTNAME DISTFILES CATEGORIES MASTERDIR MAINTAINER MASTER_SITES
-WRKDIR WRKSRC NO_WRKSUBDIR PATCHDIR SCRIPTDIR FILESDIR PKGDIR
-COMMENT DESCR PLIST MD5_FILE .CURDIR
-EOF
-
-for (@varlist) {
- $cmd .= " -V $_";
-}
-my %makevar;
-my $i = 0;
-for (split(/\n/, `$cmd`)) {
- print "OK: makevar: $varlist[$i] = $_\n" if ($verbose);
- $makevar{$varlist[$i]} = $_;
- $i++;
-}
-
-#
-# variables for global checks.
-#
-my $sharedocused = 0;
-my %plistmanall = ();
-my %plistmangz = ();
-my %plistman = ();
-my %manlangs = ();
-
-my %predefined = ();
-# historical, no longer in FreeBSD's bsd.port.mk
-foreach my $i (split("\n", <<EOF)) {
-XCONTRIB ftp://ftp.x.org/contrib/
-GNU ftp://prep.ai.mit.edu/pub/gnu/
-GNU ftp://wuarchive.wustl.edu/systems/gnu/
-PERL_CPAN ftp://ftp.cdrom.com/pub/perl/CPAN/modules/by-module/
-SUNSITE ftp://sunsite.unc.edu/pub/Linux/
-SUNSITE ftp://ftp.funet.fi/pub/mirrors/sunsite.unc.edu/pub/Linux/
-TEX_CTAN ftp://ftp.cdrom.com/pub/tex/ctan/
-TEX_CTAN ftp://ftp.tex.ac.uk/public/ctan/tex-archive/
-EOF
- my ($j, $k) = split(/\t+/, $i);
- $predefined{$k} = $j;
-}
-
-# This list should be in sync with bsd.port.mk
-foreach my $i (split("\n", <<EOF)) {
-XCONTRIB ftp://crl.dec.com/pub/X11/contrib/
-XCONTRIB ftp://uiarchive.uiuc.edu/pub/X11/contrib/
-XCONTRIB ftp://ftp.duke.edu/pub/X11/contrib/
-XCONTRIB ftp://ftp.sunet.se/pub/X11/contrib/
-XCONTRIB ftp://sunsite.sut.ac.jp/pub/archives/X11/contrib/
-GNU ftp://ftp.gnu.org/gnu/
-GNU ftp://ftp.freesoftware.com/pub/gnu/
-GNU ftp://ftp.digital.com/pub/GNU/
-GNU ftp://ftp.uu.net/archive/systems/gnu/
-GNU ftp://ftp.de.uu.net/pub/gnu/
-GNU ftp://ftp.ecrc.net/pub/gnu/
-GNU ftp://ftp.funet.fi/pub/gnu/prep/
-GNU ftp://ftp.leo.org/pub/comp/os/unix/gnu/
-GNU ftp://ftp.digex.net/pub/gnu/
-GNU ftp://ftp.wustl.edu/systems/gnu/
-GNU ftp://ftp.kddlabs.co.jp/pub/gnu/
-PERL_CPAN ftp://ftp.digital.com/pub/plan/perl/CPAN/modules/by-module/
-PERL_CPAN ftp://ftp.freesoftware.com/pub/perl/CPAN/modules/by-module/
-TEX_CTAN ftp://ftp.freesoftware.com/pub/tex/ctan/
-TEX_CTAN ftp://wuarchive.wustl.edu/packages/TeX/
-TEX_CTAN ftp://ftp.funet.fi/pub/TeX/CTAN/
-TEX_CTAN ftp://ftp.tex.ac.uk/tex-archive/
-TEX_CTAN ftp://ftp.dante.de/tex-archive/
-SUNSITE ftp://metalab.unc.edu/pub/Linux/
-SUNSITE ftp://ftp.infomagic.com/pub/mirrors/linux/sunsite/
-SUNSITE ftp://ftp.freesoftware.com/pub/linux/sunsite/
-KDE ftp://ftp.us.kde.org/pub/kde/
-KDE ftp://ftp.kde.org/pub/kde/
-KDE ftp://ftp.tuniv.szczecin.pl/pub/kde/
-KDE ftp://ftp.fu-berlin.de/pub/unix/X11/gui/kde/
-KDE ftp://ftp.dataplus.se/pub/linux/kde/
-COMP_SOURCES ftp://gatekeeper.dec.com/pub/usenet/comp.sources.
-COMP_SOURCES ftp://ftp.uu.net/usenet/comp.sources.
-COMP_SOURCES ftp://rtfm.mit.edu/pub/usenet/comp.sources.
-GNOME ftp://ftp.gnome.org/pub/GNOME/
-GNOME ftp://download.sourceforge.net/pub/mirrors/gnome/
-GNOME ftp://ftp.cybertrails.com/pub/gnome/
-GNOME ftp://ftp.snoopy.net/pub/mirrors/GNOME/
-AFTERSTEP ftp://ftp.afterstep.org/
-AFTERSTEP ftp://ftp.digex.net/pub/X11/window-managers/afterstep/
-AFTERSTEP ftp://ftp.alpha1.net/pub/mirrors/ftp.afterstep.org/
-AFTERSTEP ftp://ftp.math.uni-bonn.de/pub/mirror/ftp.afterstep.org/pub/
-AFTERSTEP ftp://ftp.dti.ad.jp/pub/X/AfterStep/
-AFTERSTEP ftp://casper.yz.yamagata-u.ac.jp/pub/X11/apps/afterstep/
-WINDOWMAKER ftp://ftp.windowmaker.org/pub/
-WINDOWMAKER ftp://ftp.goldweb.com.au/pub/WindowMaker/
-WINDOWMAKER ftp://ftp.io.com/pub/
-WINDOWMAKER ftp://ftp.ameth.org/pub/mirrors/ftp.windowmaker.org/
-PORTS_JP ftp://ports.jp.FreeBSD.org/pub/FreeBSD-jp/ports-jp/LOCAL_PORTS/
-PORTS_JP ftp://ftp4.jp.FreeBSD.org/pub/FreeBSD-jp/ports-jp/LOCAL_PORTS/
-PORTS_JP ftp://ftp.ics.es.osaka-u.ac.jp/pub/mirrors/FreeBSD-jp/ports-jp/LOCAL_PORTS/
-TCLTK ftp://ftp.scriptics.com/pub/tcl/
-TCLTK ftp://mirror.neosoft.com/pub/tcl/mirror/ftp.scriptics.com/
-TCLTK ftp://sunsite.utk.edu/pub/tcl/
-TCLTK ftp://ftp.funet.fi/pub/languages/tcl/tcl/
-TCLTK ftp://ftp.cs.tu-berlin.de/pub/tcl/distrib/
-TCLTK ftp://ftp.srcc.msu.su/mirror/ftp.scriptics.com/pub/tcl/
-TCLTK ftp://ftp.lip6.fr/pub/tcl/distrib/
-EOF
- my ($j, $k) = split(/\t+/, $i);
- $predefined{$k} = $j;
-}
-
-#
-# check for files.
-#
-my @checker = ($makevar{COMMENT}, $makevar{DESCR}, 'Makefile', $makevar{MD5_FILE});
-my %checker = ($makevar{COMMENT}, 'checkdescr', $makevar{DESCR}, 'checkdescr',
- 'Makefile', 'checkmakefile', $makevar{MD5_FILE}, 'TRUE');
-if ($extrafile) {
- foreach my $i ((<scripts/*>, <pkg/*>)) {
- next if (! -T $i);
- next if (defined $checker{$i});
- if ($i =~ /pkg\/PLIST$/
- || ($multiplist && $i =~ /pkg\/PLIST/)) {
- unshift(@checker, $i);
- $checker{$i} = 'checkplist';
- } else {
- push(@checker, $i);
- $checker{$i} = 'checkpathname';
- }
- }
-}
-foreach my $i (<patches/patch-??>) {
- next if (! -T $i);
- next if (defined $checker{$i});
- push(@checker, $i);
- $checker{$i} = 'checkpatch';
-}
-foreach my $i (@checker) {
- print "OK: checking $i.\n";
- if (! -f "$i") {
- &perror("FATAL: no $i in \"$portdir\".");
- } else {
- my $proc = $checker{$i};
- &$proc($i) || &perror("Cannot open the file $i\n");
- if ($i !~ /^patches\//) {
- &checklastline($i)
- || &perror("Cannot open the file $i\n");
- }
- }
-}
-if ($committer) {
- if (scalar(@_ = <work/*>) || -d "work") {
- &perror("FATAL: be sure to cleanup $portdir/work ".
- "before committing the port.");
- }
- if (scalar(@_ = <*/*~>) || scalar(@_ = <*~>)) {
- &perror("FATAL: for safety, be sure to cleanup ".
- "editor backup files before committing the port.");
- }
- if (scalar(@_ = <*/*.orig>) || scalar(@_ = </*.orig>)
- || scalar(@_ = <*/*.rej>) || scalar(@_ = <*.rej>)) {
- &perror("FATAL: for safety, be sure to cleanup ".
- "patch backup files before committing the port.");
- }
-}
-if ($err || $warn) {
- print "$err fatal errors and $warn warnings found.\n"
-} else {
- print "looks fine.\n";
-}
-exit $err;
-
-#
-# pkg/COMMENT, pkg/DESCR
-#
-sub checkdescr {
- my($file) = @_;
- my(%maxchars) = ($makevar{COMMENT}, 70, $makevar{DESCR}, 80);
- my(%maxlines) = ($makevar{COMMENT}, 1, $makevar{DESCR}, 24);
- my(%errmsg) = ($makevar{COMMENT}, "must be one-liner.",
- $makevar{DESCR}, "exceeds $maxlines{$makevar{DESCR}} ".
- "lines, make it shorter if possible.");
- my($longlines, $linecnt, $tmp) = (0, 0, "");
-
- open(IN, "< $file") || return 0;
- while (<IN>) {
- $linecnt++;
- $longlines++ if ($maxchars{$file} < length(chomp($_)));
- $tmp .= $_;
- }
- if ($linecnt > $maxlines{$file}) {
- &perror("WARN: $file $errmsg{$file}".
- "(currently $linecnt lines)");
- } else {
- print "OK: $file has $linecnt lines.\n" if ($verbose);
- }
- if ($longlines > 0) {
- &perror("WARN: $file includes lines that exceed $maxchars{$file} ".
- "characters.");
- }
- if ($tmp =~ /[\033\200-\377]/) {
- &perror("WARN: $file includes iso-8859-1, or ".
- "other local characters. $file should be ".
- "plain ascii file.");
- }
- if ($file =~ m/DESCR/ && $tmp =~ m,http://,) {
- my $has_url = 0;
- my $has_www = 0;
- foreach my $line (grep($_ =~ "http://", split(/\n+/, $tmp))) {
- $has_url = 1;
- if ($line =~ m,WWW:[ \t]+http://,) {
- $has_www = 1;
- }
- }
-
- if ($has_url && ! $has_www) {
- &perror("FATAL: $file: contains a URL but no WWW:");
- }
- }
- if ($file =~ m/COMMENT/) {
- if (($tmp !~ /^["0-9A-Z]/) || ($tmp =~ m/\.$/)) {
- &perror("WARN: pkg/COMMENT should begin with a capital, and end without a period");
- }
- }
- close(IN);
-}
-
-#
-# pkg/PLIST
-#
-sub checkplist {
- my($file) = @_;
- my($curdir) = ($localbase);
- my($inforemoveseen, $infoinstallseen, $infoseen) = (0, 0, 0);
- my($infobeforeremove, $infoafterinstall) = (0, 0);
- my($infooverwrite) = (0);
- my($rcsidseen) = (0);
-
- my(@exec_info) = ();
- my(@unexec_info) = ();
- my(@infofile) = ();
-
- open(IN, "< $file") || return 0;
- while (<IN>) {
- if ($_ =~ /[ \t]+\n?$/) {
- &perror("WARN: $file $.: whitespace before end ".
- "of line.");
- }
-
- # make it easier to handle.
- $_ =~ s/\s+$//;
- $_ =~ s/\n$//;
-
- if ($osname eq 'NetBSD' && $_ =~ /<\$ARCH>/) {
- &perror("WARN: $file $.: use of <\$ARCH> deprecated, ".
- "use \${MACHINE_ARCH} instead.");
- }
- if ($_ =~ /^\@/) {
- if ($_ =~ /^\@(cwd|cd)[ \t]+(\S+)/) {
- $curdir = $2;
- } elsif ($_ =~ /^\@unexec[ \t]+rmdir/) {
- if ($_ !~ /true$/) {
- &perror("WARN: use \"\@dirrm\" ".
- "instead of \"\@unexec rmdir\".");
- }
- } elsif ($_ =~ /^\@exec[ \t]+install-info\s+(.+)\s+(.+)$/) {
- $infoinstallseen = $.;
- push(@exec_info, $1);
- } elsif ($_ =~ /^\@unexec[ \t]+install-info[ \t]+--delete\s+(.+)\s+(.+)$/) {
- $inforemoveseen = $.;
- push(@unexec_info, $1);
- } elsif ($_ =~ /^\@(exec|unexec)/) {
- if ($ldconfigwithtrue
- && /ldconfig/
- && !/\/usr\/bin\/true/) {
- &perror("FATAL: $file $.: ldconfig ".
- "must be used with ".
- "\"||/usr/bin/true\".");
- }
- } elsif ($_ =~ /^\@(comment)/) {
- $rcsidseen++ if (/\$$rcsidstr[:\$]/);
- } elsif ($_ =~ /^\@(owner|group)\s/) {
- &perror("WARN: \@$1 should not be needed in PLIST");
- } elsif ($_ =~ /^\@(dirrm|option)/) {
- ; # no check made
- } else {
- &perror("WARN: $file $.: ".
- "unknown PLIST directive \"$_\"");
- }
- next;
- }
-
- if ($_ =~ /^\//) {
- &perror("FATAL: $file $.: use of full pathname ".
- "disallowed.");
- }
-
- if ($_ =~ /\.la$/) {
- &perror("WARN: $file $.: installing libtool archives, ".
- "please use USE_LIBTOOL in Makefile if possible");
- }
-
- if ($_ =~ /^info\/.*info(-[0-9]+)?$/) {
- $infoseen = $.;
- $infoafterinstall++ if ($infoinstallseen);
- $infobeforeremove++ if (!$inforemoveseen);
- push(@infofile, $_);
- }
-
- if ($_ =~ /^info\/dir$/) {
- &perror("FATAL: \"info/dir\" should not be listed in ".
- "$file. use install-info to add/remove ".
- "an entry.");
- $infooverwrite++;
- }
-
- if ($_ =~ m#man/([^/]+/)?man([$manchapters])/([^\.]+\.[$manchapters])(\.gz)?$#) {
- if ($4 eq '') {
- $plistman{$2} .= ' ' . $3;
- if ($mancompress) {
- &perror("FATAL: $file $.: ".
- "unpacked man file $3 ".
- "listed. must be gzipped.");
- }
- } else {
- $plistmangz{$2} .= ' ' . $3;
- if (!$mancompress) {
- &perror("FATAL: $file $.: ".
- "gzipped man file $3$4 ".
- "listed. unpacked one should ".
- "be installed.");
- }
- }
- $plistmanall{$2} .= ' ' . $3;
- if ($1 ne '') {
- $manlangs{substr($1, 0, length($1) - 1)}++;
- }
- }
-
- if ($curdir !~ m#^$localbase#
- && $curdir !~ m#^/usr/X11R6#) {
- &perror("WARN: $file $.: installing to ".
- "directory $curdir discouraged. ".
- "could you please avoid it?");
- }
-
- if ("$curdir/$_" =~ m#^$localbase/share/doc#) {
- print "OK: seen installation to share/doc in $file. ".
- "($curdir/$_)\n" if ($verbose);
- $sharedocused++;
- }
- }
-
-# check that every infofile has an exec install-info and unexec install-info
- my $exec_install = join(" ", @exec_info);
- $exec_install .= ' ';
- my $unexec_install = join(" ", @unexec_info);
- $unexec_install .= ' ';
-
- foreach my $if (@infofile) {
- next if ($if =~ m/info-/);
- if ($exec_install !~ m/\%D\/\Q$if\E/) {
- &perror("FATAL: you need an '\@exec install-info \%D/$if \%D/info/dir' line in your PLIST");
- }
- if ($unexec_install !~ m/\%D\/$if/) {
- &perror("FATAL: you need an '\@unexec install-info --delete \%D/$if \%D/info/dir' line in your PLIST");
- }
- }
-
- if ($rcsidinplist && !$rcsidseen) {
- &perror("FATAL: RCS tag \"\$$rcsidstr\$\" must be present ".
- "in $file as \@comment.")
- }
-
- if (!$infoseen) {
- close(IN);
- return 1;
- }
- if (!$infoinstallseen) {
- if ($infooverwrite) {
- &perror("FATAL: install-info must be used to ".
- "add/delete entries into \"info/dir\".");
- }
- &perror("FATAL: \"\@exec install-info \%D/... \%D/info/dir\" must be placed ".
- "after all the info files.");
- } elsif ($infoafterinstall) {
- &perror("FATAL: move \"\@exec install-info\" line to make ".
- "sure that it is placed after all the info files. ".
- "(currently on line $infoinstallseen in $file)");
- }
- if (!$inforemoveseen) {
- &perror("FATAL: \"\@unexec install-info --delete \%D/... \%D/info/dir\" must ".
- "be placed before any of the info files listed.");
- } elsif ($infobeforeremove) {
- &perror("FATAL: move \"\@exec install-info --delete\" ".
- "line to make sure ".
- "that it is placed before any of the info files. ".
- "(currently on line $inforemoveseen in $file)");
- }
- close(IN);
-}
-
-#
-# misc files
-#
-sub checkpathname {
- my($file) = @_;
- my($whole);
-
- open(IN, "< $file") || return 0;
- $whole = '';
- while (<IN>) {
- $whole .= $_;
- }
- &abspathname($whole, $file);
- close(IN);
-}
-
-sub checklastline {
- my($file) = @_;
- my($whole);
-
- open(IN, "< $file") || return 0;
- $whole = '';
- while (<IN>) {
- $whole .= $_;
- }
- if ($whole !~ /\n$/) {
- &perror("FATAL: the last line of $file has to be ".
- "terminated by \\n.");
- }
- if ($whole =~ /\n([ \t]*\n)+$/) {
- &perror("WARN: $file seems to have unnecessery blank lines ".
- "at the last part.");
- }
-
- close(IN);
-}
-
-sub checkpatch {
- my($file) = @_;
- my($whole);
-
- if (-z "$file") {
- &perror("FATAL: $file has no content. should be removed ".
- "from repository.");
- return;
- }
-
- open(IN, "< $file") || return 0;
- $whole = '';
- while (<IN>) {
- $whole .= $_;
- }
- if ($committer && $whole =~ /\$([A-Za-z0-9]+)[:\$]/) {
- &perror("WARN: $file includes possible RCS tag \"\$$1\$\". ".
- "use binary mode (-ko) on commit/import.");
- }
-
- close(IN);
-}
-
-#
-# Makefile
-#
-sub checkmakefile {
- my($file) = @_;
- my($rawwhole, $whole, $idx, @sections);
- my($i, $j, $k, $l);
- my @cat = ();
- my $has_lang_cat = 0;
- my $tmp;
- my $bogusdistfiles = 0;
- my @varnames = ();
- my($portname, $portversion, $distfiles, $distname, $extractsufx) = ('', '', '', '', '');
- my $masterport = 0;
- my $slaveport = 0;
- my($realwrksrc, $wrksrc, $nowrksubdir) = ('', '', '');
- my(@mman, @pman);
-
- open(IN, "< $file") || return 0;
- $rawwhole = '';
- $tmp = 0;
- while (<IN>) {
- if ($_ =~ /[ \t]+\n?$/) {
- &perror("WARN: $file $.: whitespace before ".
- "end of line.");
- }
- if ($_ =~ /^ /) { # 8 spaces here!
- &perror("WARN: $file $.: use tab (not space) to make ".
- "indentation");
- }
- if ($usetabs) {
- if (m/^[A-Za-z0-9_-]+.?= /) {
- if (m/[?+]=/) {
- &perror("WARN: $file $.: use a tab (not space) after a ".
- "variable name");
- } else {
- &perror("FATAL: $file $.: use a tab (not space) after a ".
- "variable name");
- }
- }
- }
-#
-# I'm still not very convinced, for using this kind of magical word.
-# 1. This kind of items are not important for Makefile;
-# portlint should not require any additional rule to Makefile.
-# portlint should simply implement items that are declared in Handbook.
-# 2. If we have LINTSKIP, we can't stop people using LINTSKIP too much.
-# IMHO it is better to warn the user and let the user think twice,
-# than let the user escape from portlint.
-# Uncomment this part if you are willing to use these magical words.
-# Thu Jun 26 11:37:56 JST 1997
-# -- itojun
-#
-# if ($_ =~ /^# LINTSKIP\n?$/) {
-# print "OK: skipping from line $. in $file.\n"
-# if ($verbose);
-# $tmp = 1;
-# next;
-# }
-# if ($_ =~ /^# LINTAGAIN\n?$/) {
-# print "OK: check start again from line $. in $file.\n"
-# if ($verbose);
-# $tmp = 0;
-# next;
-# }
-# if ($_ =~ /# LINTIGNORE/) {
-# print "OK: ignoring line $. in $file.\n" if ($verbose);
-# next;
-# }
-# next if ($tmp);
- $rawwhole .= $_;
- }
- close(IN);
-
- #
- # whole file: blank lines.
- #
- $whole = "\n" . $rawwhole;
- print "OK: checking contiguous blank lines in $file.\n"
- if ($verbose);
- $i = "\n" x ($contblank + 2);
- if ($whole =~ /$i/) {
- my @linesbefore = split(/\n/, $`);
- &perror("FATAL: contiguous blank lines (> $contblank lines) found ".
- "in $file at line " . ($#linesbefore + 1) . ".");
- }
-
- #
- # whole file: $(VARIABLE)
- #
- if ($parenwarn) {
- print "OK: checking for \$(VARIABLE).\n" if ($verbose);
- if ($whole =~ /\$\([\w\d]+\)/) {
- &perror("WARN: use \${VARIABLE}, instead of ".
- "\$(VARIABLE).");
- }
- }
-
- #
- # whole file: NO_CHECKSUM
- #
- $whole =~ s/\n#[^\n]*/\n/g;
- $whole =~ s/\n\n+/\n/g;
- print "OK: checking NO_CHECKSUM.\n" if ($verbose);
- if ($whole =~ /\nNO_CHECKSUM/) {
- &perror("FATAL: use of NO_CHECKSUM discouraged. ".
- "it is intended to be a user variable.");
- }
-
- #
- # whole file: PKGNAME
- #
- print "OK: checking PKGNAME.\n" if ($verbose);
- if ($whole =~ /\nPKGNAME.?=/) {
- &perror("FATAL: PKGNAME is obsoleted by PORTNAME, ".
- "PORTVERSION, PKGNAMEPREFIX and PKGNAMESUFFIX.");
- }
-
- #
- # whole file: IS_INTERACTIVE/NOPORTDOCS
- #
- print "OK: checking IS_INTERACTIVE.\n" if ($verbose);
- if ($whole =~ /\nIS_INTERACTIVE/) {
- if ($whole !~ /defined\((BATCH|FOR_CDROM)\)/) {
- &perror("WARN: use of IS_INTERACTIVE discouraged. ".
- "provide batch mode by using BATCH and/or ".
- "FOR_CDROM.");
- }
- }
- print "OK: checking for use of NOPORTDOCS.\n" if ($verbose);
- if ($sharedocused && $whole !~ /defined\(NOPORTDOCS\)/
- && $whole !~ m#(\$[\{\(]PREFIX[\}\)]|$localbase)/share/doc#) {
- &perror("WARN: use \".if !defined(NOPORTDOCS)\" to wrap ".
- "installation of files into $localbase/share/doc.");
- }
-
- #
- # whole file: direct use of command names
- #
- my %cmdnames = ();
- print "OK: checking direct use of command names.\n" if ($verbose);
- foreach my $i (split(/\s+/, <<EOF)) {
-awk basename cat chmod chown cp echo expr false gmake grep gzcat
-ldconfig ln md5 mkdir mv patch rm rmdir sed sh touch tr which xmkmf
-EOF
- $cmdnames{$i} = "\$\{\U$i\E\}";
- }
- $cmdnames{'env'} = '${SETENV}';
- $cmdnames{'gunzip'} = '${GUNZIP_CMD}';
- $cmdnames{'gzip'} = '${GZIP_CMD}';
- $cmdnames{'install'} = '${INSTALL_foobaa}';
- #
- # ignore parameter string to echo command.
- # note that we leave the command as is, since we need to check the
- # use of echo itself.
- $j = $whole;
- $j =~ s/([ \t][\@-]?)(echo|\$[\{\(]ECHO[\}\)]|\$[\{\(]ECHO_MSG[\}\)])[ \t]+("(\\'|\\"|[^"])*"|'(\\'|\\"|[^'])*')[ \t]*[;\n]/$1$2;/;
- foreach my $i (keys %cmdnames) {
- if ($j =~ /[ \t\/]$i[ \t\n;]/
- && $j !~ /\n[A-Z]+_TARGET[?+]?=[^\n]+$i/) {
- &perror("WARN: possible direct use of command \"$i\" ".
- "found. use $cmdnames{$i} instead.");
- }
- }
-
- #
- # whole file: ldconfig must come with "true" command
- #
- if ($ldconfigwithtrue
- && $j =~ /(ldconfig|\$[{(]LDCONFIG[)}])/
- && $j !~ /(\/usr\/bin\/true|\$[{(]TRUE[)}])/) {
- &perror("FATAL: ldconfig must be used with \"||\${TRUE}\".");
- }
-
- #
- # whole file: ${GZIP_CMD} -9 (or any other number)
- #
- if ($j =~ /\${GZIP_CMD}\s+-(\w+(\s+-)?)*(\d)/) {
- &perror("WARN: possible use of \"\${GZIP_CMD} -$3\" ".
- "found. \${GZIP_CMD} includes \"-\${GZIP}\" which ".
- "sets the compression level.");
- }
-
- #
- # whole file: ${MKDIR} -p
- #
- if ($j =~ /\${MKDIR}\s+-p/) {
- &perror("WARN: possible use of \"\${MKDIR} -p\" ".
- "found. \${MKDIR} includes \"-p\" by default.");
- }
-
- #
- # whole file: full path name
- #
- &abspathname($whole, $file);
-
- #
- # slave port check
- #
- my $masterdir = $makevar{MASTERDIR};
- if ($masterdir ne '' && $masterdir ne $makevar{'.CURDIR'}) {
- $slaveport = 1;
- print "OK: checking master port in $masterdir.\n" if ($verbose);
- if (! -e "$masterdir/Makefile") {
- &perror("WARN: unable to locate master port in $masterdir");
- }
- }
-
- #
- # break the makefile into sections.
- #
- $tmp = $rawwhole;
- # keep comment, blank line, comment in the same section
- $tmp =~ s/(#.*\n)\n+(#.*)/$1$2/g;
- @sections = split(/\n\n+/, $tmp);
- for ($i = 0; $i <= $#sections; $i++) {
- if ($sections[$i] !~ /\n$/) {
- $sections[$i] .= "\n";
- }
- }
- $idx = 0;
-
- #
- # section 1: comment lines.
- #
- print "OK: checking comment section of $file.\n" if ($verbose);
- my @linestocheck = split("\n", <<EOF);
-Whom
-Date [cC]reated
-EOF
- if ($osname eq 'NetBSD') {
- unshift(@linestocheck, '(New )?[pP](ackage|ort)s [cC]ollection [mM]akefile [fF]or');
- } else {
- unshift(@linestocheck, '(New )?[pP]orts [cC]ollection [mM]akefile [fF]or');
- }
- $tmp = $sections[$idx++];
- $tmp = "\n" . $tmp; # to make the begin-of-line check easier
-
- if ($tmp =~ /\n[^#]/) {
- &perror("FATAL: non-comment line in comment section of $file.");
- }
- foreach my $i (@linestocheck) {
- $j = $i;
- $j =~ s/\(.*\)\?//g;
- $j =~ s/\[(.)[^\]]*\]/$1/g;
- if ($tmp !~ /# $i:[ \t]+\S+/) {
- &perror("FATAL: no \"$j\" line in comment section of $file.");
- } else {
- print "OK: \"$j\" seen in $file.\n" if ($verbose);
- }
- }
- if ($tmp =~ m/Version [rR]equired/) {
- &perror("WARN: Version required is no longer needed in the comment section of $file.");
- }
- my $tmp2 = "";
- for (split(/\n/, $tmp)) {
- $tmp2 .= $_ if (m/\$$rcsidstr/);
- }
- if ($tmp2 !~ /#(\s+)\$$rcsidstr([^\$]*)\$$/) {
-
- &perror("FATAL: no \$$rcsidstr\$ line in $file comment ".
- "section.");
- } else {
- print "OK: \$$rcsidstr\$ seen in $file.\n" if ($verbose);
- if ($1 ne ' ') {
- &perror("WARN: please use single whitespace ".
- "right before \$$rcsidstr\$ tag.");
- }
- if ($2 ne '') {
- if ($verbose || $newport) { # XXX
- &perror("WARN: ".
- ($newport ? 'for new port, '
- : 'is it a new port? if so, ').
- "make \$$rcsidstr\$ tag in comment ".
- "section empty, to make CVS happy.");
- }
- }
- }
-
- #
- # for the rest of the checks, comment lines are not important.
- #
- for ($i = 0; $i < scalar(@sections); $i++) {
- $sections[$i] = "\n" . $sections[$i];
- $sections[$i] =~ s/\n#[^\n]*//g;
- $sections[$i] =~ s/\n\n+/\n/g;
- $sections[$i] =~ s/\\\n/ /g;
- $sections[$i] =~ s/^\n//;
- }
-
- #
- #
- # section 2: PORTNAME/PORTVERSION/...
- #
- print "OK: checking first section of $file. (PORTNAME/...)\n"
- if ($verbose);
- $tmp = $sections[$idx++];
-
- # check the order of items.
- &checkorder('PORTNAME', $tmp, split(/\s+/, <<EOF));
-PORTNAME PORTVERSION CATEGORIES MASTER_SITES MASTER_SITE_SUBDIR
-PKGNAMEPREFIX PKGNAMESUFFIX DISTNAME EXTRACT_SUFX DISTFILES DIST_SUBDIR
-EXTRACT_ONLY
-EOF
-
- # check the items that has to be there.
- $tmp = "\n" . $tmp;
- print "OK: checking PORTNAME/PORTVERSION.\n" if ($verbose);
- if ($tmp !~ /\nPORTNAME(.)?=/) {
- &perror("FATAL: PORTNAME has to be there.") unless ($slaveport && $makevar{PORTNAME} ne '');
- }
- if ($1 ne '') {
- &perror("WARN: PORTNAME has to be set by \"=\", ".
- "not by \"$1=\".") unless ($masterport);
- }
- if ($tmp !~ /\nPORTVERSION(.)?=/) {
- &perror("FATAL: PORTVERSION has to be there.") unless ($slaveport && $makevar{PORTVERSION} ne '');
- }
- if ($1 ne '') {
- &perror("WARN: PORTVERSION has to be set by \"=\", ".
- "not by \"$1=\".") unless ($masterport);
- }
- print "OK: checking CATEGORIES.\n" if ($verbose);
- if ($tmp !~ /\nCATEGORIES(.)?=[ \t]*/) {
- &perror("FATAL: CATEGORIES has to be there.") unless ($slaveport && $makevar{CATEGORIES} ne '');
- }
- $i = $1;
- if ($i ne '' && $i =~ /[^?+]/) {
- &perror("WARN: CATEGORIES should be set by \"=\", \"?=\", or \"+=\", ".
- "not by \"$i=\".") unless ($masterport);
- }
-
- @cat = split(/\s+/, $makevar{CATEGORIES});
- if (@cat == 0) {
- &perror("FATAL: CATEGORIES left blank. set it to \"misc\"".
- " if nothing seems apropriate.");
- }
-
-#MICHAEL: can these three lang cat checks be combined?
- # skip the first category specification if it's a language specific one.
- if (grep($_ eq $cat[0], @lang_cat)) {
- $has_lang_cat = 1;
- shift @cat;
- }
-
- # skip further if more language specific ones follow.
- if (@cat && grep($_ eq $cat[0], @lang_cat)) {
- &perror("WARN: multiple language specific categories detected. ".
- "are you sure?");
- do {
- shift @cat;
- } while (@cat && grep($_ eq $cat[0], @lang_cat));
- }
-
- # check x11 in CATEGORIES
- if ($newxdef) {
-#MICHAEL: I don't understand this line
- if (2 <= @cat && $cat[1] eq "x11") {
- &perror("WARN: only specific kind of apps should ".
- "specify \"x11\" in CATEGORIES. ".
- "Do you mean just USE_XLIB? ".
- "Then remove \"x11\" from CATEGORIES.");
- }
- }
-
- if (2 <= @cat) {
- # skip the first one that we know is _not_ language specific.
- shift @cat;
-
- # any language specific one after non language specific ones?
- if (grep(do { my $cat = $_; grep($_ eq $cat, @cat) }, @lang_cat)) {
- $has_lang_cat = 1;
- &perror("WARN: when you specify multiple categories, ".
- "language specific category should come first.");
- }
- }
-
- # check the URL
- if (($tmp =~ /\nMASTER_SITES[+?]?=[ \t]*([^\n]*)\n/
- && $1 !~ /^[ \t]*$/) || ($makevar{MASTER_SITES} ne '')) {
- print "OK: seen MASTER_SITES, sanity checking URLs.\n"
- if ($verbose);
- my @sites = split(/\s+/, $1);
- foreach my $i (@sites) {
- if ($i =~ m#^\w+://#) {
- &urlcheck($i);
- unless (&is_predefined($i)) {
- print "OK: URL \"$i\" ok.\n"
- if ($verbose);
- }
- } else {
- print "OK: non-URL \"$i\" ok.\n"
- if ($verbose);
- }
- }
- } else {
- &perror("WARN: no MASTER_SITES found. is it ok?");
- }
-
- # check DISTFILES and related items.
- $distfiles = $1 if ($tmp =~ /\nDISTFILES[+?]?=[ \t]*([^\n]+)\n/);
- #$portname = $1 if ($tmp =~ /\nPORTNAME[+?]?=[ \t]*([^\n]+)\n/);
- #$portversion = $1 if ($tmp =~ /\nPORTVERSION[+?]?=[ \t]*([^\n]+)\n/);
- $portname = $makevar{PORTNAME};
- $portversion = $makevar{PORTVERSION};
- $distname = $1 if ($tmp =~ /\nDISTNAME[+?]?=[ \t]*([^\n]+)\n/);
- $extractsufx = $1 if ($tmp =~ /\nEXTRACT_SUFX[+?]?=[ \t]*([^\n]+)\n/);
-
- # check bogus EXTRACT_SUFX.
- if ($extractsufx ne '') {
- print "OK: seen EXTRACT_SUFX, checking value.\n" if ($verbose);
- if ($distfiles ne '') {
- &perror("WARN: no need to define EXTRACT_SUFX if ".
- "DISTFILES is defined.");
- }
- if ($extractsufx eq '.tar.gz') {
- &perror("WARN: EXTRACT_SUFX is \".tar.gz.\" ".
- "by default. you don't need to specify it.");
- }
- } else {
- print "OK: no EXTRACT_SUFX seen, using default value.\n"
- if ($verbose);
- $extractsufx = '.tar.gz';
- }
-
- print "OK: sanity checking PORTNAME/PORTVERSION.\n" if ($verbose);
- if ($distname ne '' && $distname eq "$portname-$portversion") {
- &perror("WARN: DISTNAME is \${PORTNAME}-\${PORTVERSION} by default, ".
- "you don't need to define DISTNAME.");
- }
- if ($portname =~ /^$re_lang_pref-/) {
- &perror("FATAL: language prefix is automatically".
- " set by PKGNAMEPREFIX.".
- " you must remove it from PORTNAME.");
- }
- if ($portname =~ /\$[\{\(].+[\}\)]/) {
- &perror("WARN: using variable in PORTNAME.".
- " consider using PKGNAMEPREFIX and/or PKGNAMESUFFIX.");
- } elsif ($portname =~ /-/ && $distname ne '') {
- &perror("WARN: using hyphen in PORTNAME.".
- " consider using PKGNAMEPREFIX and/or PKGNAMESUFFIX.");
- }
- if ($portversion eq '') {
- &perror("FATAL: PORTVERSION must be specified");
- }
- if ($portversion =~ /^pl[0-9]*$/
- || $portversion =~ /^[0-9]*[A-Za-z]?[0-9]*(\.[0-9]*[A-Za-z]?[0-9]*)*$/) {
- print "OK: PORTVERSION \"$portversion\" looks fine.\n" if ($verbose);
- } elsif ($portversion =~ /^[^\-]*\$[{\(].+[\)}][^\-]*$/) {
- &perror("WARN: using variable, \"$portversion\", as version number");
- } elsif ($portversion =~ /-/) {
- &perror("FATAL: PORTVERSION should not contain a hyphen.".
- "should modify \"$portversion\".");
- } else {
- &perror("FATAL: PORTVERSION looks illegal. ".
- "should modify \"$portversion\".");
-
- }
-
- # if DISTFILES have only single item, it is better to avoid DISTFILES
- # and to use combination of DISTNAME and EXTRACT_SUFX.
- # example:
- # DISTFILES=package-1.0.tgz
- # should be
- # DISTNAME= package-1.0
- # EXTRACT_SUFX= .tgz
- if ($distfiles =~ /^\S+$/) {
- $bogusdistfiles++;
- print "OK: seen DISTFILES with single item, checking value.\n"
- if ($verbose);
- &perror("WARN: use of DISTFILES with single file ".
- "discouraged. distribution filename should be set by ".
- "DISTNAME and EXTRACT_SUFX.");
- if ($distfiles eq (($distname ne '') ? $distname : "$portname-$portversion") . $extractsufx) {
- &perror("WARN: definition of DISTFILES not necessery. ".
- "DISTFILES is \${DISTNAME}/\${EXTRACT_SUFX} ".
- "by default.");
- }
-
- # display advice only in certain cases.
-#MICHAEL: will this work with multiple distfiles in this list? what about
-# doing the same sort of thing for DISTNAME, is it needed?
- if ($distfiles =~ /^\Q$i\E([\-.].+)$/) {
- &perror("WARN: how about \"EXTRACT_SUFX=$1\"".
- ", instead of DISTFILES?");
- }
- }
-
- # additional checks for committer.
- if ($committer && $has_lang_cat) {
- &perror("WARN: be sure to include country code \"$1-\" ".
- "in the module alias name.");
- }
-
- if ($committer) {
- if (opendir(DIR, ".")) {
- my @tgz = grep(/\.tgz$/, readdir(DIR));
- closedir(DIR);
-
- if (@tgz) {
- my $tgz = (2 <= @tgz)
- ? '{' . join(',', @tgz) . '}'
- : $tgz[0];
-
- &perror("WARN: be sure to remove $portdir/$tgz ".
- "before committing the port.");
- }
- }
- }
-
- push(@varnames, split(/\s+/, <<EOF));
-PORTNAME PORTVERSION CATEGORIES MASTER_SITES MASTER_SITE_SUBDIR
-PKGNAMEPREFIX PKGNAMESUFFIX DISTNAME EXTRACT_SUFX DISTFILES EXTRACT_ONLY
-EOF
-
- #
- # section 3: PATCH_SITES/PATCHFILES(optional)
- #
- print "OK: checking second section of $file, (PATCH*: optinal).\n"
- if ($verbose);
- $tmp = $sections[$idx];
-
- if ($tmp =~ /(PATCH_SITES|PATCH_SITE_SUBDIR|PATCHFILES|PATCH_DIST_STRIP)/) {
- &checkearlier($file, $tmp, @varnames);
-
- if ($tmp =~ /^PATCH_SITES=/) {
- print "OK: seen PATCH_SITES.\n" if ($verbose);
- $tmp =~ s/^[^\n]+\n//;
- }
- if ($tmp =~ /^PATCH_SITE_SUBDIR=/) {
- print "OK: seen PATCH_SITE_SUBDIR.\n" if ($verbose);
- $tmp =~ s/^[^\n]+\n//;
- }
- if ($tmp =~ /^PATCHFILES=/) {
- print "OK: seen PATCHFILES.\n" if ($verbose);
- $tmp =~ s/^[^\n]+\n//;
- }
- if ($tmp =~ /^PATCH_DIST_STRIP=/) {
- print "OK: seen PATCH_DIST_STRIP.\n" if ($verbose);
- $tmp =~ s/^[^\n]+\n//;
- }
-
- &checkextra($tmp, 'PATCH_SITES');
-
- $idx++;
- }
-
- push(@varnames, split(/\s+/, <<EOF));
-PATCH_SITES PATCHFILES PATCH_DIST_STRIP
-EOF
-
- #
- # section 4: MAINTAINER
- #
- print "OK: checking third section of $file (MAINTAINER).\n"
- if ($verbose);
- $tmp = $sections[$idx++];
-
- &checkearlier($file, $tmp, @varnames);
- $tmp = "\n" . $tmp;
- if ($tmp =~ /\nMAINTAINER\??=[^\n]+/) {
- $tmp =~ s/\nMAINTAINER\??=[^\n]+//;
- } elsif ($whole !~ /\nMAINTAINER[?]?=/) {
- &perror("FATAL: no MAINTAINER listed in $file.") unless ($slaveport && $makevar{MAINTAINER} ne '');
- }
- $tmp =~ s/\n\n+/\n/g;
-
- &checkextra($tmp, 'MAINTAINER');
-
- push(@varnames, 'MAINTAINER');
-
- #
- # section 5: *_DEPENDS (may not be there)
- #
- print "OK: checking fourth section of $file(*_DEPENDS).\n"
- if ($verbose);
- $tmp = $sections[$idx];
-
- # NOTE: EXEC_DEPENDS is obsolete, so it should not be listed.
- @linestocheck = split(/\s+/, <<EOF);
-LIB_DEPENDS BUILD_DEPENDS RUN_DEPENDS FETCH_DEPENDS DEPENDS DEPENDS_TARGET
-EOF
- if ($tmp =~ /(LIB_|BUILD_|RUN_|FETCH_)?DEPENDS/) {
- &checkearlier($file, $tmp, @varnames);
-
- if (!defined $ENV{'PORTSDIR'}) {
- $ENV{'PORTSDIR'} = $portsdir;
- }
- foreach my $i (grep(/^[A-Z_]*DEPENDS[?+]?=/, split(/\n/, $tmp))) {
- $i =~ s/^([A-Z_]*DEPENDS)[?+]?=[ \t]*//;
- $j = $1;
- print "OK: checking ports listed in $j.\n"
- if ($verbose);
- foreach my $k (split(/\s+/, $i)) {
- my @l = split(':', $k);
-
- print "OK: checking dependency value for $j.\n"
- if ($verbose);
- if (($j eq 'DEPENDS'
- && scalar(@l) != 1 && scalar(@l) != 2)
- || ($j ne 'DEPENDS'
- && scalar(@l) != 2 && scalar(@l) != 3)) {
- &perror("WARN: wrong dependency value ".
- "for $j. $j requires ".
- ($j eq 'DEPENDS'
- ? "1 or 2 "
- : "2 or 3 ").
- "colon-separated tuples.");
- next;
- }
- my %m = ();
- if ($j eq 'DEPENDS') {
- $m{'dir'} = $l[0];
- $m{'tgt'} = $l[1];
- } else {
- $m{'dep'} = $l[0];
- $m{'dir'} = $l[1];
- $m{'tgt'} = $l[2];
- }
- print "OK: dep=\"$m{'dep'}\", ".
- "dir=\"$m{'dir'}\", tgt=\"$m{'tgt'}\"\n"
- if ($verbose);
-
- # check USE_PERL5
- if ($m{'dep'} =~ /^perl5(\.\d+)?$/) {
- &perror("WARN: dependency to perl5 ".
- "listed in $j. consider using ".
- "USE_PERL5.");
- }
-
- # check USE_GMAKE
- if ($m{'dep'} =~ /^(gmake|\${GMAKE})$/) {
- &perror("WARN: dependency to $1 ".
- "listed in $j. consider using ".
- "USE_GMAKE.");
- }
-
- # check USE_QT
- if ($m{'dep'} =~ /^(qt\d)+$/) {
- &perror("WARN: dependency to $1 ".
- "listed in $j. consider using ".
- "USE_QT.");
- }
-
- # check backslash in LIB_DEPENDS
- if ($osname eq 'NetBSD' && $j eq 'LIB_DEPENDS'
- && $m{'dep'} =~ /\\\\./) {
- &perror("WARN: use of backslashes in ".
- "$j is deprecated.");
- }
-
- # check for PREFIX
- if ($m{'dep'} =~ /\${PREFIX}/) {
- &perror("FATAL: \${PREFIX} must not be ".
- "contained in *_DEPENDS. ".
- "use \${LOCALBASE} or ".
- "\${X11BASE} instead.");
- }
-
- # check port dir existence
- $k = $m{'dir'};
- $k =~ s/\${PORTSDIR}/$ENV{'PORTSDIR'}/;
- $k =~ s/\$[\({]PORTSDIR[\)}]/$ENV{'PORTSDIR'}/;
- if (! -d $k) {
- &perror("WARN: no port directory $k ".
- "found, even though it is ".
- "listed in $j.");
- } else {
- print "OK: port directory $k found.\n"
- if ($verbose);
- }
- }
- }
- foreach my $i (@linestocheck) {
- $tmp =~ s/$i[?+]?=[^\n]+\n//g;
- }
-
- &checkextra($tmp, '*_DEPENDS');
-
- $idx++;
- }
-
- push(@varnames, @linestocheck);
- &checkearlier($file, $tmp, @varnames);
-
- #
- # Makefile 6: check the rest of file
- #
- print "OK: checking the rest of the $file.\n" if ($verbose);
- $tmp = join("\n\n", @sections[$idx .. scalar(@sections)-1]);
-
- $tmp = "\n" . $tmp; # to make the begin-of-line check easier
-
- &checkearlier($file, $tmp, @varnames);
-
- # check WRKSRC/NO_WRKSUBDIR
- #
- # do not use DISTFILES/DISTNAME to control over WRKSRC.
- # DISTNAME is for controlling distribution filename.
- # example:
- # DISTNAME= package
- # DISTFILES=package-1.0.tgz
- # should be
- # DISTNAME= package-1.0
- # EXTRACT_SUFX=.tgz
- # WRKSRC= ${WRKDIR}/package
- #
- print "OK: checking WRKSRC.\n" if ($verbose);
- $wrksrc = $nowrksubdir = '';
- $wrksrc = $1 if ($tmp =~ /\nWRKSRC[+?]?=[ \t]*([^\n]*)\n/);
- $nowrksubdir = $1 if ($tmp =~ /\nNO_WRKSUBDIR[+?]?=[ \t]*([^\n]*)\n/);
- if ($nowrksubdir eq '') {
- $realwrksrc = $wrksrc ? "$wrksrc/$distname"
- : "\${WRKDIR}/$distname";
- } else {
- $realwrksrc = $wrksrc ? $wrksrc : '${WRKDIR}';
- }
- print "OK: WRKSRC seems to be $realwrksrc.\n" if ($verbose);
-
- if ($nowrksubdir eq '') {
- print "OK: no NO_WRKSUBDIR, checking value of WRKSRC.\n"
- if ($verbose);
- if ($wrksrc eq 'work' || $wrksrc =~ /^$[\{\(]WRKDIR[\}\)]/) {
- &perror("WARN: WRKSRC is set to meaningless value ".
- "\"$1\".".
- ($nowrksubdir eq ''
- ? " use \"NO_WRKSUBDIR=yes\" instead."
- : ""));
- }
- if ($bogusdistfiles) {
- if ($distname ne '' && $wrksrc eq '') {
- &perror("WARN: do not use DISTFILES and DISTNAME ".
- "to control WRKSRC. how about ".
- "\"WRKSRC=\${WRKDIR}/$distname\"?");
- } else {
- &perror("WARN: DISTFILES/DISTNAME affects WRKSRC. ".
- "take caution when changing them.");
- }
- }
- } else {
- print "OK: seen NO_WRKSUBDIR, checking value of WRKSRC.\n"
- if ($verbose);
- if ($wrksrc eq 'work' || $wrksrc =~ /^$[\{\(]WRKDIR[\}\)]/) {
- &perror("WARN: definition of WRKSRC not necessery. ".
- "WRKSRC is \${WRKDIR} by default.");
- }
- }
-
- # check RESTRICTED/NO_CDROM/NO_PACKAGE
- print "OK: checking RESTRICTED/NO_CDROM/NO_PACKAGE.\n" if ($verbose);
- if ($committer && $tmp =~ /\n(RESTRICTED|NO_CDROM|NO_PACKAGE)[+?]?=/) {
- &perror("WARN: \"$1\" found. do not forget to update ".
- "ports/LEGAL.");
- }
-
- # check NO_CONFIGURE/NO_PATCH
- print "OK: checking NO_CONFIGURE/NO_PATCH.\n" if ($verbose);
- if ($tmp =~ /\n(NO_CONFIGURE|NO_PATCH)[+?]?=/) {
- &perror("FATAL: \"$1\" was obsoleted. remove this.");
- }
-
- # check MAN[1-9LN]
- print "OK: checking MAN[0-9LN].\n" if ($verbose);
- foreach my $i (keys %plistmanall) {
- print "OK: PLIST MAN$i=$plistmanall{$i}\n" if ($verbose);
- }
- foreach my $i (split(//, $manchapters)) {
- if ($tmp =~ /MAN\U$i\E=\s*([^\n]*)\n/) {
- print "OK: Makefile MAN$i=$1\n" if ($verbose);
- }
- }
- foreach my $i (split(//, $manchapters)) {
- next if ($i eq '');
- if ($tmp =~ /MAN\U$i\E=\s*([^\n]*)\n/) {
- @mman = grep($_ !~ /^\s*$/, split(/\s+/, $1));
- @pman = grep($_ !~ /^\s*$/,
- split(/\s+/, $plistmanall{$i}));
- foreach my $j (@mman) {
- print "OK: checking $j (Makefile)\n"
- if ($verbose);
- if ($automan && grep($_ eq $j, @pman)) {
- &perror("FATAL: duplicated manpage ".
- "entry $j: content of ".
- "MAN$i will be automatically ".
- "added to PLIST.");
- } elsif (!$automan && !grep($_ eq $j, @pman)) {
- &perror("WARN: manpage $j in $file ".
- "MAN$i but not in PLIST.");
- }
- }
- foreach my $j (@pman) {
- print "OK: checking $j (PLIST)\n" if ($verbose);
- if (!grep($_ eq $j, @mman)) {
- &perror("WARN: manpage $j in PLIST ".
- "but not in $file MAN$i.");
- }
- }
- } else {
- if ($plistmanall{$i}) {
- if ($manstrict) {
- &perror("FATAL: manpage for chapter ".
- "$i must be listed in ".
- "$file MAN\U$i\E. ");
- } else {
- &perror("WARN: manpage for chapter ".
- "$i should be listed in ".
- "MAN\U$i\E, ".
- "even if compression is ".
- "not necessery.");
- }
- }
- if ($mancompress && $plistman{$i}) {
- &perror("WARN: MAN\U$i\E will help you ".
- "compressing manual page in chapter ".
- "\"$i\".");
- } elsif (!$mancompress && $plistmangz{$i}) {
- &perror("WARN: MAN\U$i\E will help you ".
- "uncompressing manual page in chapter ".
- "\"$i\".");
- }
- }
- }
- if ($tmp !~ /MANLANG/ && scalar(keys %manlangs)) {
- $i = (keys %manlangs)[0];
- &perror("WARN: how about using MANLANG for ".
- "designating manual language, such as \"$i\"?");
- }
-
- # check USE_X11 and USE_IMAKE
- if ($tmp =~ /\nUSE_IMAKE[?+]?=/
- && $tmp =~ /\n(USE_X11)[?+]?=/) {
- &perror("WARN: since you already have USE_IMAKE, ".
- "you don't need $1.");
- }
- # check USE_X11 and USE_IMAKE
- if ($newxdef && $tmp =~ /\nUSE_IMAKE[?+]?=/
- && $tmp =~ /\n(USE_X_PREFIX)[?+]?=/) {
- &perror("WARN: since you already have USE_IMAKE, ".
- "you don't need $1.");
- }
-
- # check USE_X11 and USE_X_PREFIX
- if ($newxdef && $tmp =~ /\nUSE_X11[?+]?=/
- && $tmp !~ /\nUSE_X_PREFIX[?+]?=/) {
- &perror("FATAL: meaning of USE_X11 is changed in Aug 1998. ".
- "use USE_X_PREFIX instead.");
- }
-
- # check direct use of important make targets.
- if ($tmp =~ /\n(fetch|extract|patch|configure|build|install):/) {
- &perror("FATAL: direct redefinition of make target \"$1\" ".
- "discouraged. redefine \"do-$1\" instead.");
- }
-
- 1;
-}
-
-sub perror {
- my(@msg) = @_;
- if ($msg[0] =~ /^FATAL/) {
- $err++;
- } else {
- $warn++;
- }
- print join("\n", @msg) . "\n";
-}
-
-sub checkextra {
- my($str, $section) = @_;
-
- $str = "\n" . $str if ($str !~ /^\n/);
- $str =~ s/\n#[^\n]*/\n/g;
- $str =~ s/\n\n+/\n/g;
- $str =~ s/^\s+//;
- $str =~ s/\s+$//;
- return if ($str eq '');
-
- if ($str =~ /^([\w\d]+)/) {
- &perror("WARN: extra item placed in the ".
- "$section section, ".
- "for example, \"$1\".");
- } else {
- &perror("WARN: extra item placed in the ".
- "$section section.");
- }
-}
-
-sub checkorder {
- my($section, $str, @order) = @_;
- my(@items, $i, $j, $k, $invalidorder);
-
- print "OK: checking the order of $section section.\n" if ($verbose);
-
- @items = ();
- foreach my $i (split("\n", $str)) {
- $i =~ s/[+?]?=.*$//;
- push(@items, $i);
- }
-
- @items = reverse(@items);
- $j = -1;
- $invalidorder = 0;
- while (scalar(@items)) {
- $i = pop(@items);
- $k = 0;
- while ($k < scalar(@order) && $order[$k] ne $i) {
- $k++;
- }
- if ($order[$k] eq $i) {
- if ($k < $j) {
- &perror("FATAL: $i appears out-of-order.");
- $invalidorder++;
- } else {
- print "OK: seen $i, in order.\n" if ($verbose);
- }
- $j = $k;
- # This if condition tests for .if, .else (in all forms),
- # .for and .endfor and .include
- } elsif ($i !~ m/^\.(if|el|endif|for|endfor|include)/) {
- &perror("FATAL: extra item \"$i\" placed in the ".
- "$section section.");
- }
- }
- if ($invalidorder) {
- &perror("FATAL: order must be " . join('/', @order) . '.');
- } else {
- print "OK: $section section is ordered properly.\n"
- if ($verbose);
- }
-}
-
-sub checkearlier {
- my($file, $str, @varnames) = @_;
- my($i);
-
- print "OK: checking items that has to appear earlier.\n" if ($verbose);
- foreach my $i (@varnames) {
- if ($str =~ /\n$i[?+]?=/) {
- &perror("WARN: \"$i\" has to appear earlier in $file.");
- }
- }
-}
-
-sub abspathname {
- my($str, $file) = @_;
- my($s, $i, %cmdnames);
- my($pre);
-
- # ignore parameter string to echo command
- $str =~ s/[ \t][\@-]?(echo|\$[\{\(]ECHO[\}\)]|\$[\{\(]ECHO_MSG[\}\)])[ \t]+("(\\'|\\"|[^"])*"|'(\\'|\\"|[^"])*')[ \t]*[;\n]//;
-
- print "OK: checking direct use of full pathnames in $file.\n"
- if ($verbose);
- foreach my $s (split(/\n+/, $str)) {
- $i = '';
- if ($s =~ /(^|[ \t\@'"-])(\/[\w\d])/) {
- # suspected pathnames are recorded.
- $i = $2 . $';
- $pre = $` . $1;
-
- if ($pre =~ /MASTER_SITE_SUBDIR/) {
- # MASTER_SITE_SUBDIR lines are ok.
- $i = '';
- }
- }
- if ($i ne '') {
- $i =~ s/\s.*$//;
- $i =~ s/['"].*$//;
- $i = substr($i, 0, 20) . '...' if (20 < length($i));
- &perror("WARN: possible use of absolute pathname ".
- "\"$i\", in $file.") unless ($i =~ m,^/compat/,);
- }
- }
-
- print "OK: checking direct use of pathnames, phase 1.\n" if ($verbose);
-%cmdnames = split(/\n|\t+/, <<EOF);
-/usr/opt \${PORTSDIR} instead
-$portsdir \${PORTSDIR} instead
-$localbase \${PREFIX} or \${LOCALBASE}, as appropriate
-/usr/X11 \${PREFIX} or \${X11BASE}, as appropriate
-EOF
- foreach my $i (keys %cmdnames) {
- if ($str =~ /$i/) {
- &perror("WARN: possible direct use of \"$&\" ".
- "found in $file. if so, use $cmdnames{$i}.");
- }
- }
-
- print "OK: checking direct use of pathnames, phase 2.\n" if ($verbose);
-%cmdnames = split(/\n|\t+/, <<EOF);
-distfiles \${DISTDIR} instead
-pkg \${PKGDIR} instead
-files \${FILESDIR} instead
-scripts \${SCRIPTDIR} instead
-patches \${PATCHDIR} instead
-work \${WRKDIR} instead
-EOF
- foreach my $i (keys %cmdnames) {
- if ($str =~ /(\.\/|\$[\{\(]\.CURDIR[\}\)]\/|[ \t])(\b$i)\//) {
- &perror("WARN: possible direct use of \"$i\" ".
- "found in $file. if so, use $cmdnames{$i}.");
- }
- }
-}
-
-sub is_predefined {
- my($url) = @_;
- my($site);
- my($subdir);
- if ($site = (grep($url =~ $_, keys %predefined))[0]) {
- $url =~ /$site/;
- $subdir = $';
- $subdir =~ s/\/$//;
- &perror("WARN: how about using ".
- "\${MASTER_SITE_$predefined{$site}} with ".
- "\"MASTER_SITE_SUBDIR=$subdir\", instead of \"$url\?");
- return &TRUE;
- }
- undef;
-}
-
-sub urlcheck {
- my ($url) = @_;
- if ($url !~ m#^\w+://#) {
- &perror("WARN: \"$url\" doesn't appear to be a URL to me.");
- }
- if ($url !~ m#/$#) {
- &perror("FATAL: URL \"$url\" should ".
- "end with \"/\".");
- }
- if ($url =~ m#://[^/]*:/#) {
- &perror("FATAL: URL \"$url\" contains ".
- "extra \":\".");
- }
- if ($osname == 'FreeBSD' && $url =~ m#(www.freebsd.org)/~.+/#i) {
- &perror("WARN: URL \"$url\", ".
- "$1 should be ".
- "people.FreeBSD.org");
- }
-}
-sub TRUE {1;}
generated by cgit v1.2.3 (git 2.25.1) at 2025-01-12 13:39:12 +0000