mirror/gettext
1
0
Fork 0
mirror of https://https.git.savannah.gnu.org/git/gettext.git synced 2026-01-26 15:39:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Support for escape sequences added in Lua 5.2.

Browse Source
This commit is contained in:
Ľubomír Remák 2013-04-16 18:34:45 +02:00
parent 7258f3aa1a
commit 97c6a77933
4 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gettext-tools/src/ChangeLog
View File

@ -1,3 +1,8 @@
2013-04-16 Ľubomír Remák <lubomirr@lubomirr.eu>
Support for escape sequences added in Lua 5.2.
* x-lua.c (phase3_get): Add \x and \z escape sequences.
2013-04-11 Ľubomír Remák <lubomirr@lubomirr.eu>
Support for Lua.

40
gettext-tools/src/x-lua.c
View File

@ -619,7 +619,47 @@ phase3_get (token_ty *tp)
case 'v':
string_add ('\v');
break;
case 'x':
{
int num = 0;
int i = 0;
for (i = 0; i < 2; i++)
{
c = phase1_getc ();
if (c >= '0' && c <= '9')
num += c - '0';
else if (c >= 'a' && c <= 'f')
num += c - 'a' + 10;
else if (c >= 'A' && c <= 'F')
num += c - 'A' + 10;
else
{
phase1_ungetc (c);
break;
}
if (i == 0)
num *= 16;
}
if (i == 2)
string_add (num);
}
break;
case 'z':
/* Ignore the following whitespace. */
do
{
c = phase1_getc ();
}
while (c == ' ' || c == '\n' || c == '\t' || c == '\r'
|| c == '\f' || c == '\v');
phase1_ungetc (c);
break;
default:
/* Check if it's a '\ddd' sequence. */
if (c >= '0' && c <= '9')

5
gettext-tools/tests/ChangeLog
View File

@ -1,3 +1,8 @@
2013-04-16 Ľubomír Remák <lubomirr@lubomirr.eu>
Support for escape sequences added in Lua 5.2.
* xgettext-lua-1: New test cases for \x and \z escape sequences.
2013-04-11 Ľubomír Remák <lubomirr@lubomirr.eu>
Support for Lua.

5
gettext-tools/tests/xgettext-lua-1
View File

@ -19,6 +19,8 @@ print(_(hmm["nope"]))
print({_"yep"})
print(_["nope"])
print(_("\097"))
print(_("\x3F\z
\x2a"))
EOF
tmpfiles="$tmpfiles xg-lu-1.tmp.po xg-lu-1.po"
@ -60,6 +62,9 @@ msgstr ""
msgid "a"
msgstr ""
msgid "?*"
msgstr ""
EOF
: ${DIFF=diff}