summaryrefslogtreecommitdiffstats
path: root/unix/tclUnixEvent.c
diff options
context:
space:
mode:
authordkf <dkf@noemail.net>2005-07-20 23:15:59 (GMT)
committerdkf <dkf@noemail.net>2005-07-20 23:15:59 (GMT)
commit5c9607daa606628a6dcf267260bfc220b27027ee (patch)
treeb2177cb66852e3b087e693c873f7ec770bb087f2 /unix/tclUnixEvent.c
parentdefbecf86082ab28f8969b15ef8edc648d9e9edb (diff)
downloadtcl-5c9607daa606628a6dcf267260bfc220b27027ee.zip
tcl-5c9607daa606628a6dcf267260bfc220b27027ee.tar.gz
tcl-5c9607daa606628a6dcf267260bfc220b27027ee.tar.bz2
Getting more systematic about style
FossilOrigin-Name: 0c5cea4d810d972d3fc068b559c281718525451f
Diffstat (limited to 'unix/tclUnixEvent.c')
-rw-r--r--unix/tclUnixEvent.c29
1 files changed, 19 insertions, 10 deletions
diff --git a/unix/tclUnixEvent.c b/unix/tclUnixEvent.c
index 2e7cb4e..688938b 100644
--- a/unix/tclUnixEvent.c
+++ b/unix/tclUnixEvent.c
@@ -5,10 +5,10 @@
*
* Copyright (c) 1997 by Sun Microsystems, Inc.
*
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ * See the file "license.terms" for information on usage and redistribution of
+ * this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixEvent.c,v 1.7 2005/05/10 18:35:27 kennykb Exp $
+ * RCS: @(#) $Id: tclUnixEvent.c,v 1.8 2005/07/20 23:16:00 dkf Exp $
*/
#include "tclInt.h"
@@ -37,10 +37,9 @@ Tcl_Sleep(ms)
Tcl_Time before, after, vdelay;
/*
- * The only trick here is that select appears to return early
- * under some conditions, so we have to check to make sure that
- * the right amount of time really has elapsed. If it's too
- * early, go back to sleep again.
+ * The only trick here is that select appears to return early under some
+ * conditions, so we have to check to make sure that the right amount of
+ * time really has elapsed. If it's too early, go back to sleep again.
*/
Tcl_GetTime(&before);
@@ -52,7 +51,9 @@ Tcl_Sleep(ms)
after.sec += 1;
}
while (1) {
- /* TIP #233: Scale from virtual time to real-time for select */
+ /*
+ * TIP #233: Scale from virtual time to real-time for select.
+ */
vdelay.sec = after.sec - before.sec;
vdelay.usec = after.usec - before.usec;
@@ -70,8 +71,8 @@ Tcl_Sleep(ms)
delay.tv_usec = vdelay.usec;
/*
- * Special note: must convert delay.tv_sec to int before comparing
- * to zero, since delay.tv_usec is unsigned on some platforms.
+ * Special note: must convert delay.tv_sec to int before comparing to
+ * zero, since delay.tv_usec is unsigned on some platforms.
*/
if ((((int) delay.tv_sec) < 0)
@@ -83,3 +84,11 @@ Tcl_Sleep(ms)
Tcl_GetTime(&before);
}
}
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-basic-offset: 4
+ * fill-column: 78
+ * End:
+ */