X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/f1d92a2564f181cebcabbd0f8c04fe8966bc17ff..HEAD:/src/tcl/tclproc.c?ds=sidebyside

diff --git a/src/tcl/tclproc.c b/src/tcl/tclproc.c
index eb94c3b..e5e3247 100644
--- a/src/tcl/tclproc.c
+++ b/src/tcl/tclproc.c
@@ -46,12 +46,13 @@ static  void	ProcDeleteProc _ANSI_ARGS_((ClientData clientData));
  */
 
 	/* ARGSUSED */
-int
-Tcl_ProcCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_ProcCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     register Interp *iPtr = (Interp *) interp;
     register Proc *procPtr;
@@ -181,12 +182,13 @@ Tcl_ProcCmd(dummy, interp, argc, argv)
  *----------------------------------------------------------------------
  */
 
-int
-TclGetFrame(interp, string, framePtrPtr)
-    Tcl_Interp *interp;		/* Interpreter in which to find frame. */
-    char *string;		/* String describing frame. */
-    CallFrame **framePtrPtr;	/* Store pointer to frame here (or NULL
+int 
+TclGetFrame (
+    Tcl_Interp *interp,		/* Interpreter in which to find frame. */
+    char *string,		/* String describing frame. */
+    CallFrame **framePtrPtr	/* Store pointer to frame here (or NULL
 				 * if global frame indicated). */
+)
 {
     register Interp *iPtr = (Interp *) interp;
     int level, result;
@@ -262,12 +264,13 @@ TclGetFrame(interp, string, framePtrPtr)
  */
 
 	/* ARGSUSED */
-int
-Tcl_UplevelCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_UplevelCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     register Interp *iPtr = (Interp *) interp;
     int result;
@@ -348,9 +351,10 @@ Tcl_UplevelCmd(dummy, interp, argc, argv)
  */
 
 Proc *
-TclFindProc(iPtr, procName)
-    Interp *iPtr;		/* Interpreter in which to look. */
-    char *procName;		/* Name of desired procedure. */
+TclFindProc (
+    Interp *iPtr,		/* Interpreter in which to look. */
+    char *procName		/* Name of desired procedure. */
+)
 {
     Tcl_HashEntry *hPtr;
     Command *cmdPtr;
@@ -385,8 +389,9 @@ TclFindProc(iPtr, procName)
  */
 
 Proc *
-TclIsProc(cmdPtr)
-    Command *cmdPtr;		/* Command to test. */
+TclIsProc (
+    Command *cmdPtr		/* Command to test. */
+)
 {
     if (cmdPtr->proc == InterpProc) {
 	return (Proc *) cmdPtr->clientData;
@@ -411,15 +416,16 @@ TclIsProc(cmdPtr)
  *----------------------------------------------------------------------
  */
 
-static int
-InterpProc(clientData, interp, argc, argv)
-    ClientData clientData;	/* Record describing procedure to be
+static int 
+InterpProc (
+    ClientData clientData,	/* Record describing procedure to be
 				 * interpreted. */
-    Tcl_Interp *interp;		/* Interpreter in which procedure was
+    Tcl_Interp *interp,		/* Interpreter in which procedure was
 				 * invoked. */
-    int argc;			/* Count of number of arguments to this
+    int argc,			/* Count of number of arguments to this
 				 * procedure. */
-    char **argv;		/* Argument values. */
+    char **argv		/* Argument values. */
+)
 {
     register Proc *procPtr = (Proc *) clientData;
     register Arg *argPtr;
@@ -549,9 +555,10 @@ InterpProc(clientData, interp, argc, argv)
  *----------------------------------------------------------------------
  */
 
-static void
-ProcDeleteProc(clientData)
-    ClientData clientData;		/* Procedure to be deleted. */
+static void 
+ProcDeleteProc (
+    ClientData clientData		/* Procedure to be deleted. */
+)
 {
     register Proc *procPtr = (Proc *) clientData;
     register Arg *argPtr;