Class QualifiedMethodExpr

src/jvm/clojure/lang/Compiler.java:1169–1352

// In value position, will emit as a multi-arity method thunk with
//	 params matching the arity set of the named method
static class QualifiedMethodExpr implements Expr {
	private final Class c;
	private final List<Class> hintedSig;
	private final Symbol methodSymbol;
	private final String methodName;
	private final MethodKind kind;
	private final Class tagClass;
	private final StaticFieldExpr fieldOverload;

	private enum MethodKind {
		CTOR, INSTANCE, STATIC
	}

	public QualifiedMethodExpr(Class methodClass, Symbol sym) {
		this(methodClass, sym, null);
	}

	public QualifiedMethodExpr(Class methodClass, Symbol sym, StaticFieldExpr fieldOL) {
		c = methodClass;
		methodSymbol = sym;
		tagClass = tagOf(sym) != null ? HostExpr.tagToClass(tagOf(sym)) : AFn.class;
		hintedSig = tagsToClasses(paramTagsOf(sym));
		if(sym.name.startsWith(".")) {
			kind = MethodKind.INSTANCE;
			methodName = sym.name.substring(1);
		}
		else if(sym.name.equals("new")) {
			kind = MethodKind.CTOR;
			methodName = sym.name;
		}
		else {
			kind = MethodKind.STATIC;
			methodName = sym.name;
		}
		fieldOverload = fieldOL;
	}

	private boolean preferOverloadedField() {
		return fieldOverload != null && paramTagsOf(methodSymbol) == null;
	}

	// Expr impl - invocation, convert to fn expr

	@Override
	public Object eval() {
		if(preferOverloadedField())
			return fieldOverload.eval();
		else
			return buildThunk(C.EVAL, this).eval();
	}

	@Override
	public void emit(C context, ObjExpr objx, GeneratorAdapter gen) {
		if(preferOverloadedField())
			fieldOverload.emit(context, objx, gen);
		else
			buildThunk(context, this).emit(context, objx, gen);
	}