Attachment 224586 Details for Bug 255520 – patch

[patch] patch

portlint_comment_section.patch (text/plain), 1.80 KB, created by Fukang Chen on 2021-05-01 06:21:11 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Fukang Chen

Created: 2021-05-01 06:21:11 UTC

Size: 1.80 KB

patch

obsolete

>--- portlint.orig	2021-05-01 03:03:59.828368000 +0000
>+++ portlint	2021-05-01 03:12:00.416951000 +0000
>@@ -1445,8 +1445,8 @@
> 		&perror("FATAL", $file, 1, "old style headers found.");
> 	} elsif ($lines[1] =~ /^# Created by: \S/) {
> 		if ($lines[2] !~ /^# \$$rcsidstr[:\$]/) {
>-			&perror("FATAL", $file, 2, "header should be ".
>-				"followed by \$$rcsidstr\$.");
>+			#&perror("FATAL", $file, 2, "header should be ".
>+			#	"followed by \$$rcsidstr\$.");
> 		} elsif ($lines[3] !~ /^$/) {
> 		#&perror("FATAL", $file, 3, "do not add extra ".
> 		#		"empty comments after header.");
>@@ -1455,8 +1455,8 @@
> 	} elsif ($lines[1] =~ /^# \$$rcsidstr[:\$]/ and $lines[2] =~ /^#\s+\$MCom[:\$]/ and $lines[3] =~ /^$/) {
>         # DO NOTHING
> 	} elsif ($lines[1] !~ /^# \$$rcsidstr[:\$]/ or $lines[2] !~ /^$/) {
>-		&perror("FATAL", $file, 1, "incorrect header; ".
>-			"simply use \$$rcsidstr\$.");
>+		#&perror("FATAL", $file, 1, "incorrect header; ".
>+		#	"simply use \$$rcsidstr\$.");
> 	}
> 
> 	#
>@@ -2666,12 +2666,15 @@
> 		}
> 	}
> 	$idx = 0;
>+	my @linestocheck = ();
> 
>+	# check if all lines in the first section are all comments
>+	if (grep(/^#/, split(/\n/, $sections[$idx])) == split(/\n/, $sections[$idx])) {
> 	#
> 	# section 1: comment lines.
> 	#
> 	print "OK: checking comment section of $file.\n" if ($verbose);
>-	my @linestocheck = split("\n", <<EOF);
>+	@linestocheck = split("\n", <<EOF);
> Whom
> Date [cC]reated
> EOF
>@@ -2691,8 +2694,8 @@
> 	}
> 	if ($tmp2 !~ /#(\s+)\$$rcsidstr([^\$]*)\$$/) {
> 
>-		&perror("FATAL", $file, -1, "no \$$rcsidstr\$ line in comment ".
>-			"section.");
>+		#&perror("FATAL", $file, -1, "no \$$rcsidstr\$ line in comment ".
>+		#	"section.");
> 	} else {
> 		print "OK: \$$rcsidstr\$ seen in $file.\n" if ($verbose);
> 		if ($1 ne ' ') {
>@@ -2708,6 +2711,7 @@
> 				    "section empty, to make SVN happy.");
> 			}
> 		}
>+	}
> 	}
> 
> 	#

Actions: View | Diff

Attachments on bug 255520: 224586