ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/doc/podtbl
(Generate patch)

Comparing rxvt-unicode/doc/podtbl (file contents):
Revision 1.2 by root, Sat Aug 14 03:07:50 2004 UTC vs.
Revision 1.5 by ayin, Thu Dec 13 00:43:57 2007 UTC

… …
20 B => "b", 20 B => "b",
21 C => "tt", 21 C => "tt",
22 L => "i", # broken 22 L => "i", # broken
23 F => "tt", 23 F => "tt",
24 S => "nobr", # non-std 24 S => "nobr", # non-std
25 X => "span", # brokwn 25 X => "span", # broken
26 Z => "span", # brokwn 26 Z => "span", # broken
27 ); 27 );
28 # strip formatting codes, dumb version 28 # strip formatting codes, dumb version
29 map { 29 map {
30 s/([IBCLFSXZ])<< (.*?) >>/<$tag{$1}>$2<\/$tag{$1}>/gs; 30 s/([IBCLFSXZ])<< (.*?) >>/<$tag{$1}>$2<\/$tag{$1}>/gs;
31 s/([IBCLFSXZ])<(.*?)>/<$tag{$1}>$2<\/$tag{$1}>/gs; 31 s/([IBCLFSXZ])<(.*?)>/<$tag{$1}>$2<\/$tag{$1}>/gs;
… …
42 $table--; 42 $table--;
43 } else { 43 } else {
44 shift; 44 shift;
45 return $self->SUPER::command (@_); 45 return $self->SUPER::command (@_);
46 } 46 }
47} 47}
48 48
49sub verbatim { 49sub verbatim {
50 my ($self, $para) = @_; 50 my ($self, $para) = @_;
51 shift; 51 shift;
52 52
… …
65 print $fh " ", (map +(sprintf "%-15s ", $_), stripfcodes @$_), "\n"; 65 print $fh " ", (map +(sprintf "%-15s ", $_), stripfcodes @$_), "\n";
66 } 66 }
67 67
68 print $fh "\n=end text\n\n"; 68 print $fh "\n=end text\n\n";
69 69
70 70
71 # tbl 71 # tbl
72 print $fh "=begin roff\n\n"; 72 print $fh "=begin roff\n\n";
73 73
74 print $fh ".TS\n" . ("l " x $cols) . ".\n"; 74 print $fh ".TS\n" . ("l " x $cols) . ".\n";
75 print $fh map +(join "\t", stripfcodes @$_) . "\n", @$table; 75 print $fh map +(join "\t", stripfcodes @$_) . "\n", @$table;
76 print $fh ".TE\n"; 76 print $fh ".TE\n";
77 77
78 print $fh "\n=end roff\n\n"; 78 print $fh "\n=end roff\n\n";
79 79
80 # html 80 # html
81 # pod::xhtml fails on begin/end blocks
81 print $fh "=begin html\n\n"; 82# print $fh "=begin xhtml\n\n";
82 83
83 print $fh "<table>\n"; 84 print $fh "=for html <table>";
84 print $fh map "<tr><td>" . +(join "</td><td>", htmlfcodes @$_) . "</td></tr>\n", @$table; 85 print $fh map "<tr><td>" . +(join "</td><td>", htmlfcodes @$_) . "</td></tr>", @$table;
85 print $fh "</table>\n"; 86 print $fh "</table>\n\n";
86 87
87 print $fh "\n=end html\n\n"; 88# print $fh "\n=end xhtml\n\n";
88 89
89} 90}
90 91
91__PACKAGE__->new->parse_from_filehandle; 92__PACKAGE__->new->parse_from_filehandle;
92 93

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines