diff -Nur lua530o/src/liolib.c lua530n/src/liolib.c
--- lua530o/src/liolib.c 2015年01月02日 13:50:28.000000000 +0100
+++ lua530n/src/liolib.c 2015年01月05日 20:50:56.000000000 +0100
@@ -410,10 +410,10 @@
}
-/* access to locale "radix character" (decimal point) */
+/* access to locale "radix character" (decimal point)
#if !defined(l_getlocaledecpoint)
#define l_getlocaledecpoint() (localeconv()->decimal_point[0])
-#endif
+#endif */
/*
@@ -427,7 +427,7 @@
int hex = 0;
char decp[2] = ".";
rn.f = f; rn.n = 0;
- decp[0] = l_getlocaledecpoint(); /* get decimal point from locale */
+ decp[0] = '.'; /*l_getlocaledecpoint(); get decimal point from locale */
l_lockfile(rn.f);
do { rn.c = l_getc(rn.f); } while (isspace(rn.c)); /* skip spaces */
test2(&rn, "-+"); /* optional signal */
diff -Nur lua530o/src/llex.c lua530n/src/llex.c
--- lua530o/src/llex.c 2014年11月14日 17:06:09.000000000 +0100
+++ lua530n/src/llex.c 2015年01月05日 20:50:56.000000000 +0100
@@ -234,7 +234,7 @@
*/
static void trydecpoint (LexState *ls, TValue *o) {
char old = ls->decpoint;
- ls->decpoint = l_getlocaledecpoint();
+ ls->decpoint = '.'; /*l_getlocaledecpoint();*/
buffreplace(ls, old, ls->decpoint); /* try new decimal separator */
if (!buff2num(ls->buff, o)) {
/* format error with correct decimal point: no more options */
diff -Nur lua530o/src/loslib.c lua530n/src/loslib.c
--- lua530o/src/loslib.c 2014年12月26日 15:46:07.000000000 +0100
+++ lua530n/src/loslib.c 2015年01月05日 20:50:56.000000000 +0100
@@ -152,7 +152,7 @@
static int os_clock (lua_State *L) {
- lua_pushnumber(L, ((lua_Number)clock())/(lua_Number)CLOCKS_PER_SEC);
+ lua_pushnumber(L, ((lua_Number)clock())/(lua_Number)60);
return 1;
}
@@ -225,7 +225,7 @@
static int os_date (lua_State *L) {
const char *s = luaL_optstring(L, 1, "%c");
- time_t t = luaL_opt(L, l_checktime, 2, time(NULL));
+ time_t t = luaL_opt(L, luaL_checkinteger, 2, time(NULL));
struct tm tmr, *stm;
if (*s == '!') { /* UTC? */
stm = l_gmtime(&t, &tmr);
@@ -297,7 +297,7 @@
static int os_difftime (lua_State *L) {
- double res = difftime((l_checktime(L, 1)), (l_checktime(L, 2)));
+ double res = difftime((luaL_checkinteger(L, 1)), (luaL_checkinteger(L, 2)));
lua_pushnumber(L, (lua_Number)res);
return 1;
}
@@ -312,7 +312,7 @@
"numeric", "time", NULL};
const char *l = luaL_optstring(L, 1, NULL);
int op = luaL_checkoption(L, 2, "all", catnames);
- lua_pushstring(L, setlocale(cat[op], l));
+ lua_pushstring(L, "C"); /*setlocale(cat[op], l));*/
return 1;
}
diff -Nur lua530o/src/lua.c lua530n/src/lua.c
--- lua530o/src/lua.c 2014年11月11日 20:41:27.000000000 +0100
+++ lua530n/src/lua.c 2015年01月05日 20:50:56.000000000 +0100
@@ -110,7 +110,7 @@
*/
static void lstop (lua_State *L, lua_Debug *ar) {
(void)ar; /* unused arg. */
- lua_sethook(L, NULL, 0, 0); /* reset hook */
+ lua_sethook(L, 0, 0, 0); /* reset hook */
luaL_error(L, "interrupted!");
}
diff -Nur lua530o/src/lua.h lua530n/src/lua.h
--- lua530o/src/lua.h 2014年12月26日 18:24:27.000000000 +0100
+++ lua530n/src/lua.h 2015年01月05日 20:50:56.000000000 +0100
@@ -269,11 +269,11 @@
*/
LUA_API void (lua_callk) (lua_State *L, int nargs, int nresults,
lua_KContext ctx, lua_KFunction k);
-#define lua_call(L,n,r) lua_callk(L, (n), (r), 0, NULL)
+#define lua_call(L,n,r) lua_callk(L, (n), (r), 0, 0)
LUA_API int (lua_pcallk) (lua_State *L, int nargs, int nresults, int errfunc,
lua_KContext ctx, lua_KFunction k);
-#define lua_pcall(L,n,r,f) lua_pcallk(L, (n), (r), (f), 0, NULL)
+#define lua_pcall(L,n,r,f) lua_pcallk(L, (n), (r), (f), 0, 0)
LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt,
const char *chunkname, const char *mode);
@@ -290,7 +290,7 @@
LUA_API int (lua_status) (lua_State *L);
LUA_API int (lua_isyieldable) (lua_State *L);
-#define lua_yield(L,n) lua_yieldk(L, (n), 0, NULL)
+#define lua_yield(L,n) lua_yieldk(L, (n), 0, 0)
/*
diff -Nur lua530o/src/lua.prj lua530n/src/lua.prj
--- lua530o/src/lua.prj 1970年01月01日 01:00:00.000000000 +0100
+++ lua530n/src/lua.prj 2015年01月05日 20:50:56.000000000 +0100
@@ -0,0 +1,77 @@
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+; OUTPUT FILENAME
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+g:\lua\lua.prg
+
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+; OPTIONS
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+;.C [ -Y -W-par ]
+.C [ -W-par ]
+.C [ -DLUA_USE_C89 ]
+.C [ -DLUA_COMPAT_5_2 ]
+;.L [ -Y ]
+
+=
+
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+; STARTUP MODULE
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+LIB\PCSTART.O
+
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+; Actuall projet stuff
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+
+lapi.c (lua.h, lapi.h, ldebug.h, ldo.h, lfunc.h, lgc.h, lmem.h, lobject.h, lstate.h, lstring.h, ltable.h, ltm.h, lundump.h, lvm.h)
+lcode.c (lua.h, lcode.h, ldebug.h, ldo.h, lgc.h, llex.h, lmem.h, lobject.h, lopcodes.h, lparser.h, lstring.h, ltable.h, lvm.h)
+lctype.c (lctype.h)
+ldebug.c (lua.h, lapi.h, lcode.h, ldebug.h, ldo.h, lfunc.h, lobject.h, lopcodes.h, lstate.h, lstring.h, ltable.h, ltm.h, lvm.h)
+ldo.c (lua.h, lapi.h, ldebug.h, ldo.h, lfunc.h, lgc.h, lmem.h, lobject.h, lopcodes.h, lparser.h, lstate.h, lstring.h, ltable.h, ltm.h, lundump.h, lvm.h, lzio.h)
+ldump.c (lua.h, lobject.h, lstate.h, lundump.h)
+lfunc.c (lua.h, lfunc.h, lgc.h, lmem.h, lobject.h, lstate.h)
+lgc.c (lua.h, ldebug.h, ldo.h, lfunc.h, lgc.h, lmem.h, lobject.h, lstate.h, lstring.h, ltable.h, ltm.h)
+llex.c (lua.h, lctype.h, ldo.h, llex.h, lobject.h, lparser.h, lstate.h, lstring.h, ltable.h, lzio.h)
+lmem.c (lua.h, ldebug.h, ldo.h, lgc.h, lmem.h, lobject.h, lstate.h)
+lobject.c (lua.h, lctype.h, ldebug.h, ldo.h, lmem.h, lobject.h, lstate.h, lstring.h, lvm.h)
+lopcodes.c (lopcodes.h)
+lparser.c (lua.h, lcode.h, ldebug.h, ldo.h, lfunc.h, llex.h, lmem.h, lobject.h, lopcodes.h, lparser.h, lstate.h, lstring.h, ltable.h)
+lstate.c (lua.h, lapi.h, ldebug.h, ldo.h, lfunc.h, lgc.h, llex.h, lmem.h, lstate.h, lstring.h, ltable.h, ltm.h)
+lstring.c (lua.h, lmem.h, lobject.h, lstate.h, lstring.h)
+ltable.c (lua.h, ldebug.h, ldo.h, lgc.h, lmem.h, lobject.h, lstate.h, lstring.h, ltable.h, lvm.h)
+ltm.c (lua.h, lobject.h, lstate.h, lstring.h, ltable.h, ltm.h)
+lundump.c (lua.h, ldebug.h, ldo.h, lfunc.h, lmem.h, lobject.h, lstring.h, lundump.h, lzio.h)
+lvm.c (lua.h, ldebug.h, ldo.h, lfunc.h, lgc.h, lobject.h, lopcodes.h, lstate.h, lstring.h, ltable.h, ltm.h, lvm.h)
+lzio.c (lua.h, llimits.h, lmem.h, lstate.h, lzio.h)
+lauxlib.c (lua.h, lauxlib.h)
+lbaselib.c (lua.h, lauxlib.h, lualib.h)
+lbitlib.c (lua.h, lauxlib.h, lualib.h)
+lcorolib.c (lua.h, lauxlib.h, lualib.h)
+ldblib.c (lua.h, lauxlib.h, lualib.h)
+liolib.c (lua.h, lauxlib.h, lualib.h)
+lmathlib.c (lua.h, lauxlib.h, lualib.h)
+loslib.c (lua.h, lauxlib.h, lualib.h)
+lstrlib.c (lua.h, lauxlib.h, lualib.h)
+ltablib.c (lua.h, lauxlib.h, lualib.h)
+lutf8lib.c (lua.h, lauxlib.h, lualib.h)
+loadlib.c (lua.h, lauxlib.h, lualib.h)
+linit.c (lua.h, lualib.h, lauxlib.h)
+lua.c (lua.h, lauxlib.h, lualib.h)
+
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+; PURE C LIBRARIES
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+LIB\PCFLTLIB.LIB ; floating point library
+LIB\PCSTDLIB.LIB ; stanhard library
+
+;******** Librarys *********
+
+h:\lib\PCEXTLIB.LIB ; stanhard library
+h:\lib\PCTOSLIB.LIB ; TOS library
+
+;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
diff -Nur lua530o/src/lvm.c lua530n/src/lvm.c
--- lua530o/src/lvm.c 2014年12月27日 21:30:38.000000000 +0100
+++ lua530n/src/lvm.c 2015年01月05日 20:50:56.000000000 +0100
@@ -243,7 +243,7 @@
const char *r = getstr(rs);
size_t lr = rs->len;
for (;;) { /* for each segment */
- int temp = strcoll(l, r);
+ int temp = strcmp(l, r);
if (temp != 0) /* not equal? */
return temp; /* done */
else { /* strings are equal up to a '0円' */
Attachment:
lua53_tos.png
Description: PNG image
