Changeset 9540

Timestamp:

May 17, 2008, 1:55:48 AM (11 years ago)

Author:

mikel

Message:

added more infrastructure for svn self-update, including some sequence utilities

Location:

trunk/source

Files:

• cocoa-ide/ide-self-update.lisp (modified) (1 diff)
• library/sequence-utils.lisp (moved) (moved from trunk/source/library/split-if.lisp)

trunk/source/cocoa-ide/ide-self-update.lisp

@@ -68 +68 @@
 ;;;  URL: yatta-yatta
 ;;; where yatta-yatta is the repository URL of the checked out directory
-;;; Another piece of information we want opos up here, too: the
+;;; Another piece of information we want shows Up here, too: the
 ;;; current revision, on a line of the form:
 ;;; Revision: foobar
 
+(defun split-svn-info-line (line)
+  (let* ((split-sequence ": ")
+         (split-index (find-matching-subsequence split-sequence line :test #'char=))
+         (prefix (subseq line 0 split-index))
+         (suffix (subseq line (if split-index
+                                  (+ split-index (length split-sequence))
+                                  (length line)))))
+    (list prefix suffix)))
+
 (defun parse-svn-info (info-string)
-  info-string)
+  (let ((info-lines (split-lines info-string)))
+    (mapcar #'split-svn-info-line info-lines)))
 
 (defun get-svn-info (p)