From: <cli...@li...> - 2010-06-25 12:06:07
|
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/tests streamslong.tst,1.29,1.30 (Sam Steingold) 2. clisp/src ChangeLog,1.7434,1.7435 stream.d,1.683,1.684 (Sam Steingold) 3. clisp/src ChangeLog,1.7435,1.7436 stream.d,1.684,1.685 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Thu, 24 Jun 2010 19:43:13 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests streamslong.tst,1.29,1.30 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/tests In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv8204/tests Modified Files: streamslong.tst Log Message: (SET-STREAM-EXTERNAL-FORMAT): use stream_reset_eltype to reset pseudofunctions in case line terminator changed Index: streamslong.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/streamslong.tst,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- streamslong.tst 24 Jun 2010 19:05:31 -0000 1.29 +++ streamslong.tst 24 Jun 2010 19:43:11 -0000 1.30 @@ -296,3 +296,19 @@ (ext:encoding-line-terminator (stream-external-format out)))))) (delete-file file-in) (delete-file file-out))) #+CLISP (:DOS :UNIX :UNIX :UNIX :UNIX) + +#+CLISP +(let ((file "test-extfmt")) + (with-open-file (out file :direction :output :external-format :dos + :if-exists :supersede) + (terpri out) + (setf (stream-external-format out) :unix) + (terpri out)) + (unwind-protect + (with-open-file (in file :direction :input + :element-type '(unsigned-byte 8)) + (let ((v (make-array (file-length in)))) + (read-sequence v in) + (map 'vector #'code-char v))) + (delete-file file))) +#+CLISP #(#\Return #\Newline #\Newline) ------------------------------ Message: 2 Date: Thu, 24 Jun 2010 19:43:13 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7434,1.7435 stream.d,1.683,1.684 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv8204/src Modified Files: ChangeLog stream.d Log Message: (SET-STREAM-EXTERNAL-FORMAT): use stream_reset_eltype to reset pseudofunctions in case line terminator changed Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.683 retrieving revision 1.684 diff -u -d -r1.683 -r1.684 --- stream.d 24 Jun 2010 19:05:30 -0000 1.683 +++ stream.d 24 Jun 2010 19:43:10 -0000 1.684 @@ -15971,8 +15971,12 @@ ChannelStream_fini(stream,0); stream = stream_reset_eltype(stream,&eltype); encoding = STACK_1; /* restore encoding */ - value1 = TheStream(stream)->strm_encoding = encoding; + TheStream(stream)->strm_encoding = encoding; + /* reset pseudofunctions in case line terminator changed */ + stream_reset_eltype(stream,&eltype); + stream = STACK_2; /* restore stream */ ChannelStream_init(stream); + VALUES1(TheStream(stream)->strm_encoding); } break; #ifdef SOCKET_STREAMS Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7434 retrieving revision 1.7435 diff -u -d -r1.7434 -r1.7435 --- ChangeLog 24 Jun 2010 19:07:39 -0000 1.7434 +++ ChangeLog 24 Jun 2010 19:43:10 -0000 1.7435 @@ -6,8 +6,9 @@ 2010-06-24 Sam Steingold <sd...@gn...> fix bug#3020933: (SETF STREAM-EXTERNAL-FORMAT) fails on TWO-WAY-STREAM - * stream.d (SET-STREAM-EXTERNAL-FORMAT): handle TWO-WAY-STREAM - and ECHO-STREAM together with TWO-WAY-SOCKET + * stream.d (SET-STREAM-EXTERNAL-FORMAT): handle TWO-WAY-STREAM and + ECHO-STREAM together with TWO-WAY-SOCKET; use stream_reset_eltype + to reset pseudofunctions in case line terminator changed 2010-06-24 Sam Steingold <sd...@gn...> ------------------------------ Message: 3 Date: Thu, 24 Jun 2010 21:28:23 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7435,1.7436 stream.d,1.684,1.685 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv15739/src Modified Files: ChangeLog stream.d Log Message: * src/stream.d (IS_EINVAL_EXTRA): treat all *BSD flavors like DARWIN Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.684 retrieving revision 1.685 diff -u -d -r1.684 -r1.685 --- stream.d 24 Jun 2010 19:43:10 -0000 1.684 +++ stream.d 24 Jun 2010 21:28:20 -0000 1.685 @@ -3481,7 +3481,7 @@ #define IS_EINVAL_EXTRA (errno==ENOSYS) #elif defined(UNIX_CYGWIN32) /* for Woe95 and xterm/rxvt, and WoeXP /dev/null */ #define IS_EINVAL_EXTRA ((errno==EBADF)||(errno==EACCES)||(errno==EBADRQC)) -#elif defined(UNIX_DARWIN) +#elif defined(UNIX_DARWIN) || defined(UNIX_FREEBSD) || defined(UNIX_NETBSD) || defined(UNIX_OPENBSD) #define IS_EINVAL_EXTRA ((errno==EOPNOTSUPP)||(errno==ENOTSUP)||(errno==ENODEV)) #else #define IS_EINVAL_EXTRA 0 Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7435 retrieving revision 1.7436 diff -u -d -r1.7435 -r1.7436 --- ChangeLog 24 Jun 2010 19:43:10 -0000 1.7435 +++ ChangeLog 24 Jun 2010 21:28:18 -0000 1.7436 @@ -1,5 +1,9 @@ 2010-06-24 Sam Steingold <sd...@gn...> + * stream.d (IS_EINVAL_EXTRA): treat all *BSD flavors like DARWIN + +2010-06-24 Sam Steingold <sd...@gn...> + * makemake.in (anymodule): use CLISP_LIBDIR instead of HEREP because it is decolonized to prevent "multiple target patterns" @@ -3358,7 +3362,7 @@ [MULTITHREAD]: add partial support for thread interruption on WIN32 * lispbibl.d (GC_SAFE_REGION_END_i): handle pending interrupts - depending on thread's flavour + depending on thread's flavor (install_async_signal_handlers, thr_signal_handler) (SIG_THREAD_INTERRUPT, SIG_TIMEOUT_CALL): make them local in spvw.d (signal_timeout_call): function to announce new timeout call. used by @@ -5137,7 +5141,7 @@ 2008-11-19 Vladimir Tzankov <vtz...@gm...> - Remove obsolete threads flavours + Remove obsolete threads flavors * xthread.d: remove POSIXOLD_THREADS and C_THREADS 2008-11-18 Sam Steingold <sd...@gn...> ------------------------------ ------------------------------------------------------------------------------ ThinkGeek and WIRED's GeekDad team up for the Ultimate GeekDad Father's Day Giveaway. ONE MASSIVE PRIZE to the lucky parental unit. See the prize list and enter to win: http://p.sf.net/sfu/thinkgeek-promo ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 50, Issue 26 ***************************************** |