!7

sinterface Bla {

  default S bla() { ret "ok"; }

}

sclass Blubb implements Bla {

}

sclass Overridden implements Bla {

  public S bla() { ret "different!"; }

}

sclass OverriddenSubclass extends Overridden {}

p-exp {

  assertEqualsVerbose("ok", call(new Blubb, "bla"));

  assertEqualsVerbose("different!", call(new Overridden, "bla"));

  print("===");

  assertEqualsVerbose("different!", call(new OverriddenSubclass, "bla"));

}

final sclass _MethodCache {

  final Class c;

  final HashMap<S, L<Method>> cache = new HashMap;

  *(Class *c) { _init(); }

  void _init() {

    Class _c = c;

    while (_c != null) {

      for (Method m : _c.getDeclaredMethods()) {

        m.setAccessible(true);

        if (m.getName().equals("bla")) print("Found: " + m);

        multiMapPut(cache, m.getName(), m);

      }

      _c = _c.getSuperclass();

    }

    // add default methods

    for (Class intf : allInterfacesImplementedBy(c))

      for (Method m : intf.getDeclaredMethods())

        if (m.isDefault()) {

          m.setAccessible(true);

          if (m.getName().equals("bla")) print("Found: " + m);

          multiMapPut(cache, m.getName(), m);

        }

    ifdef _MethodCache_debug

      print("MethodCache " + this + ": " + className(c) + " => " + keys(cache));

    endifdef

  }

  // Returns only matching methods

  Method findMethod(S method, O[] args) ctex {

    L<Method> m = cache.get(method);

    ifdef _MethodCache_debug

      print("findMethod " + this + ": " + className(c) + "/" + method + " => " + m);

    endifdef

    if (m == null) null;

    int n = m.size();

    for i to n: {

      Method me = m.get(i);

      if (call_checkArgs(me, args, false))

        ret me;

    }

    null;

  }

}