| #!/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'.join('\b|\b',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 |
| '; |
| |