quintype / clj-new-relic Goto Github PK

(defmacro defn-traced [sym & args2]
  (let [clazz-name (-> sym munge (str "_traced") symbol)
        docstring? (string? (first args2))
        docstring  (if docstring? (first args2) "")
        args       (if docstring? (rest args2) args2)]
    `(do
       (impl/define-traced-class ~clazz-name ~(assoc (-> sym meta :newrelic) :metricName (str "Clojure/" *ns* \/ sym)))
       (let [inner-function# (fn ~sym ~@args)
             traced#         (new ~clazz-name inner-function#)]
         (defn ~sym
           ~docstring
           ([] (.invoke traced#))
           ([arg1#]  (.invoke traced# arg1#))
           ([arg1# arg2#] (.invoke traced# arg1# arg2#))
           ([arg1# arg2# arg3#] (.invoke traced# arg1# arg2# arg3#))
           ([arg1# arg2# arg3# arg4#] (.invoke traced# arg1# arg2# arg3# arg4#))
           ([arg1# arg2# arg3# arg4# & more#] (.invoke traced# arg1# arg2# arg3# arg4# more#)))))))

(defn-traced test "test" [] 1)

(clojure.repl/doc test)

([] [arg1__59838__auto__] [arg1__59838__auto__ arg2__59839__auto__] [arg1__59838__auto__ arg2__59839__auto__ arg3__59840__auto__] [arg1__59838__auto__ arg2__59839__auto__ arg3__59840__auto__ arg4__59841__auto__] [arg1__59838__auto__ arg2__59839__auto__ arg3__59840__auto__ arg4__59841__auto__ & more__59842__auto__])
  test ;; <<here
=> nil