Changeset 9540
- Timestamp:
- May 17, 2008, 1:55:48 AM (13 years ago)
- Location:
- trunk/source
- Files:
-
- 1 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/ide-self-update.lisp
r9509 r9540 68 68 ;;; URL: yatta-yatta 69 69 ;;; where yatta-yatta is the repository URL of the checked out directory 70 ;;; Another piece of information we want opos up here, too: the70 ;;; Another piece of information we want shows Up here, too: the 71 71 ;;; current revision, on a line of the form: 72 72 ;;; Revision: foobar 73 73 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 74 83 (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))) 76 86 77 87 (defun get-svn-info (p)
Note: See TracChangeset
for help on using the changeset viewer.