From: <cli...@li...> - 2006-11-08 20:07:35
|
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/src stream.d,1.567,1.568 (J=C3=B6rg H=C3=B6hle) 2. clisp/src stream.d,1.568,1.569 ChangeLog,1.5442,1.5443 (J=C3=B6rg H=C3=B6hle) ---------------------------------------------------------------------- Message: 1 Date: Wed, 08 Nov 2006 16:04:50 +0000 From: J=C3=B6rg H=C3=B6hle <ho...@us...> Subject: clisp/src stream.d,1.567,1.568 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv18321/src Modified Files: stream.d=20 Log Message: kill erroneous comment, :BUFFERED default is not NIL Index: stream.d =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.567 retrieving revision 1.568 diff -u -d -r1.567 -r1.568 --- stream.d 22 Sep 2006 15:31:01 -0000 1.567 +++ stream.d 8 Nov 2006 16:04:46 -0000 1.568 @@ -12786,7 +12786,7 @@ pushSTACK(STACK_3); funcall(L(string),1); # (STRING command) STACK_3 =3D value1; # Check and canonicalize the :BUFFERED argument: - buffered =3D test_buffered_arg(STACK_0); # default is NIL + buffered =3D test_buffered_arg(STACK_0); # Check and canonicalize the :ELEMENT-TYPE argument: test_eltype_arg(&STACK_2,&eltype); STACK_2 =3D canon_eltype(&eltype); @@ -12996,7 +12996,7 @@ pushSTACK(STACK_3); funcall(L(string),1); # (STRING command) STACK_3 =3D value1; # Check and canonicalize the :BUFFERED argument: - buffered =3D test_buffered_arg(STACK_0); # default is NIL + buffered =3D test_buffered_arg(STACK_0); # Check and canonicalize the :ELEMENT-TYPE argument: test_eltype_arg(&STACK_2,&eltype); STACK_2 =3D canon_eltype(&eltype); @@ -13036,7 +13036,7 @@ var decoded_el_t eltype; var signean buffered; # Check and canonicalize the :BUFFERED argument: - buffered =3D test_buffered_arg(STACK_0); # default is NIL + buffered =3D test_buffered_arg(STACK_0); # Check and canonicalize the :ELEMENT-TYPE argument: test_eltype_arg(&STACK_1,&eltype); STACK_1 =3D canon_eltype(&eltype); @@ -13070,7 +13070,7 @@ var decoded_el_t eltype; var signean buffered; # Check and canonicalize the :BUFFERED argument: - buffered =3D test_buffered_arg(STACK_0); # default is NIL + buffered =3D test_buffered_arg(STACK_0); # Check and canonicalize the :ELEMENT-TYPE argument: test_eltype_arg(&STACK_1,&eltype); STACK_1 =3D canon_eltype(&eltype); @@ -13244,7 +13244,7 @@ pushSTACK(STACK_3); funcall(L(string),1); # (STRING command) STACK_3 =3D value1; # Check and canonicalize the :BUFFERED argument: - buffered =3D test_buffered_arg(STACK_0); # default is NIL + buffered =3D test_buffered_arg(STACK_0); # Check and canonicalize the :ELEMENT-TYPE argument: test_eltype_arg(&STACK_2,&eltype); STACK_2 =3D canon_eltype(&eltype); ------------------------------ Message: 2 Date: Wed, 08 Nov 2006 17:45:58 +0000 From: J=C3=B6rg H=C3=B6hle <ho...@us...> Subject: clisp/src stream.d,1.568,1.569 ChangeLog,1.5442,1.5443 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv21820/src Modified Files: stream.d ChangeLog=20 Log Message: finish_tty_output: try the 3 methods until one succeeds Index: stream.d =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.568 retrieving revision 1.569 diff -u -d -r1.568 -r1.569 --- stream.d 8 Nov 2006 16:04:46 -0000 1.568 +++ stream.d 8 Nov 2006 17:45:54 -0000 1.569 @@ -3447,10 +3447,10 @@ # UP: Move the pending Output of a Handle to the destination. local void finish_tty_output (Handle handle) { - # Method 1: fsync, see FSYNC(2) - # Method 2: tcdrain, see TERMIOS(3V) + # Method 1: fsync, see fsync(2) + # Method 2: tcdrain, see termios(3V) # Method 3: ioctl TCSBRK 1, see TERMIO(4) - # poss. Method 3: ioctl TCGETS/TCSETSW, see TERMIO(4) + # poss. Method 3: ioctl TCGETS/TCSETSW, see termio(4) or tty_ioctl(4= ) # or (almost equivalent) ioctl TIOCGETP/TIOCSETP, see TTCOMPAT(4) begin_system_call(); #if !(defined(UNIX) && !defined(HAVE_FSYNC)) @@ -3468,7 +3468,7 @@ if (!(errno=3D=3DEINVAL)) { OS_error(); } #endif - } + } else #endif #ifdef UNIX_TERM_TERMIOS if (!( TCDRAIN(handle) =3D=3D0)) { @@ -3477,12 +3477,12 @@ if (!((errno=3D=3DEOPNOTSUPP)||(errno=3D=3DENODEV))) #endif { OS_error(); } # no TTY: OK, report other Error - } + } else #endif #ifdef UNIX_TERM_TERMIO if (!( ioctl(handle,TCSBRK,(CADDR_T)1) =3D=3D0)) { if (!(errno=3D=3DENOTTY)) { OS_error(); } - } + } else #endif #if defined(UNIX_TERM_TERMIOS) && defined(TCGETS) && defined(TCSETSW= ) { @@ -3494,6 +3494,7 @@ } } #endif + ; # end else chain #if 0 # Caution: This should cause FINISH-OUTPUT and CLEAR-INPUT! { var struct sgttyb tty_parameters; Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5442 retrieving revision 1.5443 diff -u -d -r1.5442 -r1.5443 --- ChangeLog 7 Nov 2006 02:59:38 -0000 1.5442 +++ ChangeLog 8 Nov 2006 17:45:55 -0000 1.5443 @@ -1,3 +1,8 @@ +2006-11-08 J=C3=B6rg H=C3=B6hle <ho...@us...> + + * stream.d (finish_tty_output): try fsync(), tcdrain() or ioctl() + until success, not all of them. Fixes bug #[ 1592343 ] + 2006-11-06 Sam Steingold <sd...@po...> =20 * io.d (read_vector_length_check): extracted the common part of @@ -11985,7 +11990,7 @@ =20 * misc.d (MODULE-INFO): return the DLL information for :FFI argument (instead of 0); all info when VERBOSE, names only otherwise - * constsym (:FII) [DYNAMIC_FFI & (WIN32_NATIVE | HAVE_DLOPEN)]: added + * constsym (:FFI) [DYNAMIC_FFI & (WIN32_NATIVE | HAVE_DLOPEN)]: added Suggested by J=C3=B6rg H=C3=B6hle =20 2004-10-10 Bruno Haible <br...@cl...> ------------------------------ ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job ea= sier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronim= o http://sel.as-us.falkag.net/sel?cmd=3Dlnk&kid=3D120709&bid=3D263057&dat=3D= 121642 ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 7, Issue 5 *************************************** |