| … | |
… | |
| 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 "}"; |
