1
0
mirror of https://github.com/gnosygnu/xowa.git synced 2026-03-02 03:49:30 +00:00

Res: Add resources from xowa_app_windows_64_v4.5.26.1810

This commit is contained in:
gnosygnu
2018-11-02 09:58:55 -04:00
parent a672fd8340
commit 5721913241
6057 changed files with 1156950 additions and 0 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@@ -0,0 +1,602 @@
NOTE: This page is also in XOWA under home/wiki/Help:Luaj
== Source ==
The luaj_xowa.jar was built using the source at http://sourceforge.net/projects/luaj/files/luaj-3.0/3.0-beta2/luaj-3.0-beta2.zip/download.
Its source is not currently included with XOWA. It is available at the following location: https://sourceforge.net/projects/xowa/files/support/luaj/
== Modification ==
The luaj_xowa.jar was created for the following reasons:
* Backward compatibility:
: Scribunto is currently using Lua 5.1 whereas luaj 3.0 is designed for Lua 5.2
: Lua 5.2 is not backward-compatible with Lua 5.1; several functions are obsoleted (for example, table.maxn)
: The luaj_xowa.jar was tailored to support Scribunto's 5.1 environment.
* Patches / bug fixes:
: Luaj has a handful of minor issues / defects. They are listed below.
== $engines variable ==
Note that the $engines variable refers to /xowa/bin/any/lua/mediawiki/extensions/Scribunto/engines/
== Luaj changes ==
=== Luaj 2.0.3 errors fixed in 3.0 ===
==== os.time doesn't handle dates before 1970 ====
* fix : incorrect Birth / Date; EX: ru.w:Пушкин,_Александр_Сергеевич
* file: /src/core/org/luaj/vm2/lib/OsLib.java
==== pairs.next fails when setting val to null ====
* fix : Finnish declension table; EX:d:Latvia
* file: /src/core/org/luaj/vm2/LuaTable.java
=== Luaj 2.0.3 features removed from 3.0 ===
==== string.gfind deprecated ====
* fix : missing Video_game_reviews; EX: w:Sonic_Heroes
* file: /src/core/org/luaj/vm2/lib/StringLib.java
* code: call
<pre>
old:
"sub"} );
new:
"sub", "gfind"} );
</pre>
* code: invoke
<pre>
add:
case 4:
case 9: return StringLib.gmatch( args );
</pre>
==== math.log10 deprecated ====
* fix : blank references; EX:w:Earth
* file: /src/jse/org/luaj/vm2/lib/JseMathLib.java
* code:
<pre>
math.set("log10", new log10());
static final class log10 extends UnaryOp { protected double call(double d) { return Math.log10(d); } }
</pre>
==== math.mod deprecated ====
* fix : missing table; EX:d:աղբիւր
* file: /src/core/org/luaj/vm2/lib/MathLib.java
* code:
<pre>
fmod fmod_func = new fmod();
math.set("mod", fmod_func);
math.set("fmod", fmod_func);
</pre>
==== table.maxn deprecated ====
file: /src/core/org/luaj/vm2/lib/TableLib.java
* code:
<pre>
public LuaValue getn() {
int len = length();
for (int n = len; n > 0; --n )
if ( !rawget(n).isnil() )
return LuaInteger.valueOf(n);
return ZERO;
}
</pre>
file: /src/core/org/luaj/vm2/lib/TableLib.java
<pre>
table.set("maxn", new maxn());
static class maxn extends OneArgFunction {
public LuaValue call(LuaValue arg) {
return LuaValue.valueOf(arg.checktable().maxn());
}
}
</pre>
==== table.getn deprecated ====
* fix : missing text; EX: d:aceite d:Module:pt-verb-form-of
* file: /src/core/org/luaj/vm2/LuaTable.java
code:
<pre>
public LuaValue getn() {
int len = length();
for (int n = len; n > 0; --n )
if ( !rawget(n).isnil() )
return LuaInteger.valueOf(n);
return ZERO;
}
</pre>
* file: /src/core/org/luaj/vm2/lib/TableLib.java
* code:
<pre>
table.set("getn", new getn());
static class getn extends OneArgFunction {
public LuaValue call(LuaValue arg) {
return arg.checktable().getn();
}
}
</pre>
==== automatic arg variable in varargs function deprecated ====
* fix : Horizontal timeline; EX: w:Cretaceous%E2%80%93Paleogene_extinction_event
* file: /src/core/org/luaj/vm2/LuaClosure.java
code:
<pre>
case Lua.OP_GETTABUP: /* A B C R(A) := UpValue[B][RK(C)] */
// stack[a] = upValues[i>>>23].getValue().get((c=(i>>14)&0x1ff)>0xff? k[c&0x0ff]: stack[c]);
// HACK: handle deprecated "arg" for "..."
int OP_GETTABUP_c = (i>>14)&0x1ff;
boolean OP_GETTABUP_b = OP_GETTABUP_c>0xff;
LuaValue OP_GETTABUP_idx = OP_GETTABUP_b ? k[OP_GETTABUP_c&0x0ff]: stack[OP_GETTABUP_c];
stack[a] = upValues[i>>>23].getValue().get(OP_GETTABUP_idx);
// HACK: handle deprecated "arg"
if ( p.is_vararg == 1
&& stack[a] == NIL
&& OP_GETTABUP_b
&& "arg".equals(OP_GETTABUP_idx.tojstring())
)
stack[a] = new LuaTable(varargs);
continue;
</pre>
=== Luaj 3.0 defects ===
==== os.date does not accept UTC format ====
* fix : incorrect age in ym; EX:w:Supreme_Court_of_the_United_States
* file: /src/core/org/luaj/vm2/lib/OsLib.java
* proc: invoke.DATE
<pre>
boolean utc = false;
if (s.startsWith("!")) {
utc = true;
s = s.substring(1);
}
if (s.equals("*t")) {
Calendar d = Calendar.getInstance();
long time_in_ms = (long)(t*1000);
if (utc) {
java.util.TimeZone current_tz = d.getTimeZone();
int offset_from_utc = current_tz.getOffset(time_in_ms);
time_in_ms += -offset_from_utc;
}
</pre>
==== string.gsub fails with out_of_bounds error ====
* fix : blank references; EX:w:Earth
* file: /src/core/org/luaj/vm2/lib/StringLib.java
* proc: gsub
<pre>
old:
if ( anchor )
break;
new:
if ( anchor )
break;
if (soffset >= srclen) break; // assert soffset is in bounds, else will throw ArrayIndexOutOfBounds exception;
</pre>
==== string.gsub fails if string is empty====
* fix : blank references; EX:w:Woburn,_Massachusetts
* file: /src/core/org/luaj/vm2/lib/StringLib.java
* proc: gsub
<pre>
static Varargs gsub( Varargs args ) {
LuaString src = args.checkstring( 1 );
final int srclen = src.length();
if (srclen == 0) return varargsOf(src, LuaValue.ZERO); // exit early
</pre>
==== string.format ignores precision for double args ====
* fix : Convert calls will show full precision for numbers; EX:w:Tomato
* file: /src/core/org/luaj/vm2/lib/StringLib.java
<pre>
old:
case 'G':
fdsc.format( result, args.checkdouble( arg ) );
new:
case 'c': // merged c with e E f F g G
fdsc.format( result, fmt.tojstring().substring(i - fdsc.length, i), args.checkdouble( arg ));
</pre>
* proc: format
<pre>
old:
buf.append( v) );
new:
try {
fmtstr = "%" + fmtstr; // % stripped above
buf.append( String.format(fmtstr, v) ); // call String.format
}catch (java.util.MissingFormatWidthException e) {
// HACK: handle invalid format of "%0.1f" -> "%.1f"; %0 should be followed by valid number, but in this case, ignore it;
String old_fmt = e.getFormatSpecifier();
if (old_fmt.startsWith("0")) {
String new_fmt = old_fmt.substring(1); // remove initial 0
fmtstr = fmtstr.replace(old_fmt, new_fmt);
buf.append( String.format(fmtstr, v) ); // call String.format
}
else
throw e;
}
</pre>
* note: forces a 1.5 JRE (as opposed to 1.3)
==== string.tonumber should trim all whitespace ====
* fix: Population tables; EX: w:Woburn,_Massachusetts
* file: /src/core/org/luaj/vm2/LuaString.java
* proc: scannumber
<pre>
// trim ws
int idx = i;
while (idx < j) {
switch (m_bytes[idx]) {
case 9: case 10: case 13: case 32:
++idx;
i = idx;
break;
default:
idx = j;
break;
}
}
idx = j - 1;
while (idx >= i) {
switch (m_bytes[idx]) {
case 9: case 10: case 13: case 32:
j = idx;
--idx;
break;
default:
idx = i -1;
break;
}
}
</pre>
==== multi-byte strings not fully supported ====
* fix : Thai calendar; EX:th.w:เหตุการณ์ปัจจุบัน
* file: /src/core/org/luaj/vm2/LuaString.java
<pre style='overflow:auto'>
public static LuaString valueOf(char[] chars, int off, int len) {
// COMMENTED: does not handle 2+ byte chars; assumes 1 char = 1 byte
// byte[] b = new byte[len];
// for ( int i=0; i<len; i++ )
// b[i] = (byte) chars[i + off];
// return valueOf(b, 0, len);
int bry_len = 0;
for (int i = 0; i < len; i++) // iterate over chars to sum all single / multi-byte chars
bry_len += LuaString.Utf8_len_by_int((int)(chars[i + off]));
byte[] bry = new byte[bry_len];
int bry_idx = 0;
for (int i = 0; i < len; i++) {
int c = (int)(chars[i + off]);
int c_len_in_bytes = LuaString.Utf8_encode_by_int(c, bry, bry_idx);
bry_idx += c_len_in_bytes;
}
return valueOf(bry, 0, bry_len);
}
public static String decodeAsUtf8(byte[] bytes, int offset, int length) {
// COMMENTED: does not handle 3+ byte chars
// int i,j,n,b;
// for ( i=offset,j=offset+length,n=0; i<j; ++n ) {
// switch ( 0xE0 & bytes[i++] ) {
// case 0xE0: ++i;
// case 0xC0: ++i;
// }
// }
// char[] chars=new char[n];
// for ( i=offset,j=offset+length,n=0; i<j; ) {
// chars[n++] = (char) (
// ((b=bytes[i++])>=0||i>=j)? b:
// (b<-32||i+1>=j)? (((b&0x3f) << 6) | (bytes[i++]&0x3f)):
// (((b&0xf) << 12) | ((bytes[i++]&0x3f)<<6) | (bytes[i++]&0x3f)));
// }
// return new String(chars);
return new String(bytes, offset, length, java.nio.charset.Charset.forName("UTF-8"));
}
public static int lengthAsUtf8(char[] chars) {
// COMMENTED: does not handle 3+ byte chars
// int i,b;
// char c;
// for ( i=b=chars.length; --i>=0; )
// if ( (c=chars[i]) >=0x80 )
// b += (c>=0x800)? 2: 1;
// return b;
int len = chars.length;
int rv = 0;
for (int i = 0; i < len; i++)
rv += LuaString.Utf8_len_by_int(chars[i]);
return rv;
}
public static int encodeToUtf8(char[] chars, int nchars, byte[] bytes, int off) {
// COMMENTED: does not handle 4+ byte chars; already using Encode_by_int, so might as well be consistent
// char c;
// int j = off;
// for ( int i=0; i<nchars; i++ ) {
// if ( (c = chars[i]) < 0x80 ) {
// bytes[j++] = (byte) c;
// } else if ( c < 0x800 ) {
// bytes[j++] = (byte) (0xC0 | ((c>>6) & 0x1f));
// bytes[j++] = (byte) (0x80 | ( c & 0x3f));
// } else {
// bytes[j++] = (byte) (0xE0 | ((c>>12) & 0x0f));
// bytes[j++] = (byte) (0x80 | ((c>>6) & 0x3f));
// bytes[j++] = (byte) (0x80 | ( c & 0x3f));
// }
// }
// return j - off;
int bry_idx = off;
for (int i = 0; i < nchars; i++ ) {
int c = chars[i];
int c_len_in_bytes = LuaString.Utf8_encode_by_int(c, bytes, bry_idx);
bry_idx += c_len_in_bytes;
}
return nchars; // NOTE: code returned # of bytes which is wrong; Globals.UTF8Stream.read caches rv as j which is used as index to char[] not byte[]; will throw out of bounds exception if bytes returned
}
public static int Utf8_len_by_int(int charAsInt) {
if (charAsInt < 0x80) return 1;
else if (charAsInt < (1 << 11)) return 2;
else if (charAsInt < (1 << 16)) return 3;
else if (charAsInt < (1 << 21)) return 4;
else if (charAsInt < (1 << 26)) return 5;
else return 6;
}
public static int Utf8_len_by_byte(byte b) {
int i = b & 0xff;
switch (i) {
case 0: case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11: case 12: case 13: case 14: case 15:
case 16: case 17: case 18: case 19: case 20: case 21: case 22: case 23: case 24: case 25: case 26: case 27: case 28: case 29: case 30: case 31:
case 32: case 33: case 34: case 35: case 36: case 37: case 38: case 39: case 40: case 41: case 42: case 43: case 44: case 45: case 46: case 47:
case 48: case 49: case 50: case 51: case 52: case 53: case 54: case 55: case 56: case 57: case 58: case 59: case 60: case 61: case 62: case 63:
case 64: case 65: case 66: case 67: case 68: case 69: case 70: case 71: case 72: case 73: case 74: case 75: case 76: case 77: case 78: case 79:
case 80: case 81: case 82: case 83: case 84: case 85: case 86: case 87: case 88: case 89: case 90: case 91: case 92: case 93: case 94: case 95:
case 96: case 97: case 98: case 99: case 100: case 101: case 102: case 103: case 104: case 105: case 106: case 107: case 108: case 109: case 110: case 111:
case 112: case 113: case 114: case 115: case 116: case 117: case 118: case 119: case 120: case 121: case 122: case 123: case 124: case 125: case 126: case 127:
case 128: case 129: case 130: case 131: case 132: case 133: case 134: case 135: case 136: case 137: case 138: case 139: case 140: case 141: case 142: case 143:
case 144: case 145: case 146: case 147: case 148: case 149: case 150: case 151: case 152: case 153: case 154: case 155: case 156: case 157: case 158: case 159:
case 160: case 161: case 162: case 163: case 164: case 165: case 166: case 167: case 168: case 169: case 170: case 171: case 172: case 173: case 174: case 175:
case 176: case 177: case 178: case 179: case 180: case 181: case 182: case 183: case 184: case 185: case 186: case 187: case 188: case 189: case 190: case 191:
return 1;
case 192: case 193: case 194: case 195: case 196: case 197: case 198: case 199: case 200: case 201: case 202: case 203: case 204: case 205: case 206: case 207:
case 208: case 209: case 210: case 211: case 212: case 213: case 214: case 215: case 216: case 217: case 218: case 219: case 220: case 221: case 222: case 223:
return 2;
case 224: case 225: case 226: case 227: case 228: case 229: case 230: case 231: case 232: case 233: case 234: case 235: case 236: case 237: case 238: case 239:
return 3;
case 240: case 241: case 242: case 243: case 244: case 245: case 246: case 247:
return 4;
case 248: case 249: case 250: case 251:
return 5;
case 252: case 253:
return 6;
case 254: case 255:
default:
return 6;
}
}
public static int Utf8_decode_to_int(byte[] ary, int pos) {
byte b0 = ary[pos];
if ((b0 & 0x80) == 0) {
return b0;
}
else if ((b0 & 0xE0) == 0xC0) {
return ( b0 & 0x1f) << 6
| ( ary[pos + 1] & 0x3f)
;
}
else if ((b0 & 0xF0) == 0xE0) {
return ( b0 & 0x0f) << 12
| ((ary[pos + 1] & 0x3f) << 6)
| ( ary[pos + 2] & 0x3f)
;
}
else if ((b0 & 0xF8) == 0xF0) {
return ( b0 & 0x07) << 18
| ((ary[pos + 1] & 0x3f) << 12)
| ((ary[pos + 2] & 0x3f) << 6)
| ( ary[pos + 3] & 0x3f)
;
}
else if ((b0 & 0xFC) == 0xF8) {
return ( b0 & 0x03) << 24
| ((ary[pos + 1] & 0x3f) << 18)
| ((ary[pos + 2] & 0x3f) << 12)
| ((ary[pos + 3] & 0x3f) << 6)
| ( ary[pos + 4] & 0x3f)
;
}
else if ((b0 & 0xFC) == 0xFC) {
return ( b0 & 0x03) << 30
| ((ary[pos + 1] & 0x3f) << 24)
| ((ary[pos + 2] & 0x3f) << 18)
| ((ary[pos + 3] & 0x3f) << 12)
| ((ary[pos + 4] & 0x3f) << 6)
| ( ary[pos + 5] & 0x3f)
;
}
else {
return b0 & 0xFF;
}
}
public static int Utf8_encode_by_int(int charAsInt, byte[] src, int pos) {
if (charAsInt < 0x80) {
src[pos] = (byte)charAsInt;
return 1;
}
else if (charAsInt < (1 << 11)) {
src[pos] = (byte)(0xC0 | (charAsInt >> 6));
src[++pos] = (byte)(0x80 | (charAsInt & 0x3F));
return 2;
}
else if (charAsInt < (1 << 16)) {
src[pos] = (byte)(0xE0 | (charAsInt >> 12));
src[++pos] = (byte)(0x80 | (charAsInt >> 6) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt & 0x3F));
return 3;
}
else if (charAsInt < (1 << 21)) {
src[pos] = (byte)(0xF0 | (charAsInt >> 18));
src[++pos] = (byte)(0x80 | (charAsInt >> 12) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt >> 6) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt & 0x3F));
return 4;
}
else if (charAsInt < (1 << 26)) {
src[pos] = (byte)(0xF8 | (charAsInt >> 24));
src[++pos] = (byte)(0x80 | (charAsInt >> 18) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt >> 12) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt >> 6) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt & 0x3F));
return 5;
}
else if (charAsInt < (1 << 31)) {
src[pos] = (byte)(0xFC | (charAsInt >> 30));
src[++pos] = (byte)(0x80 | (charAsInt >> 24) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt >> 18) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt >> 12) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt >> 6) & 0x3F);
src[++pos] = (byte)(0x80 | (charAsInt & 0x3F));
return 6;
}
else if (charAsInt == 0) {
src[pos] = (byte)0xC0;
src[++pos] = (byte)0x80;
return -1;
}
return -1;
}
</pre>
* file: /src/core/org/luaj/vm2/compiler/LexState.java
* proc: read_string
<pre style='overflow:auto'>
if (c > UCHAR_MAX)
lexerror("escape sequence too large", TK_STRING);
save(c, false); // NOTE: specify that c is integer and does not need conversion; EX: \128 -> 128 -> (char)128, not Utf8_encode(128)
</pre>
* file: /src/core/org/luaj/vm2/compiler/LexState.java
<pre style='overflow:auto'>
void save(int c) {save(c, true);}
void save(int c, boolean c_might_be_utf8) {
int bytes_len = c_might_be_utf8 ? LuaString.Utf8_len_by_byte((byte)c) : 1;
if (bytes_len > 1) { // c is 1st byte of utf8 multi-byte sequence; read required number of bytes and convert to char; EX: ← is serialized in z as 226,134,144; c is currently 226; read 134 and 144 and convert to ←
temp_bry[0] = (byte)c;
for (int i = 1; i < bytes_len; i++) {
nextChar();
temp_bry[i] = (byte)current;
}
c = LuaString.Utf8_decode_to_int(temp_bry, 0);
}
if ( buff == null || nbuff + 1 > buff.length )
buff = LuaC.realloc( buff, nbuff*2+1 );
buff[nbuff++] = (char)c;
}
private static byte[] temp_bry = new byte[6];
</pre>
=== build.xml ===
* note: this change is needed to get luaj to compile with the String.format(String, double) call
* file: build.xml
<pre>
old:
<javac destdir="build/jme/classes" encoding="utf-8" source="1.3" target="1.2" bootclasspathref="wtk-libs"
srcdir="build/jme/src"/>
<javac destdir="build/jse/classes" encoding="utf-8" source="1.3" target="1.3"
classpath="lib/bcel-5.2.jar"
srcdir="build/jse/src"
excludes="**/script/*,**/Lua2Java*,lua*"/>
<javac destdir="build/jse/classes" encoding="utf-8" source="1.5" target="1.5"
classpath="build/jse/classes"
srcdir="build/jse/src"
includes="**/script/*,**/Lua2Java*"/>
<javac destdir="build/jse/classes" encoding="utf-8" source="1.3" target="1.3"
classpath="build/jse/classes"
srcdir="build/jse/src"
includes="lua*"/>
new:
<javac destdir="build/jse/classes" encoding="utf-8" source="1.5" target="1.5"
classpath="lib/bcel-5.2.jar"
srcdir="build/jse/src"
excludes="**/script/*,**/Lua2Java*,lua*"/>
<javac destdir="build/jse/classes" encoding="utf-8" source="1.5" target="1.5"
classpath="build/jse/classes"
srcdir="build/jse/src"
includes="**/script/*,**/Lua2Java*"/>
<javac destdir="build/jse/classes" encoding="utf-8" source="1.5" target="1.5"
classpath="build/jse/classes"
srcdir="build/jse/src"
includes="lua*"/>
</pre>
=== Luaj tests ===
<pre>
package org.luaj.vm2;
import org.luaj.vm2.lib.StringLib;
import junit.framework.*;
public class Xowa_tst extends TestCase {
private Xowa_fxt fxt = new Xowa_fxt();
public void test_tonumber_ws() {
fxt.Test_tonumber_int("123" , 123);
fxt.Test_tonumber_int("\t\n\r 123\t\n\r" , 123);
fxt.Test_tonumber_nil("1a");
fxt.Test_tonumber_nil("1 2");
fxt.Test_tonumber_nil("");
fxt.Test_tonumber_nil("\t\n\r \t\n\r");
}
public void test_gsub() {
fxt.Test_gsub("abc", "a", "A", "Abc"); // basic
fxt.Test_gsub("a#b", "#", "", "ab"); // match() fails when shortening string
fxt.Test_gsub("", "%b<>", "A", ""); // balance() fails with out of index when find is blank
}
public void test_format() {
fxt.Test_format("%.1f" , "1.23", "1.2"); // apply precision; 1 decimal place
fxt.Test_format("(%.1f)", "1.23", "(1.2)"); // handle substring; format_string should be "%.1f" not "(%.1f)"
fxt.Test_format("%0.1f" , "1.23", "1.2"); // handle invalid precision of 0
}
}
class Xowa_fxt {
public void Test_tonumber_int(String raw, int expd) {
LuaString actl_str = LuaString.valueOf(raw);
LuaInteger actl_int = (LuaInteger)actl_str.tonumber();
Assert.assertEquals(expd, actl_int.v);
}
public void Test_tonumber_nil(String raw) {
LuaString actl_str = LuaString.valueOf(raw);
Assert.assertEquals(LuaValue.NIL, actl_str.tonumber());
}
public void Test_gsub(String text, String regx, String repl, String expd) {
Varargs actl_args = StringLib.gsub_test(LuaValue.varargsOf(new LuaValue[] {LuaValue.valueOf(text), LuaValue.valueOf(regx), LuaValue.valueOf(repl)}));
Assert.assertEquals(expd, actl_args.checkstring(1).tojstring());
}
public void Test_format(String fmt, String val, String expd) {
Varargs actl_args = StringLib.format_test(LuaValue.varargsOf(new LuaValue[] {LuaValue.valueOf(fmt), LuaValue.valueOf(val)}));
Assert.assertEquals(expd, actl_args.checkstring(1).tojstring());
}
}
</pre>
== Scribunto related ==
None of these changes affect the luaj_xowa.jar. They are noted for comprehensiveness's sake.
=== getfenv/setfenv deprecated ===
* add lua-compat-env
: source: https://github.com/davidm/lua-compat-env
: target: $engines/LuaCommon/lualib/lua-compat-env .lua
* add alias to $engines/Luaj/mw_main.lua
: _G.getfenv = require 'compat_env'.getfenv
: _G.setfenv = require 'compat_env'.setfenv
* change xowa.jar to load debugLibrary
: Globals.load(new DebugLib());
=== loadString deprecated ===
* add alias to $engines/Luaj/mw_main.lua
: _G.loadstring = load
=== table.unpack deprecated ===
* add alias to $engines/Luaj/mw_main.lua
: _G.unpack = table.unpack

