From 00a4fd48551e3de8c2724712a6c988d4a62e5c2e Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Tue, 28 Apr 2020 23:18:25 +0200 Subject: [PATCH] Add more clojure.data.xml vars --- .gitignore | 1 + src-xml/babashka/impl/xml.clj | 29 ++++++++++++++++++++++++++--- 2 files changed, 27 insertions(+), 3 deletions(-) diff --git a/.gitignore b/.gitignore index 3b3906e1..f4f7dfed 100644 --- a/.gitignore +++ b/.gitignore @@ -19,3 +19,4 @@ pom.xml.asc *reflection.json /tmp /reports +*.dylib diff --git a/src-xml/babashka/impl/xml.clj b/src-xml/babashka/impl/xml.clj index d2cd7ae4..50127016 100644 --- a/src-xml/babashka/impl/xml.clj +++ b/src-xml/babashka/impl/xml.clj @@ -7,6 +7,29 @@ (def xns (vars/->SciNamespace 'clojure.data.xml nil)) (def xml-namespace - {'parse-str (copy-var xml/parse-str xns) - 'element (copy-var xml/element xns) - 'emit-str (copy-var xml/emit-str xns)}) + {'aggregate-xmlns (copy-var xml/aggregate-xmlns xns) + 'as-qname (copy-var xml/as-qname xns) + 'cdata (copy-var xml/cdata xns) + 'element (copy-var xml/element xns) + 'element* (copy-var xml/element* xns) + 'element-nss (copy-var xml/element-nss xns) + 'element? (copy-var xml/element? xns) + 'emit (copy-var xml/emit xns) + 'emit-str (copy-var xml/emit-str xns) + 'event-seq (copy-var xml/event-seq xns) + 'find-xmlns (copy-var xml/find-xmlns xns) + 'indent (copy-var xml/indent xns) + 'indent-str (copy-var xml/indent-str xns) + 'parse (copy-var xml/parse xns) + 'parse-qname (copy-var xml/parse-qname xns) + 'parse-str (copy-var xml/parse-str xns) + 'print-uri-file-command! (copy-var xml/print-uri-file-command! xns) + 'qname (copy-var xml/qname xns) + 'qname-local (copy-var xml/qname-local xns) + 'qname-uri (copy-var xml/qname-uri xns) + 'sexp-as-element (copy-var xml/sexp-as-element xns) + 'sexps-as-fragment (copy-var xml/sexps-as-fragment xns) + 'symbol-uri (copy-var xml/symbol-uri xns) + 'uri-file (copy-var xml/uri-file xns) + 'uri-symbol (copy-var xml/uri-symbol xns) + 'xml-comment (copy-var xml/xml-comment xns)})