Revision 1.1 by

Revision 1.2 by

… | … | ||
---|---|---|---|

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

– |
Removed lines |

+ |
Added lines |

< |
Changed lines |

> |
Changed lines |