Databases
StackOverflow2013
Postsdbo
POMultiple mutations to an XML document in Clojure
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POMultiple mutations to an XML document in Clojure
    primarykey
    data
    text
    <p>I'm trying clojure (for the first time) for a simple project. I need to update an xml tree given a csv file. I'm reading the csv file line by line, extract some values, loop up a node given some values and insert a child node with another value.</p> <p>This works fine the first time I insert an item. The second time I get a NullPointerException (without a trace). I lookup the root from the return value I get from insert-child and pass that root node to the next loop. Somehow the second insert fails on that root element. Anyone sees what's going wrong here? Or feedback in general on this code since this is my first attempt to write some Clojure.</p> <pre><code>(require 'clojure.string) (require '[clojure.java.io :as io]) (require '[clojure.xml :as xml]) (require '[clojure.zip :as zip]) (require '[clojure.data.zip.xml :as zf]) (def business-object-config (xml/parse "BusinessObject.config")) (def zipped (zip/xml-zip business-object-config )) (defn sql-table-name [table-name] (second (re-matches #"(.*?)(Base|ExtensionBase|$)" table-name))) (defn insert-sqlpropertyname-elem [loc name] (zip/root (zip/insert-child loc {:tag :SqlPropertyName :content [name]}))) (defn get-entity-node [table-name crm-name business-objects] (first (zf/xml-&gt; business-objects :Entities :Entity [:CrmName (zf/text= (clojure.string/lower-case (sql-table-name table-name)))] :EntityItems :EntityItem [:CrmPropertyName (zf/text= (clojure.string/lower-case crm-name))]))) (defn process-line [line business-objects] (let [{crm-name 0 table-name 1 sql-name 6} (clojure.string/split line #";") node (get-entity-node table-name crm-name business-objects)] (insert-sqlpropertyname-elem node sql-name))) (defn process-csv [] (with-open [rdr (io/reader "input.csv")] (loop [lines (vec (take 5 (rest (line-seq rdr)))) index (dec (count lines)) boc zipped] (if (neg? index) boc (recur lines (dec index) (process-line (nth lines index) boc)))))) (spit "out.xml" (with-out-str (xml/emit (process-csv)) :pad true)) </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PTQuestion
    1. This table or related slice is empty.
    1. USJeroen
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POMultiple mutations to an XML document in Clojure
      1. This table or related slice is empty.
      1. VTUpMod
    1. This table or related slice is empty.
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload