- cl-darcs-cvs@lists.common-lisp.net - mailman3.common-lisp.net

[Cl-darcs-cvs] r87 - cl-darcs/trunk
by mhenoch＠common-lisp.net 09 Feb '07

09 Feb '07

Author: mhenoch Date: Fri Feb 9 13:30:27 2007 New Revision: 87 Modified: cl-darcs/trunk/util.lisp Log: Implement compress-file for SBCL Modified: cl-darcs/trunk/util.lisp ============================================================================== --- cl-darcs/trunk/util.lisp (original) +++ cl-darcs/trunk/util.lisp Fri Feb 9 13:30:27 2007 @@ -150,6 +150,11 @@ (ext:run-program "gzip" :input (namestring infile) :output (namestring outfile) :if-output-exists :error) (dformat "done")) + #+sbcl + ((pathnamep infile) + (dformat "~&Compressing ~A through external program..." outfile) + (sb-ext:run-program "/usr/bin/gzip" nil :input infile :output outfile + :if-output-exists :error)) (t (cerror "Assume compression performed." "Don't know how to gzip ~A to ~A." infile outfile))))

1 0

[Cl-darcs-cvs] r86 - cl-darcs/trunk
by mhenoch＠common-lisp.net 08 Feb '07

08 Feb '07

Author: mhenoch Date: Wed Feb 7 21:34:16 2007 New Revision: 86 Modified: cl-darcs/trunk/patch-core.lisp Log: Unquote type declarations. Modified: cl-darcs/trunk/patch-core.lisp ============================================================================== --- cl-darcs/trunk/patch-core.lisp (original) +++ cl-darcs/trunk/patch-core.lisp Wed Feb 7 21:34:16 2007 @@ -65,17 +65,17 @@ (defclass binary-patch (file-patch) ((oldhex :accessor binary-oldhex :initarg :oldhex - :type '(vector (unsigned-byte 8)) + :type (vector (unsigned-byte 8)) :documentation "The old contents of the file.") (newhex :accessor binary-newhex :initarg :newhex - :type '(vector (unsigned-byte 8)) + :type (vector (unsigned-byte 8)) :documentation "The new contents of the file.")) (:documentation "A patch that changes a binary file.")) (defclass token-replace-patch (file-patch) - ((regexp :accessor token-regexp :initarg :regexp :type 'string) - (old-token :accessor old-token :initarg :old-token :type 'string) - (new-token :accessor new-token :initarg :new-token :type 'string)) + ((regexp :accessor token-regexp :initarg :regexp :type string) + (old-token :accessor old-token :initarg :old-token :type string) + (new-token :accessor new-token :initarg :new-token :type string)) (:documentation "A patch that replaces one token with another.")) (defmethod print-object ((patch token-replace-patch) stream)

1 0

[Cl-darcs-cvs] r85 - cl-darcs/trunk
by mhenoch＠common-lisp.net 08 Feb '07

08 Feb '07

Author: mhenoch Date: Wed Feb 7 21:31:49 2007 New Revision: 85 Modified: cl-darcs/trunk/pull.lisp Log: Add missing format argument. Modified: cl-darcs/trunk/pull.lisp ============================================================================== --- cl-darcs/trunk/pull.lisp (original) +++ cl-darcs/trunk/pull.lisp Wed Feb 7 21:31:49 2007 @@ -75,6 +75,6 @@ (setf applying-to-source nil)))) (format t ".")) (when source-and-pristine-differ - (format t "~&~<Some patches could not be applied to the source tree.~ -You should manually merge changes from the pristine tree in _darcs/pristine/.~:@>"))))) + (format t "~&~<Some patches could not be applied to the source tree. ~ +You should manually merge changes from the pristine tree in _darcs/pristine/.~>" nil))))) (format t "~&All done")))

1 0

[Cl-darcs-cvs] r84 - cl-darcs/trunk
by mhenoch＠common-lisp.net 28 Nov '06

28 Nov '06

