diff -urN lua-5.0/src/llex.c lua_new/src/llex.c
--- lua-5.0/src/llex.c	2003年03月24日 07:39:34.000000000 -0500
+++ lua_new/src/llex.c	2003年04月04日 10:04:30.000000000 -0500
@@ -7,6 +7,7 @@
 
 #include <ctype.h>
 #include <string.h>
+#include <stdlib.h>
 
 #define llex_c
 
@@ -169,12 +170,38 @@
 return l-1;
 }
 
+static int luaO_hexstr2d (const char *s, lua_Number *result) {
+ char *endptr;
+ lua_Number res = strtoul(s, &endptr, 0);
+ if (endptr == s) return 0; /* no conversion */
+ while (isspace((unsigned char)(*endptr))) endptr++;
+ if (*endptr != '0円') return 0; /* invalid trailing characters? */
+ *result = res;
+ return 1;
+}
+
 
 /* LUA_NUMBER */
 static void read_numeral (LexState *LS, int comma, SemInfo *seminfo) {
 size_t l = 0;
 checkbuffer(LS, l);
 if (comma) save(LS, '.', l);
+
+ if (LS->current == '0') { /* check for hex prefix */
+ save_and_next(LS, l);
+ if (LS->current == 'x' &#124;&#124; LS->current == 'X') {
+ save_and_next(LS, l);
+ while (isxdigit(LS->current)) {
+ checkbuffer(LS, l);
+ save_and_next(LS, l);
+ }
+ save(LS, '0円', l);
+ if (!luaO_hexstr2d(luaZ_buffer(LS->buff), &seminfo->r))
+ luaX_lexerror(LS, "malformed hex number", TK_NUMBER);
+ return;
+ }
+ }
+
 while (isdigit(LS->current)) {
 checkbuffer(LS, l);
 save_and_next(LS, l);
</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/users/pshook/lua-5.0-hex.patch">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://lua-users.org/files/wiki_insecure/users/pshook/lua-5.0-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>