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

add function 'parse-url' which auto determines whether the url is absolute or relative and parses appropriately

Browse source
This commit is contained in:
Gered 2014-09-04 15:26:39 -04:00
parent 4eb769ded8
commit 8b0be35c6f
1 changed files with 27 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
src/clj_hl7_fhir/core.clj
View file

@ -239,6 +239,33 @@
:id (second no-version-url-parts)})
)))
(defn absolute-url?
"returns true if the passed URL is an absolute URL, false if not. if the value
passed in is not a string (or an empty string) an exception is thrown."
[^String resource-url]
(if (and (string? resource-url)
(not (str/blank? resource-url)))
(boolean
(try
(url resource-url)
(catch Exception ex)))
(throw (new Exception "Invalid URL or non-string value."))))
(defn parse-url
"parses a 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.
this function will automatically determine if the URL is relative or absolute
and will try to parse it appropriately. you should probably just use this
function all the time when parsing FHIR resource URLs."
[resource-url & [keywordize?]]
(if (absolute-url? resource-url)
(parse-absolute-url resource-url keywordize?)
(parse-relative-url resource-url keywordize?)))
(defn absolute->relative-url
"turns an absolute FHIR resource URL into a relative one."
[absolute-url]
@ -257,18 +284,6 @@
(url)
(.toString))))
(defn absolute-url?
"returns true if the passed URL is an absolute URL, false if not. if the value
passed in is not a string (or an empty string) an exception is thrown."
[^String resource-url]
(if (and (string? resource-url)
(not (str/blank? resource-url)))
(boolean
(try
(url resource-url)
(catch Exception ex)))
(throw (new Exception "Invalid URL or non-string value."))))
(defn collect-resources
"returns a sequence containing all of the resources contained in the given bundle.
deleted resources listed in the bundle will not be included in the returned