From: <cli...@li...> - 2010-09-15 19:09:17
|
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/postgresql test.tst,1.9,1.10 (Sam Steingold) 2. clisp/modules/pari test.tst,1.36,1.37 (Sam Steingold) 3. clisp/modules/zlib test.tst,1.7,1.8 (Sam Steingold) 4. clisp/modules/regexp test.tst,1.19,1.20 (Sam Steingold) 5. clisp/modules/berkeley-db test.tst,1.35,1.36 (Sam Steingold) 6. clisp/modules/libsvm test.tst,1.16,1.17 (Sam Steingold) 7. clisp/modules/i18n test.tst,1.5,1.6 (Sam Steingold) 8. clisp/modules/dbus test.tst,1.7,1.8 (Sam Steingold) 9. clisp/modules/matlab test.tst,1.6,1.7 (Sam Steingold) 10. clisp/modules/pcre test.tst,1.17,1.18 (Sam Steingold) 11. clisp/modules/wildcard test.tst,1.3,1.4 (Sam Steingold) 12. clisp/src ChangeLog,1.7511,1.7512 win32.d,1.78,1.79 (Sam Steingold) 13. clisp/modules/syscalls calls.c,1.309,1.310 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Wed, 15 Sep 2010 19:04:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/postgresql test.tst,1.9,1.10 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/postgresql In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/postgresql Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/postgresql/test.tst,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- test.tst 10 Jun 2010 19:16:06 -0000 1.9 +++ test.tst 15 Sep 2010 19:03:59 -0000 1.10 @@ -2,7 +2,7 @@ ;; tests for PostGreSQL ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "postgresql/test")' -(list (require "postgresql")) (#-POSTGRESQL T #+POSTGRESQL NIL) +(list (null (require "postgresql"))) (#-POSTGRESQL NIL #+POSTGRESQL T) (listp (show (multiple-value-list (ext:module-info "postgresql" t)) :pretty t)) T ;;; Based on the examples distributed with PostgreSQL (man libpq) ------------------------------ Message: 2 Date: Wed, 15 Sep 2010 19:04:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari test.tst,1.36,1.37 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/pari Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/test.tst,v retrieving revision 1.36 retrieving revision 1.37 diff -u -d -r1.36 -r1.37 --- test.tst 9 Jul 2010 20:07:45 -0000 1.36 +++ test.tst 15 Sep 2010 19:03:59 -0000 1.37 @@ -2,7 +2,7 @@ ;; some tests for GP/PARI CALCULATOR ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "pari/test")' -(list (require "pari")) (#-PARI T #+PARI NIL) +(list (null (require "pari"))) (#-PARI NIL #+PARI T) (listp (show (multiple-value-list (ext:module-info "pari" t)) :pretty t)) t (format t "~&Version: ~S~%" pari:pari-version) NIL ------------------------------ Message: 3 Date: Wed, 15 Sep 2010 19:04:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/zlib test.tst,1.7,1.8 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/zlib In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/zlib Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/zlib/test.tst,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- test.tst 10 Jun 2010 19:16:06 -0000 1.7 +++ test.tst 15 Sep 2010 19:03:59 -0000 1.8 @@ -2,7 +2,7 @@ ;; some tests for ZLIB ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "zlib/test")' -(list (require "zlib")) (#-ZLIB T #+ZLIB NIL) +(list (null (require "zlib"))) (#-ZLIB NIL #+ZLIB T) (listp (show (multiple-value-list (ext:module-info "zlib" t)) :pretty t)) t (format t "~&zlib version: ~S~%" (zlib:z-version)) ------------------------------ Message: 4 Date: Wed, 15 Sep 2010 19:04:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/regexp test.tst,1.19,1.20 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/regexp In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/regexp Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/regexp/test.tst,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- test.tst 8 Oct 2009 18:58:39 -0000 1.19 +++ test.tst 15 Sep 2010 19:03:59 -0000 1.20 @@ -1,7 +1,7 @@ ;; -*- Lisp -*- vim:filetype=lisp ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "regexp/test")' -(require "regexp") NIL +(null (require "regexp")) T (listp (show (multiple-value-list (ext:module-info "regexp" t)) :pretty t)) T (let ((rc (regexp:regexp-compile "a(a)*" :extended t))) ------------------------------ Message: 5 Date: Wed, 15 Sep 2010 19:04:00 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/berkeley-db test.tst,1.35,1.36 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/berkeley-db In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/berkeley-db Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/berkeley-db/test.tst,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- test.tst 10 Jun 2010 19:16:06 -0000 1.35 +++ test.tst 15 Sep 2010 19:03:58 -0000 1.36 @@ -2,7 +2,7 @@ ;; some tests for Berkeley-DB ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "berkeley-db/test")' -(list (require "bdb")) (#-Berkeley-DB T #+Berkeley-DB NIL) +(list (null (require "bdb"))) (#-Berkeley-DB NIL #+Berkeley-DB T) (listp (show (multiple-value-list (ext:module-info "bdb" t)) :pretty t)) T (multiple-value-bind (ve ma mi pa subsystems) (bdb:db-version t) ------------------------------ Message: 6 Date: Wed, 15 Sep 2010 19:04:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/libsvm test.tst,1.16,1.17 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/libsvm In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/libsvm Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/libsvm/test.tst,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- test.tst 12 Jul 2010 20:56:50 -0000 1.16 +++ test.tst 15 Sep 2010 19:03:59 -0000 1.17 @@ -2,7 +2,7 @@ ;; some tests for libsvm ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "libsvm/test")' -(list (require "libsvm")) (#-LIBSVM T #+LIBSVM NIL) +(list (null (require "libsvm"))) (#-LIBSVM NIL #+LIBSVM T) (listp (show (multiple-value-list (ext:module-info "libsvm" t)) :pretty t)) T (integerp (show libsvm:*libsvm-version*)) T ------------------------------ Message: 7 Date: Wed, 15 Sep 2010 19:04:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/i18n test.tst,1.5,1.6 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/i18n In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/i18n Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/i18n/test.tst,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- test.tst 8 Oct 2009 18:58:39 -0000 1.5 +++ test.tst 15 Sep 2010 19:03:58 -0000 1.6 @@ -2,7 +2,7 @@ ;; some tests for I18N ;; clisp -q -norc -i ../tests/tests -x '(run-test "i18n/test")' -(require "i18n") NIL +(null (require "i18n")) T (listp (show (multiple-value-list (ext:module-info "i18n" t)) :pretty t)) T (i18n:gettext "foo") "foo" ------------------------------ Message: 8 Date: Wed, 15 Sep 2010 19:04:00 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/dbus test.tst,1.7,1.8 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/dbus In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/dbus Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/dbus/test.tst,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- test.tst 10 Jun 2010 19:16:06 -0000 1.7 +++ test.tst 15 Sep 2010 19:03:58 -0000 1.8 @@ -2,7 +2,7 @@ ;; tests for D-Bus ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "dbus/test")' -(list (require "dbus")) (#-DBUS T #+DBUS NIL) +(list (null (require "dbus"))) (#-DBUS NIL #+DBUS T) (listp (show (multiple-value-list (ext:module-info "dbus" t)) :pretty t)) T dbus:DBUS_MAJOR_PROTOCOL_VERSION 1 ------------------------------ Message: 9 Date: Wed, 15 Sep 2010 19:04:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/matlab test.tst,1.6,1.7 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/matlab In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/matlab Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/matlab/test.tst,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- test.tst 10 Jun 2010 19:16:06 -0000 1.6 +++ test.tst 15 Sep 2010 19:03:59 -0000 1.7 @@ -2,7 +2,7 @@ ;; some tests for Matlab ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "matlab/test")' -(list (require "matlab")) (#-MATLAB T #+MATLAB NIL) +(list (null (require "matlab"))) (#-MATLAB NIL #+MATLAB T) (listp (show (multiple-value-list (ext:module-info "matlab" t)) :pretty t)) T (matlab:invert-matrix #2a((1 2) (0 2))) ------------------------------ Message: 10 Date: Wed, 15 Sep 2010 19:04:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pcre test.tst,1.17,1.18 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pcre In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/pcre Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pcre/test.tst,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- test.tst 10 Jun 2010 19:16:06 -0000 1.17 +++ test.tst 15 Sep 2010 19:03:59 -0000 1.18 @@ -2,7 +2,7 @@ ;; some tests for PCRE ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "pcre/test")' -(list (require "pcre")) (#-PCRE T #+PCRE NIL) +(list (null (require "pcre"))) (#-PCRE NIL #+PCRE T) (listp (show (multiple-value-list (ext:module-info "pcre" t)) :pretty t)) T (defparameter *major-version* ------------------------------ Message: 11 Date: Wed, 15 Sep 2010 19:04:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/wildcard test.tst,1.3,1.4 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/wildcard In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11824/modules/wildcard Modified Files: test.tst Log Message: update for the change in the REQUIRE return value Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/wildcard/test.tst,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- test.tst 10 Jun 2010 19:16:06 -0000 1.3 +++ test.tst 15 Sep 2010 19:03:59 -0000 1.4 @@ -1,7 +1,7 @@ ;; -*- Lisp -*- vim:filetype=lisp ;; clisp -E utf-8 -q -norc -i ../tests/tests -x '(run-test "wildcard/test")' -(list (require "wildcard")) (#-WILDCARD T #+WILDCARD NIL) +(list (null (require "wildcard"))) (#-WILDCARD NIL #+WILDCARD T) (listp (show (multiple-value-list (ext:module-info "wildcard" t)) :pretty t)) t (wildcard:match "foo" "bar") NIL ------------------------------ Message: 12 Date: Wed, 15 Sep 2010 19:05:41 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7511,1.7512 win32.d,1.78,1.79 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv12218/src Modified Files: ChangeLog win32.d Log Message: * src/win32.d (gethostname): #undef after including <unistd.h> and before including winsock headers, as per <http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23076> Index: win32.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/win32.d,v retrieving revision 1.78 retrieving revision 1.79 diff -u -d -r1.78 -r1.79 --- win32.d 1 Sep 2010 22:21:33 -0000 1.78 +++ win32.d 15 Sep 2010 19:05:39 -0000 1.79 @@ -263,8 +263,17 @@ See the #ifs around stream.d:low_write_unbuffered_socket() etc. */ #define USE_SYS_TYPES_FD_SET #endif - #include <winsock2.h> - #include <ws2tcpip.h> + +#include <unistd.h> /* from gnulib for getpagesize */ +/* we do not include gnulib gethostname, so, to avoid + undefined reference to `_gethostname_used_without_requesting_gnulib_module_gethostname' + we need to undef gethostname (defined to the above in gnulib unistd.h) + and then include the woe32 socket headers + <http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23076> */ +#undef gethostname +#include <winsock2.h> +#include <ws2tcpip.h> + #ifdef __MINGW32__ #undef USE_SYS_TYPES_FD_SET #endif @@ -458,5 +467,3 @@ /* PROT_WRITE, PROT_EXEC not used used by spvw.d */ -/* from gnulib for getpagesize */ -#include <unistd.h> Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7511 retrieving revision 1.7512 diff -u -d -r1.7511 -r1.7512 --- ChangeLog 15 Sep 2010 18:04:01 -0000 1.7511 +++ ChangeLog 15 Sep 2010 19:05:39 -0000 1.7512 @@ -1,5 +1,11 @@ 2010-09-15 Sam Steingold <sd...@gn...> + * win32.d (gethostname): #undef after including <unistd.h> and + before including winsock headers, as per + <http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23076> + +2010-09-15 Sam Steingold <sd...@gn...> + * utils/gen-uninames: remove, superseded by src/gllib/uniname/gen-uninames.lisp ------------------------------ Message: 13 Date: Wed, 15 Sep 2010 19:09:09 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls calls.c,1.309,1.310 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv12767/modules/syscalls Modified Files: calls.c Log Message: * utils/modprep.lisp (checker): replace reverse with use_default_function to conform to c_lisp_map_t (new-checker): update signature and make-checker call (print-tables-1): use use_default_function to init the map struct field * modules/syscalls/calls.c: update DEFCHECKER invocations Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.309 retrieving revision 1.310 diff -u -d -r1.309 -r1.310 --- calls.c 14 Sep 2010 20:23:16 -0000 1.309 +++ calls.c 15 Sep 2010 19:09:07 -0000 1.310 @@ -490,7 +490,7 @@ /* ============================== syslog ============================== */ #if defined(HAVE_SYSLOG) -DEFCHECKER(check_syslog_severity,prefix=LOG,reverse=sint_to_I, \ +DEFCHECKER(check_syslog_severity,prefix=LOG,use_default_function=, \ EMERG ALERT CRIT ERR WARNING NOTICE INFO DEBUG) DEFCHECKER(check_syslog_facility,default=LOG_USER,prefix=LOG,\ KERN USER MAIL NEWS UUCP DAEMON AUTH CRON LPR SYSLOG AUTHPRIV FTP \ @@ -904,7 +904,7 @@ DEFCHECKER(check_priority_value,suffix=PRIORITY_CLASS,default=0, \ REALTIME :HIGH ABOVE-NORMAL :NORMAL BELOW-NORMAL :LOW IDLE) #else -DEFCHECKER(check_priority_value,default=0,reverse=sint_to_I, \ +DEFCHECKER(check_priority_value,default=0,use_default_function=, \ REALTIME=-NZERO :HIGH=(-NZERO/2) ABOVE-NORMAL=(-NZERO/4) :NORMAL=0 \ BELOW-NORMAL=(NZERO/4) :LOW=(NZERO/2) IDLE=NZERO) #endif @@ -2231,7 +2231,7 @@ #endif /* HAVE_NFTW */ /* <http://www.opengroup.org/onlinepubs/009695399/basedefs/sys/stat.h.html> */ -DEFCHECKER(check_chmod_mode, type=mode_t, reverse=UL_to_I, \ +DEFCHECKER(check_chmod_mode, type=mode_t, use_default_function=,\ prefix=S_I, delim=, default=, bitmasks=both, \ SUID SGID SVTX RWXU RUSR WUSR XUSR RWXG RGRP \ WGRP XGRP RWXO ROTH WOTH XOTH) @@ -3381,7 +3381,7 @@ return CoCreateInstance(rclsid, pUnkOuter, dwClsContext, riid, ppv); } -DEFCHECKER(check_file_attributes, type=DWORD, reverse=uint32_to_I, \ +DEFCHECKER(check_file_attributes, type=DWORD, use_default_function=, \ default=, prefix=FILE_ATTRIBUTE, bitmasks=both, \ ARCHIVE COMPRESSED :DEVICE :DIRECTORY ENCRYPTED HIDDEN :NORMAL \ NOT-CONTENT-INDEXED OFFLINE READONLY REPARSE-POINT SPARSE-FILE \ @@ -4738,7 +4738,7 @@ # include <winerror.h> /* http://cygwin.com/cgi-bin/cvsweb.cgi/src/winsup/w32api/include/winerror.h */ /* http://msdn.microsoft.com/en-us/library/aa914935.aspx */ -DEFCHECKER(check_errno,type=DWORD,reverse=uint32_to_I, \ +DEFCHECKER(check_errno,type=DWORD,use_default_function=, \ ERROR_INVALID_FUNCTION ERROR_FILE_NOT_FOUND ERROR_PATH_NOT_FOUND \ ERROR_TOO_MANY_OPEN_FILES ERROR_ACCESS_DENIED \ ERROR_INVALID_HANDLE ERROR_ARENA_TRASHED ERROR_NOT_ENOUGH_MEMORY \ ------------------------------ ------------------------------------------------------------------------------ Start uncovering the many advantages of virtual appliances and start using them to simplify application deployment and accelerate your shift to cloud computing. http://p.sf.net/sfu/novell-sfdev2dev ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 53, Issue 18 ***************************************** |