Changeset 9687


Ignore:
Timestamp:
Jun 6, 2008, 10:09:46 PM (11 years ago)
Author:
mikel
Message:

changed ide-self-update to use svn utils from lib/misc.lisp

File:
1 edited

Legend:

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

    r9686 r9687  
    128128    (mapcar #'split-svn-info-line info-lines)))
    129129
    130 (defmethod get-svn-info ((p string))
    131   (parse-svn-info (svn-info p)))
    132 
    133 (defmethod get-svn-info ((p pathname))
    134   (get-svn-info (namestring p)))
    135 
    136 (defmethod svn-repository ((p string))
    137   (let* ((info (get-svn-info p))
    138          (repo-entry (assoc "URL" info :test #'string=)))
    139     (when repo-entry (second repo-entry))))
    140 
    141 (defmethod svn-repository ((p pathname))
    142   (svn-repository (namestring p)))
    143 
    144 (defmethod svn-revision ((p string))
    145   (let* ((info (get-svn-info p))
    146          (revision-entry (assoc "Revision" info :test #'string=)))
    147     (when revision-entry (second revision-entry))))
    148 
    149 (defmethod svn-revision ((p pathname))
    150   (svn-revision (namestring p)))
     130(defun svn-revision ()
     131  (svn-info-component "Revision:"))
    151132
    152133;;; -----------------------------------------------------------------
     
    241222
    242223(defun run-svn-update-for-directory (dir)
    243   (let* ((svn-info (get-svn-info dir))
    244          (revision-entry (assoc "Revision" svn-info :test #'string=))
    245          (revision (and revision-entry (second revision-entry)))
    246          (url-entry (assoc "URL" svn-info :test #'string=))
    247          (url (and url-entry (second url-entry))))
     224  (let* ((revision (svn-info-component "Revision:"))
     225         (url (svn-url)))
    248226    (svn-update-ccl :directory dir :repository url :last-revision revision)))
    249227 
Note: See TracChangeset for help on using the changeset viewer.