230 lines
7.4 KiB
Haxe
230 lines
7.4 KiB
Haxe
/*
|
|
* Copyright (C)2008-2017 Haxe Foundation
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining a
|
|
* copy of this software and associated documentation files (the "Software"),
|
|
* to deal in the Software without restriction, including without limitation
|
|
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
* and/or sell copies of the Software, and to permit persons to whom the
|
|
* Software is furnished to do so, subject to the following conditions:
|
|
*
|
|
* The above copyright notice and this permission notice shall be included in
|
|
* all copies or substantial portions of the Software.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
|
|
* DEALINGS IN THE SOFTWARE.
|
|
*/
|
|
package hscript;
|
|
import hscript.Expr.Error;
|
|
#if hscriptPos
|
|
import hscript.Expr.ErrorDef;
|
|
#end
|
|
import haxe.macro.Expr;
|
|
|
|
class Macro {
|
|
|
|
var p : Position;
|
|
var binops : Map<String,Binop>;
|
|
var unops : Map<String,Unop>;
|
|
|
|
public function new(pos) {
|
|
p = pos;
|
|
binops = new Map();
|
|
unops = new Map();
|
|
for( c in Type.getEnumConstructs(Binop) ) {
|
|
if( c == "OpAssignOp" ) continue;
|
|
var op = Type.createEnum(Binop, c);
|
|
var assign = false;
|
|
var str = switch( op ) {
|
|
case OpAdd: assign = true; "+";
|
|
case OpMult: assign = true; "*";
|
|
case OpDiv: assign = true; "/";
|
|
case OpSub: assign = true; "-";
|
|
case OpAssign: "=";
|
|
case OpEq: "==";
|
|
case OpNotEq: "!=";
|
|
case OpGt: ">";
|
|
case OpGte: ">=";
|
|
case OpLt: "<";
|
|
case OpLte: "<=";
|
|
case OpAnd: assign = true; "&";
|
|
case OpOr: assign = true; "|";
|
|
case OpXor: assign = true; "^";
|
|
case OpBoolAnd: "&&";
|
|
case OpBoolOr: "||";
|
|
case OpShl: assign = true; "<<";
|
|
case OpShr: assign = true; ">>";
|
|
case OpUShr: assign = true; ">>>";
|
|
case OpMod: assign = true; "%";
|
|
case OpAssignOp(_): "";
|
|
case OpInterval: "...";
|
|
case OpArrow: "=>";
|
|
#if (haxe_ver >= 4)
|
|
case OpIn: "in";
|
|
#end
|
|
default:
|
|
continue;
|
|
};
|
|
binops.set(str, op);
|
|
if( assign )
|
|
binops.set(str + "=", OpAssignOp(op));
|
|
}
|
|
for( c in Type.getEnumConstructs(Unop) ) {
|
|
var op = Type.createEnum(Unop, c);
|
|
var str = switch( op ) {
|
|
case OpNot: "!";
|
|
case OpNeg: "-";
|
|
case OpNegBits: "~";
|
|
case OpIncrement: "++";
|
|
case OpDecrement: "--";
|
|
#if (haxe_ver >= 4.2)
|
|
case OpSpread: continue;
|
|
#end
|
|
}
|
|
unops.set(str, op);
|
|
}
|
|
}
|
|
|
|
function map < T, R > ( a : Array<T>, f : T -> R ) : Array<R> {
|
|
var b = [];
|
|
for( x in a )
|
|
b.push(f(x));
|
|
return b;
|
|
}
|
|
|
|
function convertType( t : Expr.CType ) : ComplexType {
|
|
return switch( t ) {
|
|
case CTOpt(t): TOptional(convertType(t));
|
|
case CTPath(pack, args):
|
|
var params = [];
|
|
if( args != null )
|
|
for( t in args )
|
|
params.push(TPType(convertType(t)));
|
|
TPath({
|
|
pack : pack,
|
|
name : pack.pop(),
|
|
params : params,
|
|
sub : null,
|
|
});
|
|
case CTParent(t): TParent(convertType(t));
|
|
case CTFun(args, ret):
|
|
TFunction(map(args,convertType), convertType(ret));
|
|
case CTNamed(name, convertType(_) => ct):
|
|
#if (haxe_ver >= 4)
|
|
TNamed(name, ct);
|
|
#else
|
|
ct;
|
|
#end
|
|
case CTAnon(fields):
|
|
var tf = [];
|
|
for( f in fields ) {
|
|
var meta = f.meta == null ? [] : [for( m in f.meta ) { name : m.name, params : m.params == null ? [] : [for( e in m.params ) convert(e)], pos : p }];
|
|
tf.push( { name : f.name, meta : meta, doc : null, access : [], kind : FVar(convertType(f.t), null), pos : p } );
|
|
}
|
|
TAnonymous(tf);
|
|
case CTExpr(_):
|
|
throw "assert";
|
|
};
|
|
}
|
|
|
|
public function convert( e : hscript.Expr ) : Expr {
|
|
return { expr : switch( #if hscriptPos e.e #else e #end ) {
|
|
case EConst(c):
|
|
EConst(switch(c) {
|
|
case CInt(v): CInt(Std.string(v));
|
|
case CFloat(f): CFloat(Std.string(f));
|
|
case CString(s): CString(s);
|
|
});
|
|
case EIdent(v):
|
|
EConst(CIdent(v));
|
|
case EVar(n, t, e):
|
|
EVars([ { name : n, expr : if( e == null ) null else convert(e), type : if( t == null ) null else convertType(t) } ]);
|
|
case EParent(e):
|
|
EParenthesis(convert(e));
|
|
case EBlock(el):
|
|
EBlock(map(el,convert));
|
|
case EField(e, f):
|
|
EField(convert(e), f);
|
|
case EBinop(op, e1, e2):
|
|
var b = binops.get(op.toString());
|
|
if( b == null ) throw EInvalidOp(op.toString());
|
|
EBinop(b, convert(e1), convert(e2));
|
|
case EUnop(op, prefix, e):
|
|
var opStr = op.toString();
|
|
var u = unops.get(opStr);
|
|
if( u == null ) throw EInvalidOp(opStr);
|
|
EUnop(u, !prefix, convert(e));
|
|
case ECall(e, params):
|
|
ECall(convert(e), map(params, convert));
|
|
case EIf(c, e1, e2):
|
|
EIf(convert(c), convert(e1), e2 == null ? null : convert(e2));
|
|
case EWhile(c, e):
|
|
EWhile(convert(c), convert(e), true);
|
|
case EDoWhile(c, e):
|
|
EWhile(convert(c), convert(e), false);
|
|
case EFor(v, it, efor):
|
|
#if (haxe_ver >= 4)
|
|
var p = #if hscriptPos { file : p.file, min : e.pmin, max : e.pmax } #else p #end;
|
|
EFor({ expr : EBinop(OpIn,{ expr : EConst(CIdent(v)), pos : p },convert(it)), pos : p }, convert(efor));
|
|
#else
|
|
var p = #if hscriptPos { file : p.file, min : e.pmin, max : e.pmax } #else p #end;
|
|
EFor({ expr : EIn({ expr : EConst(CIdent(v)), pos : p },convert(it)), pos : p }, convert(efor));
|
|
#end
|
|
case EBreak:
|
|
EBreak;
|
|
case EContinue:
|
|
EContinue;
|
|
case EFunction(args, e, name, ret):
|
|
var targs = [];
|
|
for( a in args )
|
|
targs.push( {
|
|
name : a.name,
|
|
type : a.t == null ? null : convertType(a.t),
|
|
opt : false,
|
|
value : null,
|
|
});
|
|
EFunction(#if haxe4 FNamed(name,false) #else name #end, {
|
|
params : [],
|
|
args : targs,
|
|
expr : convert(e),
|
|
ret : ret == null ? null : convertType(ret),
|
|
});
|
|
case EReturn(e):
|
|
EReturn(e == null ? null : convert(e));
|
|
case EArray(e, index):
|
|
EArray(convert(e), convert(index));
|
|
case EArrayDecl(el):
|
|
EArrayDecl(map(el,convert));
|
|
case ENew(cl, params):
|
|
var pack = cl.split(".");
|
|
ENew( { pack : pack, name : pack.pop(), params : [], sub : null }, map(params, convert));
|
|
case EThrow(e):
|
|
EThrow(convert(e));
|
|
case ETry(e, v, t, ec):
|
|
ETry(convert(e), [ { type : convertType(t), name : v, expr : convert(ec) } ]);
|
|
case EObject(fields):
|
|
var tf = [];
|
|
for( f in fields )
|
|
tf.push( { field : f.name, expr : convert(f.e) } );
|
|
EObjectDecl(tf);
|
|
case ETernary(cond, e1, e2):
|
|
ETernary(convert(cond), convert(e1), convert(e2));
|
|
case ESwitch(e, cases, edef):
|
|
ESwitch(convert(e), [for( c in cases ) { values : [for( v in c.values ) convert(v)], expr : convert(c.expr) } ], edef == null ? null : convert(edef));
|
|
case EMeta(m, params, esub):
|
|
var mpos = #if hscriptPos { file : p.file, min : e.pmin, max : e.pmax } #else p #end;
|
|
EMeta({ name : m, params : params == null ? [] : [for( p in params ) convert(p)], pos : mpos }, convert(esub));
|
|
case ECheckType(e, t):
|
|
ECheckType(convert(e), convertType(t));
|
|
default:
|
|
null;
|
|
}, pos : #if hscriptPos { file : p.file, min : e.pmin, max : e.pmax } #else p #end }
|
|
}
|
|
|
|
}
|