blob: 1ea420ea32c02fae17c1f141789e634ac3e012c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
; Copyright (c) Stuart Halloway, April 2009. All rights reserved.
; The use and distribution terms for this software are covered by the
; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
; which can be found in the file epl-v10.html at the root of this distribution.
; By using this software in any fashion, you are agreeing to be bound by
; the terms of this license.
; You must not remove this notice, or any other, from this software.
; Design goals:
;
; (1) Ease-of-use. These APIs should be convenient. Performance is secondary.
;
; (2) Duck typing. I hate having to think about the difference between
; a string that names a file, and a File. Ditto for a ton of other
; wrapper classes in the Java world (URL, InternetAddress). With these
; APIs you should be able to think about domain equivalence, not type
; equivalence.
;
; (3) No bossiness. I am not marking any of these functions as private;
; the docstrings will tell you the intended usage but do what works for you.
;
; Feedback welcome!
;
; If something in this module violates the principle of least surprise, please
; let me (Stu) and the Clojure community know via the mailing list.
(ns clojure.contrib.java-utils
(:import [java.io File]))
(defmulti relative-path-string
"Interpret a String or java.io.File as a relative path string.
Building block for clojure.contrib.java-utils/file."
class)
(defmethod relative-path-string String [s]
(relative-path-string (File. s)))
(defmethod relative-path-string File [f]
(if (.isAbsolute f)
(throw (IllegalArgumentException. (str f " is not a relative path")))
(.getPath f)))
(defmulti as-file
"Interpret a String or a java.io.File as a File. Building block
for clojure.contrib.java-utils/file, which you should prefer
in most cases."
class)
(defmethod as-file String [s] (File. s))
(defmethod as-file File [f] f)
(defn file
"Returns a java.io.File from string or file args."
([arg]
(as-file arg))
([parent child]
(File. (as-file parent) (relative-path-string child)))
([parent child & more]
(reduce file (file parent child) more)))
|
