July 2007 - lispy-cvs@common-lisp.net - mailman3.common-lisp.net

[lispy-cvs] CVS lispy
by mkennedy 13 Jul '07

13 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv1565 Modified Files: utils.lisp Log Message: Hash table to list. --- /project/lispy/cvsroot/lispy/utils.lisp 2007/07/12 05:56:51 1.2 +++ /project/lispy/cvsroot/lispy/utils.lisp 2007/07/13 14:48:30 1.3 @@ -43,3 +43,11 @@ (get-universal-time) (string-upcase name) (apply #'format nil (cons control-string format-arguments))))) + +(defun hash-to-list (hash) + (let ((result '())) + (maphash #'(lambda (k v) + (declare (ignore k)) + (push v result)) + hash) + result)) \ No newline at end of file

1 0

[lispy-cvs] CVS lispy
by mkennedy 13 Jul '07

13 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv1534 Modified Files: packages.lisp Log Message: Expose more of the API --- /project/lispy/cvsroot/lispy/packages.lisp 2007/07/09 05:11:14 1.1.1.1 +++ /project/lispy/cvsroot/lispy/packages.lisp 2007/07/13 14:48:15 1.2 @@ -11,4 +11,28 @@ #:install #:uninstall #:module-by-name - #:install-by-name)) + #:install-by-name + #:list-map + #:list-installation + + #:name + #:homepage + #:description + #:versions + #:latest-version + + #:our-version + #:version + #:source + #:md5sum + #:root + #:asdf-paths + #:dependencies + + #:read-asdf-config + #:write-asdf-config + #:read-installation + #:write-installation + #:read-map + + #:upgradable-p))

1 0

[lispy-cvs] CVS lispy
by mkennedy 13 Jul '07

13 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv1401 Modified Files: lispy.lisp Log Message: Add upgradable-p to determine if an installed package has a higher version in the map. --- /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/13 04:22:43 1.3 +++ /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/13 14:46:46 1.4 @@ -265,6 +265,9 @@ (remhash (name install) *lispy-installation*) (write-installation)) +(defun list-map () (hash-to-list *lispy-map*)) +(defun list-installation () (hash-to-list *lispy-installation*)) + (defun initialize () (setf *lispy-installation* (make-hash-table :test 'eq) *lispy-map* (make-hash-table :test 'eq)) @@ -275,6 +278,13 @@ (read-asdf-config) (values)) +(defgeneric upgradable-p (install module)) + +(defmethod upgradable-p ((install install) (module module)) + (let ((latest-version (latest-version module))) + (> (our-version latest-version) + (our-version install)))) + ;; (initialize) ;; (install (module-by-name 'drakma)) ;; (install (module-by-name 'cl-plus))

1 0

[lispy-cvs] CVS lispy
by mkennedy 13 Jul '07

13 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv11924 Added Files: .cvsignore Log Message: Ignore FASLs. --- /project/lispy/cvsroot/lispy/.cvsignore 2007/07/13 04:23:17 NONE +++ /project/lispy/cvsroot/lispy/.cvsignore 2007/07/13 04:23:17 1.1 *.fasl *.lib *.fas *.x86f

1 0

[lispy-cvs] CVS lispy
by mkennedy 13 Jul '07

13 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv11818 Modified Files: lispy.lisp Log Message: Use format to print asdf-config.lisp. --- /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/10 05:00:32 1.2 +++ /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/13 04:22:43 1.3 @@ -165,10 +165,17 @@ (push path paths)))) *lispy-installation*) - (print `(let ((root (make-pathname :directory (pathname-directory *load-truename*)))) - (dolist (path ',paths) - (pushnew (merge-pathnames path root) asdf:*central-registry* :test 'equal))) - stream)))) + #+nil (print `(let ((root (make-pathname :directory (pathname-directory *load-truename*)))) + (dolist (path ',paths) + (pushnew (merge-pathnames path root) asdf:*central-registry* :test 'equal))) + stream) + (format stream +"(let ((root (make-pathname :directory (pathname-directory *load-truename*)))) + (dolist (path '(~{~S~})) + (pushnew (merge-pathnames path root) + asdf:*central-registry* + :test 'equal)))" + paths)))) (defgeneric fetch (module))

1 0

[lispy-cvs] CVS lispy
by mkennedy 12 Jul '07

