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 |
|
|