Haxe enum destructor macro

MacroTools.hx

package;

import haxe.macro.Printer;
import haxe.macro.Context;
#if macro
import haxe.macro.Expr;
#end

using haxe.macro.Tools;

class MacroTools {
	public static macro function extract<T>(data:ExprOf<T>, pattern:Expr) {
		var enum_name = null;
		var enum_args = [];
		var result = null;
		var obj:Array<ObjectField> = [];
		switch (pattern.expr) {
			case EConst(CIdent(s)):
				try {
					var type = Context.typeof(data);
					trace(type);
					switch (type.follow()) {
						case TEnum(_.get() => t, params):
							for (name => value in t.constructs) {
								if (name == s) {
									enum_name = Context.makeExpr(EConst(CIdent(name)), data.pos);
									switch (value.type) {
										case TFun(args, ret):
											var expr = null;

											for (field in args) {
												expr = {expr: EConst(CIdent(field.name)), pos: data.pos};
												obj.push({
													field: field.name,
													expr: expr
												});
												enum_args.push(expr);
											}
										default:
											throw 'Invalid input. Check if the enum has any arguments';
									}
								}
							}
						default:
					}
				} catch (e) {
					throw e;
				}
			default:
		}
		var parse = {expr: EObjectDecl(obj), pos: data.pos};
		var res = {expr: ECall(pattern, enum_args), pos: data.pos};
		result = macro switch ($data) {
			case ${res} : $parse;
			case _: null;
		}
		
		return result;
	}
}
//update tab spaces?