[Lxr-commits] CVS: lxr/templates lxr.conf,1.29,1.30

[Jan-Benedict G. <jb...@us...>]

Update of /cvsroot/lxr/lxr/templates
In directory sc8-pr-cvs6.sourceforge.net:/tmp/cvs-serv2930/templates

Modified Files:
	lxr.conf 
Log Message:
Place two examples about how to get the tags out of a GIT repository as
versions vor the `v' variable.


Index: lxr.conf
===================================================================
RCS file: /cvsroot/lxr/lxr/templates/lxr.conf,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- lxr.conf	20 Dec 2006 19:55:32 -0000	1.29
+++ lxr.conf	20 Dec 2006 19:56:43 -0000	1.30
@@ -60,6 +60,45 @@
 				#			($files->allreleases($LXR::Common::pathname),
 				#			 $files->allrevisions($LXR::Common::pathname))
 				#			}, # deferred function call.
+				#
+				# When using a GIT repo, you can use its tags
+				# to create a list of versions. As an extra
+				# bonus, with the Linux::KernelSort Perl module,
+				# you can properly sort kernel versions. Just
+				# leave it off for generic projects.
+				#
+				#	Simple example for any GIT repo:
+				#	'range' => sub {
+				#		my $some_dir = "/path/to/project/.git/refs/tags";
+				#		opendir (DIR, $some_dir) || die "cannot opendir $some_dir: $!";
+				#		my @files = grep { -f "$some_dir/$_" } readdir (DIR);
+				#		closedir DIR;
+				#		return sort @files;
+				#	},
+				#
+				#	Advanced example for Linus's upstream
+				#	linux-2.6 kernel repository:
+				#	'range' => sub {
+				#		use Linux::KernelSort;
+				#		my $kernel = new Linux::KernelSort;
+				#
+				#		my $some_dir = "/path/to/linux-2.6/.git/refs/tags";
+				#		opendir (DIR, $some_dir) || die "cannot opendir $some_dir: $!";
+				#		my @files = grep { -f "$some_dir/$_" } readdir (DIR);
+				#		closedir DIR;
+				#		# Linus's tags all have a leading "v"
+				#		# which we must cut off for sorting
+				#		# add again afterwards.
+				#		for (my $i = 0; $i < scalar (@files); $i++) {
+				#			$files[$i] =~ s/^v//;
+				#		}
+				#		@files = $kernel->sort (@files);
+				#		for (my $i = 0; $i < scalar (@files); $i++) {
+				#			$files[$i] =~ s/^/v/;
+				#		}
+				#
+				#		return @files;
+				#	},
 
 				# The default version to display
 				'default' => '1.0.6'