luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-23 10:41:10 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fast path matching with .equals

Browse source
This commit is contained in:
Tommi Reiman 2017-10-02 08:07:15 +03:00
parent 40c35a0dfd
commit da9c94e520
1 changed files with 18 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
src/reitit/impl.cljc
View file

@ -104,22 +104,24 @@
(defrecord Route [path matcher parts params meta result])
(defn create [[path meta result]]
(if (contains-wilds? path)
(as-> (parse-path path) $
(assoc $ :path-re (path-regex $))
(merge $ {:path path
:matcher (path-matcher $)
:result result
:meta meta})
(dissoc $ :path-re :path-constraints)
(update $ :path-params set)
(set/rename-keys $ {:path-parts :parts
:path-params :params})
(map->Route $))
(map->Route {:path path
:meta meta
:matcher #(if (= path %) {})
:result result})))
(let [path #?(:clj (.intern ^String path) :cljs path)]
(if (contains-wilds? path)
(as-> (parse-path path) $
(assoc $ :path-re (path-regex $))
(merge $ {:path path
:matcher (path-matcher $)
:result result
:meta meta})
(dissoc $ :path-re :path-constraints)
(update $ :path-params set)
(set/rename-keys $ {:path-parts :parts
:path-params :params})
(map->Route $))
(map->Route {:path path
:meta meta
:matcher #?(:clj #(if (.equals path %) {})
:cljs #(if (= path %)))
:result result}))))
(defn segments [path]
(let [ss (-> (str/split path #"/") rest vec)]