 
 ; Get tuples of [filename cu]
 (defn cusTuples [dirname]
-  (filter not-nil? (parseDir dirname)))
+  (filter not-nil? (parseDirByName dirname)))
 
 (defn cus [dirname]
   (map (fn [cuTuple] (:cu cuTuple)) (cusTuples dirname)))

; Parsing
; ============================================

(defn parseFile [file]
  (try
    (JavaParser/parse file)
    (catch Exception e nil)))

      (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
