/[texi2html]/texi2html/examples/roff.init
ViewVC logotype

Diff of /texi2html/examples/roff.init

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pertusus, Sun Dec 12 23:40:53 2004 UTC revision 1.10 by pertusus, Tue Aug 23 23:51:18 2005 UTC
# Line 519  sub t2h_roff_protect_text($) Line 519  sub t2h_roff_protect_text($)
519  {  {
520     my $text = shift;     my $text = shift;
521     $text =~ s/\\/\\e/g;     $text =~ s/\\/\\e/g;
522     $text =~ s/$;---$;/\\(em/g;  #   $text =~ s/$;---$;/\\(em/g;
523     $text =~ s/$;--$;/-/g;  #   $text =~ s/$;--$;/-/g;
524     $text =~ s/$;-$;/\\-/g;  #   $text =~ s/$;-$;/\\-/g;
525     $text =~ s/^\./\\&./;     $text =~ s/^\./\\&./;
526     $text =~ s/([\s])\./$1\\&./g;     $text =~ s/([\s])\./$1\\&./g;
527     return $text;     return $text;
528  }  }
529    
530  sub t2h_roff_normal_text($)  sub t2h_roff_normal_text($$$$)
531  {  {
532      my $text = shift;     my $text = shift;
533       my $in_raw_text = shift;
534       my $in_preformatted = shift;
535       my $in_code =shift;
536       $text = &$protect_text($text) unless($in_raw_text);
537       if (! $in_code and !$in_preformatted and !$in_raw_text)
538       {
539           $text =~ s/---/\\(em/g;
540           $text =~ s/--/\\(en/g;
541           $text =~ s/-/\\-/g;
542           $text =~ s/``/\\(lq/g;
543           $text =~ s/''/\\(rq/g;
544        }
545      #$text =~ s/---/\\(em/g;      #$text =~ s/---/\\(em/g;
546      $text =~ s/(--?-?)/$;$1$;/go;      #$text =~ s/(--?-?)/$;$1$;/go;
547      return $text;      return $text;
548  }  }
549    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26