feat: resolve-hinted-method

Author: bronsa

src/main/clojure/clojure/tools/analyzer/jvm/utils.clj

@@ -393,6 +393,32 @@
 (defn param-tags-of [sym]
   (-> sym meta :param-tags))
 
+(defn- tags-to-maybe-classes
+  [tags]
+  (mapv (fn [tag]
+          (when-not (= '_ tag)
+            (maybe-class tag)))
+        tags))
+
+(defn- signature-matches?
+  [param-classes method]
+  (let [method-params (:parameter-types method)]
+    (and (= (count param-classes) (count method-params))
+         (every? (fn [[pc mp]]
+                   (or (nil? pc) ;; nil is a wildcard
+                       (= pc (maybe-class mp))))
+                 (map vector param-classes method-params)))))
+
+(defn resolve-hinted-method
+  "Given a class, method name and param-tags, resolves to the unique matching method.
+   Returns nil if no match or if ambiguous."
+  [class method-name param-tags]
+  (let [param-classes (tags-to-maybe-classes param-tags)
+        methods (members class method-name)
+        matching (filter #(signature-matches? param-classes %) methods)]
+    (when (= 1 (count matching))
+      (first matching))))
+
 (defn ns->relpath [s]
   (-> s str (s/replace \. \/) (s/replace \- \_) (str ".clj")))