12 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv17447 Modified Files: specials.lisp Log Message: *lispy-pathname* should be the parent of where lispy is actually loaded from. --- /project/lispy/cvsroot/lispy/specials.lisp 2007/07/10 05:00:32 1.2 +++ /project/lispy/cvsroot/lispy/specials.lisp 2007/07/12 07:20:23 1.3 @@ -3,8 +3,8 @@ (defvar *lispy-map-url* (puri:parse-uri "http://common-lisp.net/project/lispy/repository/map.lisp-expr")) (defvar *lispy-pathname* - (make-pathname :name nil :type nil :version nil - :defaults (parse-namestring *load-truename*))) + (let ((path (make-pathname :name nil :type nil :version nil :defaults (parse-namestring *load-truename*)))) + (make-pathname :directory (butlast (pathname-directory path)) :defaults path))) (defvar *lispy-installation-pathname* (merge-pathnames #p"installation.lisp-expr" *lispy-pathname*))

1 0

[lispy-cvs] CVS lispy
by mkennedy 12 Jul '07

12 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv30152 Modified Files: utils.lisp Log Message: Fix new line positioning in logger. --- /project/lispy/cvsroot/lispy/utils.lisp 2007/07/09 05:11:14 1.1.1.1 +++ /project/lispy/cvsroot/lispy/utils.lisp 2007/07/12 05:56:51 1.2 @@ -39,6 +39,7 @@ (defun log-message (name control-string &rest format-arguments) (when *lispy-log-stream* - (format *lispy-log-stream* "~A ~A: " (get-universal-time) (string-upcase name)) - (apply #'format *lispy-log-stream* (cons control-string format-arguments)) - (terpri *lispy-log-stream*))) + (format *lispy-log-stream* "~&~A ~A: ~A~%" + (get-universal-time) + (string-upcase name) + (apply #'format nil (cons control-string format-arguments)))))

1 0

[lispy-cvs] CVS lispy
by mkennedy 12 Jul '07

12 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv30086 Modified Files: lispy.asd Log Message: Initialize Lispy after loading the system. --- /project/lispy/cvsroot/lispy/lispy.asd 2007/07/10 05:00:32 1.2 +++ /project/lispy/cvsroot/lispy/lispy.asd 2007/07/12 05:56:04 1.3 @@ -3,6 +3,8 @@ (:use #:common-lisp #:asdf)) +(in-package #:lispy-system) + (defsystem #:lispy :components ((:file "packages") (:file "specials" :depends-on ("packages")) @@ -13,4 +15,7 @@ #:gzip-stream #:archive #:ironclad - #:cl-fad)) \ No newline at end of file + #:cl-fad)) + +(defmethod perform :after ((o load-op) (c (eql (find-system 'lispy)))) + (funcall (intern "INITIALIZE" (find-package "LISPY"))))

1 0

[lispy-cvs] CVS lispy
by mkennedy 10 Jul '07

10 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv15421 Modified Files: lispy.asd lispy.lisp specials.lisp Log Message: Bootstrap tweaking --- /project/lispy/cvsroot/lispy/lispy.asd 2007/07/09 05:11:14 1.1.1.1 +++ /project/lispy/cvsroot/lispy/lispy.asd 2007/07/10 05:00:32 1.2 @@ -5,8 +5,8 @@ (defsystem #:lispy :components ((:file "packages") - (:file "specials") - (:file "utils" :depends-on ("packages" "specials")) + (:file "specials" :depends-on ("packages")) + (:file "utils" :depends-on ("specials")) (:file "lispy" :depends-on ("utils"))) :depends-on (#:drakma #:puri --- /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/09 05:11:14 1.1.1.1 +++ /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/10 05:00:32 1.2 @@ -159,14 +159,15 @@ (maphash #'(lambda (name install) (declare (ignore name)) (if (null (asdf-paths install)) - (push (merge-pathnames (root install) *lispy-pathname*) + (push (root install) paths) (dolist (path (asdf-paths install)) - (push (merge-pathnames path *lispy-pathname*) + (push path paths)))) *lispy-installation*) - (print `(dolist (path ',paths) - (pushnew path asdf:*central-registry* :test 'equal)) + (print `(let ((root (make-pathname :directory (pathname-directory *load-truename*)))) + (dolist (path ',paths) + (pushnew (merge-pathnames path root) asdf:*central-registry* :test 'equal))) stream)))) (defgeneric fetch (module)) @@ -277,7 +278,7 @@ ;;; Lispy bootstrap code (remove installation.lisp-expr, distfiles and ;;; all source directories) #+nil -(dolist (name '(drakma puri gzip-stream archive ironclad cl-fad asdf)) +(dolist (name '(drakma puri gzip-stream archive ironclad cl-fad asdf lispy)) (install (module-by-name name))) #+nil (initialize) --- /project/lispy/cvsroot/lispy/specials.lisp 2007/07/09 05:11:14 1.1.1.1 +++ /project/lispy/cvsroot/lispy/specials.lisp 2007/07/10 05:00:32 1.2 @@ -1,9 +1,16 @@ (in-package #:lispy) -(defvar *lispy-map-url* (puri:parse-uri "http://localhost/~mkennedy/lispy/map.lisp-expr")) -(defvar *lispy-pathname* (merge-pathnames "lispy/" (user-homedir-pathname))) +(defvar *lispy-map-url* (puri:parse-uri "http://common-lisp.net/project/lispy/repository/map.lisp-expr")) + +(defvar *lispy-pathname* + (make-pathname :name nil :type nil :version nil + :defaults (parse-namestring *load-truename*))) + (defvar *lispy-installation-pathname* (merge-pathnames #p"installation.lisp-expr" *lispy-pathname*)) + (defvar *lispy-asdf-config-pathname* (merge-pathnames #p"asdf-config.lisp" *lispy-pathname*)) + (defvar *lispy-distfiles-pathname* (merge-pathnames #p"distfiles/" *lispy-pathname*)) + (defvar *lispy-log-stream* t)

1 0

[lispy-cvs] CVS lispy
by mkennedy 09 Jul '07

09 Jul '07

Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv18076 Log Message: Initial import. Status: Vendor Tag: mkennedy Release Tags: start N lispy/LICENSE N lispy/README N lispy/lispy.asd N lispy/lispy.lisp N lispy/packages.lisp N lispy/specials.lisp N lispy/utils.lisp No conflicts created by this import

1 0