gered/clj-hl7-fhir
Archived
1
0
Fork 0
Code Issues 1 Pull requests Packages Projects Releases Wiki Activity

split parse-resource-url into 2 functions for relative/absolute urls.

Browse source 
also updated absolute resource url parsing to not require the server
base url to be passed in, which is oh-so-much-nicer
This commit is contained in:
Gered 2014-09-02 13:01:09 -04:00
parent b8aaf2db4b
commit d48ec5183f
1 changed files with 50 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

63
src/clj_hl7_fhir/core.clj
View file

@ -2,6 +2,7 @@
(:import (java.util Date) (:import (java.util Date)
(clojure.lang ExceptionInfo)) (clojure.lang ExceptionInfo))
(:require [clojure.string :as str] (:require [clojure.string :as str]
[cemerick.url :refer [url]]
[cheshire.core :as json]) [cheshire.core :as json])
(:use [camel-snake-kebab] (:use [camel-snake-kebab]
[clj-hl7-fhir.util])) [clj-hl7-fhir.util]))
@ -187,34 +188,56 @@
stripped-url)) stripped-url))
url)) url))
(defn parse-resource-url (defn- format-resource-url-type [url-path-parts keywordize?]
"parses an absolute URL to a FHIR resource or a relative URL to a FHIR resource. if an (if keywordize?
absolute URL is provided, any present version number will also be parsed. returns a map (-> url-path-parts first ->kebab-case keyword)
containing the discrete components of the URL that can be used to identify the resouce. (-> url-path-parts first ->fhir-resource-name)))
if the URL cannot be parsed, returns nil"
([relative-url] (defn parse-relative-url
(let [parts (-> (strip-query-params relative-url) "parses a relative FHIR resource URL, returning a map containing each of the discrete
(str/split #"/"))] components of the URL (resource type, id, version number). if the optional
(if (= 2 (count parts)) keywordize? arg is true, then returned resource type names will be turned into a
{:type (-> parts first ->kebab-case keyword) \"kebab case\" keyword (as opposed to a camelcase string which is the default). if
:id (second parts)}))) the URL cannot be parsed, returns nil"
([server-url absolute-url] [resource-url & [keywordize?]]
(if (and server-url (let [parts (-> (strip-query-params resource-url)
absolute-url
(.startsWith absolute-url server-url))
(let [parts (-> (strip-query-params absolute-url)
(strip-base-url server-url)
(str/split #"/"))] (str/split #"/"))]
(cond (cond
(= 2 (count parts)) (= 2 (count parts))
{:type (-> parts first ->kebab-case keyword) {:type (format-resource-url-type parts keywordize?)
:id (second parts)} :id (second parts)}
(and (= 4 (count parts)) (and (= 4 (count parts))
(= "_history" (nth parts 2))) (= "_history" (nth parts 2)))
{:type (-> parts first ->kebab-case keyword) {:type (format-resource-url-type parts keywordize?)
:id (second parts) :id (second parts)
:version (last parts)}))))) :version (last parts)})))
(defn parse-absolute-url
"parses an absolute FHIR resource URL, returning a map containing each of the discrete
components of the URL (resource type, id, version number). if the optional
keywordize? arg is true, then returned resource type names will be turned into a
\"kebab case\" keyword (as opposed to a camelcase string which is the default). if
the URL cannot be parsed, returns nil."
[absolute-url & [keywordize?]]
(let [{:keys [path]} (url absolute-url)
parts (str/split path #"/")
has-version? (= "_history" (second (reverse parts)))]
(cond
(and (> (count parts) 4)
(= "_history" (second-last parts))
has-version?)
(let [versioned-url-parts (take-last 4 parts)]
{:type (format-resource-url-type versioned-url-parts keywordize?)
:id (second versioned-url-parts)
:version (last parts)})
(and (> (count parts) 2)
(not has-version?))
(let [no-version-url-parts (take-last 2 parts)]
{:type (format-resource-url-type no-version-url-parts keywordize?)
:id (second no-version-url-parts)})
)))
(defn collect-resources (defn collect-resources
"returns a sequence containing all of the resources contained in the given bundle. "returns a sequence containing all of the resources contained in the given bundle.