diff options
Diffstat (limited to 'generic/tclTestProcBodyObj.c')
| -rw-r--r-- | generic/tclTestProcBodyObj.c | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c index e3f12a1..43361c5 100644 --- a/generic/tclTestProcBodyObj.c +++ b/generic/tclTestProcBodyObj.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTestProcBodyObj.c,v 1.4 2005/11/02 15:59:49 dkf Exp $ + * RCS: @(#) $Id: tclTestProcBodyObj.c,v 1.5 2007/04/16 13:36:35 dkf Exp $ */ #include "tclInt.h" @@ -84,8 +84,8 @@ static CONST CmdTable safeCommands[] = { */ int -Procbodytest_Init(interp) - Tcl_Interp *interp; /* the Tcl interpreter for which the package +Procbodytest_Init( + Tcl_Interp *interp) /* the Tcl interpreter for which the package * is initialized */ { return ProcBodyTestInitInternal(interp, 0); @@ -108,8 +108,8 @@ Procbodytest_Init(interp) */ int -Procbodytest_SafeInit(interp) - Tcl_Interp *interp; /* the Tcl interpreter for which the package +Procbodytest_SafeInit( + Tcl_Interp *interp) /* the Tcl interpreter for which the package * is initialized */ { return ProcBodyTestInitInternal(interp, 1); @@ -171,10 +171,10 @@ static int RegisterCommand(interp, namespace, cmdTablePtr) */ static int -ProcBodyTestInitInternal(interp, isSafe) - Tcl_Interp *interp; /* the Tcl interpreter for which the package +ProcBodyTestInitInternal( + Tcl_Interp *interp, /* the Tcl interpreter for which the package * is initialized */ - int isSafe; /* 1 if this is a safe interpreter */ + int isSafe) /* 1 if this is a safe interpreter */ { CONST CmdTable *cmdTablePtr; @@ -222,11 +222,11 @@ ProcBodyTestInitInternal(interp, isSafe) */ static int -ProcBodyTestProcObjCmd (dummy, interp, objc, objv) - ClientData dummy; /* context; not used */ - Tcl_Interp *interp; /* the current interpreter */ - int objc; /* argument count */ - Tcl_Obj *CONST objv[]; /* arguments */ +ProcBodyTestProcObjCmd( + ClientData dummy, /* context; not used */ + Tcl_Interp *interp, /* the current interpreter */ + int objc, /* argument count */ + Tcl_Obj *const objv[]) /* arguments */ { char *fullName; Tcl_Command procCmd; |