70 lines
1.1 KiB
Perl
70 lines
1.1 KiB
Perl
|
#!/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
|
||
|
|
';
|
||
|
|
|