Objects.hx

import haxe.DynamicAccess;

using Reflect;

@:forward
abstract Merge<A: {}, B: {}>(B) {
	public function new(a: A, b: B) {
		final res: DynamicAccess<Dynamic> = cast {};
		for (field in a.fields())	res[field] = a.field(field);
		for (field in b.fields()) res[field] = b.field(field);
		this = cast res;
	}
  
  inline function __a(): A
  	return cast this;

  @:op(a.b) macro static function get<A: {}, B: {}>(merge: ExprOf<Merge<A, B>>, field: String) {
		return macro @:privateAccess $merge.__a().$field;
  }
}

class Objects {
	public static function merge<A: {}, B: {}>(a: A, b: B): Merge<A, B>
		return new Merge(a, b);
}