Rework source layout in preparation for modular sudo.
This commit is contained in:
23
doc/sudo.man.pl
Normal file
23
doc/sudo.man.pl
Normal file
@@ -0,0 +1,23 @@
|
||||
#!/usr/bin/perl -p
|
||||
|
||||
BEGIN {
|
||||
%tags = ( 'a', '@BAMAN@', 'c', '@LCMAN@', 'r', '@SEMAN@', 't', '@SEMAN@');
|
||||
$t = undef;
|
||||
}
|
||||
if (/^\.IP(.*-([acrt]))?/) {
|
||||
$t = $1 ? $tags{$2} : undef;
|
||||
} elsif (/-a.*auth_type/) {
|
||||
$_ = $tags{'a'} . $_;
|
||||
} elsif (/(-c.*class.*\||login_cap)/) {
|
||||
$_ = $tags{'c'} . $_;
|
||||
} elsif (/-r.*role.*-t.*type/) {
|
||||
$_ = $tags{'r'} . $_;
|
||||
}
|
||||
|
||||
# Fix up broken pod2man formatting of F<@foo@/bar>
|
||||
s/\\fI\\f(\(C)?I\@([^\@]*)\\fI\@/\\fI\@$2\@/g;
|
||||
|
||||
# comment out Compile-time-specific lines in DESCRIPTION
|
||||
if ($t) {
|
||||
$_ = $t . $_;
|
||||
}
|
Reference in New Issue
Block a user