April 2008 - cl-darcs-cvs@lists.common-lisp.net

[Cl-darcs-cvs] r185 - cl-darcs/trunk
by mhenoch＠common-lisp.net 01 Apr '08

01 Apr '08

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.lisp Tue Apr 1 17:01:01 2008 @@ -34,7 +34,7 @@ (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. @@ -48,6 +48,8 @@ ;; 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)) @@ -85,7 +87,7 @@ (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.

1 0

[Cl-darcs-cvs] r184 - cl-darcs/trunk
by mhenoch＠common-lisp.net 01 Apr '08

01 Apr '08

Author: mhenoch Date: Tue Apr 1 17:00:17 2008 New Revision: 184 Modified: cl-darcs/trunk/upath.lisp Log: Add TRUENAME argument to MAKE-UPATH Modified: cl-darcs/trunk/upath.lisp ============================================================================== --- cl-darcs/trunk/upath.lisp (original) +++ cl-darcs/trunk/upath.lisp Tue Apr 1 17:00:17 2008 @@ -20,14 +20,18 @@ ;; file. For local files, just use pathnames. For remote files, use ;; the PURI library. (Or the real thing, if we're using ACL) -(defun make-upath (path) +(defun make-upath (path &key truename) "Turn PATH into a \"universal pathname\". If PATH is a pathname or URI, return it unchanged. If PATH starts with \"http://\" or \"https://\", return a URI. -Else, return a pathname." +Else, return a pathname. + +If TRUENAME is provided and true, give an absolute path." (ctypecase path (pathname - path) + (if truename + (truename path) + path)) (net.uri:uri path) (string @@ -36,7 +40,9 @@ (and (>= (length path) 8) (string= path "https://" :end1 8))) (net.uri:parse-uri path) - (pathname path))))) + (if truename + (truename (pathname path)) + (pathname path)))))) (defun upath-subdir (base subdirs &optional filename) "From BASE, descend into SUBDIRS and FILENAME.

1 0

[Cl-darcs-cvs] r183 - cl-darcs/trunk
by mhenoch＠common-lisp.net 01 Apr '08

01 Apr '08

Author: mhenoch Date: Tue Apr 1 16:45:39 2008 New Revision: 183 Modified: cl-darcs/trunk/get.lisp Log: Fix order of parentheses Modified: cl-darcs/trunk/get.lisp ============================================================================== --- cl-darcs/trunk/get.lisp (original) +++ cl-darcs/trunk/get.lisp Tue Apr 1 16:45:39 2008 @@ -49,7 +49,7 @@ ;; Create directories... (ensure-directories-exist outname) (prepare-new-repo outname) - (set-default-repo outname (upath-to-string inrepodir) :truename t) + (set-default-repo outname (upath-to-string inrepodir :truename t)) (when checkpoint (format t "~&Copying checkpoint...")

1 0

[Cl-darcs-cvs] r182 - cl-darcs/trunk
by mhenoch＠common-lisp.net 01 Apr '08

01 Apr '08

Author: mhenoch Date: Tue Apr 1 16:34:10 2008 New Revision: 182 Modified: cl-darcs/trunk/get.lisp cl-darcs/trunk/upath.lisp Log: Add TRUENAME argument to UPATH-TO-STRING, and use it in GET-REPO Modified: cl-darcs/trunk/get.lisp ============================================================================== --- cl-darcs/trunk/get.lisp (original) +++ cl-darcs/trunk/get.lisp Tue Apr 1 16:34:10 2008 @@ -49,7 +49,7 @@ ;; Create directories... (ensure-directories-exist outname) (prepare-new-repo outname) - (set-default-repo outname inrepodir) + (set-default-repo outname (upath-to-string inrepodir) :truename t) (when checkpoint (format t "~&Copying checkpoint...") Modified: cl-darcs/trunk/upath.lisp ============================================================================== --- cl-darcs/trunk/upath.lisp (original) +++ cl-darcs/trunk/upath.lisp Tue Apr 1 16:34:10 2008 @@ -83,14 +83,17 @@ (open upath :direction :input :if-does-not-exist :error :element-type (if binary '(unsigned-byte 8) 'character))))) -(defun upath-to-string (upath) +(defun upath-to-string (upath &key truename) "Convert UPATH to a string. -This string can be read with MAKE-UPATH." +This string can be read with MAKE-UPATH. +When TRUENAME is provided and true, give absolute/canonical form." (ctypecase upath (string upath) (pathname - (namestring upath)) + (namestring (if truename + (truename upath) + upath))) (net.uri:uri (with-output-to-string (s) (net.uri:render-uri upath s)))))

1 0

[Cl-darcs-cvs] r181 - cl-darcs/trunk
by mhenoch＠common-lisp.net 01 Apr '08

01 Apr '08

Author: mhenoch Date: Tue Apr 1 16:26:32 2008 New Revision: 181 Modified: cl-darcs/trunk/upath.lisp Log: Fix MAKE-UPATH for short arguments Modified: cl-darcs/trunk/upath.lisp ============================================================================== --- cl-darcs/trunk/upath.lisp (original) +++ cl-darcs/trunk/upath.lisp Tue Apr 1 16:26:32 2008 @@ -31,8 +31,10 @@ (net.uri:uri path) (string - (if (or (string= path "http://" :end1 7) - (string= path "https://" :end1 8)) + (if (or (and (>= (length path) 7) + (string= path "http://" :end1 7)) + (and (>= (length path) 8) + (string= path "https://" :end1 8))) (net.uri:parse-uri path) (pathname path)))))

1 0

[Cl-darcs-cvs] r180 - cl-darcs/trunk
by mhenoch＠common-lisp.net 01 Apr '08

01 Apr '08

Author: mhenoch Date: Tue Apr 1 16:12:14 2008 New Revision: 180 Added: cl-darcs/trunk/Makefile (contents, props changed) Log: Add basic Makefile Added: cl-darcs/trunk/Makefile ============================================================================== --- (empty file) +++ cl-darcs/trunk/Makefile Tue Apr 1 16:12:14 2008 @@ -0,0 +1,14 @@ +CLISP ?= clisp +CLISP_OPTIONS ?= -i $(HOME)/.clisprc +SBCL ?= sbcl +SBCL_OPTIONS ?= --disable-debugger + +any: + @echo Use either \"$(MAKE) clisp\" or \"$(MAKE) sbcl\". + @false + +clisp: + $(CLISP) $(CLISP_OPTIONS) dump-clisp.lisp + +sbcl: + $(SBCL) $(SBCL_OPTIONS) --load dump-sbcl.lisp

1 0