GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

c2english: minor clean-ups

This commit is contained in:
Pragmatic Software 2021-08-16 12:26:11 -07:00
parent 31ae34e17e
commit 68ed2e7580
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
modules/c2english/CGrammar.pm
View File

@ -1821,7 +1821,7 @@ enumerator_list:
enumerator:
identifier ( '=' constant_expression )(?)
{
$return = $item[1];
$return = $item[1];
if (@{$item[-1]}) {
$return .= ' marking ^L' . join('', @{$item[-1]});
}
@ -1895,27 +1895,33 @@ constant:
$modifier = '32-bit character ' if $constant =~ s/^U//;
if ($constant eq q('\n')) {
$return = "a $modifier" . 'newline';
"a $modifier" . 'newline';
} elsif ($constant eq q('\f')) {
$return = "a $modifier" . 'form-feed character';
"a $modifier" . 'form-feed character';
} elsif ($constant eq q('\t')) {
$return = "a $modifier" . 'tab';
"a $modifier" . 'tab';
} elsif ($constant eq q('\v')) {
$return = "a $modifier" . 'vertical tab';
"a $modifier" . 'vertical tab';
} elsif ($constant eq q('\a')) {
$return = 'an alert character' if not length $modifier;
$return = "a $modifier" . 'alert character' if length $modifier;
if (not length $modifier) {
'an alert character'
} else {
"a $modifier" . 'alert character'
}
} elsif ($constant eq q('\r')) {
$return = "a $modifier" . 'carriage-return';
"a $modifier" . 'carriage-return';
} elsif ($constant eq q('\b')) {
$return = "a $modifier" . 'backspace character';
"a $modifier" . 'backspace character';
} elsif ($constant eq q('\'')) {
$return = "a $modifier" . 'single-quote';
"a $modifier" . 'single-quote';
} elsif ($constant eq q(' ')) {
$return = "a $modifier" . 'space';
"a $modifier" . 'space';
} else {
$return = $constant if not length $modifier;
$return = "a $modifier$constant" if length $modifier;
if (not length $modifier) {
$constant
} else {
"a $modifier$constant"
}
}
}