From 7e439d29ee3766517ad83dc8f8a3158b661fa2cf Mon Sep 17 00:00:00 2001 From: rillig Date: Thu, 17 Feb 2005 23:31:07 +0000 Subject: Included the location of the warning or error in the messages for everything except Makefiles. (Makefiles which will follow soon.) This makes most warnings more useful. Together with the last few changes, we are now at version 4.06. Approved by wiz. --- pkgtools/pkglint/Makefile | 4 +-- pkgtools/pkglint/files/pkglint.pl | 59 +++++++++++++++++++-------------------- 2 files changed, 30 insertions(+), 33 deletions(-) (limited to 'pkgtools') diff --git a/pkgtools/pkglint/Makefile b/pkgtools/pkglint/Makefile index b453b8e86eb..c6cab6fd1c3 100644 --- a/pkgtools/pkglint/Makefile +++ b/pkgtools/pkglint/Makefile @@ -1,7 +1,7 @@ -# $NetBSD: Makefile,v 1.219 2005/02/15 21:07:01 rillig Exp $ +# $NetBSD: Makefile,v 1.220 2005/02/17 23:31:07 rillig Exp $ # -DISTNAME= pkglint-4.05 +DISTNAME= pkglint-4.06 CATEGORIES= pkgtools devel MASTER_SITES= # empty DISTFILES= # empty diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl index 96059002e47..80cfc453d2e 100644 --- a/pkgtools/pkglint/files/pkglint.pl +++ b/pkgtools/pkglint/files/pkglint.pl @@ -11,7 +11,7 @@ # Freely redistributable. Absolutely no warranty. # # From Id: portlint.pl,v 1.64 1998/02/28 02:34:05 itojun Exp -# $NetBSD: pkglint.pl,v 1.132 2005/02/16 07:12:37 rillig Exp $ +# $NetBSD: pkglint.pl,v 1.133 2005/02/17 23:31:07 rillig Exp $ # # This version contains lots of changes necessary for NetBSD packages # done by Hubert Feyrer , @@ -528,7 +528,7 @@ EOF # we need to handle the Makefile first to get some variables log_info(NO_FILE, NO_LINE_NUMBER, "checking Makefile."); if (! -f "$opt_packagedir/Makefile") { - log_error(NO_FILE, NO_LINE_NUMBER, "no Makefile in \"$opt_packagedir\"."); + log_error("$opt_packagedir/Makefile", NO_LINE_NUMBER, "file not found."); } else { checkfile_Makefile("Makefile") || log_error("$opt_packagedir/Makefile", NO_LINE_NUMBER, "error while reading."); } @@ -585,7 +585,7 @@ EOF } } if ($patches && ! -f "$opt_packagedir/$distinfo" ) { - log_warning(NO_FILE, NO_LINE_NUMBER, "no $opt_packagedir/$distinfo file. Please run '$conf_make makepatchsum'."); + log_warning("$opt_packagedir/$distinfo", NO_LINE_NUMBER, "file not found. Please run '$conf_make makepatchsum'."); } } if ($opt_check_extra) { @@ -601,62 +601,59 @@ EOF } foreach my $i (@checker) { - log_info(NO_FILE, NO_LINE_NUMBER, "checking $i."); + log_info($i, NO_LINE_NUMBER, "starting checks ..."); if (! -f "$opt_packagedir/$i") { - log_error(NO_FILE, NO_LINE_NUMBER, "no $i in \"$opt_packagedir\"."); + log_error("$opt_packagedir/$i", NO_LINE_NUMBER, "file not found"); } else { - $checker{$i}->($i) || log_warning(NO_FILE, NO_LINE_NUMBER, "Cannot open the file $i\n"); + $checker{$i}->($i) || log_warning($i, NO_LINE_NUMBER, "cannot open"); if ($i !~ /patches\/patch/) { &checklastline($i) || - log_warning(NO_FILE, NO_LINE_NUMBER, "Cannot open the file $i\n"); + log_warning($i, NO_LINE_NUMBER, "cannot open"); } } + log_info($i, NO_LINE_NUMBER, "finished checks ..."); } if (-f "$opt_packagedir/$distinfo") { if ( $seen_NO_CHECKSUM ) { - log_warning(NO_FILE, NO_LINE_NUMBER, "NO_CHECKSUM set, but $opt_packagedir/$distinfo exists. Please remove it."); + log_warning("$opt_packagedir/$distinfo", NO_LINE_NUMBER, "this file should not exist if NO_CHECKSUM is set"); } } else { if ( ! $seen_NO_CHECKSUM ) { - log_warning(NO_FILE, NO_LINE_NUMBER, "no $opt_packagedir/$distinfo file. Please run '$conf_make makesum'."); + log_warning("$opt_packagedir/$distinfo", NO_LINE_NUMBER, "file not found. Please run '$conf_make makesum'."); } } if (-f "$opt_packagedir/$filesdir/md5") { - log_error(NO_FILE, NO_LINE_NUMBER, "$filesdir/md5 is deprecated -- run '$conf_make mdi' to generate distinfo."); + log_error("$opt_packagedir/$filesdir/md5", NO_LINE_NUMBER, "this file is deprecated -- run '$conf_make mdi' to generate distinfo."); } if (-f "$opt_packagedir/$filesdir/patch-sum") { - log_error(NO_FILE, NO_LINE_NUMBER, "$filesdir/patch-sum is deprecated -- run '$conf_make mps' to generate distinfo."); + log_error("$opt_packagedir/$filesdir/patch-sum", NO_LINE_NUMBER, "this file is deprecated -- run '$conf_make mps' to generate distinfo."); } - if (-f "$pkgdir/COMMENT") { - log_error(NO_FILE, NO_LINE_NUMBER, "$pkgdir/COMMENT is deprecated -- please use a COMMENT variable instead."); + if (-f "$opt_packagedir/$pkgdir/COMMENT") { + log_error("$opt_packagedir/$pkgdir/COMMENT", NO_LINE_NUMBER, "this file is deprecated -- please use a COMMENT variable instead."); } if (-d "$opt_packagedir/pkg") { - log_error(NO_FILE, NO_LINE_NUMBER, "$opt_packagedir/pkg and its contents are deprecated!\n". - "\tPlease 'mv $opt_packagedir/pkg/* $opt_packagedir' and 'rmdir $opt_packagedir/pkg'."); + log_error("$opt_packagedir/pkg", NO_LINE_NUMBER, "this directory and its contents are deprecated! Please 'mv $opt_packagedir/pkg/* $opt_packagedir' and 'rmdir $opt_packagedir/pkg'."); } if (-d "$opt_packagedir/scripts") { - log_warning(NO_FILE, NO_LINE_NUMBER, "$opt_packagedir/scripts and its contents are deprecated! Please call the script(s)\n". - "\texplicitly from the corresponding target(s) in the pkg's Makefile."); + log_warning("$opt_packagedir/scripts", NO_LINE_NUMBER, "this directory and its contents are deprecated! Please call the script(s) explicitly from the corresponding target(s) in the pkg's Makefile."); } if (! -f "$opt_packagedir/$pkgdir/PLIST" and ! -f "$opt_packagedir/$pkgdir/PLIST-mi" and ! $seen_PLIST_SRC and ! $seen_NO_PKG_REGISTER ) { - log_warning(NO_FILE, NO_LINE_NUMBER, "no PLIST or PLIST-mi, and PLIST_SRC and NO_PKG_REGISTER unset.\n Are you sure PLIST handling is ok?"); + log_warning(NO_FILE, NO_LINE_NUMBER, "no PLIST or PLIST-mi, and PLIST_SRC and NO_PKG_REGISTER unset. Are you sure PLIST handling is ok?"); } if ($opt_committer) { - if ($opt_warn_workdir && (scalar(@_ = <$opt_packagedir/work*/*>) || -d "$opt_packagedir/work*")) { - log_warning(NO_FILE, NO_LINE_NUMBER, "be sure to cleanup $opt_packagedir/work* ". - "before committing the package."); + foreach my $wrkdir (<$opt_packagedir/work*>) { + if ($opt_warn_workdir && -d $wrkdir) { + log_warning($opt_warn_workdir, NO_LINE_NUMBER, "should be cleaned up before committing the package."); + } } - if (scalar(@_ = <$opt_packagedir/*/*~>) || scalar(@_ = <$opt_packagedir/*~>)) { - log_warning(NO_FILE, NO_LINE_NUMBER, "for safety, be sure to cleanup ". - "emacs backup files before committing the package."); + foreach my $backup (<$opt_packagedir/*~>, <$opt_packagedir/*/*~>) { + log_warning($backup, NO_LINE_NUMBER, "should be cleaned up before committing the package."); } - if (scalar(@_ = <$opt_packagedir/*/*.orig>) || scalar(@_ = <$opt_packagedir/*.orig>) - || scalar(@_ = <$opt_packagedir/*/*.rej>) || scalar(@_ = <$opt_packagedir/*.rej>)) { - log_warning(NO_FILE, NO_LINE_NUMBER, "for safety, be sure to cleanup ". - "patch backup files before committing the package."); + foreach my $orig (<$opt_packagedir/*/*.orig>, <$opt_packagedir/*.orig>, <$opt_packagedir/*/*.rej>, <$opt_packagedir/*.rej>) { + log_warning($orig, NO_LINE_NUMBER, "should be cleaned up before committing the package."); } } return true; @@ -1080,7 +1077,7 @@ sub readmakefile($) { } $seen_Makefile_include{$includefile} = true; if ($includefile =~ /\/mk\/texinfo\.mk/) { - log_error(NO_FILE, NO_LINE_NUMBER, "do not include $includefile"); + log_error($line->text, $line->lineno, "do not include $includefile"); } if ($includefile =~ /\/mk\/bsd/) { # we don't want to include the whole @@ -1190,8 +1187,8 @@ sub checkfile_Makefile($) { $tmp = 0; $rawwhole = readmakefile($fname); - if ($rawwhole eq '') { - log_error(NO_FILE, NO_LINE_NUMBER, "can't read $opt_packagedir/$file"); + if (!$rawwhole) { + log_error("$opt_packagedir/$file", NO_LINE_NUMBER, "cannot read"); return false; } else { -- cgit v1.2.3