Mercurial > lasercutter
diff src/clojureDemo/sys_utils.clj~ @ 1:6d9bdaf919f7
added clojureDemo source
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 20 Aug 2010 00:32:44 -0400 |
parents | |
children |
line wrap: on
line diff
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,61 @@ 1.4 + 1.5 +(ns clojureDemo.sys-utils 1.6 + 1.7 +(:use [clojure.contrib duck-streams str-utils shell-out]) 1.8 +(:import java.io.File) 1.9 +) 1.10 + 1.11 + 1.12 + 1.13 + 1.14 +(defn escape-spaces 1.15 + [string] 1.16 + (re-gsub #" " (str \-) string)) 1.17 + 1.18 + 1.19 +(defn view 1.20 + [string] 1.21 + (seq (char-array string))) 1.22 + 1.23 +(defn parent-source [target file] 1.24 + (File. (str target "/" (.getName (.getParentFile file))"-" (.getName file)))) 1.25 + 1.26 + 1.27 +(defn rsync [file1 file2] 1.28 + (let [*out* nil] 1.29 + (sh "rsync" "-avz" (str file1) (escape-spaces(str file2))))) 1.30 + 1.31 +(defn shunt-file [target file] 1.32 + (rsync (str file) (str (parent-source target file)))) 1.33 + 1.34 + 1.35 + 1.36 +(defn extract-files 1.37 + [regex source destination] 1.38 + 1.39 + (dorun (map (partial shunt-file destination) 1.40 + (filter (comp not nil? (partial re-matches regex) str) (file-seq source))))) 1.41 + 1.42 + 1.43 +(defn file-count [#^java.io.File file] 1.44 + (count (file-seq file))) 1.45 + 1.46 + 1.47 + 1.48 + 1.49 +(comment 1.50 + 1.51 +(defn test-extract 1.52 + [] 1.53 + ((partial extract-files #".*\.JPG" 1.54 + (file-str " /home/r/Desktop/judy_yates_computer_archive/MyDocuments/dallas townhome") 1.55 + (file-str "/home/r/Desktop/judyates_admin/archive-source-images/")))) 1.56 + 1.57 + 1.58 +(defn judy-jpg-extract 1.59 + [] 1.60 + ((partial extract-files #".*\.JPG" 1.61 + (file-str "/home/r/Desktop/judy_yates_computer_archive") 1.62 + (file-str "/home/r/Desktop/judyates_admin/archive-source-images/")))) 1.63 + 1.64 +)