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