MacroAdd.hx

	macro public function add(th:Expr, f:Expr, ?priority:ExprOf<Int>):Expr {
		if (priority == null) priority = macro 0;
		return switch Context.typeExpr(f).t {
			case TFun(args, ret):
				switch ret {
					case TAbstract(t, p):
						var n = t.get().name;
						if (n != 'Bool' && n != 'Void')
							Context.fatalError('Wrong return type', Context.currentPos());
					case _:
						Context.fatalError('Unknown return type', Context.currentPos());
				}
				switch args.length {
					case 0: macro $th.add0($ { f }, $priority);
					case 1: macro $th.add1($ { f }, $priority );
					case _: Context.fatalError('Argument count error', Context.currentPos());
				}
			case _:
				Context.fatalError('Unknown type', Context.currentPos());
		}
	}