From: <cli...@li...> - 2007-10-16 15:31:40
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/modules/gdbm gdbm.c,1.30,1.31 (Sam Steingold) 2. clisp/modules/gdbm test.tst,1.17,1.18 (Sam Steingold) 3. clisp/doc history.xml,1.6,1.7 (Sam Steingold) 4. clisp/modules/clx/new-clx/demos qix.lisp,1.5,1.6 (Sam Steingold) 5. clisp/src ChangeLog,1.5635,1.5636 (Sam Steingold) 6. clisp/src ChangeLog,1.5636,1.5637 (Sam Steingold) 7. clisp/modules/clx/new-clx/demos clx-demos.lisp,1.13,1.14 (Sam Steingold) 8. clisp/modules/gdbm test.tst,1.18,1.19 (Sam Steingold) 9. clisp/doc common.xsl,1.44,1.45 (Sam Steingold) 10. clisp/doc common.xsl,1.45,1.46 (Sam Steingold) 11. clisp version.sh,1.13,1.14 clisp.lsm,1.27,1.28 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Mon, 15 Oct 2007 21:26:15 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/gdbm gdbm.c,1.30,1.31 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/modules/gdbm In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv32322 Modified Files: gdbm.c Log Message: (GDBM-FILE-SIZE): use SYSCALL Index: gdbm.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/gdbm/gdbm.c,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- gdbm.c 15 Oct 2007 13:52:35 -0000 1.30 +++ gdbm.c 15 Oct 2007 21:26:13 -0000 1.31 @@ -195,9 +195,7 @@ { GDBM_FILE dbf = check_gdbm(&STACK_0,NULL,NULL,true); off_t ret; - begin_system_call(); - ret = handle_length(NIL,gdbm_fdesc(dbf)); - end_system_call(); + SYSCALL(ret = handle_length(NIL,gdbm_fdesc(dbf))); VALUES1(off_to_I(ret)); skipSTACK(1); } #endif /* HAVE_GDBM_FDESC */ ------------------------------ Message: 2 Date: Mon, 15 Oct 2007 21:28:42 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/gdbm test.tst,1.17,1.18 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/modules/gdbm In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv741/modules/gdbm Modified Files: test.tst Log Message: drop file-size and use gdbm:gdbm-file-size instead Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/gdbm/test.tst,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- test.tst 15 Oct 2007 14:25:32 -0000 1.17 +++ test.tst 15 Oct 2007 21:28:40 -0000 1.18 @@ -2,9 +2,6 @@ ;; some tests for GDBM ;; clisp -K full -E 1:1 -q -norc -i ../tests/tests -x '(run-test "gdbm/test")' -(defun file-size (f) (with-open-file (s f :direction :input) (file-length s))) -FILE-SIZE - (listp (show (multiple-value-list (ext:module-info "gdbm" t)) :pretty t)) T (defvar *db* nil) *DB* @@ -102,26 +99,22 @@ (listp (show (gdbm:do-db (key *db*) :collect (gdbm:gdbm-file-size *db*)))) T -(let ((bsize (file-size (gdbm:gdbm-path *db*))) (asize 0)) +(let ((bsize (gdbm:gdbm-file-size *db*)) (asize 0)) (loop :for i :from 0 :to 1000 :do (gdbm:gdbm-store *db* (format nil "key~A" i) (format nil "value~A" i))) (gdbm:gdbm-sync *db*) - (setf asize (file-size (gdbm:gdbm-path *db*))) + (setf asize (gdbm:gdbm-file-size *db*)) (format t "~&File size: ~:D --> ~:D~%" bsize asize) (> asize bsize)) T -(= (gdbm:gdbm-file-size *db*) (file-size (gdbm:gdbm-path *db*))) T - -(let ((bsize (file-size (gdbm:gdbm-path *db*))) (asize 0)) +(let ((bsize (gdbm:gdbm-file-size *db*)) (asize 0)) (loop for i from 0 to 500 do (gdbm:gdbm-delete *db* (format nil "key~A" i))) (gdbm:gdbm-sync *db*) (gdbm:gdbm-reorganize *db*) - (setf asize (file-size (gdbm:gdbm-path *db*))) + (setf asize (gdbm:gdbm-file-size *db*)) (format t "~&~:D --> ~:D~%" bsize asize) (< asize bsize)) T -(= (gdbm:gdbm-file-size *db*) (file-size (gdbm:gdbm-path *db*))) T - (gdbm:gdbm-close *db*) T (gdbm:gdbm-close *db*) NIL ------------------------------ Message: 3 Date: Mon, 15 Oct 2007 22:03:11 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc history.xml,1.6,1.7 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv14321/doc Modified Files: history.xml Log Message: foch->koch Index: history.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/history.xml,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- history.xml 15 Oct 2007 18:58:59 -0000 1.6 +++ history.xml 15 Oct 2007 22:03:09 -0000 1.7 @@ -374,7 +374,7 @@ <revdescription><itemizedlist><listitem><simpara>&open-http;, ¬spec;, &def-c-const;, <link linkend="base64"><constant>BASE64</constant></link> </simpara></listitem> - <listitem><simpara><filename role="clisp-cvs">modules/new-clx/demos/foch.lisp</filename></simpara></listitem> + <listitem><simpara><filename role="clisp-cvs">modules/new-clx/demos/koch.lisp</filename></simpara></listitem> <listitem><simpara><filename role="clisp-cvs">src/spvw_sigterm.d</filename></simpara></listitem></itemizedlist> </revdescription></revision> ------------------------------ Message: 4 Date: Mon, 15 Oct 2007 22:06:51 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/new-clx/demos qix.lisp,1.5,1.6 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/modules/clx/new-clx/demos In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv15461/modules/clx/new-clx/demos Modified Files: qix.lisp Log Message: (qix): use uniform UI Index: qix.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/demos/qix.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- qix.lisp 30 Sep 2007 05:20:53 -0000 1.5 +++ qix.lisp 15 Oct 2007 22:06:49 -0000 1.6 @@ -62,13 +62,11 @@ (decf n) (if (<= n 0) (return))))) -(defun qix (&key host display dpy (x 10) (y 10) +(defun qix (&key (x 10) (y 10) (width 400) (height 400) (delay 0.05) (nqixs 3) (nlines 80)) "The famous swirling vectors." - (unless dpy - (setf (values host display) (x-host-display))) - (let* ((dp1 (or dpy (xlib:open-display host :display display))) - (scr (xlib:display-default-screen dp1)) + (let* ((dpy (xlib:open-default-display)) + (scr (xlib:display-default-screen dpy)) (root-win (xlib:screen-root scr)) (white-pixel (xlib:screen-white-pixel scr)) (black-pixel (xlib:screen-black-pixel scr)) @@ -79,17 +77,15 @@ :foreground black-pixel :background white-pixel))) (xlib:map-window win) - (xlib:display-finish-output dp1) - (format t "~&Qix uses the following parameters:~% :dpy ~s - :host ~s :display ~s - :width ~d :height ~d :delay ~f :nqixs ~d :nlines ~d~%" - dp1 host display width height delay nqixs nlines) - (draw-qix dp1 win gcon width height white-pixel black-pixel + (xlib:display-finish-output dpy) + (format t "~&Qix uses the following parameters:~% + :x ~s :y ~s :width ~d :height ~d :delay ~f :nqixs ~d :nlines ~d~%" + x y width height delay nqixs nlines) + (draw-qix dpy win gcon width height white-pixel black-pixel delay nqixs nlines) (xlib:free-gcontext gcon) (xlib:unmap-window win) - (xlib:display-finish-output dp1) - ;;clean-up - (unless dpy (xlib:close-display dp1)))) + (xlib:display-finish-output dpy) + (xlib:close-display dpy))) (provide "qix") ------------------------------ Message: 5 Date: Mon, 15 Oct 2007 22:06:51 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.5635,1.5636 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv15461/src Modified Files: ChangeLog Log Message: (qix): use uniform UI Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5635 retrieving revision 1.5636 diff -u -d -r1.5635 -r1.5636 --- ChangeLog 15 Oct 2007 19:02:50 -0000 1.5635 +++ ChangeLog 15 Oct 2007 22:06:47 -0000 1.5636 @@ -1,5 +1,9 @@ 2007-10-15 Sam Steingold <sd...@gn...> + * modules/clx/new-clx/demos/qix.lisp (qix): use uniform UI + +2007-10-15 Sam Steingold <sd...@gn...> + * Makefile.devel (TP_EMAIL): coo...@tr... 2007-10-15 Sam Steingold <sd...@gn...> ------------------------------ Message: 6 Date: Mon, 15 Oct 2007 22:11:02 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.5636,1.5637 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17074/src Modified Files: ChangeLog Log Message: (*demos*): greynetic & bball are broken Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5636 retrieving revision 1.5637 diff -u -d -r1.5636 -r1.5637 --- ChangeLog 15 Oct 2007 22:06:47 -0000 1.5636 +++ ChangeLog 15 Oct 2007 22:10:59 -0000 1.5637 @@ -1,6 +1,8 @@ 2007-10-15 Sam Steingold <sd...@gn...> * modules/clx/new-clx/demos/qix.lisp (qix): use uniform UI + * modules/clx/new-clx/demos/clx-demos.lisp (*demos*): greynetic & + bball are broken 2007-10-15 Sam Steingold <sd...@gn...> ------------------------------ Message: 7 Date: Mon, 15 Oct 2007 22:11:02 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/new-clx/demos clx-demos.lisp,1.13,1.14 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/modules/clx/new-clx/demos In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17074/modules/clx/new-clx/demos Modified Files: clx-demos.lisp Log Message: (*demos*): greynetic & bball are broken Index: clx-demos.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/demos/clx-demos.lisp,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- clx-demos.lisp 12 Oct 2007 20:19:05 -0000 1.13 +++ clx-demos.lisp 15 Oct 2007 22:11:00 -0000 1.14 @@ -10,8 +10,9 @@ (in-package :clx-demos) (defparameter *demos* - '((koch) (qix) (sokoban #:xpm) (greynetic) (petal) (hanoi) (recurrence) - (plaid) (clclock) (bball) (bwindow))) + ;; (demo-name [package requirements]) + '((koch) (qix) (sokoban #:xpm) (greynetic #:broken!) (petal) (hanoi) + (recurrence) (plaid) (clclock) (bball #:broken!) (bwindow))) (defmacro do-demos ((fun-var) &body body) (let ((demo (gensym "DO-DEMOS-DEMO-")) (reqs (gensym "DO-DEMOS-REQS-"))) ------------------------------ Message: 8 Date: Tue, 16 Oct 2007 01:17:06 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/gdbm test.tst,1.18,1.19 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/modules/gdbm In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv22697/modules/gdbm Modified Files: test.tst Log Message: disable gdbm:gdbm-reorganize on cygwin (from ru...@x-...) Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/gdbm/test.tst,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- test.tst 15 Oct 2007 21:28:40 -0000 1.18 +++ test.tst 16 Oct 2007 01:17:04 -0000 1.19 @@ -110,7 +110,7 @@ (let ((bsize (gdbm:gdbm-file-size *db*)) (asize 0)) (loop for i from 0 to 500 do (gdbm:gdbm-delete *db* (format nil "key~A" i))) (gdbm:gdbm-sync *db*) - (gdbm:gdbm-reorganize *db*) + #-:CYGWIN (gdbm:gdbm-reorganize *db*) (setf asize (gdbm:gdbm-file-size *db*)) (format t "~&~:D --> ~:D~%" bsize asize) (< asize bsize)) T @@ -175,4 +175,8 @@ (gdbm:gdbm-store db v v) (gdbm:gdbm-fetch db v :type '32bit-vector))) #(123 456 789) +(gdbm:gdbm-close *db*) NIL + (pathnamep (delete-file (gdbm:gdbm-path *db*))) T + +(unintern '*db*) T ------------------------------ Message: 9 Date: Tue, 16 Oct 2007 15:22:50 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc common.xsl,1.44,1.45 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv12979/doc Modified Files: common.xsl Log Message: format modules; fix formatting of clisp cvs references (clisp.cvs.file, clisp.cvs.dir): replace clisp.cvs.top (clisp.cvs): new template (prepend the correct clisp cvs url) (ulink@clisp-cvs, filename@clisp-cvs): use it (filename@module): add Index: common.xsl =================================================================== RCS file: /cvsroot/clisp/clisp/doc/common.xsl,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- common.xsl 11 Oct 2007 19:20:17 -0000 1.44 +++ common.xsl 16 Oct 2007 15:22:48 -0000 1.45 @@ -109,13 +109,41 @@ <!-- ============================== / SF mail ============================== --> <!-- ============================ CLISP CVS ============================ --> -<xsl:param name="clisp.cvs.top" +<xsl:param name="clisp.cvs.file" select="'http://clisp.cvs.sourceforge.net/*checkout*/clisp/clisp/'"/> +<xsl:param name="clisp.cvs.dir" + select="'http://clisp.cvs.sourceforge.net/clisp/clisp/'"/> +<xsl:template name="clisp.cvs"> <!-- prepend the correct clisp cvs url --> + <xsl:param name="path"/> + <xsl:choose><xsl:when test="substring($path,string-length($path)) = '/'"> + <xsl:value-of select="$clisp.cvs.dir"/></xsl:when> + <xsl:otherwise><xsl:value-of select="$clisp.cvs.file"/> + </xsl:otherwise></xsl:choose><xsl:value-of select="$path"/> +</xsl:template> <xsl:template match="ulink[@role='clisp-cvs']"> - <a class="{@role}" href="{$clisp.cvs.top}{@url}"><xsl:apply-templates/></a> + <a class="{@role}"> + <xsl:attribute name="href"><xsl:call-template name="clisp.cvs"> + <xsl:with-param name="path" select="@url"/> + </xsl:call-template></xsl:attribute> + <xsl:apply-templates/></a> </xsl:template> <xsl:template match="filename[@role='clisp-cvs']"> - <a class="{@role}" href="{$clisp.cvs.top}{.}"><xsl:apply-imports/></a> + <a class="{@role}"> + <xsl:attribute name="href"><xsl:call-template name="clisp.cvs"> + <xsl:with-param name="path" select="."/> + </xsl:call-template></xsl:attribute> + <xsl:apply-imports/></a> +</xsl:template> +<xsl:template match="filename[@role='module']"> + <span class="{@role}"> + <xsl:choose><xsl:when test="@path"><xsl:call-template name="simple.xlink"> + <xsl:with-param name="linkend" select="@path"/> + <xsl:with-param name="node" select="."/> + <xsl:with-param name="content"><xsl:apply-imports/></xsl:with-param> + </xsl:call-template></xsl:when> + <xsl:otherwise><a href="{$clisp.cvs.dir}modules/{.}/"> + <xsl:apply-imports/></a></xsl:otherwise> + </xsl:choose></span> </xsl:template> <!-- =========================== / CLISP CVS =========================== --> ------------------------------ Message: 10 Date: Tue, 16 Oct 2007 15:23:40 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc common.xsl,1.45,1.46 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv13352/doc Modified Files: common.xsl Log Message: comment Index: common.xsl =================================================================== RCS file: /cvsroot/clisp/clisp/doc/common.xsl,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- common.xsl 16 Oct 2007 15:22:48 -0000 1.45 +++ common.xsl 16 Oct 2007 15:23:38 -0000 1.46 @@ -114,7 +114,7 @@ <xsl:param name="clisp.cvs.dir" select="'http://clisp.cvs.sourceforge.net/clisp/clisp/'"/> <xsl:template name="clisp.cvs"> <!-- prepend the correct clisp cvs url --> - <xsl:param name="path"/> + <xsl:param name="path"/> <!-- xsltproc does not support ends-with! --> <xsl:choose><xsl:when test="substring($path,string-length($path)) = '/'"> <xsl:value-of select="$clisp.cvs.dir"/></xsl:when> <xsl:otherwise><xsl:value-of select="$clisp.cvs.file"/> ------------------------------ Message: 11 Date: Tue, 16 Oct 2007 15:31:29 +0000 From: Sam Steingold <sd...@us...> Subject: clisp version.sh,1.13,1.14 clisp.lsm,1.27,1.28 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv16801 Modified Files: version.sh clisp.lsm Log Message: clisp 2.42 release Index: clisp.lsm =================================================================== RCS file: /cvsroot/clisp/clisp/clisp.lsm,v retrieving revision 1.27 retrieving revision 1.28 diff -u -d -r1.27 -r1.28 --- clisp.lsm 13 Oct 2006 04:14:50 -0000 1.27 +++ clisp.lsm 16 Oct 2007 15:31:27 -0000 1.28 @@ -1,10 +1,10 @@ Begin4 Title: GNU CLISP - and ANSI Common Lisp -Version: 2.41 -Entered-date: 2006-10-13 +Version: 2.42 +Entered-date: 2007-10-16 Description: GNU CLISP is an ANSI Common Lisp implementation. Includes an interpreter, a compiler, a debugger, CLOS, MOP, - a foreign language interface, fast bignums, sockets, + a foreign language interface, fast bignums, a socket interface, and i18n support via gettext. Packages running in CLISP include Maxima, ACL2, CLX, Garnet, CLUE/CLIO. @@ -14,8 +14,8 @@ sd...@gn... (Sam Steingold) Maintained-by: sd...@gn... (Sam Steingold) Primary-site: ftp://sunsite.unc.edu/pub/Linux/devel/lang/lisp/ - clisp-2.41.tar.bz2 - clisp-2.41.tar.gz + clisp-2.42.tar.bz2 + clisp-2.42.tar.gz Alternate-site: http://ftp.gnu.org/gnu/clisp/ Original-site: http://clisp.cons.org Platforms: C/C++ compiler on Unix, Win32. Index: version.sh =================================================================== RCS file: /cvsroot/clisp/clisp/version.sh,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- version.sh 12 Oct 2007 19:08:59 -0000 1.13 +++ version.sh 16 Oct 2007 15:31:27 -0000 1.14 @@ -1,3 +1,3 @@ # Version number and release date. -VERSION_NUMBER=2.41.1 -RELEASE_DATE=2007-10-12 # in "date +%Y-%m-%d" format +VERSION_NUMBER=2.42 +RELEASE_DATE=2007-10-16 # in "date +%Y-%m-%d" format ------------------------------ ------------------------------------------------------------------------- This SF.net email is sponsored by: Splunk Inc. Still grepping through log files to find problems? Stop. Now Search log events and configuration files using AJAX and a browser. Download your FREE copy of Splunk now >> http://get.splunk.com/ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 18, Issue 26 ***************************************** |