!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;
  }
}