#!/usr/bin/perl %terms=(); while(<>) { if(/^(\S.*)::$/) { my $term=$1; if(defined($terms{$term})) { die "$1 defined twice\n"; } $terms{$term}=""; LOOP: while(<>) { if(/^$/) { last LOOP; } if(/^ \S/) { $terms{$term}.=$_; } else { die "Error 1: $_"; } } } } sub format_tab_80 ($) { my $text=$_[0]; my $result=""; $text=~s/\s+/ /g; $text=~s/^\s+//; while($text=~/^(.{1,72})(|\s+(\S.*)?)$/) { $result.=" ".$1."\n"; $text=$3; } return $result; } sub no_spaces ($) { my $result=$_[0]; $result=~tr/ /_/; return $result; } print 'GIT Glossary ============ This list is sorted alphabetically: '; @keys=sort {uc($a) cmp uc($b)} keys %terms; $pattern='(\b(?<!link:git-)'.join('\b|\b(?<!link:git-)',reverse @keys).'\b)'; foreach $key (@keys) { $terms{$key}=~s/$pattern/sprintf "<<ref_".no_spaces($1).",$1>>";/eg; print '[[ref_'.no_spaces($key).']]'.$key."::\n" .format_tab_80($terms{$key})."\n"; } print ' Author ------ Written by Johannes Schindelin <Johannes.Schindelin@gmx.de> and the git-list <git@vger.kernel.org>. GIT --- Part of the link:git.html[git] suite ';