clojure.core.cache/->BasicCache

clojure.core.cache/->FIFOCache

clojure.core.cache/->FnCache

clojure.core.cache/->LIRSCache

clojure.core.cache/->LRUCache

clojure.core.cache/->LUCache

clojure.core.cache/->SoftCache

clojure.core.cache/->TTLCacheQ

clojure.core.cache/basic-cache-factory

clojure.core.cache/defcache

  (:require [eastwood.copieddeps.dep4.clojure.core.cache :as cache]))

  (has? [_ item]

    (eastwood.copieddeps.dep4.clojure.core.cache/has? cache item))

  (hit  [_ item]

    (PluggableMemoization. f (eastwood.copieddeps.dep4.clojure.core.cache/hit cache item)))

  (miss [_ item result]

    (PluggableMemoization. f (eastwood.copieddeps.dep4.clojure.core.cache/miss cache item result)))

  (evict [_ key]

    (PluggableMemoization. f (eastwood.copieddeps.dep4.clojure.core.cache/evict cache key)))

      :author "Fogus"}

  eastwood.copieddeps.dep4.clojure.core.cache

  (:require eastwood.copieddeps.dep5.clojure.data.priority-map)

  ([wrap-fn value-fn cache item]

   (if (eastwood.copieddeps.dep4.clojure.core.cache/has? cache item)

     (eastwood.copieddeps.dep4.clojure.core.cache/hit cache item)

     (eastwood.copieddeps.dep4.clojure.core.cache/miss cache item (wrap-fn #(value-fn %) item)))))

   (if (eastwood.copieddeps.dep4.clojure.core.cache/has? cache item)

  (:require [clojure.core.cache :as cache]))

  (has? [_ item]

    (clojure.core.cache/has? cache item))

  (hit  [_ item]

    (PluggableMemoization. f (clojure.core.cache/hit cache item)))

  (miss [_ item result]

    (PluggableMemoization. f (clojure.core.cache/miss cache item result)))

  (evict [_ key]

    (PluggableMemoization. f (clojure.core.cache/evict cache key)))

      :author "Fogus"}

  clojure.core.cache

  (:require clojure.data.priority-map)

  ([wrap-fn value-fn cache item]

   (if (clojure.core.cache/has? cache item)

     (clojure.core.cache/hit cache item)

     (clojure.core.cache/miss cache item (wrap-fn #(value-fn %) item)))))

   (if (clojure.core.cache/has? cache item)

  (:require

   [clojure.core.cache :as cache]

   [clojure.core.cache.wrapped :as cache.wrapped]

   [clojure.string :as str]

(def ^:dynamic *metadata-provider-cache*

  "Bind this to a `(atom (clojure.core.cache/basic-cache-factory {}))` or similar cache-atom, and

(defprotocol Cache

  "Cache protocol that copycats clojure.core.cache/CacheProtocol to make it easy to use

  core.cache while not requiring unnecessary dependency if context is unused"

  (try

    (let [core-cache-protocol @(requiring-resolve 'clojure.core.cache/CacheProtocol)

          core-cache-lookup @(requiring-resolve 'clojure.core.cache/lookup)

          core-cache-has? @(requiring-resolve 'clojure.core.cache/has?)

          core-cache-hit @(requiring-resolve 'clojure.core.cache/hit)

          core-cache-miss @(requiring-resolve 'clojure.core.cache/miss)

{"namespaces"

 {"clojure.core.cache"

  [{"ns" "clojure.core.cache",

    "name" "lru-cache-factory",

    "(defn lru-cache-factory\n  \"Returns an LRU cache with the cache and usage-table initialied to `base` --\n   each entry is initialized with the same usage value.\n\n   This function takes an optional `:threshold` argument that defines the maximum number\n   of elements in the cache before the LRU semantics apply (default is 32).\"\n  [base & {threshold :threshold :or {threshold 32}}]\n  {:pre [(number? threshold) (< 0 threshold)\n         (map? base)]}\n  (clojure.core.cache/seed (LRUCache. {} {} 0 threshold) base))",

  (:require

   #?(:clj  [clojure.core.cache :as cache]

      :cljs [cljs.cache :as cache])

(defn bounded-cache-factory

  "Create a bounded [[clojure.core.cache]]-compatible cache. This is a basic map with no bookkeeping on `hit` but

  that will completely discard the cache if it exceeds the `threshold` size.

  ;; core.cache

  (c/copy-namespaces-unmodified ccache-src-path staging-path 'clojure.core.cache for-real)

  (c/move-namespaces-and-rename staging-path src-path 'clojure.core.cache 'eastwood.copieddeps.dep4.clojure.core.cache [src-path] for-real)