Mercurial Hosting > luan

annotate core/src/luan/impl/LeExpr.java @ 576:4723d22062ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove LuanBit
author Franklin Schmidt <fschmidt@gmail.com>
date Mon, 13 Jul 2015 20:38:26 -0600
parents b48cfa14ba60
children 60c549d43988
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
166
4eaee12f6c65 move luan/interp to impl
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 112
diff changeset
1 package luan.impl;
8
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
2
48
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 46
diff changeset
3 import luan.Luan;
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 46
diff changeset
4 import luan.LuanFunction;
64ecb7a3aad7 rename Lua to Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 46
diff changeset
5 import luan.LuanException;
460
b48cfa14ba60 improve stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 443
diff changeset
6 import luan.LuanElement;
8
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
7
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
8
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
9 final class LeExpr extends BinaryOpExpr {
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
10
460
b48cfa14ba60 improve stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 443
diff changeset
11 LeExpr(LuanElement el,Expr op1,Expr op2) {
b48cfa14ba60 improve stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 443
diff changeset
12 super(el,op1,op2);
8
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
13 }
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
14
49
8ede219cd111 add WebShell
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 48
diff changeset
15 @Override public Object eval(LuanStateImpl luan) throws LuanException {
192
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
16 return le(luan);
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
17 }
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
18
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
19 private boolean le(LuanStateImpl luan) throws LuanException {
49
8ede219cd111 add WebShell
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 48
diff changeset
20 Object o1 = op1.eval(luan);
8ede219cd111 add WebShell
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 48
diff changeset
21 Object o2 = op2.eval(luan);
46
a443637829c1 remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 40
diff changeset
22 if( o1 instanceof Number && o2 instanceof Number ) {
a443637829c1 remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 40
diff changeset
23 Number n1 = (Number)o1;
a443637829c1 remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 40
diff changeset
24 Number n2 = (Number)o2;
a443637829c1 remove LuaNumber
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 40
diff changeset
25 return n1.doubleValue() <= n2.doubleValue();
8
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
26 }
35
e51906de0f11 implement metatables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
27 if( o1 instanceof String && o2 instanceof String ) {
e51906de0f11 implement metatables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
28 String s1 = (String)o1;
e51906de0f11 implement metatables
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 31
diff changeset
29 String s2 = (String)o2;
8
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
30 return s1.compareTo(s2) <= 0;
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
31 }
576
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
32 luan.push(el,null);
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
33 try {
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
34 LuanFunction fn = luan.getBinHandler("__le",o1,o2);
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
35 if( fn != null )
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
36 return luan.checkBoolean( Luan.first(fn.call(luan,new Object[]{o1,o2})) );
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
37 fn = luan.getBinHandler("__lt",o1,o2);
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
38 if( fn != null )
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
39 return !luan.checkBoolean( Luan.first(fn.call(luan,new Object[]{o2,o1})) );
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
40 throw luan.exception( "attempt to compare " + Luan.type(o1) + " with " + Luan.type(o2) );
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
41 } finally {
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
42 luan.pop();
4723d22062ce remove LuanBit
Franklin Schmidt <fschmidt@gmail.com>
parents: 460
diff changeset
43 }
8
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
44 }
8896068e0a4b finish operators
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
45 }