1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojureDemo/sys-utils.clj~	Fri Aug 20 00:32:44 2010 -0400
     1.3 @@ -0,0 +1,49 @@
     1.4 +(ns clojureDemo.sys-utils
     1.5 +
     1.6 +:use [clojure.contrib duck-streams str-utils shell-out]
     1.7 +:import java.io.File
     1.8 +)
     1.9 +
    1.10 +
    1.11 +
    1.12 +
    1.13 +(defn escape-spaces
    1.14 +  [string]
    1.15 +  (re-gsub #" " (str \-) string))
    1.16 +
    1.17 +
    1.18 +(defn view 
    1.19 +  [string]
    1.20 +  (seq (char-array string)))
    1.21 +
    1.22 +(defn parent-source [target file]
    1.23 +  (File. (str target "/" (.getName (.getParentFile file))"-" (.getName file))))
    1.24 +
    1.25 +
    1.26 +(defn rsync [file1 file2]
    1.27 +  (let [*out* nil]
    1.28 +  (sh "rsync" "-avz" (str file1) (escape-spaces(str file2)))))
    1.29 +
    1.30 +(defn shunt-file [target file]
    1.31 +  (rsync (str file) (str (parent-source target file)))) 
    1.32 +	
    1.33 +	  
    1.34 +
    1.35 +(defn extract-files
    1.36 +  [regex source destination]
    1.37 +
    1.38 +  (map (partial shunt-file destination) 
    1.39 +  (filter (comp not nil? (partial re-matches regex) str)  (file-seq source))))
    1.40 +
    1.41 +(defn test-extract
    1.42 +  []
    1.43 +  ((partial extract-files #".*\.JPG"
    1.44 +	    (file-str " /home/r/Desktop/judy_yates_computer_archive/MyDocuments/dallas townhome") 
    1.45 +	    (file-str "/home/r/Desktop/judyates_admin/archive-source-images/"))))
    1.46 +
    1.47 +
    1.48 +(defn judy-jpg-extract
    1.49 +  []
    1.50 +  ((partial extract-files #".*\.JPG"
    1.51 +	    (file-str "/home/r/Desktop/judy_yates_computer_archive") 
    1.52 +	    (file-str "/home/r/Desktop/judyates_admin/archive-source-images/"))))