nekotoro/bindx2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bind.chain refacttoring/optimizations

Browse Source
This commit is contained in:
Dima Granetchi
2014-11-20 00:04:13 +02:00
parent 82936c8dba
commit 28d3a5850a
2 changed files with 88 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/bindx/BindxExt.hx
+72 -65
View File
@@ -1,5 +1,6 @@
package bindx;
import haxe.macro.Context;
import haxe.macro.Printer;
#if macro
@@ -27,97 +28,114 @@ class BindExt {
}
#if macro
static function internalBindChain(expr:Expr, listener:Expr):Expr {
var printer = new haxe.macro.Printer();
static function checkFields(expr:Expr):Array<FieldExpr> {
var first = Bind.checkField(expr);
var prevField = {e:first.e, field:first.field, error:null};
var fields:Array<FieldExpr> = [{field:first.field, bindable:true, e:first.e}];
while (true) {
var fields:Array<FieldExpr> = [ { field:first.field, bindable:true, e:first.e } ];
inline function tryCheck(e:Expr) {
var field = null;
try {
field = Bind.tryCheckField(prevField.e);
if (field.field != null)
fields.push({field:field.field, bindable:field.error == null, e:field.e});
else if (field.error != null) {
var end = true;
switch (prevField.e.expr) {
case ECall(e, params):
field = Bind.tryCheckField(e);
fields.push({e:field.e, field:field.field, params:params, bindable:field.error == null});
end = false;
case _:
}
if (end) break;
field = Bind.tryCheckField(e);
} catch (e:FatalError) e.contextFatal();
return field;
}
while (true) {
var field = tryCheck(prevField.e);
if (field.field != null) {
fields.push( { field:field.field, bindable:field.error == null, e:field.e } );
} else if (field.error != null) {
var end = true;
switch (prevField.e.expr) {
case ECall(e, params):
field = tryCheck(e);
// TODO: test
if (field.error != null) field.error.contextError();
if (field.field == null)
Context.fatalError('error parse fields ${e.toString()}', e.pos);
fields.push( { e:field.e, field:field.field, params:params, bindable:field.error == null } );
end = false;
case _:
}
}
catch (e:FatalError) {
e.contextFatal();
if (end) break;
}
prevField = field;
}
for (it in fields)
trace(printer.printExpr(it.e) + " -> " + it.field.name + (it.params != null ? '(${printer.printExprs(it.params, ",")})' : "") + " bind:" + it.bindable);
//for (it in fields) trace(printer.printExpr(it.e) + " -> " + it.field.name + (it.params != null ? '(${printer.printExprs(it.params, ",")})' : "") + " bind:" + it.bindable);
return fields;
}
public static function internalBindChain(expr:Expr, listener:Expr):Expr {
var fields = checkFields(expr);
var chain = prepareBindChain(fields, listener, expr.pos);
var res = macro
$b { chain.bind.concat(chain.init).concat([macro function __unbind__():Void { $b { chain.unbind } }]) };
//trace(new Printer().printExpr(res));
return res;
}
static var ZERO_LISTENER = "listener0";
public static function prepareBindChain(fields:Array<FieldExpr>, listener:Expr, pos:Position):{init:Array<Expr>, bind:Array<Expr>, unbind:Array<Expr>} {
var res = { init:[], bind:[], unbind:[] };
res.bind.push(macro var $ZERO_LISTENER = $ { listener } );
var prevListenerName = ZERO_LISTENER;
var prevListenerNameExpr = macro $i { prevListenerName };
var zeroListener = { f:fields[0], l:prevListenerNameExpr };
var i = -1;
var res = [];
var unbindRes = [];
res.push(macro var listener0 = $ { listener } );
var zeroListener = null;
while (++i < fields.length - 1) {
var field = fields[i + 1];
var next = fields[i];
var prev = fields[i];
var listenerName = 'listener${i+1}';
var listenerNameExpr = macro $i { listenerName };
var nextListenerName = i == 0 ? 'listener0' : 'listener${i}';
var nextListenerNameExpr = macro $i { nextListenerName };
var value = 'value${i+1}';
var valueExpr = macro $i { value };
var fieldName = next.field.name;
var e = next.e;
var fieldName = prev.field.name;
var e = prev.e;
var fieldListenerBody = [];
var fieldListener:Expr;
if (next.bindable) zeroListener = { f:next, l:nextListenerNameExpr };
if (field.bindable) zeroListener = { f:field, l:listenerNameExpr };
if (field.bindable) {
var type = Context.typeof(field.e).toComplexType();
res.push(macro var $value:Null<$type> = null );
var bind = BindMacros.bindingSignalProvider.getClassFieldBindExpr(macro n, next.field, nextListenerNameExpr );
var unbind = BindMacros.bindingSignalProvider.getClassFieldUnbindExpr(valueExpr, next.field, nextListenerNameExpr );
res.bind.push(macro var $value:Null<$type> = null );
var unbind = BindMacros.bindingSignalProvider.getClassFieldUnbindExpr(valueExpr, prev.field, prevListenerNameExpr );
fieldListenerBody.push(macro
if (n != null) {
$ { bind }
$nextListenerNameExpr($a { next.params != null ? [] : [macro n.$fieldName, macro n.$fieldName] } );
$ { BindMacros.bindingSignalProvider.getClassFieldBindExpr(macro n, prev.field, prevListenerNameExpr ) }
$prevListenerNameExpr($a { prev.params != null ? [] : [macro n.$fieldName, macro n.$fieldName] } );
}
);
if (field.params != null) {
fieldListenerBody.unshift(macro $valueExpr = n );
fieldListenerBody.unshift(macro var n = $e );
fieldListenerBody.unshift(macro var n:Null<$type> = $valueExpr = $e );
fieldListenerBody.unshift(macro if ($valueExpr != null) $unbind );
fieldListener = macro function $listenerName () {
fieldListener = macro function $listenerName ():Void {
$b { fieldListenerBody };
};
}
else {
fieldListenerBody.unshift(macro $valueExpr = n );
fieldListenerBody.unshift(macro if ($valueExpr != null) $unbind );
fieldListenerBody.unshift(macro if (o != null) ${BindMacros.bindingSignalProvider.getClassFieldUnbindExpr(macro o, prev.field, prevListenerNameExpr )} );
fieldListener = macro function $listenerName (o:Null<$type>, n:Null<$type>) {
fieldListener = macro function $listenerName (o:Null<$type>, n:Null<$type>):Void {
$b { fieldListenerBody };
};
}
res.bind.push(fieldListener);
unbindRes.push(macro if ($valueExpr != null) $unbind);
unbindRes.push(macro $valueExpr = null );
//trace(printer.printExpr(unbind));
res.unbind.push(macro if ($valueExpr != null) { $unbind; $valueExpr = null; } );
}
else {
trace(printer.printExpr(field.e) + " . " + field.field.name);
//trace(printer.printExpr(field.e) + " . " + field.field.name);
/*if (field.params != null) {
fieldListenerBody.unshift(macro var n = $e );
@@ -131,36 +149,25 @@ class BindExt {
};
}*/
}
if (fieldListener != null) {
res.push(fieldListener);
}
prevListenerName = listenerName;
prevListenerNameExpr = listenerNameExpr;
}
if (zeroListener == null) {
Context.error("Chain is not bindable ", expr.pos);
Context.error("Chain is not bindable", pos);
}
var bind = BindMacros.bindingSignalProvider.getClassFieldBindExpr(zeroListener.f.e, zeroListener.f.field, zeroListener.l );
var unbind = BindMacros.bindingSignalProvider.getClassFieldUnbindExpr(zeroListener.f.e, zeroListener.f.field, zeroListener.l );
res.push(macro try { $bind; } catch (e:Dynamic) {
trace("Warning: Can't initialize chain binding " + Std.string(e));
});
unbindRes.push(macro try { $unbind; } catch (e:Dynamic) {
trace("Warning: Unbind chain problem " + Std.string(e));
});
res.init.push(bind);
res.unbind.push(unbind);
if (zeroListener.f.params != null) {
res.push(macro ${zeroListener.l}());
res.init.push(macro ${zeroListener.l}());
}
else {
var fieldName = zeroListener.f.field.name;
res.push(macro try { $ { zeroListener.l } (null, $ { zeroListener.f.e } .$fieldName ); } catch (e:Dynamic) {
trace("Warning: Can't initialize chain binding " + Std.string(e));
});
res.init.push(macro $ { zeroListener.l } (null, $ { zeroListener.f.e } .$fieldName ));
}
res.push(macro function unbind() { $b { unbindRes } } );
var res = macro $b { res };
trace(printer.printExpr(res));
return res;
}
#end
test/ChainBindTest.hx
+16
View File
@@ -57,6 +57,22 @@ class ChainBindTest extends BuddySuite {
callNum.should.be(2);
});
it("BindExt.chain should bind default fields", {
b.d = "a";
var unbind = BindExt.chain(b.d, function (f:String, t:String) {
callNum ++;
});
b.d = "b";
callNum.should.be(2);
unbind();
b.d = "c";
callNum.should.be(2);
});
});
}
}