diff options
author | dkf <dkf@noemail.net> | 2005-07-20 23:15:59 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2005-07-20 23:15:59 (GMT) |
commit | 5c9607daa606628a6dcf267260bfc220b27027ee (patch) | |
tree | b2177cb66852e3b087e693c873f7ec770bb087f2 /unix/tclUnixEvent.c | |
parent | defbecf86082ab28f8969b15ef8edc648d9e9edb (diff) | |
download | tcl-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.c | 29 |
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: + */ |