Clojure android无法读取文件

时间:2015-11-19 22:14:43

标签: android clojure io

我正在尝试使用clojure创建一个简单的Android应用程序,该应用程序读取csv文件并允许用户执行搜索数据的正则表达式。问题是当我尝试读取数据时,我得到以下异常。

IllegalArgumentException No implementation of method: :make-reader of protocol: #'clojure.java.io/IOFactory found for class: nil clojure.core/-cache-protocol-fn (core_deftype.clj:554)

我的研究表明,这通常意味着clojure正在寻找某种东西而无法找到它。但我无法弄清楚它可能是什么或为什么。

以下是抛出异常的Clojure代码:

(ns org.stuff.events.data
  (:require [clojure.java.io :as io]))

(def data-file (io/file (io/resource "kamus.csv")))

(defn read-data [_]
  (slurp data-file))

从最好的我可以告诉“kamus.csv”在正确的目录中,所以我不认为就是这样。如果我评估repl中的数据文件,我会得到nil

有人有任何想法可以解决我的问题吗?

以下是其他项目文件仅供参考:

main.clj:

(ns org.stuff.events.main
    (:require [neko.activity :refer [defactivity set-content-view!]]
              [neko.debug :refer [*a]]
              [neko.notify :refer [toast]]
              [neko.ui :refer [config]]
              [neko.resource :as res]
              [neko.find-view :refer [find-view]]
              [neko.threading :refer [on-ui]]
              [org.stuff.events.data :as data]
              [clojure.data.csv :as csv])
    (:import android.widget.TextView))

;; We execute this function to import all subclasses of R class. This gives us
;; access to all application resources.
(res/import-all)



(def listing (atom ""))


(defn get-elem [activity id]
  (str (.getText (find-view activity id))))

(defn set-elem [activity id s]
  (on-ui (config (find-view activity id) :text s)))

(defn add-event [activity]
  (swap! listing str (get-elem activity ::search-box) "\n")
  (set-elem activity ::results @listing))


(defn main-layout [activity]
  [:linear-layout {:orientation :vertical}
   [:linear-layout {:orientation :horizontal                
                     :layout-height :wrap}
         [:edit-text {:id ::search-box
                      :hint "cari..."
                      :layout-width :fill}]
         [:button {:text "Cari"
                   :on-click (fn [_] (add-event (*a)))}]]
   [:text-view {:text @listing
                :id ::results}]])


;; This is how an Activity is defined. We create one and specify its onCreate
;; method. Inside we create a user interface that consists of an edit and a
;; button. We also give set callback to the button.
(defactivity org.stuff.events.MainActivity
  :key :main

  (onCreate [this bundle]
    (.superOnCreate this bundle)
    (neko.debug/keep-screen-on this)
    (on-ui
      (set-content-view! (*a)  (main-layout (*a))))))

project.csj:

(defproject events/events "0.1.0-SNAPSHOT"
  :description "FIXME: Android project description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}

  :global-vars {*warn-on-reflection* true}

  :source-paths ["src/clojure" "src"]
  :res-path "src/main/resources"
  :java-source-paths ["src/java"]
  :javac-options ["-target" "1.6" "-source" "1.6" "-Xlint:-options"]
  :plugins [[lein-droid "0.4.3"]]

  :dependencies [[org.clojure-android/clojure "1.7.0-r2"]
                 [neko/neko "4.0.0-alpha5"]
                 [org.clojure/data.csv "0.1.3"] ]
  :profiles {:default [:dev]

             :dev
             [:android-common :android-user
              {:dependencies [[org.clojure/tools.nrepl "0.2.10"]]
               :target-path "target/debug"
               :android {:aot :all-with-unused
                         :rename-manifest-package "org.stuff.events.debug"
                         :manifest-options {:app-name "EventsListing      (debug)"}}}]
             :release
             [:android-common
               {:target-path "target/release"
               :android
               {;; :keystore-path "/home/user/.android/private.keystore"
                ;; :key-alias "mykeyalias"
                ;; :sigalg "MD5withRSA"

                :ignore-log-priority [:debug :verbose]
                :aot :all
                :build-type :release}}]}

  :android {;; Specify the path to the Android SDK directory.
            :sdk-path "C:\\Users\\fhard\\AppData\\Local\\Android\\sdk"

            ;; Try increasing this value if dexer fails with
            ;; OutOfMemoryException. Set the value according to your
            ;; available RAM.
            :dex-opts ["-JXmx4096M" "--incremental"]

            :target-version "15"
            :aot-exclude-ns ["clojure.parallel" "clojure.core.reducers"
                         "cider.nrepl" "cider-nrepl.plugin"
                             "cider.nrepl.middleware.util.java.parser"
                             #"cljs-tooling\..+"]})

1 个答案:

答案 0 :(得分:0)

从例外情况来看,根据this answer,你看起来错了。当我尝试使用io / resource打开文件时,即使文件实际存在,我也会收到相同的错误。 io/reader可能更容易使用,因为它会将您的输入强制转换为读者对象。另一方面,io / resource返回一个URL,其路径在jar内部发生变化。 Check this.