Mercurial Hosting > luan
annotate core/src/luan/LuanMeta.java @ 416:91af5337b9ae
add LuanMeta.__tostring()
| author | Franklin Schmidt <fschmidt@gmail.com> |
|---|---|
| date | Thu, 30 Apr 2015 06:28:25 -0600 |
| parents | ce8e19567911 |
| children | dae264ad6a7b |
| rev | line source |
|---|---|
| 405 | 1 package luan; |
| 2 | |
| 3 import java.util.Map; | |
| 413 | 4 import java.util.Iterator; |
| 5 import java.util.Set; | |
| 6 import java.util.HashSet; | |
| 405 | 7 |
| 8 | |
| 413 | 9 public abstract class LuanMeta { |
| 405 | 10 |
| 11 public abstract Object __index(LuanState luan,LuanTable tbl,Object key) throws LuanException; | |
| 12 | |
|
415
ce8e19567911
make LuanPropertyMeta a singleton
Franklin Schmidt <fschmidt@gmail.com>
parents:
413
diff
changeset
|
13 protected abstract Iterator keys(LuanTable tbl); |
| 413 | 14 |
| 15 public LuanFunction __pairs(final LuanState luan,final LuanTable tbl) { | |
| 16 return new LuanFunction() { | |
| 17 final Iterator<Map.Entry<Object,Object>> iter1 = tbl.iterator(); | |
|
415
ce8e19567911
make LuanPropertyMeta a singleton
Franklin Schmidt <fschmidt@gmail.com>
parents:
413
diff
changeset
|
18 final Iterator<Object> iter2 = keys(tbl); |
| 413 | 19 final Set<Object> set = new HashSet<Object>(); |
| 20 | |
| 21 @Override public Object[] call(LuanState luan,Object[] args) throws LuanException { | |
| 22 if( iter1.hasNext() ) { | |
| 23 Map.Entry<Object,Object> entry = iter1.next(); | |
| 24 Object key = entry.getKey(); | |
| 25 set.add(key); | |
| 26 return new Object[]{key,entry.getValue()}; | |
| 27 } | |
| 28 while( iter2.hasNext() ) { | |
| 29 Object key = iter2.next(); | |
| 30 if( set.add(key) ) { | |
| 31 Object value = __index(luan,tbl,key); | |
| 32 return new Object[]{key,value}; | |
| 33 } | |
| 34 } | |
| 35 return LuanFunction.NOTHING; | |
| 36 } | |
| 37 }; | |
| 38 } | |
| 405 | 39 |
| 40 public boolean canNewindex() { | |
| 41 return false; | |
| 42 } | |
| 43 | |
| 44 public void __newindex(LuanState luan,LuanTable tbl,Object key,Object value) throws LuanException { | |
| 45 throw new UnsupportedOperationException(); | |
| 46 } | |
| 47 | |
|
416
91af5337b9ae
add LuanMeta.__tostring()
Franklin Schmidt <fschmidt@gmail.com>
parents:
415
diff
changeset
|
48 protected abstract String type(LuanTable tbl); |
|
91af5337b9ae
add LuanMeta.__tostring()
Franklin Schmidt <fschmidt@gmail.com>
parents:
415
diff
changeset
|
49 |
|
91af5337b9ae
add LuanMeta.__tostring()
Franklin Schmidt <fschmidt@gmail.com>
parents:
415
diff
changeset
|
50 public String __tostring(LuanState luan,LuanTable tbl) throws LuanException { |
|
91af5337b9ae
add LuanMeta.__tostring()
Franklin Schmidt <fschmidt@gmail.com>
parents:
415
diff
changeset
|
51 return type(tbl) + "-" + tbl; |
|
91af5337b9ae
add LuanMeta.__tostring()
Franklin Schmidt <fschmidt@gmail.com>
parents:
415
diff
changeset
|
52 } |
|
91af5337b9ae
add LuanMeta.__tostring()
Franklin Schmidt <fschmidt@gmail.com>
parents:
415
diff
changeset
|
53 |
| 405 | 54 public LuanTable newMetatable() { |
|
408
1b38de2b1845
merge LuanTableImpl into LuanTable
Franklin Schmidt <fschmidt@gmail.com>
parents:
405
diff
changeset
|
55 LuanTable mt = new LuanTable(); |
| 405 | 56 mt.put( "__index", this ); |
| 413 | 57 mt.put( "__pairs", this ); |
|
416
91af5337b9ae
add LuanMeta.__tostring()
Franklin Schmidt <fschmidt@gmail.com>
parents:
415
diff
changeset
|
58 mt.put( "__tostring", this ); |
| 405 | 59 if( canNewindex() ) |
| 60 mt.put( "__newindex", this ); | |
| 61 return mt; | |
| 62 } | |
| 63 | |
| 64 public LuanTable newTable() { | |
|
408
1b38de2b1845
merge LuanTableImpl into LuanTable
Franklin Schmidt <fschmidt@gmail.com>
parents:
405
diff
changeset
|
65 LuanTable tbl = new LuanTable(); |
| 405 | 66 tbl.setMetatable( newMetatable() ); |
| 67 return tbl; | |
| 68 } | |
| 69 } |