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 = {
"table",
"concat",
"getn",
"insert",
"maxn",
"remove",
@@ -44,10 +45,11 @@ public class TableLib extends LFunction {
private static final int INSTALL = 0;
private static final int CONCAT = 1;
private static final int INSERT = 2;
private static final int MAXN = 3;
private static final int REMOVE = 4;
private static final int SORT = 5;
private static final int GETN = 2;
private static final int INSERT = 3;
private static final int MAXN = 4;
private static final int REMOVE = 5;
private static final int SORT = 6;
public static void install( LTable globals ) {
LTable table = new LTable();
@@ -114,12 +116,10 @@ public class TableLib extends LFunction {
}
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.
* 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.
* Get length of table t.
*/
case INSERT: {
int n = vm.gettop();
@@ -129,6 +129,19 @@ public class TableLib extends LFunction {
table.luaInsertPos( pos, value );
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)
*

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

@@ -21,17 +21,17 @@ tryconcat( {} )
-- insert, maxn
print( '-- insert, maxn tests' )
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')
print( table.concat(t,'-'), table.maxn(t), #t )
print( table.concat(t,'-'), table.maxn(t), #t, table.getn(t) )
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')
print( table.concat(t,'-'), table.maxn(t), #t )
print( table.concat(t,'-'), table.maxn(t), #t, table.getn(t) )
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')
print( table.concat(t,'-'), table.maxn(t), #t )
print( table.concat(t,'-'), table.maxn(t), #t, table.getn(t) )
print( t[10] )
print( table.maxn({}), #{} )