summaryrefslogtreecommitdiff
path: root/src/script
diff options
context:
space:
mode:
authorrubidium <rubidium@openttd.org>2014-09-07 16:03:41 +0000
committerrubidium <rubidium@openttd.org>2014-09-07 16:03:41 +0000
commit876cc82f335efb7dbca96c97353609ad7af783c1 (patch)
treea54d82ed1fca7111f6eb53a81d71788706abf411 /src/script
parent385d3d394747a84cf792146e1e63b888252c93e0 (diff)
downloadopenttd-876cc82f335efb7dbca96c97353609ad7af783c1.tar.xz
(svn r26797) -Codechange: rewrite the UTF8 reading code to make use of already existing functions instead of partially trying to implemented them
Diffstat (limited to 'src/script')
-rw-r--r--src/script/squirrel.cpp41
1 files changed, 14 insertions, 27 deletions
diff --git a/src/script/squirrel.cpp b/src/script/squirrel.cpp
index d01124302..e38067480 100644
--- a/src/script/squirrel.cpp
+++ b/src/script/squirrel.cpp
@@ -389,33 +389,20 @@ static WChar _io_file_lexfeed_ASCII(SQUserPointer file)
static WChar _io_file_lexfeed_UTF8(SQUserPointer file)
{
- static const SQInteger utf8_lengths[16] =
- {
- 1, 1, 1, 1, 1, 1, 1, 1, /* 0000 to 0111 : 1 byte (plain ASCII) */
- 0, 0, 0, 0, /* 1000 to 1011 : not valid */
- 2, 2, /* 1100, 1101 : 2 bytes */
- 3, /* 1110 : 3 bytes */
- 4 /* 1111 : 4 bytes */
- };
- static unsigned char byte_masks[5] = {0, 0, 0x1F, 0x0F, 0x07};
- unsigned char inchar;
- WChar c = 0;
- if (((SQFile *)file)->Read(&inchar, sizeof(inchar), 1) != 1) return 0;
- c = inchar;
-
- if (c >= 0x80) {
- SQInteger tmp;
- SQInteger codelen = utf8_lengths[c >> 4];
- if (codelen == 0) return 0;
-
- tmp = c & byte_masks[codelen];
- for (SQInteger n = 0; n < codelen - 1; n++) {
- tmp <<= 6;
- if (((SQFile *)file)->Read(&inchar, sizeof(inchar), 1) != 1) return 0;
- tmp |= inchar & 0x3F;
- }
- c = tmp;
- }
+ char buffer[5];
+
+ /* Read the first character, and get the length based on UTF-8 specs. If invalid, bail out. */
+ if (((SQFile *)file)->Read(buffer, sizeof(buffer[0]), 1) != 1) return 0;
+ uint len = Utf8EncodedCharLen(buffer[0]);
+ if (len == 0) return -1;
+
+ /* Read the remaining bits. */
+ if (len > 1 && ((SQFile *)file)->Read(buffer + 1, sizeof(buffer[0]), len - 1) != len - 1) return 0;
+
+ /* Convert the character, and when definitely invalid, bail out as well. */
+ WChar c;
+ if (Utf8Decode(&c, buffer) != len) return -1;
+
return c;
}