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

diff --git a/src/tcl/tclcmdah.c b/src/tcl/tclcmdah.c
index d1bf65f..3cbb8fd 100644
--- a/src/tcl/tclcmdah.c
+++ b/src/tcl/tclcmdah.c
@@ -40,12 +40,13 @@ static char rcsid[] = "$Header: /user6/ouster/tcl/RCS/tclCmdAH.c,v 1.76 92/07/06
  */
 
 	/* ARGSUSED */
-int
-Tcl_BreakCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_BreakCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     if (argc != 1) {
 	Tcl_AppendResult(interp, "wrong # args: should be \"",
@@ -73,12 +74,13 @@ Tcl_BreakCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_CaseCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_CaseCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     int i, result;
     int body;
@@ -213,12 +215,13 @@ Tcl_CaseCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_CatchCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_CatchCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     int result;
 
@@ -258,12 +261,13 @@ Tcl_CatchCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_ConcatCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_ConcatCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     if (argc == 1) {
 	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@@ -294,12 +298,13 @@ Tcl_ConcatCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_ContinueCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_ContinueCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     if (argc != 1) {
 	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@@ -327,12 +332,13 @@ Tcl_ContinueCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_ErrorCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_ErrorCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     Interp *iPtr = (Interp *) interp;
 
@@ -372,12 +378,13 @@ Tcl_ErrorCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_EvalCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_EvalCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     int result;
     char *cmd;
@@ -426,12 +433,13 @@ Tcl_EvalCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_ExprCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_ExprCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     if (argc != 2) {
 	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@@ -460,12 +468,13 @@ Tcl_ExprCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_ForCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_ForCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     int result, value;
 
@@ -538,12 +547,13 @@ Tcl_ForCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_ForeachCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_ForeachCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     int listArgc, i, result;
     char **listArgv;
@@ -613,12 +623,13 @@ Tcl_ForeachCmd(dummy, interp, argc, argv)
  */
 
 	/* ARGSUSED */
-int
-Tcl_FormatCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    char **argv;			/* Argument strings. */
+int 
+Tcl_FormatCmd (
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    char **argv			/* Argument strings. */
+)
 {
     register char *format;	/* Used to read characters from the format
 				 * string. */