gmane.comp.version-control.cl-darcs.scm

r205 - cl-darcs/trunk/doc

2008-04-03T00:03:59

Author: mhenoch Date: Wed Apr 2 19:03:58 2008 New Revision: 205 Modified: cl-darcs/trunk/doc/cl-darcs.texi Log: Document "darcs init" Modified: cl-darcs/trunk/doc/cl-darcs.texi ============================================================================== --- cl-darcs/trunk/doc/cl-darcs.texi(original) +++ cl-darcs/trunk/doc/cl-darcs.texiWed Apr 2 19:03:58 2008 < at >< at > -156,6 +156,10 < at >< at > < at >node Creating a new repository, Pulling new patches, Getting a repository, Top < at >chapter Creating a new repository +< at >deffn Command < at >command{darcs init} +Create a new empty repository in the current directory. +< at >end deffn + < at >defun DARCS:CREATE-REPO repodir Create a new empty repository in < at >var{repodir}. < at >var{repodir} must be a local nonexistent directory.

r204 - cl-darcs/trunk

2008-04-03T00:02:00

Author: mhenoch Date: Wed Apr 2 19:02:00 2008 New Revision: 204 Modified: cl-darcs/trunk/cmdline.lisp Log: Note todo items for command operands Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp(original) +++ cl-darcs/trunk/cmdline.lispWed Apr 2 19:02:00 2008 < at >< at > -97,9 +97,11 < at >< at > (lambda (o) `(,o (cdr (assoc (option-keyword ,(option-symbol o)) ,options-sym)))) options) + ;; XXX: what if this fails? (destructuring-bind ,operands ,operands-sym ,< at >body)))) (setf (get ',function 'darcs-documentation) + ;; XXX: documentation for operands ,(if (null options) docstring `(format nil

r203 - cl-darcs/trunk

2008-04-03T00:00:27

Author: mhenoch Date: Wed Apr 2 19:00:27 2008 New Revision: 203 Modified: cl-darcs/trunk/cmdline.lisp Log: Use DARCS-DOCUMENTATION property in USAGE Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp(original) +++ cl-darcs/trunk/cmdline.lispWed Apr 2 19:00:27 2008 < at >< at > -65,7 +65,7 < at >< at > (format *error-output* " ~A~15,2T~A~%" cmd (car (split-sequence:split-sequence - #\Newline (documentation function 'function) + #\Newline (get function 'darcs-documentation) :count 1)))))) (defun command-usage (command)

r202 - cl-darcs/trunk/doc

2008-04-02T23:50:10

Author: mhenoch Date: Wed Apr 2 18:50:10 2008 New Revision: 202 Modified: cl-darcs/trunk/doc/cl-darcs.texi Log: Document command line tool Modified: cl-darcs/trunk/doc/cl-darcs.texi ============================================================================== --- cl-darcs/trunk/doc/cl-darcs.texi(original) +++ cl-darcs/trunk/doc/cl-darcs.texiWed Apr 2 18:50:10 2008 < at >< at > -42,6 +42,7 < at >< at > < at >menu * Introduction:: +* Running cl-darcs:: * Access methods:: * Getting a repository:: * Creating a new repository:: < at >< at > -50,7 +51,7 < at >< at > * Working directory layout:: < at >end menu -< at >node Introduction, Access methods, Top, Top +< at >node Introduction, Running cl-darcs, Top, Top < at >chapter Introduction cl-darcs is an implementation of the darcs version control system < at >< at > -82,7 +83,24 < at >< at > middle-of-the-room cases). However, it is already useful for simple usage. -< at >node Access methods, Getting a repository, Introduction, Top +< at >node Running cl-darcs, Access methods, Introduction, Top +< at >chapter Running cl-darcs + +There are two ways of running cl-darcs, from the shell, or from the +REPL. + +< at >section From the shell + +If you have successfully compiled the < at >file{darcs} binary, you can use +it much like you'd use the original darcs client, except that it only +supports a small subset of the commands. + +< at >section From the REPL + +Of course, all functionality is equally available from the REPL, though +sometimes with different syntax or semantics. + +< at >node Access methods, Getting a repository, Running cl-darcs, Top < at >chapter Access methods cl-darcs can access repositories on a local disk (read and write) and on < at >< at > -103,20 +121,14 < at >< at > Using a caching proxy (e.g. Squid) can be a good idea, since cl-darcs is sometimes a bit wasteful about how much it downloads, and bugs might make it lose what it already has downloaded. + +This variable is not available in the standalone < at >file{darcs} +executable. < at >end defopt < at >node Getting a repository, Creating a new repository, Access methods, Top < at >chapter Getting a repository -< at >defun DARCS:GET-REPO in-path out-path &key query -Get a local copy of the tree at < at >var{in-path}, and write it to -< at >var{out-path}. < at >var{in-path} may be an HTTP URL or a local directory. -< at >var{out-path} must be a local nonexistent directory. - -If < at >var{query} is true, ask for a range of patches to download and -apply. -< at >end defun - Getting a copy of a repository involves getting all the patches from that repository, and applying them one by one to the local tree. This can be a lot of data, if the repository has long history. Darcs has a < at >< at > -126,6 +138,21 < at >< at > < at >file{_darcs/prefs/defaultrepo}), and is used as default repository to pull from. < at >xref{Pulling new patches}. +< at >deffn Command < at >command{darcs get} [< at >kbd{--repodir=}< at >var{to}] from +Get a local copy of the tree at < at >var{from}, and write it to < at >var{to}. +If < at >var{to} is not specified, a subdirectory of the current directory is +created, based on the last path element of < at >var{from}. +< at >end deffn + +< at >defun DARCS:GET-REPO in-path out-path &key query +Get a local copy of the tree at < at >var{in-path}, and write it to +< at >var{out-path}. < at >var{in-path} may be an HTTP URL or a local directory. +< at >var{out-path} must be a local nonexistent directory. + +If < at >var{query} is true, ask for a range of patches to download and +apply. +< at >end defun + < at >node Creating a new repository, Pulling new patches, Getting a repository, Top < at >chapter Creating a new repository < at >< at > -145,6 +172,17 < at >< at > Updating your working copy with new patches from the original repository is called ``pulling'' these patches. +< at >deffn Command < at >command{darcs pull} [< at >kbd{--all-patches}|< at >kbd{-a}] [< at >kbd{--repodir=}< at >var{local}] [< at >var{foreign}] + +Pull new patches from repository < at >var{foreign} into repository +< at >var{local}. If < at >var{local} is not specified, it defaults to the +current directory. If < at >var{foreign} is not specified, it defaults to +the repository you pulled from last time. + +If you specify < at >kbd{-a} or < at >kbd{--all-patches}, all new patches are +pulled; otherwise you will be asked for which ones to pull. +< at >end deffn + < at >defun DARCS:PULL our-repo &optional their-repo Pull new patches from < at >var{their-repo} into < at >var{our-repo}. < at >var{our-repo} must be a local darcs tree. < at >var{their-repo} can be a < at >< at > -162,9 +200,6 < at >< at > from where you can recover the changed file and merge it with your changes. -Also, all new patches will be pulled without asking. This is -suboptimal; selecting some of the patches should be supported. - < at >node Recording a patch, Working directory layout, Pulling new patches, Top < at >chapter Recording a patch < at >< at > -172,6 +207,10 < at >< at > called ``recording'' in darcs. Before doing that, you may want to review your local changes. +< at >deffn Command < at >command{darcs whatsnew} +Find changes in the repository in the current directory, and print them. +< at >end deffn + < at >defun DARCS:DIFF-REPO-DISPLAY repo Find changes in < at >var{repo} and print them. < at >end defun < at >< at > -181,6 +220,11 < at >< at > ignored; see < at >ref{Boring files}. New files in your tree are automatically included in the diff output, unless they are ``boring''. +< at >deffn Command < at >command{darcs record} +Interactively ask which changes to record, what name to give the patch, +and who the author is. +< at >end deffn + < at >defun DARCS:RECORD-CHANGES repo name author date log Interactively ask which changes to < at >var{repo} to record.

r201 - cl-darcs/trunk

2008-04-02T22:40:59

Author: mhenoch Date: Wed Apr 2 17:40:59 2008 New Revision: 201 Modified: cl-darcs/trunk/README Log: Mention compilation in README Modified: cl-darcs/trunk/README ============================================================================== --- cl-darcs/trunk/README(original) +++ cl-darcs/trunk/READMEWed Apr 2 17:40:59 2008 < at >< at > -2,7 +2,18 < at >< at > writing it because the original client requires GHC (the Glasgow Haskell Compiler), which is not available on all platforms. -cl-darcs is currently in a very early state of development. +* Compiling + +If you use CLISP or SBCL, you can use cl-darcs as a standalone +executable with an interface very similar to the real darcs. Just +run: + +./configure && make && make install + +You can also use cl-darcs from the REPL, by installing it as an ASDF +system: + +ln -s $PWD/cl-darcs.asd /path/to/asdf-systems/ * Usage

r200 - cl-darcs/trunk/doc

2008-04-02T22:35:47

Author: mhenoch Date: Wed Apr 2 17:35:47 2008 New Revision: 200 Modified: cl-darcs/trunk/doc/cl-darcs.texi Log: Add dir entry to documentation Modified: cl-darcs/trunk/doc/cl-darcs.texi ============================================================================== --- cl-darcs/trunk/doc/cl-darcs.texi(original) +++ cl-darcs/trunk/doc/cl-darcs.texiWed Apr 2 17:35:47 2008 < at >< at > -14,6 +14,11 < at >< at > < at >end quotation < at >end copying +< at >dircategory Software development +< at >direntry +* Cl-darcs: (cl-darcs). Darcs version control system client +< at >end direntry + < at >titlepage < at >title cl-darcs 0.3.0 < at >subtitle a darcs client in Common Lisp

r199 - cl-darcs/trunk

2008-04-02T22:27:17

Author: mhenoch Date: Wed Apr 2 17:27:17 2008 New Revision: 199 Modified: cl-darcs/trunk/Makefile.am Log: Include test suite in distribution Modified: cl-darcs/trunk/Makefile.am ============================================================================== --- cl-darcs/trunk/Makefile.am(original) +++ cl-darcs/trunk/Makefile.amWed Apr 2 17:27:17 2008 < at >< at > -3,6 +3,8 < at >< at > info_TEXINFOS=doc/cl-darcs.texi +dist_noinst_DATA=tests/package.lisp tests/gcau-tests.lisp + # satisfy ASDF's tarball name convention distdir=$(PACKAGE)_$(VERSION)

r198 - in cl-darcs/trunk: . doc

2008-04-02T22:06:36

Author: mhenoch Date: Wed Apr 2 17:06:36 2008 New Revision: 198 Removed: cl-darcs/trunk/doc/Makefile.am Modified: cl-darcs/trunk/Makefile.am cl-darcs/trunk/configure.ac Log: Use one central makefile Modified: cl-darcs/trunk/Makefile.am ============================================================================== --- cl-darcs/trunk/Makefile.am(original) +++ cl-darcs/trunk/Makefile.amWed Apr 2 17:06:36 2008 < at >< at > -1,7 +1,7 < at >< at > bin_PROGRAMS = darcs darcs_SOURCES = cl-darcs.asd apply-patch.lisp cmdline.lisp commute.lisp condition.lisp diff.lisp display-patch.lisp dump-clisp.lisp dump-sbcl.lisp equal.lisp get.lisp getopt.lisp ifstar.lisp inflate.lisp invert-patch.lisp merge.lisp packages.lisp patch-core.lisp patchinfo.lisp pending.lisp prefs.lisp pristine.lisp pull.lisp read-patch.lisp record.lisp repo.lisp revert.lisp send.lisp touching.lisp unreadable-stream.lisp unwind.lisp upath.lisp util.lisp write-patch.lisp -SUBDIRS=doc +info_TEXINFOS=doc/cl-darcs.texi # satisfy ASDF's tarball name convention distdir=$(PACKAGE)_$(VERSION) Modified: cl-darcs/trunk/configure.ac ============================================================================== --- cl-darcs/trunk/configure.ac(original) +++ cl-darcs/trunk/configure.acWed Apr 2 17:06:36 2008 < at >< at > -52,5 +52,5 < at >< at > AC_SUBST(SBCL) AC_SUBST(SBCL_FLAGS) -AC_CONFIG_FILES([Makefile doc/Makefile]) +AC_CONFIG_FILES([Makefile]) AC_OUTPUT

r197 - cl-darcs/trunk

2008-04-02T22:00:47

Author: mhenoch Date: Wed Apr 2 17:00:46 2008 New Revision: 197 Modified: cl-darcs/trunk/Makefile.am Log: Satisfy ASDF's tarball name convention Modified: cl-darcs/trunk/Makefile.am ============================================================================== --- cl-darcs/trunk/Makefile.am(original) +++ cl-darcs/trunk/Makefile.amWed Apr 2 17:00:46 2008 < at >< at > -3,6 +3,9 < at >< at > SUBDIRS=doc +# satisfy ASDF's tarball name convention +distdir=$(PACKAGE)_$(VERSION) + darcs: $(darcs_SOURCES) $(MAKE) build_with_< at >my_lisp< at >

r196 - cl-darcs/trunk

2008-04-02T22:00:31

Author: mhenoch Date: Wed Apr 2 17:00:30 2008 New Revision: 196 Modified: cl-darcs/trunk/Makefile.am Log: Don't rebuild darcs unless dependencies changed Modified: cl-darcs/trunk/Makefile.am ============================================================================== --- cl-darcs/trunk/Makefile.am(original) +++ cl-darcs/trunk/Makefile.amWed Apr 2 17:00:30 2008 < at >< at > -3,7 +3,8 < at >< at > SUBDIRS=doc -darcs: build_with_< at >my_lisp< at > +darcs: $(darcs_SOURCES) +$(MAKE) build_with_< at >my_lisp< at > build_with_clisp: < at >CLISP< at > < at >CLISP_FLAGS< at > < at >srcdir< at >/dump-clisp.lisp

r195 - cl-darcs/trunk

2008-04-02T21:32:07

Author: mhenoch Date: Wed Apr 2 16:32:07 2008 New Revision: 195 Added: cl-darcs/trunk/dump-clisp.lisp cl-darcs/trunk/dump-sbcl.lisp Log: Commit dump scripts Added: cl-darcs/trunk/dump-clisp.lisp ============================================================================== --- (empty file) +++ cl-darcs/trunk/dump-clisp.lispWed Apr 2 16:32:07 2008 < at >< at > -0,0 +1,35 < at >< at > +;;; Copyright (C) 2007, 2008 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 + +;; Use this file to create a "darcs" executable using CLISP. + +(let* ((src-dir (make-pathname :name nil :type nil :defaults *load-truename*)) + (asdf:*central-registry* (cons src-dir asdf:*central-registry*))) + (asdf:oos 'asdf:load-op :cl-darcs)) + +(in-package :darcs) + +(defun run-with-clisp () + (ext:quit (handle-command-line ext:*args*))) + +(ext:saveinitmem "darcs" + :executable t + :norc t + :quiet t + :init-function #'run-with-clisp + :start-package :darcs) + +(ext:quit) Added: cl-darcs/trunk/dump-sbcl.lisp ============================================================================== --- (empty file) +++ cl-darcs/trunk/dump-sbcl.lispWed Apr 2 16:32:07 2008 < at >< at > -0,0 +1,34 < at >< at > +;;; Copyright (C) 2007, 2008 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 + +;; Use this file to create a "darcs" executable using SBCL: +;; sbcl --disable-debugger --load dump-sbcl.lisp + +(let* ((src-dir (make-pathname :name nil :type nil :defaults *load-truename*)) + (asdf:*central-registry* (cons src-dir asdf:*central-registry*))) + (asdf:oos 'asdf:load-op :cl-darcs)) + +(in-package :darcs) + +(defun run-with-sbcl () + (sb-ext:quit :unix-status (handle-command-line (cdr sb-ext:*posix-argv*)))) + +(proclaim '(optimize debug)) +(sb-ext:save-lisp-and-die "darcs" + :executable t + :toplevel #'run-with-sbcl) + +(sb-ext:quit)

r194 - in cl-darcs/trunk: . doc

2008-04-02T21:14:09

Author: mhenoch Date: Wed Apr 2 16:14:08 2008 New Revision: 194 Modified: cl-darcs/trunk/cl-darcs.asd cl-darcs/trunk/doc/cl-darcs.texi Log: Update version number Modified: cl-darcs/trunk/cl-darcs.asd ============================================================================== --- cl-darcs/trunk/cl-darcs.asd(original) +++ cl-darcs/trunk/cl-darcs.asdWed Apr 2 16:14:08 2008 < at >< at > -7,7 +7,7 < at >< at > (defsystem cl-darcs :description "Darcs client" - :version "0.2.0" + :version "0.3.0" :licence "GPL" :author "Magnus Henoch dtek.chalmers.se>" :depends-on (:split-sequence Modified: cl-darcs/trunk/doc/cl-darcs.texi ============================================================================== --- cl-darcs/trunk/doc/cl-darcs.texi(original) +++ cl-darcs/trunk/doc/cl-darcs.texiWed Apr 2 16:14:08 2008 < at >< at > -1,11 +1,11 < at >< at > \input texinfo < at >setfilename cl-darcs.info -< at >settitle cl-darcs 0.2.0 manual +< at >settitle cl-darcs 0.3.0 manual < at >copying -This is the manual for cl-darcs, version 0.2.0. +This is the manual for cl-darcs, version 0.3.0. -Copyright < at >copyright{} 2007 Magnus Henoch +Copyright < at >copyright{} 2007, 2008 Magnus Henoch < at >quotation Permission is granted to make and distribute verbatim copies or < at >< at > -15,7 +15,7 < at >< at > < at >end copying < at >titlepage -< at >title cl-darcs 0.2.0 +< at >title cl-darcs 0.3.0 < at >subtitle a darcs client in Common Lisp < at >author Magnus Henoch

r193 - in cl-darcs/trunk: . doc

2008-04-02T20:55:20

Author: mhenoch Date: Wed Apr 2 15:55:19 2008 New Revision: 193 Added: cl-darcs/trunk/Makefile.am cl-darcs/trunk/configure.ac cl-darcs/trunk/doc/Makefile.am Removed: cl-darcs/trunk/Makefile Log: Autoconfiscate Added: cl-darcs/trunk/Makefile.am ============================================================================== --- (empty file) +++ cl-darcs/trunk/Makefile.amWed Apr 2 15:55:19 2008 < at >< at > -0,0 +1,12 < at >< at > +bin_PROGRAMS = darcs +darcs_SOURCES = cl-darcs.asd apply-patch.lisp cmdline.lisp commute.lisp condition.lisp diff.lisp display-patch.lisp dump-clisp.lisp dump-sbcl.lisp equal.lisp get.lisp getopt.lisp ifstar.lisp inflate.lisp invert-patch.lisp merge.lisp packages.lisp patch-core.lisp patchinfo.lisp pending.lisp prefs.lisp pristine.lisp pull.lisp read-patch.lisp record.lisp repo.lisp revert.lisp send.lisp touching.lisp unreadable-stream.lisp unwind.lisp upath.lisp util.lisp write-patch.lisp + +SUBDIRS=doc + +darcs: build_with_< at >my_lisp< at > + +build_with_clisp: +< at >CLISP< at > < at >CLISP_FLAGS< at > < at >srcdir< at >/dump-clisp.lisp + +build_with_sbcl: +< at >SBCL< at > < at >SBCL_FLAGS< at > --load < at >srcdir< at >/dump-sbcl.lisp Added: cl-darcs/trunk/configure.ac ============================================================================== --- (empty file) +++ cl-darcs/trunk/configure.acWed Apr 2 15:55:19 2008 < at >< at > -0,0 +1,56 < at >< at > +AC_INIT([cl-darcs], [0.3.0], [cl-darcs-devel< at >common-lisp.net]) +AM_INIT_AUTOMAKE([no-dependencies foreign]) + +my_lisp="" + +AC_ARG_WITH(clisp, [AS_HELP_STRING([--with-clisp], [use clisp])], + [my_lisp=$my_lisp"clisp"], []) +AC_ARG_WITH(clisp-flags, [AS_HELP_STRING([--with-clisp-flags], [clisp flags (default -i ~/.clisprc)])], + [], + [with_clisp_flags="-i ~/.clisprc"]) + +AC_ARG_WITH(sbcl, [AS_HELP_STRING([--with-sbcl], [use sbcl])], + [my_lisp=$my_lisp"sbcl"], []) +AC_ARG_WITH(sbcl-flags, [AS_HELP_STRING([--with-sbcl-flags], [sbcl flags (default --disable-debugger)])], +[], +[with_sbcl_flags="--disable-debugger"]) + +dnl First, try to find clisp +if test -z "$my_lisp" -o "$my_lisp" = clisp; then + if test -z "$CLISP"; then + AC_CHECK_PROG(CLISP, clisp, clisp, []) + fi + if test -n "$CLISP"; then + my_lisp=clisp + AC_MSG_CHECKING([for clisp flags]) + CLISP_FLAGS=$with_clisp_flags + AC_MSG_RESULT($CLISP_FLAGS) + fi +fi + +dnl Then, try to find sbcl +if test -z "$my_lisp" -o "$my_lisp" = sbcl; then + if test -z "$SBCL"; then + AC_CHECK_PROG(SBCL, sbcl, sbcl, []) + fi + if test -n "$SBCL"; then + my_lisp=sbcl + AC_MSG_CHECKING([for sbcl flags]) + SBCL_FLAGS=$with_sbcl_flags + AC_MSG_RESULT($SBCL_FLAGS) + fi +fi + +dnl Did we find any lisp? +if test -z "$my_lisp"; then + AC_MSG_ERROR([no lisp found]) +fi + +AC_SUBST(my_lisp) +AC_SUBST(CLISP) +AC_SUBST(CLISP_FLAGS) +AC_SUBST(SBCL) +AC_SUBST(SBCL_FLAGS) + +AC_CONFIG_FILES([Makefile doc/Makefile]) +AC_OUTPUT Added: cl-darcs/trunk/doc/Makefile.am ============================================================================== --- (empty file) +++ cl-darcs/trunk/doc/Makefile.amWed Apr 2 15:55:19 2008 < at >< at > -0,0 +1 < at >< at > +info_TEXINFOS=cl-darcs.texi

r192 - cl-darcs/trunk

2008-04-02T18:08:20

Author: mhenoch Date: Wed Apr 2 13:08:20 2008 New Revision: 192 Modified: cl-darcs/trunk/README Log: Mention Lispworks compatibility Modified: cl-darcs/trunk/README ============================================================================== --- cl-darcs/trunk/README(original) +++ cl-darcs/trunk/READMEWed Apr 2 13:08:20 2008 < at >< at > -32,10 +32,11 < at >< at > * Compatibility -cl-darcs works on CLISP and SBCL on Unix-like systems. Getting it to -work on other Lisp implementations should be simple; grep the code for -#+clisp or #+sbcl. For other operating systems, modify -MAKE-TEMP-FILE-NAME in util.lisp accordingly. +cl-darcs works on CLISP and SBCL on Unix-like systems; it has also +been reported to work on Lispworks. Getting it to work on other Lisp +implementations should be simple; grep the code for #+clisp or #+sbcl. +For other operating systems, modify MAKE-TEMP-FILE-NAME in util.lisp +accordingly. * Dependencies

r191 - cl-darcs/trunk

2008-04-02T18:06:41

Author: mhenoch Date: Wed Apr 2 13:06:41 2008 New Revision: 191 Modified: cl-darcs/trunk/README Log: Mention CL-DIFFLIB in README Modified: cl-darcs/trunk/README ============================================================================== --- cl-darcs/trunk/README(original) +++ cl-darcs/trunk/READMEWed Apr 2 13:06:41 2008 < at >< at > -47,6 +47,7 < at >< at > - FLEXI-STREAMS: http://weitz.de/flexi-streams/ - CL-FAD: http://weitz.de/cl-fad/ - CL-PPCRE: http://weitz.de/cl-ppcre/ + - CL-DIFFLIB: http://www.cliki.net/CL-DIFFLIB All of these are ASDF-INSTALLable.

r190 - cl-darcs/trunk

2008-04-02T18:03:03

Author: mhenoch Date: Wed Apr 2 13:03:02 2008 New Revision: 190 Removed: cl-darcs/trunk/binary-text.lisp Modified: cl-darcs/trunk/cl-darcs.asd Log: Remove unused binary-text.lisp Modified: cl-darcs/trunk/cl-darcs.asd ============================================================================== --- cl-darcs/trunk/cl-darcs.asd(original) +++ cl-darcs/trunk/cl-darcs.asdWed Apr 2 13:03:02 2008 < at >< at > -29,7 +29,7 < at >< at > (:file "condition" :depends-on ("packages")) (:file "util" :depends-on ("packages" "condition" #-allegro "inflate")) (:file "unreadable-stream" :depends-on ("packages")) - (:file "upath" :depends-on ("util" #|"binary-text"|#)) + (:file "upath" :depends-on ("util")) (:file "patchinfo" :depends-on ("util")) (:file "get" :depends-on ("util"))

r189 - cl-darcs/trunk

2008-04-02T00:23:06

Author: mhenoch Date: Tue Apr 1 19:23:06 2008 New Revision: 189 Modified: cl-darcs/trunk/cmdline.lisp Log: Fix typo Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp(original) +++ cl-darcs/trunk/cmdline.lispTue Apr 1 19:23:06 2008 < at >< at > -368,8 +368,8 < at >< at > (typecase from ;; If we have a local pathname, use the last component. (pathname -(or (pathname-name pathname) - (car (last (pathname-directory pathname))))) +(or (pathname-name from) + (car (last (pathname-directory from))))) ;; Otherwise, use the part from the last slash. (t (let* ((s (upath-to-string from))

r188 - cl-darcs/trunk

2008-04-01T23:50:52

Author: mhenoch Date: Tue Apr 1 18:50:52 2008 New Revision: 188 Modified: cl-darcs/trunk/cmdline.lisp Log: Remove superfluous documentation for 'darcs init' Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp(original) +++ cl-darcs/trunk/cmdline.lispTue Apr 1 18:50:52 2008 < at >< at > -226,10 +226,7 < at >< at > (diff-repo-display (find-repo))) (define-darcs-command init (repodir) () - "Initialize a darcs repository in the current directory. - -Options: ---repodir=DIRECTORY Use DIRECTORY instead of current directory" + "Initialize a darcs repository in the current directory." (let ((repodir (or repodir *default-pathname-defaults*))) (format t "Creating repo in ~A...~%" repodir)

r187 - cl-darcs/trunk

2008-04-01T23:37:27

Author: mhenoch Date: Tue Apr 1 18:37:24 2008 New Revision: 187 Modified: cl-darcs/trunk/cmdline.lisp Log: Generate documentation for all command arguments Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp(original) +++ cl-darcs/trunk/cmdline.lispTue Apr 1 18:37:24 2008 < at >< at > -70,7 +70,7 < at >< at > (defun command-usage (command) "Print longer documentation for COMMAND." - (format *error-output* "~&~A~%" (documentation (command-function command) 'function))) + (format *error-output* "~&~A~%" (get (command-function command) 'darcs-documentation))) (defmacro define-darcs-command (name options operands docstring &body body) "Define a darcs command called NAME. < at >< at > -98,7 +98,35 < at >< at > `(,o (cdr (assoc (option-keyword ,(option-symbol o)) ,options-sym)))) options) (destructuring-bind ,operands ,operands-sym - ,< at >body)))))))) + ,< at >body)))) + (setf (get ',function 'darcs-documentation) + ,(if (null options) + docstring + `(format nil + "~A~%~%~:{~A~30,5T~A~%~}" + ,docstring + (mapcar + (lambda (opt) +(list + (cond + ((and (option-short opt) + (option-long opt)) + (format nil "--~A~< at >[=~A~], -~C" + (option-long opt) + (option-arg opt) + (option-short opt))) + ((option-short opt) + (format nil "-~C~< at >[ ~A~]" + (option-short opt) + (option-arg opt))) + ((option-long opt) + (format nil "--~A~< at >[=~A~]" + (option-long opt) + (option-arg opt))) + (t + (error "Option ~A has neither short nor long argument form." (option-keyword opt)))) + (option-help opt))) + (list ,< at >(mapcar #'option-symbol options)))))))))) (defparameter opt-repodir (make-option

r186 - cl-darcs/trunk

2008-04-01T22:01:29

Author: mhenoch Date: Tue Apr 1 17:01:29 2008 New Revision: 186 Modified: cl-darcs/trunk/cmdline.lisp Log: "darcs get" Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp(original) +++ cl-darcs/trunk/cmdline.lispTue Apr 1 17:01:29 2008 < at >< at > -324,6 +324,33 < at >< at > ;; Change the default repository. (when (first from-repositories) - (set-default-repo ourrepo (upath-to-string (first from-repositories)))) + (set-default-repo ourrepo (upath-to-string (first from-repositories) :truename t))) 0)) + +(define-darcs-command get + (repodir) + (from) + "Get a copy of a repository." + (setf from (make-upath from)) + (let* ((to (or + ;; Either there is an explicit repodir... + repodir + ;; ...or we make one relative to the current directory. + (make-pathname + :directory + (list :relative + (typecase from + ;; If we have a local pathname, use the last component. + (pathname +(or (pathname-name pathname) + (car (last (pathname-directory pathname))))) + ;; Otherwise, use the part from the last slash. + (t +(let* ((s (upath-to-string from)) + (last-slash (position #\/ s :from-end t))) + (if last-slash + (subseq s (1+ last-slash)) + s))))))))) + (get-repo from to)) + 0)

r185 - cl-darcs/trunk

2008-04-01T22:01:01

Author: mhenoch Date: Tue Apr 1 17:01:01 2008 New Revision: 185 Modified: cl-darcs/trunk/get.lisp Log: GET-REPO: Use more truenames. Output same success message as darcs. Modified: cl-darcs/trunk/get.lisp ============================================================================== --- cl-darcs/trunk/get.lisp(original) +++ cl-darcs/trunk/get.lispTue Apr 1 17:01:01 2008 < at >< at > -34,7 +34,7 < at >< at > (setf outname (fad:pathname-as-directory outname)) ;; other access methods later... ;; XXX: checkpoints? - (let* ((repodir (make-upath inrepodir)) + (let* ((repodir (make-upath inrepodir :truename t)) ;; Here we get a list of lists. Each list represents a tag; ;; the latest tag is at the head. Each list contains patches ;; in the order they are to be applied. < at >< at > -48,6 +48,8 < at >< at > ;; Create directories... (ensure-directories-exist outname) + ;; Now that the directory exists, we can get its truename + (setf outname (truename outname)) (prepare-new-repo outname) (set-default-repo outname (upath-to-string inrepodir :truename t)) < at >< at > -85,7 +87,7 < at >< at > (force-output))) (format t "~&Creating pristine") (create-pristine-from-tree outname) - (format t "~&All done")))) + (format t "~&Finished getting.")))) (defun select-some-patches (patchinfo-list) "Interactively select some patches from PATCHINFO-LIST.