minimal port to Clojure SVN 1094+ of seq-utils import-static trace enum javalog duck-streams str-utils. (they all load again)

1 files changed, 62 insertions, 0 deletions

diff --git a/src/clojure/contrib/str_utils.clj b/src/clojure/contrib/str_utils.clj
new file mode 100644
index 00000000..fb5404e7
--- /dev/null
+++ b/src/clojure/contrib/str_utils.clj
@@ -0,0 +1,62 @@
+;;; str_utils.clj -- string utilities for Clojure
+
+;; by Stuart Sierra <mail@stuartsierra.com>
+;; April 8, 2008
+
+;; Copyright (c) 2008 Stuart Sierra. All rights reserved.  The use and
+;; distribution terms for this software are covered by the Common
+;; Public License 1.0 (http://www.opensource.org/licenses/cpl1.0.php)
+;; which can be found in the file CPL.TXT 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.
+
+
+(ns clojure.contrib.str-utils
+    (:import (java.util.regex Pattern)))
+
+(defn re-split
+  "Splits the string on instances of 'pattern'.  Returns a sequence of
+  strings.  Optional 'limit' argument is the maximum number of
+  splits.  Like Perl's 'split'."
+  ([#^Pattern pattern string] (seq (. pattern (split string))))
+  ([#^Pattern pattern string limit] (seq (. pattern (split string limit)))))
+
+(defn re-partition
+  "Splits the string into a lazy sequence of substrings, alternating
+  between substrings that match the patthern and the substrings
+  between the matches.  The sequence always starts with the substring
+  before the first match, or an empty string if the beginning of the
+  string matches.
+
+  For example: (re-partition #\"[a-z]+\" \"abc123def\")
+
+  Returns: (\"\" \"abc\" \"123\" \"def\")"
+  [#^Pattern re string]
+  (let [m (re-matcher re string)]
+    ((fn step [prevend]
+       (if (.find m)
+         (lazy-cons (.subSequence string prevend (.start m))
+                    (lazy-cons (re-groups m)
+                               (step (+ (.start m) (count (.group m))))))
+         (when (< prevend (.length string))
+           (list (.subSequence string prevend (.length string))))))
+     0)))
+
+(defn re-gsub
+  "Replaces all instances of 'pattern' in 'string' with
+  'replacement'.  Like Ruby's 'String#gsub'."
+  [#^Pattern regex replacement #^String string]
+  (.. regex (matcher string) (replaceAll replacement)))
+
+(defn re-sub
+  "Replaces the first instance of 'pattern' in 'string' with
+  'replacement'.  Like Ruby's 'String#sub'."
+  [#^Pattern regex replacement #^String string]
+  (.. regex (matcher string) (replaceFirst replacement)))
+
+(defn str-join
+  "Returns a string of all elements in 'sequence', separated by
+  'separator'.  Like Perl's 'join'."
+  [separator sequence]
+  (apply str (interpose separator sequence)))