Annotation of embedaddon/sudo/doc/sudoers.man.pl, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl -p
        !             2: 
        !             3: BEGIN {
        !             4:     $cond = -1;
        !             5: }
        !             6: 
        !             7: # Initialize the numeric register we use for conditionals
        !             8: if ($cond == -1) {
        !             9:     $_ = ".nr SL \@SEMAN\@\n.nr BA \@BAMAN\@\n.nr LC \@LCMAN\@\n.\\\"\n$_";
        !            10:     $cond = 0;
        !            11: }
        !            12: 
        !            13: # Make SELinux_Spec conditional
        !            14: if (/(.*)SELinux_Spec\? (.*)$/) {
        !            15:     $_ = ".ie \\n(SL $_.el $1$2\n";
        !            16: } elsif (/^(.*SELinux_Spec ::=)/) {
        !            17:     $_ = ".if \\n(SL \\{\\\n$_";
        !            18: } elsif (/^(.*Tag_Spec ::=)/) {
        !            19:     $_ = "\\}\n$_";
        !            20: }
        !            21: 
        !            22: if (/^\.S[Sh] "SELinux_Spec"/) {
        !            23:     $_ = ".if \\n(SL \\{\\\n$_";
        !            24:     $cond = 1;
        !            25: } elsif (/^\.IP "(role|type)"/) {
        !            26:     $_ = ".if \\n(SL \\{\\\n$_";
        !            27:     $cond = 1;
        !            28: } elsif (/^\.IP "use_loginclass"/) {
        !            29:     $_ = ".if \\n(LC \\{\\\n$_";
        !            30:     $cond = 1;
        !            31: } elsif ($cond && /^\.(Sh|SS|IP|PP)/) {
        !            32:     $_ = "\\}\n$_";
        !            33:     $cond = 0;
        !            34: }
        !            35: 
        !            36: # Fix up broken pod2man formatting of F<@foo@/bar>
        !            37: s/\\fI\\f(\(C)?I\@([^\@]*)\\fI\@/\\fI\@$2\@/g;
        !            38: s/\\f\(\CW\@([^\@]*)\\fR\@/\@$1\@/g;
        !            39: #\f(CW@secure_path\fR@

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>