Advertisement
Guest User

Untitled

a guest
May 25th, 2013
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.60 KB | None | 0 0
  1. #!/usr/bin/env clojure
  2.  
  3. (ns dirtree/dt
  4. (:import java.nio.file.Path)
  5. (:import java.nio.file.FileSystems)
  6. (:import java.nio.file.FileSystem))
  7.  
  8. (println "Started")
  9.  
  10. ; Path path = FileSystems.getDefault().getPath("logs", "access.log");
  11.  
  12. (def cur-dir (fn [] "mock"))
  13.  
  14. ; (let [res (. (. FileSystems getDefault) (getPath path))]
  15. ; (str res))
  16.  
  17. (println (str (meta #'cur-dir)))
  18. (println (str "Dir: " (cur-dir)))
  19.  
  20. (println "Done")
  21.  
  22. = Output ====================================
  23.  
  24. alex@alex-desktop:~/projects/my-experements/clojure-experemtns/dir-tree-snippet/src$ clojure dirtree/dt.clj
  25. Started
  26. {:ns #<Namespace dirtree/dt>, :name cur-dir}
  27. Exception in thread "main" java.lang.IllegalStateException: Attempting to call unbound fn: #'dirtree/dt/cur-dir
  28. at clojure.lang.Var$Unbound.throwArity(Var.java:43)
  29. at clojure.lang.AFn.invoke(AFn.java:35)
  30. at dt$eval16.invoke(dt.clj:17)
  31. at clojure.lang.Compiler.eval(Compiler.java:6619)
  32. at clojure.lang.Compiler.load(Compiler.java:7064)
  33. at clojure.lang.Compiler.loadFile(Compiler.java:7020)
  34. at clojure.main$load_script.invoke(main.clj:294)
  35. at clojure.main$script_opt.invoke(main.clj:356)
  36. at clojure.main$main$fn__6661.invoke(main.clj:440)
  37. at clojure.main$main.doInvoke(main.clj:437)
  38. at clojure.lang.RestFn.invoke(RestFn.java:408)
  39. at clojure.lang.Var.invoke(Var.java:415)
  40. at clojure.lang.AFn.applyToHelper(AFn.java:161)
  41. at clojure.lang.Var.applyTo(Var.java:532)
  42. at clojure.main.main(main.java:37)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement