X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/6a5fa4e03967ab980cdc7ef96a42400bc29b4414..176c45720f3b9e5555fe1084d3e6ea59488c1785:/src/tclx/src/tclxmath.c?ds=sidebyside diff --git a/src/tclx/src/tclxmath.c b/src/tclx/src/tclxmath.c index 9f967bf..90bd986 100644 --- a/src/tclx/src/tclxmath.c +++ b/src/tclx/src/tclxmath.c @@ -16,6 +16,7 @@ *----------------------------------------------------------------------------- */ +#include #include "tclxint.h" extern int rand(); @@ -40,11 +41,12 @@ really_random _ANSI_ARGS_((int my_range)); *----------------------------------------------------------------------------- */ int -Tcl_MaxCmd (clientData, interp, argc, argv) - ClientData clientData; - Tcl_Interp *interp; - int argc; - char **argv; +Tcl_MaxCmd ( + ClientData clientData, + Tcl_Interp *interp, + int argc, + char **argv +) { double value, maxValue = -MAXDOUBLE; int idx, maxIdx = 1; @@ -81,11 +83,12 @@ Tcl_MaxCmd (clientData, interp, argc, argv) *----------------------------------------------------------------------------- */ int -Tcl_MinCmd (clientData, interp, argc, argv) - ClientData clientData; - Tcl_Interp *interp; - int argc; - char **argv; +Tcl_MinCmd ( + ClientData clientData, + Tcl_Interp *interp, + int argc, + char **argv +) { double value, minValue = MAXDOUBLE; int idx, minIdx = 1; @@ -124,9 +127,7 @@ Tcl_MinCmd (clientData, interp, argc, argv) #endif static int - -ReallyRandom (myRange) - int myRange; +ReallyRandom (int myRange) { int maxMultiple, rnum; @@ -157,11 +158,12 @@ ReallyRandom (myRange) *----------------------------------------------------------------------------- */ int -Tcl_RandomCmd (clientData, interp, argc, argv) - ClientData clientData; - Tcl_Interp *interp; - int argc; - char **argv; +Tcl_RandomCmd ( + ClientData clientData, + Tcl_Interp *interp, + int argc, + char **argv +) { unsigned range;