ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/gvpe/doc/pod2texi
(Generate patch)

Comparing gvpe/doc/pod2texi (file contents):
Revision 1.1 by pcg, Fri Mar 28 19:46:47 2003 UTC vs.
Revision 1.2 by pcg, Fri Mar 28 20:30:54 2003 UTC

36 $walker->($_) for @{$n->get_children}; 36 $walker->($_) for @{$n->get_children};
37 #print "</b>"; 37 #print "</b>";
38 } elsif ($n->is_text) { 38 } elsif ($n->is_text) {
39 print escape_texi $n->get_text; 39 print escape_texi $n->get_text;
40 } elsif ($n->is_verbatim) { 40 } elsif ($n->is_verbatim) {
41 print "\n\n\@verbatim\n"; 41 print "\n\n\@example\n";
42 my $text = $n->get_text; 42 my $text = $n->get_text;
43 $text =~ s/\n+$//; 43 $text =~ s/\n+$//;
44 $text =~ s/([\@\{\}])/@$1/g;
44 print $text; 45 print $text;
45 print "\n\@end verbatim\n\n"; 46 print "\n\@end example\n\n";
46 } elsif ($n->is_sequence) { 47 } elsif ($n->is_sequence) {
47 if ($n->get_letter eq "C") { 48 if ($n->get_letter eq "C") {
48 print "\@t{"; 49 print "\@t{";
49 $walker->($_) for @{$n->get_children}; 50 $walker->($_) for @{$n->get_children};
50 print "}"; 51 print "}";

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines