Changeset 9540


Ignore:
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:
1 edited
1 moved

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/ide-self-update.lisp

    r9509 r9540  
    6868;;;  URL: yatta-yatta
    6969;;; where yatta-yatta is the repository URL of the checked out directory
    70 ;;; Another piece of information we want opos up here, too: the
     70;;; Another piece of information we want shows Up here, too: the
    7171;;; current revision, on a line of the form:
    7272;;; Revision: foobar
    7373
     74(defun split-svn-info-line (line)
     75  (let* ((split-sequence ": ")
     76         (split-index (find-matching-subsequence split-sequence line :test #'char=))
     77         (prefix (subseq line 0 split-index))
     78         (suffix (subseq line (if split-index
     79                                  (+ split-index (length split-sequence))
     80                                  (length line)))))
     81    (list prefix suffix)))
     82
    7483(defun parse-svn-info (info-string)
    75   info-string)
     84  (let ((info-lines (split-lines info-string)))
     85    (mapcar #'split-svn-info-line info-lines)))
    7686
    7787(defun get-svn-info (p)
Note: See TracChangeset for help on using the changeset viewer.