I'm trying to write a file scanner very similar to the one on page 131
of Stuart's book:
(ns user
(:use [clojure.contrib.duck-streams :only [reader]]))
(defn scan [dir]
(for [file (file-seq dir)]
(with-open [rdr (reader file)]
(count (filter #(re-find #"foobar" %) (line-seq rdr))))))
user> (scan (java.io.File. "C:/SomeValidDir"))
java.lang.RuntimeException: java.io.FileNotFoundException:
C:\publishing\cosmos\trunk\web (Access is denied) (NO_SOURCE_FILE:0)
The strange part:
user> (file-seq (java.io.File. "C:/SomeValidDir"))
( #<File C:\SomeValidDir\foo1.clj> #<File C:\SomeValidDir\foo2.clj>)
and so on, properly listing the entire contents of the directory.
user> (for [file (file-seq (java.io.File.
"C:/publishing/cosmos/trunk/web"))] nil)
(nil nil) and so on, again working properly.
user> (for [file (file-seq (java.io.File.
"C:/publishing/cosmos/trunk/web"))] (with-open [rdr (reader file)]
nil))
; Evaluation aborted. (this one finally fails with the same error)
So "with-open [rdr (reader file)]" is the problem, but why?
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
