open-autonomous-connection/luaj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 2 Wiki Activity

Add table.getn() for compatibility

Browse Source
This commit is contained in:
James Roseborough
2007-12-08 01:20:30 +00:00
parent 9706564647
commit 0f3fe0452d
2 changed files with 28 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/core/org/luaj/lib/TableLib.java
View File

@@ -36,6 +36,7 @@ public class TableLib extends LFunction {
public static final String[] NAMES = { public static final String[] NAMES = {
"table", "table",
"concat", "concat",
"getn",
"insert", "insert",
"maxn", "maxn",
"remove", "remove",
@@ -44,10 +45,11 @@ public class TableLib extends LFunction {
private static final int INSTALL = 0; private static final int INSTALL = 0;
private static final int CONCAT = 1; private static final int CONCAT = 1;
private static final int INSERT = 2; private static final int GETN = 2;
private static final int MAXN = 3; private static final int INSERT = 3;
private static final int REMOVE = 4; private static final int MAXN = 4;
private static final int SORT = 5; private static final int REMOVE = 5;
private static final int SORT = 6;
public static void install( LTable globals ) { public static void install( LTable globals ) {
LTable table = new LTable(); LTable table = new LTable();
@@ -114,12 +116,10 @@ public class TableLib extends LFunction {
} }
break; break;
} }
/* table.insert (table, [pos,] value) /* table.getn (table)
* *
* Inserts element value at position pos in table, shifting up other elements to open space, if necessary. * Get length of table t.
* The default value for pos is n+1, where n is the length of the table (see §2.5.5), so that a call
* table.insert(t,x) inserts x at the end of table t.
*/ */
case INSERT: { case INSERT: {
int n = vm.gettop(); int n = vm.gettop();
@@ -129,6 +129,19 @@ public class TableLib extends LFunction {
table.luaInsertPos( pos, value ); table.luaInsertPos( pos, value );
break; break;
} }
/* table.insert (table, [pos,] value)
*
* Inserts element value at position pos in table, shifting up other elements to open space, if necessary.
* The default value for pos is n+1, where n is the length of the table (see §2.5.5), so that a call
* table.insert(t,x) inserts x at the end of table t.
*/
case GETN: {
LTable table = vm.totable(2);
vm.resettop();
vm.pushinteger(table.luaLength());
break;
}
/* table.maxn (table) /* table.maxn (table)
* *

12
src/test/res/table.lua
View File

@@ -21,17 +21,17 @@ tryconcat( {} )
-- insert, maxn -- insert, maxn
print( '-- insert, maxn tests' ) print( '-- insert, maxn tests' )
local t = { "one", "two", "three", a='aaa', b='bbb', c='ccc' } local t = { "one", "two", "three", a='aaa', b='bbb', c='ccc' }
print( table.concat(t,'-'), table.maxn(t), #t ) print( table.concat(t,'-'), table.maxn(t), #t, table.getn(t) )
table.insert(t,'six') table.insert(t,'six')
print( table.concat(t,'-'), table.maxn(t), #t ) print( table.concat(t,'-'), table.maxn(t), #t, table.getn(t) )
table.insert(t,1,'seven') table.insert(t,1,'seven')
print( table.concat(t,'-'), table.maxn(t), #t ) print( table.concat(t,'-'), table.maxn(t), #t, table.getn(t) )
table.insert(t,4,'eight') table.insert(t,4,'eight')
print( table.concat(t,'-'), table.maxn(t), #t ) print( table.concat(t,'-'), table.maxn(t), #t, table.getn(t) )
table.insert(t,7,'nine') table.insert(t,7,'nine')
print( table.concat(t,'-'), table.maxn(t), #t ) print( table.concat(t,'-'), table.maxn(t), #t, table.getn(t) )
table.insert(t,10,'ten') table.insert(t,10,'ten')
print( table.concat(t,'-'), table.maxn(t), #t ) print( table.concat(t,'-'), table.maxn(t), #t, table.getn(t) )
print( t[10] ) print( t[10] )
print( table.maxn({}), #{} ) print( table.maxn({}), #{} )