You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by da...@apache.org on 2002/03/07 19:55:41 UTC
cvs commit: tcl-websh/src/generic formdata.c log.c logtoap.c
davidw 02/03/07 10:55:41
Modified: src/generic formdata.c log.c logtoap.c
Log:
Whitespace, comments, braces.
Revision Changes Path
1.5 +7 -9 tcl-websh/src/generic/formdata.c
Index: formdata.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/formdata.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- formdata.c 27 Feb 2002 08:47:42 -0000 1.4
+++ formdata.c 7 Mar 2002 18:55:40 -0000 1.5
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * @(#) $Id: formdata.c,v 1.4 2002/02/27 08:47:42 davidw Exp $
+ * @(#) $Id: formdata.c,v 1.5 2002/03/07 18:55:40 davidw Exp $
*
*/
@@ -61,8 +61,8 @@
return TCL_ERROR;
}
- /* fixme: we don't set the channel options back. maybe we should ;-) */
- /* add to documentation! */
+ /* fixme: we don't set the channel options back. maybe we should. */
+ /* For now (3.5) we will add this to the documentation. */
Tcl_SetChannelOption(interp, channel, "-translation", "binary");
/* ------------------------------------------------------------------------
@@ -214,7 +214,8 @@
return TCL_ERROR;
}
- /* fixme: we don't set the channel options back. maybe we should ;-) */
+ /* fixme: we don't set the channel options back. maybe we should. */
+ /* For now (3.5) we will add this to the documentation. */
Tcl_SetChannelOption(interp, channel, "-translation", "binary");
@@ -263,11 +264,8 @@
* read until last
* ----------------------------------------------------------------------- */
- /* fixme: only read content_length bytes ...
-
- Add to documentation
-
- */
+ /* fixme: only read content_length bytes ... */
+ /* For now (3.5) we will add this to the documentation. */
while (isLast == TCL_ERROR) {
/* ------------------------------------------------------------------------
1.7 +3 -2 tcl-websh/src/generic/log.c
Index: log.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/log.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- log.c 27 Feb 2002 09:01:46 -0000 1.6
+++ log.c 7 Mar 2002 18:55:40 -0000 1.7
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * @(#) $Id: log.c,v 1.6 2002/02/27 09:01:46 davidw Exp $
+ * @(#) $Id: log.c,v 1.7 2002/03/07 18:55:40 davidw Exp $
*
*/
@@ -832,8 +832,9 @@
/* fixme: destroyLogPlugIn - have to assume that all channels are closed */
/* boh... */
- if (logPlugIn != NULL)
+ if (logPlugIn != NULL) {
WebFreeIfNotNull(logPlugIn);
+ }
return TCL_OK;
}
1.5 +3 -3 tcl-websh/src/generic/logtoap.c
Index: logtoap.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/logtoap.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- logtoap.c 6 Mar 2002 15:35:01 -0000 1.4
+++ logtoap.c 7 Mar 2002 18:55:40 -0000 1.5
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * @(#) $Id: logtoap.c,v 1.4 2002/03/06 15:35:01 ronnie Exp $
+ * @(#) $Id: logtoap.c,v 1.5 2002/03/07 18:55:40 davidw Exp $
*
*/
@@ -78,7 +78,7 @@
va_list args;
va_start(args, msg);
-
+
if ((interp == NULL) || (msg == NULL))
return TCL_ERROR;
@@ -94,6 +94,6 @@
#endif /* APACHE2 */
va_end(args);
-
+
return TCL_OK;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org