debian/cdesktop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dtdocbook: Change to ANSI function definitions

Browse Source
This commit is contained in:
Peter Howkins
2018-06-28 04:12:10 +01:00
parent 3baf0744f2
commit 948baafd17
51 changed files with 2295 additions and 1978 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
cde/programs/dtdocbook/tcl/tclProc.c
View File

@@ -66,11 +66,12 @@ 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. */
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;
@@ -202,11 +203,12 @@ 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
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 curLevel, level, result;
@@ -279,11 +281,12 @@ 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. */
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;
@@ -364,9 +367,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;
@@ -401,8 +405,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;
@@ -428,14 +433,15 @@ TclIsProc(cmdPtr)
*/
static int
InterpProc(clientData, interp, argc, argv)
ClientData clientData; /* Record describing procedure to be
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;
@@ -592,8 +598,9 @@ InterpProc(clientData, interp, argc, argv)
*/
static void
ProcDeleteProc(clientData)
ClientData clientData; /* Procedure to be deleted. */
ProcDeleteProc(
ClientData clientData /* Procedure to be deleted. */
)
{
Proc *procPtr = (Proc *) clientData;
@@ -622,8 +629,9 @@ ProcDeleteProc(clientData)
*/
static void
CleanupProc(procPtr)
register Proc *procPtr; /* Procedure to be deleted. */
CleanupProc(
register Proc *procPtr /* Procedure to be deleted. */
)
{
register Arg *argPtr;
@@ -658,9 +666,10 @@ CleanupProc(procPtr)
*/
int
TclUpdateReturnInfo(iPtr)
Interp *iPtr; /* Interpreter for which TCL_RETURN
TclUpdateReturnInfo(
Interp *iPtr /* Interpreter for which TCL_RETURN
* exception is being processed. */
)
{
int code;