Author: mhenoch Date: Mon Nov 27 20:36:54 2006 New Revision: 84 Modified: cl-darcs/trunk/packages.lisp Log: Export record-changes instead of record-patches Modified: cl-darcs/trunk/packages.lisp ============================================================================== --- cl-darcs/trunk/packages.lisp (original) +++ cl-darcs/trunk/packages.lisp Mon Nov 27 20:36:54 2006 @@ -5,4 +5,4 @@ (:nicknames :cl-darcs) (:export #:get-repo #:pull #:diff-repo #:*http-proxy* - #:record-patches #:create-repo)) + #:record-changes #:create-repo))

1 0

[Cl-darcs-cvs] r83 - cl-darcs/trunk
by mhenoch＠common-lisp.net 28 Nov '06

28 Nov '06

Author: mhenoch Date: Mon Nov 27 20:36:32 2006 New Revision: 83 Modified: cl-darcs/trunk/get.lisp cl-darcs/trunk/packages.lisp Log: Add and export create-repo Modified: cl-darcs/trunk/get.lisp ============================================================================== --- cl-darcs/trunk/get.lisp (original) +++ cl-darcs/trunk/get.lisp Mon Nov 27 20:36:32 2006 @@ -16,6 +16,12 @@ (in-package :darcs) +(defun create-repo (repodir) + "Create an empty repository." + (setf repodir (fad:pathname-as-directory repodir)) + (prepare-new-repo repodir) + (create-pristine-from-tree repodir)) + ;; get_cmd in Get.lhs (defun get-repo (inrepodir outname &key (partial nil) (query nil)) (setf outname (fad:pathname-as-directory outname)) Modified: cl-darcs/trunk/packages.lisp ============================================================================== --- cl-darcs/trunk/packages.lisp (original) +++ cl-darcs/trunk/packages.lisp Mon Nov 27 20:36:32 2006 @@ -5,4 +5,4 @@ (:nicknames :cl-darcs) (:export #:get-repo #:pull #:diff-repo #:*http-proxy* - #:record-patches)) + #:record-patches #:create-repo))

1 0

[Cl-darcs-cvs] r82 - cl-darcs/trunk
by mhenoch＠common-lisp.net 28 Nov '06

28 Nov '06

Author: mhenoch Date: Mon Nov 27 19:29:54 2006 New Revision: 82 Modified: cl-darcs/trunk/record.lisp Log: Display patches before asking whether to record them. Handle recording with empty log message. Modified: cl-darcs/trunk/record.lisp ============================================================================== --- cl-darcs/trunk/record.lisp (original) +++ cl-darcs/trunk/record.lisp Mon Nov 27 19:29:54 2006 @@ -33,7 +33,8 @@ (format nil "~4,'0d~2,'0d~2,'0d~2,'0d~2,'0d~2,'0d" year month date hour minute second)) date) - :log (split-sequence:split-sequence #\Newline log))) + :log (when log + (split-sequence:split-sequence #\Newline log)))) (patch (make-instance 'named-patch :patchinfo patchinfo :dependencies nil @@ -60,6 +61,7 @@ (loop while (setf patches (remove nil patches)) do ;; Should we include this patch? + (display-patch (car patches) *query-io*) (if (y-or-n-p "Record patch ~A?" (car patches)) (progn ;; Yes, just add it to the list and go on.

1 0

[Cl-darcs-cvs] r81 - cl-darcs/trunk
by mhenoch＠common-lisp.net 28 Nov '06

28 Nov '06

Author: mhenoch Date: Mon Nov 27 19:15:21 2006 New Revision: 81 Added: cl-darcs/trunk/display-patch.lisp Modified: cl-darcs/trunk/cl-darcs.asd Log: Add display-patch.lisp Modified: cl-darcs/trunk/cl-darcs.asd ============================================================================== --- cl-darcs/trunk/cl-darcs.asd (original) +++ cl-darcs/trunk/cl-darcs.asd Mon Nov 27 19:15:21 2006 @@ -45,6 +45,7 @@ (:file "write-patch" :depends-on ("patch-core")) (:file "apply-patch" :depends-on ("patch-core")) (:file "invert-patch" :depends-on ("patch-core")) + (:file "display-patch" :depends-on ("patch-core")) (:file "pristine" :depends-on ("patch-core")) (:file "touching" :depends-on ("patch-core")) (:file "commute" :depends-on ("patch-core")) Added: cl-darcs/trunk/display-patch.lisp ============================================================================== --- (empty file) +++ cl-darcs/trunk/display-patch.lisp Mon Nov 27 19:15:21 2006 @@ -0,0 +1,36 @@ +;;; Copyright (C) 2006 Magnus Henoch +;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2 of the +;;; License, or (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program; if not, write to the Free Software +;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + +(in-package :darcs) + +(defgeneric display-patch (patch stream) + (:documentation + "Print an elaborate and readable description of PATCH to STREAM.")) + +(defmethod display-patch ((patch patch) stream) + "When no display method is defined, write a terse description." + (print patch stream)) + +(defmethod display-patch ((patch hunk-patch) stream) + (format stream "~&~A: ~A~[~:;~:*-~A~]~[~:;~:*+~A~]" + (patch-filename patch) + (hunk-line-number patch) + (length (hunk-old-lines patch)) + (length (hunk-new-lines patch))) + (dolist (old (hunk-old-lines patch)) + (format stream "~&-~A" (bytes-to-string old))) + (dolist (new (hunk-new-lines patch)) + (format stream "~&+~A" (bytes-to-string new))))

1 0

[Cl-darcs-cvs] r80 - cl-darcs/trunk
by mhenoch＠common-lisp.net 27 Nov '06

27 Nov '06

Author: mhenoch Date: Mon Nov 27 18:48:08 2006 New Revision: 80 Modified: cl-darcs/trunk/README Log: Mention record-changes in README Modified: cl-darcs/trunk/README ============================================================================== --- cl-darcs/trunk/README (original) +++ cl-darcs/trunk/README Mon Nov 27 18:48:08 2006 @@ -22,12 +22,19 @@ or (darcs:pull "/local/repo-dir/" "http://path/to/repo") -cl-darcs currently doesn't try to merge changes in your local tree -with patches you pull; you have to do that manually if you want to -edit files. For now, you need an external tool to find the local -changes, e.g: +When pulling, the new patches will be applied on top of any unrecorded +changes, which has a good chance of not working. -diff -x _darcs -ru _darcs/pristine/ . +To record your own changes: + +(darcs:record-changes "/local/repo-dir/" + "Short patch description" + "my-address(a)example.com" + :now + "Longer, possibly multi-line, description. +Or just NIL.") + +You will be asked about which changes should be recorded. * Configuration

1 0

[Cl-darcs-cvs] r79 - cl-darcs/trunk
by mhenoch＠common-lisp.net 27 Nov '06

27 Nov '06

Author: mhenoch Date: Mon Nov 27 18:31:58 2006 New Revision: 79 Modified: cl-darcs/trunk/packages.lisp Log: Export record-patches Modified: cl-darcs/trunk/packages.lisp ============================================================================== --- cl-darcs/trunk/packages.lisp (original) +++ cl-darcs/trunk/packages.lisp Mon Nov 27 18:31:58 2006 @@ -4,4 +4,5 @@ (:use :cl) (:nicknames :cl-darcs) (:export - #:get-repo #:pull #:diff-repo #:*http-proxy*)) + #:get-repo #:pull #:diff-repo #:*http-proxy* + #:record-patches))

1 0

[Cl-darcs-cvs] r78 - cl-darcs/trunk
by mhenoch＠common-lisp.net 27 Nov '06

27 Nov '06

Author: mhenoch Date: Mon Nov 27 18:31:02 2006 New Revision: 78 Modified: cl-darcs/trunk/record.lisp Log: Add select-patches and use it Modified: cl-darcs/trunk/record.lisp ============================================================================== --- cl-darcs/trunk/record.lisp (original) +++ cl-darcs/trunk/record.lisp Mon Nov 27 18:31:02 2006 @@ -51,4 +51,47 @@ (unless patches (error "Nothing to record.")) - (record-patches repo name author date log patches))) + (record-patches repo name author date log (select-patches patches)))) + +(defun select-patches (patches) + "Ask the user to select some of PATCHES. +Do the necessary commutation and dependency elimination." + (let (patches-to-record) + (loop while (setf patches (remove nil patches)) + do + ;; Should we include this patch? + (if (y-or-n-p "Record patch ~A?" (car patches)) + (progn + ;; Yes, just add it to the list and go on. + (push (car patches) patches-to-record) + (setf patches (cdr patches))) + ;; No, we need to commute it through the rest of the patches. + (loop for commute-patches on (cdr patches) + ;; Try to commute it with the next patch in line. + do (let ((commute-result (commute (car commute-patches) (car patches)))) + (if commute-result + ;; Commutation succeeded; use the altered patches. + (destructuring-bind (commuted-current commuted-future) commute-result + (setf (car patches) commuted-current) + (setf (car commute-patches) commuted-future)) + ;; Commutation failed; (car commute-patches) depends on (car patches). + ;; Try to commute them together. + (progn + ;; Turn the patch we are commuting through + ;; the list into a composite patch, unless it is + ;; one already. Append the dependency. + (etypecase (car patches) + (composite-patch + (nconc (patches (car patches)) + (list (car commute-patches)))) + (patch + (setf (car patches) + (make-instance 'composite-patch + :patches (list + (car patches) + (car commute-patches)))))) + ;; Drop the dependency from the list of + ;; patches to consider. + (setf (car commute-patches) nil)))) + finally (setf patches (cdr patches))))) + (nreverse patches-to-record)))

1 0