File tree 1 file changed +8
-7
lines changed
1 file changed +8
-7
lines changed Original file line number Diff line number Diff line change 1
1
(ns aidbox-sdk.converter
2
2
(:require
3
+ [aidbox-sdk.fhir :as fhir]
3
4
[aidbox-sdk.generator.helpers :refer [->pascal-case safe-conj
4
5
uppercase-first-letter vector->map]]
5
6
[clojure.set :as set]
6
7
[clojure.string :as str]
7
- [clojure.walk :as walk]
8
- [aidbox-sdk.fhir :as fhir]))
8
+ [clojure.walk :as walk]))
9
9
10
10
(def primitives #{" dateTime" " xhtml" " Distance" " time" " date" " string" " uuid" " oid" " id" " Dosage" " Duration" " instant" " Count" " decimal" " code" " base64Binary" " unsignedInt" " url" " markdown" " uri" " positiveInt" " canonical" " Age" " Timing" })
11
11
186
186
(map resolve-schema-choices schemas))
187
187
188
188
(defn collect-dependencies [schema]
189
- (let [primitive-element? (partial fhir/primitive-element? (:package schema))
190
- base-resource-name (if (:base-resource-name schema)
191
- #{(:base-resource-name schema)}
192
- #{})]
189
+ (let [primitive-element? (partial fhir/primitive-element? (:package schema))]
193
190
(set/union
194
- base-resource-name
191
+ (cond-> #{}
192
+ (:base-resource-name schema) (conj (:base-resource-name schema))
193
+ (fhir/constraint? schema) (conj " Meta" ))
194
+
195
195
(->> (:elements schema)
196
196
(remove primitive-element?)
197
197
(map :type )
198
198
(remove nil?)
199
199
set)
200
+
200
201
(->> (:backbone-elements schema)
201
202
(map :elements )
202
203
flatten
You can’t perform that action at this time.
0 commit comments