mirrors/mc
1
0
Fork 0
mirror of https://github.com/MidnightCommander/mc synced 2025-02-24 03:04:21 +03:00
Code Issues Packages Projects Releases Wiki Activity

man2hlp: limited support of \fR, \fB, \fI, and \fP troff commands.

Browse Source
This commit is contained in:
Andrew Borodin 2020-03-30 17:28:59 +03:00
parent 2532d62666
commit 8e51f583dc
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/man2hlp/man2hlp.in
View File

@ -204,6 +204,7 @@ sub print_string($)
my ($buffer) = @_;
my $len; # The length of current word
my $backslash_flag = 0;
my $font_change_flag = 0;
# Skipping lines?
return if $skip_flag;
@ -246,12 +247,43 @@ sub print_string($)
# Attempt to handle backslash quoting
foreach (split //, $buffer)
{
# handle \fR, \fB, \fI and \fP commands
if ($font_change_flag)
{
if ($_ eq 'B')
{
print $f_out $CHAR_FONT_BOLD;
}
elsif ($_ eq 'I')
{
print $f_out $CHAR_FONT_ITALIC;
}
elsif ($_ eq 'R' || $_ eq 'P')
{
print $f_out $CHAR_FONT_NORMAL;
}
else
{
print $f_out 'f' . $_;
print_error "Syntax error: unsupported \\f" . $_ . " command";
}
$font_change_flag = 0;
next;
}
if ($_ eq 'f' && $backslash_flag)
{
$font_change_flag = 1;
$backslash_flag = 0;
next;
}
if ($_ eq '\\' && !$backslash_flag)
{
$backslash_flag = 1;
next;
}
$backslash_flag = 0;
$font_change_flag = 0;
print $f_out $_;
}
# Increase column