View File

@@ -0,0 +1,230 @@
/*
XOWA TCP console: A TCP console example for XOWA
Copyright (C) 2013 gnosygnu@gmail.com
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as
published by the Free Software Foundation, either version 3 of the
License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Affero General Public License for more details.
You should have received a copy of the GNU Affero General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
package gplx.xowa;
import java.io.BufferedReader;
import java.io.FileInputStream;
import java.io.IOException;
import java.io.InputStream;
import java.io.InputStreamReader;
import java.io.OutputStream;
import java.net.ServerSocket;
import java.net.Socket;
public class Xowa_tcp_console {
public static void main(String[] args) {
Xowa_tcp_console console = new Xowa_tcp_console();
console.Run(args);
}
private int server_send_port;
private int server_recv_port;
private String wiki_domain;
private int max_length;
private Xowa_tcp_sender sender;
public void Run(String[] args) {
Print_message_line("XOWA TCP client v0.0.0.0");
// parse args
if (!Parse_args(args)) {
Print_message_line("XOWA console requires 4 args: server_send_port, server_recv_port, wiki_domain, max_length.");
Print_message_line("For example, use '55000 55001 simple.wikipedia.org 1000'");
return;
}
// start sender
sender = new Xowa_tcp_sender(server_send_port);
// start console
BufferedReader input = new BufferedReader(new InputStreamReader(System.in));
Print_message_line("Enter page name. For example 'Earth'. Press Ctrl+C to exit. Enter '|server_stop' to stop server or '|exit' to exit.");
Print_message("> ");
try {
while (true) {
String page = Read_string(input);
if (page == null)
break;
else if ("|exit".equals(page))
break;
else if ("|server_stop".equals(page)) {
Send_message_server_stop();
}
else
Send_message_fetch_page(page);
}
}
catch (Exception e) {
Print_error(e);
}
}
private void Send_message_fetch_page(String page) {
Print_message_line("Sending request for " + page);
// String xowa_msg = "0|0000000128|0000000257|xowa.cmd.exec|id_0|sender_0|recipient_0|2013-07-18 01:23:45.678|app.shell.fetch_page('simple.wikipedia.org/wiki/Earth', 'html');";
String command = String.format("app.shell.fetch_page('%s/wiki/%s', 'wiki');", wiki_domain, page);
Send_message(command);
}
private void Send_message_server_stop() {
Print_message_line("Sending request to stop server");
Send_message("app.server.stop;");
}
private void Send_message(String command) {
String id = "id_is_for_client_usage";
String time = "time_is_for_client_usage";
String body = String.format("xowa.cmd.exec|%s|xowa_tcp_console|xowa_server|%s|%s", id, time, command);
int body_len = body.length();
int cksum = (body_len * 2) + 1;
String msg = String.format("0|%s|%s|%s", String.format("%010d", body_len), String.format("%010d", cksum), body);
Xowa_tcp_receiver receiver = new Xowa_tcp_receiver(server_recv_port, max_length);
new Thread(receiver).start();
sender.Send_command(msg);
}
private boolean Parse_args(String[] args) {
if (args.length != 4) {
Print_message_line("4 arguments must be supplied: " + args.length);
return false;
}
server_send_port = Parse_int(args[0]); if (server_send_port == -1) return false;
server_recv_port = Parse_int(args[1]); if (server_recv_port == -1) return false;
wiki_domain = args[2];
max_length = Parse_int(args[3]); if (max_length == -1) return false;
return true;
}
private static int Parse_int(String raw) {
try {return Integer.parseInt(raw);}
catch (Exception e) {
Print_message_line("argument must be numeric: " + raw);
return -1;
}
}
private static String Read_string(BufferedReader input) {
try {return input.readLine();}
catch (IOException e) {return null;}
}
public static void Print_message_line(String msg) {
System.out.println(msg);
}
public static void Print_message(String msg) {
System.out.print(msg);
}
public static void Print_error(Exception e) {
System.err.println(e.getMessage());
}
public static void Sleep(long millis) {
try {Thread.sleep(millis);}
catch (InterruptedException e) {Print_error(e);}
}
}
class Xowa_tcp_sender {
private int port;
private Socket socket;
private OutputStream output_stream;
public Xowa_tcp_sender(int port) {this.port = port;}
public boolean Open_socket() {
try {
socket = new Socket("localhost", port);
// socket.setSoTimeout(10000);
output_stream = socket.getOutputStream();
return true;
}
catch (Exception e) {
Xowa_tcp_console.Print_error(e);
return false;
}
}
public void Send_command(String msg) {
try {
while (!Open_socket()) {
Xowa_tcp_console.Sleep(100);
}
byte[] buffer = msg.getBytes();
output_stream.write(buffer, 0, buffer.length);
Close_socket();
}
catch (Exception e) {
Xowa_tcp_console.Print_error(e);
}
}
public void Close_socket() {
try {
output_stream.close();
socket.close();
}
catch (Exception e) {
Xowa_tcp_console.Print_error(e);
}
}
}
class Xowa_tcp_receiver implements Runnable {
private int port;
private int max_length;
private ServerSocket server_socket;
private Socket client_socket;
private InputStream input_stream;
public Xowa_tcp_receiver(int port, int max_length) {
this.port = port;
this.max_length = max_length;
}
public void run() {
try {
// initialization
server_socket = new ServerSocket(port);
client_socket = server_socket.accept();
// client_socket.setSoTimeout(10000);
byte[] buffer = new byte[65536];
input_stream = client_socket.getInputStream();
// read incoming messages
int read = 0;
while (true) {
String msg = "";
// read header
int body_len_max = 0, body_len_cur = 0;
read = input_stream.read(buffer, 0, 24);
if (read == -1) break;
String body_len_max_str = new String(buffer, 2, 10);
body_len_max = Integer.parseInt(body_len_max_str);
buffer = new byte[body_len_max];
// read rest of body
while (body_len_cur < body_len_max) {
read = input_stream.read(buffer);
if (read == -1) break;
body_len_cur += read;
msg += new String(buffer, 0, read);
}
int msg_length = msg.length();
if (msg_length > max_length) msg_length = max_length;
Xowa_tcp_console.Print_message_line(msg.substring(0, msg_length));
Xowa_tcp_console.Print_message("\n\n> ");
}
this.Close_socket();
}
catch (Exception e) {
Xowa_tcp_console.Print_error(e);
}
}
public void Close_socket() {
try {
input_stream.close();
client_socket.close();
server_socket.close();
}
catch (Exception e) {
// Xowa_tcp_console.Print_error(e); // ignore, else error will print in console
}
}
}

Binary file not shown.

Binary file not shown.