Mercurial > lasercutter

comparison src/clojureDemo/sys_utils.clj~ @ 1:6d9bdaf919f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added clojureDemo source
author Robert McIntyre <rlm@mit.edu>
date Fri, 20 Aug 2010 00:32:44 -0400
parents
children
comparison
equal deleted inserted replaced
0:163bf9b2fd13 1:6d9bdaf919f7
1
2 (ns clojureDemo.sys-utils
3
4 (:use [clojure.contrib duck-streams str-utils shell-out])
5 (:import java.io.File)
6 )
7
8
9
10
11 (defn escape-spaces
12 [string]
13 (re-gsub #" " (str \-) string))
14
15
16 (defn view
17 [string]
18 (seq (char-array string)))
19
20 (defn parent-source [target file]
21 (File. (str target "/" (.getName (.getParentFile file))"-" (.getName file))))
22
23
24 (defn rsync [file1 file2]
25 (let [*out* nil]
26 (sh "rsync" "-avz" (str file1) (escape-spaces(str file2)))))
27
28 (defn shunt-file [target file]
29 (rsync (str file) (str (parent-source target file))))
30
31
32
33 (defn extract-files
34 [regex source destination]
35
36 (dorun (map (partial shunt-file destination)
37 (filter (comp not nil? (partial re-matches regex) str) (file-seq source)))))
38
39
40 (defn file-count [#^java.io.File file]
41 (count (file-seq file)))
42
43
44
45
46 (comment
47
48 (defn test-extract
49 []
50 ((partial extract-files #".*\.JPG"
51 (file-str " /home/r/Desktop/judy_yates_computer_archive/MyDocuments/dallas townhome")
52 (file-str "/home/r/Desktop/judyates_admin/archive-source-images/"))))
53
54
55 (defn judy-jpg-extract
56 []
57 ((partial extract-files #".*\.JPG"
58 (file-str "/home/r/Desktop/judy_yates_computer_archive")
59 (file-str "/home/r/Desktop/judyates_admin/archive-source-images/"))))
60
61 )