Changeset 7797

Timestamp:

Nov 30, 2007, 3:57:50 PM (17 years ago)

Author:

Gary Byers

Message:

add UPDATE-CCL

File:

• branches/working-0711/ccl/lib/compile-ccl.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/compile-ccl.lisp

@@ -563 +563 @@
           (format t "~%~%;[Parsing .ffi files again to resolve forward-referenced constants]")
           (funcall f dirname target))))))
+
+(defun update-ccl ()
+  (let* ((cvs-update "cvs -q update -d -P")
+         (svn-update "svn update")
+         (use-cvs (probe-file "ccl:\.svnrev"))
+         (s (make-string-output-stream)))
+    (multiple-value-bind (status exit-code)
+        (external-process-status
+         (run-program "/bin/sh"
+                      (list "-c"
+                            (format nil "cd ~a && ~a"
+                                    (native-translated-namestring "ccl:")
+                                    (if use-cvs cvs-update svn-update)))
+                      :output s))
+      (when (and (eq status :exited)
+                 (eql exit-code 0))
+        (format t "~&~a" (get-output-stream-string s))
+        t))))
+
+