utils.clj

(ns vc.utils
  (:require [clojure.string :as st])
  (:import (java.util.regex Pattern) (java.io File))
  (:gen-class))
(defn -load-tsv
  "Reads a TSV file in and returns a sorted map with the first column's data
  as keys, and for values, hashmaps of the header row's data as keys to the
  other rows' data as values.  A file with a first row of 'Name\tID\tSalary'
  and a second row of 'John\t1\t100' will return a sorted map of {\"John\"
  {\"Name\" \"John\", \"ID\" 1, \"Salary\" 100}}"
  [filename]
  (def tbl-rows (st/split-lines  (slurp (File. filename))))
  (def pat-t (. Pattern compile "\t"))
  (def header (st/split (first tbl-rows) pat-t))
  (defn- read-unknown [s]
    (if (integer? (read-string s)) (read-string s) s))
  (defn- make-data [rw] (zipmap header (map read-unknown (st/split rw pat-t))))
  (apply sorted-map (interleave
                                     (map (fn [rw] (first (st/split rw pat-t))) (rest tbl-rows))
                                     (map make-data (rest tbl-rows)))))
(defn -read-obj
  "Reads a clojure object from a file, ignoring exceptions."
  [fname]
  (try
     (read-string (slurp fname))
  (catch Exception e nil)))

(defn -write-obj
  "Writes a clojure object to a file, to be loaded with read-hash ."
  [fname o]
  (binding [*out* (java.io.FileWriter. fname)]
    (prn o)))