 ; Parsing
 ; ============================================
 
-(defn parseFile [file]
+(defn parseFile
+  "Parse a file, and return nil if the file cannot be loaded"
+  [file]
   (try
     (JavaParser/parse file)
     (catch Exception e nil)))


; Get tuples of [filename cu]
(defn cusTuples [dirname]
  (filter not-nil? (parseDir dirname)))

(defn cus [dirname]
  (map (fn [cuTuple] (:cu cuTuple)) (cusTuples dirname)))

      (JavaParser/parse reader false)
      (catch Exception e nil))))

(defn parseFileByName [filename]
  (parseFile (new java.io.File filename)))

(defn parseFiles [files]
  (map (fn [f] {:file f :cu (parseFile f)}) files))

(defn parseDirByName [dirname]
  (parseFiles (java-files dirname)))

; ============================================
; Model
