Return to fmttxt.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / coova-chilli / doc

Annotation of embedaddon/coova-chilli/doc/fmttxt.pl, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl
        !             2: # by david bird - to format stuff in this directory
        !             3: 
        !             4: sub trim {
        !             5:     my $line = shift;
        !             6:     $line =~ s/^\s+//g;
        !             7:     $line =~ s/\s+$//g;
        !             8:     $line;
        !             9: }
        !            10: 
        !            11: sub man2wiki {
        !            12:     $r = 0;
        !            13:     $in_tp=0;
        !            14:     $in_tp_s=0;
        !            15:     $in_ex=0;
        !            16:     $nl=0;
        !            17:     $in_rs=0;
        !            18: 
        !            19:     $out='';
        !            20: 
        !            21:     while (<STDIN>) {
        !            22:        next if (/^\.\\\"/);
        !            23:        chop;
        !            24: 
        !            25:        $line = $_;
        !            26: 
        !            27:        $line = trim($line);
        !            28: 
        !            29:        if ($line =~ /^\.TH (.*)$/) {
        !            30:            $nl=0;
        !            31:            @a = split / /, $line;
        !            32:            $out .= "= [[CoovaChilli]] - ".trim($a[1])."(".trim($a[2]).") =\n";
        !            33:        } elsif ($line =~ /^\.SH (.*)$/) {
        !            34:            $nl=0;
        !            35:            $l = $1;
        !            36:            $l =~ s/"//g; #"
        !            37:            $out .= "\n== ".trim($l)." ==\n\n";
        !            38:            $in_ex = ($l eq 'EXAMPLES');
        !            39:            $in_tp_s=0;
        !            40:        } elsif ($line =~ /^\.B (.*)$/) {
        !            41:            $nl=0;
        !            42:            $l = $1;
        !            43:            $l =~ s/"//g; #"
        !            44:            if ($in_tp) {
        !            45:                $out .= "; '''".trim($l)."''' ";
        !            46:            } else {
        !            47:                $out .= "'''".trim($l)."''' ";
        !            48:            }
        !            49:        } elsif ($line =~ /^\.TP/) {
        !            50:            $nl=0;
        !            51:            $in_tp=1;
        !            52:            $in_tp_s=1;
        !            53:        } elsif ($line =~ /^\.BI (.*)$/) {
        !            54:            $nl=0;
        !            55:            $l = $1;
        !            56:            $l =~ s/"//g; #"
        !            57:            @a = split / /, $l, 2;
        !            58:            if ($in_tp) {
        !            59:                $out .= "; '''".trim($a[0])."''' ";
        !            60:                $out .= "''".trim($a[1])."'' " if ($a[1]);
        !            61:            } else {
        !            62:                $out .= "'''".trim($a[0])."''' ";
        !            63:                $out .= "''".trim($a[1])."'' ";
        !            64:            }
        !            65:        } elsif ($line =~ /^\.I (.*)$/) {
        !            66:            $nl=0;
        !            67:            $out .= " " if $in_ex;
        !            68:            $out .= "''".trim($1)."'' ";
        !            69:            $out .= "BACKSLASH" if $in_ex && $line =~ /\\$/;
        !            70:            $out .= "\n " if $in_ex;
        !            71:            $out .= "\n" if $in_tp_s && $nl;
        !            72:        } elsif ($line =~ /^\.LP/) {
        !            73:        } elsif ($line =~ /^\.RS/) {
        !            74: #          $out .= "\n<dl><dd>\n";
        !            75: #          $out .= "\n: ";
        !            76:            $out .= "\n<div style='margin-left:60px;'>\n";
        !            77:            $in_rs = 1;
        !            78:        } elsif ($line =~ /^\.RE/) {
        !            79: #          $out .= "\n</dd></dl>\n";
        !            80:            if ($in_rs) {
        !            81:                $out .= "\n</div>\n";
        !            82:                $in_rs = 0;
        !            83:            }
        !            84:        } elsif ($line =~ /^\.BR (.*)$/) {
        !            85:            $nl=0;
        !            86:            $link = trim($1);
        !            87:            if ($link =~ /chilli/) {
        !            88:                $out .= "[[CoovaChilli/$link|$link]] ";
        !            89:            } else {
        !            90:                $link =~ s/\s//g;
        !            91:                $out .= "'''$link'''";
        !            92:            }
        !            93:        } else {
        !            94:            if ($line =~ /^$/) {
        !            95:                if ($nl < 1) {
        !            96:                    $out .= "\n\n";
        !            97:                }
        !            98:                $nl++;
        !            99:                $in_tp=0;
        !           100:            } else {
        !           101:                $nl=0;
        !           102:                if ($in_tp) {
        !           103:                    $out .= ": ";
        !           104:                    $in_tp=0;
        !           105:                }
        !           106:                $out .= "$line ";
        !           107:                $out .= "BACKSLASH\n " if ($in_ex && $line =~ /\\$/);
        !           108:            }
        !           109:        }
        !           110:     }
        !           111: 
        !           112:     $out =~ s/\n\n\n/\n\n/gs;
        !           113:     $out =~ s/\n\n\n/\n\n/gs;
        !           114:     $out =~ s/<[^\@>]+\@[^>]+>//sg;
        !           115:     $out =~ s/ , /, /gs;
        !           116:     $out =~ s/ \. /. /gs;
        !           117:     $out =~ s/\\//gs;
        !           118:     $out =~ s/BACKSLASH/\\/gs;
        !           119: 
        !           120:     print "<div style='float:right;'>__TOC__</div>\n";
        !           121:     print trim($out);
        !           122:     print "\n";
        !           123: }
        !           124: 
        !           125: sub attributes2wiki {
        !           126:     $r = 0;
        !           127:     while (<STDIN>) {
        !           128:        chop;
        !           129:        if (/^[a-zA-Z]/) {
        !           130:            @cols = split(/\s*:\s*/,$_,9);
        !           131:            print "|-";
        !           132:            print "style='background-color: #ddd;' " if ($r % 2);
        !           133:            print "\n";
        !           134:            $i = 0;
        !           135:            foreach (@cols) {
        !           136:                $l = 0;
        !           137:                print "| ";
        !           138:                print "style='font-weight:bold;border-right: solid 1px grey;' " if ($i < 1 && ++$l);
        !           139:                print "style='border-right: solid 1px grey;' " if ($i > 0 && $i < 8 && ++$l);
        !           140:                print "align='center' " if ($i > 1 && $i < 8 && ++$l);
        !           141:                print "align='right' " if ($i == 1 && ++$l);
        !           142:                print "nowrap='nowrap' " if ($i < 2 && ++$l);
        !           143:                print "| " if $l;
        !           144:                print $_;
        !           145:                print "\n";
        !           146:                $i++;
        !           147:            }
        !           148:            $r++;
        !           149:        }
        !           150:     }
        !           151: }
        !           152: 
        !           153: sub attributes2man {
        !           154:     $r = 0;
        !           155: 
        !           156:     $attributes='';
        !           157:     while (<STDIN>) {
        !           158:        chop;
        !           159:        if (/^[a-zA-Z]/) {
        !           160:            @cols = split(/\s*:\s*/,$_,9);
        !           161:            $attributes .= "\n";
        !           162:            $attributes .= ".TP\n";
        !           163:            $attributes .= ".B $cols[0] ($cols[1])\n";
        !           164:            $attributes .= $cols[8];
        !           165:            $attributes .= "\n";
        !           166:            $r++;
        !           167:        }
        !           168:     }
        !           169: 
        !           170:     $file = `cat chilli-radius.5.in`;
        !           171:     $file =~ s/\@ATTRIBUTES\@/$attributes/;
        !           172: 
        !           173:     print $file
        !           174: }
        !           175: 
        !           176: man2wiki() if ($ARGV[0] eq 'man2wiki');
        !           177: attributes2wiki() if ($ARGV[0] eq 'attributes2wiki');
        !           178: attributes2man() if ($ARGV[0] eq 'chilli-radius');