Re: [PATCH v4 1/2] Documentation: fix linkgit references

Ramsay Jones <ramsay@ramsayjones.plus.com> writes:

Not just that, I am afraid. This came from 368aa529 (add git-check-ignore sub-command, 2013-01-06) and it added these:

+linkgit:gitignore[5] +linkgit:gitconfig[5] +linkgit:git-ls-files[5]

The last one was later corrected, but who knows what other mistakes there are?

So I used the script attached at the bottom to audit the whole thing, and the result is here.

-- >8 -- Documentation/config.txt:1497: nongit link: :git-gui[1] Documentation/config.txt:1662: nongit link: curl[1] Documentation/diff-options.txt:274: wrong section (should be 5): gitattributes[1] Documentation/git-check-ignore.txt:115: no such source: gitconfig[5] Documentation/git-filter-branch.txt:208: nongit link: rev-list[1] Documentation/git-for-each-ref.txt:182: nongit link: :git-rev-list[1] Documentation/git-notes.txt:405: wrong section (should be 1): git[7] Documentation/technical/api-credentials.txt:246: wrong section (should be 1): git-credential[7] Documentation/technical/api-credentials.txt:271: wrong section (should be 1): git-config[5] -- 8< --

I do not think there is any false positive above, so perhaps the checker script below can be used as the link checker we discussed?

-- >8 -- #!/bin/sh

git grep -l linkgit: Documentation/ |
while read path
do
	perl -e '
	sub report {
		my ($where, $what, $error) = @_;
		print "$where: $error: $what\n";
	}

	sub grab_section {
		my ($page) = @_;
		open my $fh, "<", "Documentation/$page.txt";
		my $firstline = <$fh>;
		chomp $firstline;
		close $fh;
		my ($section) = ($firstline =~ /.*\((\d)\)$/);
		return $section;
	}

	while (<>) {
		my $where = "$ARGV:$.";
		while (s/linkgit:((.*?)\[(\d)\])//) {
			my ($target, $page, $section) = ($1, $2, $3);

			# De-AsciiDoc
			$page =~ s/{litdd}/--/g;

			if ($page !~ /^git/) {
				report($where, $target, "nongit link");
				next;
			}
			if (! -f "Documentation/$page.txt") {
				report($where, $target, "no such source");
				next;
			}
			$real_section = grab_section($page); 
			if ($real_section != $section) {
				report($where, $target,
					"wrong section (should be $real_section)");
				next;
			}
		}
	}
        ' "$path"
done