diff -urN lua-5.1-alpha/src/llex.c lua-5.1-alpha_new/src/llex.c
--- lua-5.1-alpha/src/llex.c	2005年09月07日 22:01:05.389523320 -0400
+++ lua-5.1-alpha_new/src/llex.c	2005年09月07日 22:03:37.203444096 -0400
@@ -7,6 +7,7 @@
 
 #include <ctype.h>
 #include <string.h>
+#include <stdlib.h>
 
 #define llex_c
 #define LUA_CORE
@@ -155,9 +156,33 @@
 
 
 
+static int luaO_hexstr2d (const char *s, lua_Number *result) {
+ char *endptr;
+ *result = strtoul(s, &endptr, 0);
+ if (endptr == s) return 0; /* conversion failed */
+ if (*endptr == '0円') return 1; /* most common case */
+ while (isspace(cast(unsigned char, *endptr))) endptr++;
+ if (*endptr != '0円') return 0; /* invalid trailing characters? */
+ return 1;
+}
 
 /* LUA_NUMBER */
 static void read_numeral (LexState *ls, SemInfo *seminfo) {
+
+ if (ls->current == '0') { /* check for hex prefix */
+ save_and_next(ls);
+ if (ls->current == 'x' &#124;&#124; ls->current == 'X') {
+ save_and_next(ls);
+ while (isxdigit(ls->current)) {
+ save_and_next(ls);
+ }
+ save(ls, '0円');
+ if (!luaO_hexstr2d(luaZ_buffer(ls->buff), &seminfo->r))
+ luaX_lexerror(ls, "malformed hex number", TK_NUMBER);
+ return;
+ }
+ }
+
 while (isdigit(ls->current)) {
 save_and_next(ls);
 }
</div><div class="naked_ctrl">
<form action="/index.cgi/speech" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://lua-users.org/files/wiki_insecure/power_patches/5.1-alpha/hex.patch">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://lua-users.org/files/wiki_insecure/power_patches/5.1-alpha/hex.patch" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech" selected="selected">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>