kiss-lang/tink_macro
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #8 from kevinresol/concat_block

Browse Source 
Add concat()
This commit is contained in:
Juraj Kirchheim
2016-12-07 06:42:24 +01:00
committed by GitHub
parent 27de7bb3e7 aad311f524
commit ea16f79090
2 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/tink/macro/Exprs.hx
View File

@@ -388,6 +388,17 @@ class Exprs {
case EFunction(_, f): Success(f);
default: e.pos.makeFailure(NOT_A_FUNCTION);
}
static public function concat(e:Expr, with:Expr, ?pos) {
if(pos == null) pos = e.pos;
return
switch [e.expr, with.expr] {
case [EBlock(e1), EBlock(e2)]: EBlock(e1.concat(e2)).at(pos);
case [EBlock(e1), e2]: EBlock(e1.concat([with])).at(pos);
case [e1, EBlock(e2)]: EBlock([e].concat(e2)).at(pos);
default: EBlock([e, with]).at(pos);
}
}
static inline var NOT_AN_INT = "integer constant expected";
static inline var NOT_AN_IDENT = "identifier expected";

7
tests/Exprs.hx
View File

@@ -80,4 +80,11 @@ class Exprs extends Base {
])
);
}
function testConcat() {
exprEq(macro {a; b;}, (macro a).concat(macro b));
exprEq(macro {a; b; c;}, (macro {a; b;}).concat(macro c));
exprEq(macro {a; b; c;}, (macro a).concat(macro {b; c;}));
exprEq(macro {a; b; c; d;}, (macro {a; b;}).concat(macro {c; d;}));
}
}