Changeset 7278


Ignore:
Timestamp:
Sep 23, 2007, 2:21:50 PM (12 years ago)
Author:
gb
Message:

Try to use "svnversion" to get svn version info in LOCAL-SVN-REVISION.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/misc.lisp

    r7271 r7278  
    706706    (multiple-value-bind (status exit-code)
    707707        (external-process-status
    708          (run-program "svn"  (list "info" (native-translated-namestring "ccl:")):output s))
     708         (run-program "svnversion"  (list  (native-translated-namestring "ccl:") "/trunk/ccl"):output s))
    709709      (when (and (eq :exited status) (zerop exit-code))
    710710        (with-input-from-string (output (get-output-stream-string s))
    711           (do* ((line (read-line output nil nil)
    712                       (read-line output nil nil))
    713                 (revstring "Revision:")
    714                 (revstringlen (length revstring)))
    715                ((null line))
    716             (when (string= line revstring :end1 revstringlen)
    717               (return-from local-svn-revision
    718                 (values (parse-integer line :start revstringlen)))))))))))
     711          (let* ((line (read-line output nil nil)))
     712            (when (and line (parse-integer line :junk-allowed t) )
     713              (return-from local-svn-revision line)))))))))
Note: See TracChangeset for help on using the changeset viewer.