/* ______________________________________________________________________ */
void
-Browse()
+Browse(void)
{
char buf[256], *cmd, **av, **sv, *cmapfile, *sdatafile;
char *Prompt;
*/
void
-PrintIDList()
+PrintIDList(void)
{
ID_t *id;
Element_t *ep;
char *GetOutFileBaseName();
char *
-GetCLocale()
+GetCLocale(void)
{
_DtXlateDb myDb = NULL;
char myPlatform[_DtPLATFORM_MAX_LEN+1];
/* Initialization stuff done after dealing with args. */
static void
-Initialize2()
+Initialize2(void)
{
SetMappingNV(Variables, "transpec", tranfile ? tranfile : "??");
* Arguments:
*
*/
-char *GetOutFileBaseName()
+char *GetOutFileBaseName(void)
{
char *prefix, *suffix, *cp;
static char nameBuf[_MAXNAMLEN+1] = "";
};
static void
-DoHelpMessage()
+DoHelpMessage(void)
{
char **s = help_msg;
printf("usage: %s [option ...] [file]", this_prog);
*/
void
-GetIDREFnames()
+GetIDREFnames(void)
{
char *cp;
/* ______________________________________________________________________ */
/* resets the output buffer
*/
-void ClearOutputBuffer()
+void ClearOutputBuffer(void)
{
outputBuffer.current = outputBuffer.base;
}
/* determines if there is already some text in the output buffer,
* returns 1 if so, else 0
*/
-int OutputBufferActive()
+int OutputBufferActive(void)
{
return (outputBuffer.current != outputBuffer.base);
}
/* ______________________________________________________________________ */
/* terminates output buffer with a null char and returns the buffer
*/
-char *GetOutputBuffer()
+char *GetOutputBuffer(void)
{
if (CheckOutputBuffer(1))
*(outputBuffer.current)++ = '\0';
#include <stdlib.h>
void
-tpt_regerror(s)
-char *s;
+tpt_regerror(char *s)
{
#ifdef ERRAVAIL
error("tpt_regexp: %s", s);
STATIC char *regbranch();
STATIC char *regpiece();
STATIC char *regatom();
-STATIC char *regnode();
+STATIC char *regnode(char op);
STATIC char *regnext();
-STATIC void regc();
-STATIC void reginsert();
+STATIC void regc(char b);
+STATIC void reginsert(char op, char *opnd);
STATIC void regtail();
STATIC void regoptail();
#ifdef STRCSPN
* of the structure of the compiled regexp.
*/
regexp *
-tpt_regcomp(exp)
-char *exp;
+tpt_regcomp(char *exp)
{
register regexp *r;
register char *scan;
* follows makes it hard to avoid.
*/
static char *
-reg(paren, flagp)
-int paren; /* Parenthesized? */
-int *flagp;
+reg(
+int paren, /* Parenthesized? */
+int *flagp
+)
{
register char *ret;
register char *br;
* Implements the concatenation operator.
*/
static char *
-regbranch(flagp)
-int *flagp;
+regbranch(int *flagp)
{
register char *ret;
register char *chain;
* endmarker role is not redundant.
*/
static char *
-regpiece(flagp)
-int *flagp;
+regpiece(int *flagp)
{
register char *ret;
register char op;
* separate node; the code is simpler that way and it's not worth fixing.
*/
static char *
-regatom(flagp)
-int *flagp;
+regatom(int *flagp)
{
register char *ret;
int flags;
- regnode - emit a node
*/
static char * /* Location. */
-regnode(op)
-char op;
+regnode(char op)
{
register char *ret;
register char *ptr;
- regc - emit (if appropriate) a byte of code
*/
static void
-regc(b)
-char b;
+regc(char b)
{
if (regcode != ®dummy)
*regcode++ = b;
* Means relocating the operand.
*/
static void
-reginsert(op, opnd)
-char op;
-char *opnd;
+reginsert(char op, char *opnd)
{
register char *src;
register char *dst;
- regtail - set the next-pointer at the end of a node chain
*/
static void
-regtail(p, val)
-char *p;
-char *val;
+regtail(char *p, char *val)
{
register char *scan;
register char *temp;
- regoptail - regtail on operand of first argument; nop if operandless
*/
static void
-regoptail(p, val)
-char *p;
-char *val;
+regoptail(char *p, char *val)
{
/* "Operandless" and "op != BRANCH" are synonymous in practice. */
if (p == NULL || p == ®dummy || OP(p) != BRANCH)
- regexec - match a regexp against a string
*/
int
-tpt_regexec(prog, string)
-register regexp *prog;
-register char *string;
+tpt_regexec(register regexp *prog, register char *string)
{
register char *s;
- regtry - try match at specific point
*/
static int /* 0 failure, 1 success */
-regtry(prog, string)
-regexp *prog;
-char *string;
+regtry(regexp *prog, char *string)
{
register int i;
register char **sp;
* by recursion.
*/
static int /* 0 failure, 1 success */
-regmatch(prog)
-char *prog;
+regmatch(char *prog)
{
register char *scan; /* Current node. */
char *next; /* Next node. */
- regrepeat - repeatedly match something simple, report how many
*/
static int
-regrepeat(p)
-char *p;
+regrepeat(char *p)
{
register int count = 0;
register char *scan;
- regnext - dig the "next" pointer out of a node
*/
static char *
-regnext(p)
-register char *p;
+regnext(register char *p)
{
register int offset;
- regdump - dump a regexp onto stdout in vaguely comprehensible form
*/
void
-regdump(r)
-regexp *r;
+regdump(regexp *r)
{
register char *s;
register char op = EXACTLY; /* Arbitrary non-END op. */
- regprop - printable representation of opcode
*/
static char *
-regprop(op)
-char *op;
+regprop(char *op)
{
register char *p;
static char buf[50];
*/
static int
-strcspn(s1, s2)
-char *s1;
-char *s2;
+strcspn(char *s1, char *s2)
{
register char *scan1;
register char *scan2;
- regsub - perform substitutions after a regexp match
*/
void
-tpt_regsub(prog, source, dest)
-regexp *prog;
-char *source;
-char *dest;
+tpt_regsub(regexp *prog, char *source, char *dest)
{
register char *src;
register char *dst;
*/
void
-Tcl_SetPanicProc(proc)
- void (*proc) _ANSI_ARGS_(TCL_VARARGS(char *,format));
+Tcl_SetPanicProc(void (*proc) _ANSI_ARGS_(TCL_VARARGS(char *,format)))
{
panicProc = proc;
}
/* VARARGS ARGSUSED */
void
-panic(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
- char *format; /* Format string, suitable for passing to
- * fprintf. */
- char *arg1, *arg2, *arg3; /* Additional arguments (variable in number)
- * to pass to fprintf. */
- char *arg4, *arg5, *arg6, *arg7, *arg8;
+panic(char *format /* Format string, suitable for passing to fprintf. */,
+ char *arg1, char *arg2, char *arg3 /* Additional arguments (variable in number) to pass to fprintf. */,
+ char *arg4, char *arg5, char *arg6, char *arg7, char *arg8)
{
if (panicProc != NULL) {
(void) (*panicProc)(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
* of the structure of the compiled regexp.
*/
regexp *
-TclRegComp(exp)
-char *exp;
+TclRegComp(char *exp)
{
register regexp *r;
register char *scan;
* follows makes it hard to avoid.
*/
static char *
-reg(paren, flagp, rcstate)
-int paren; /* Parenthesized? */
-int *flagp;
-struct regcomp_state *rcstate;
+reg(int paren /* Parenthesized? */, int *flagp, struct regcomp_state *rcstate)
{
register char *ret;
register char *br;
* Implements the concatenation operator.
*/
static char *
-regbranch(flagp, rcstate)
-int *flagp;
-struct regcomp_state *rcstate;
+regbranch(int *flagp, struct regcomp_state *rcstate)
{
register char *ret;
register char *chain;
* endmarker role is not redundant.
*/
static char *
-regpiece(flagp, rcstate)
-int *flagp;
-struct regcomp_state *rcstate;
+regpiece(int *flagp, struct regcomp_state *rcstate)
{
register char *ret;
register char op;
* separate node; the code is simpler that way and it's not worth fixing.
*/
static char *
-regatom(flagp, rcstate)
-int *flagp;
-struct regcomp_state *rcstate;
+regatom(int *flagp, struct regcomp_state *rcstate)
{
register char *ret;
int flags;
- regnode - emit a node
*/
static char * /* Location. */
-regnode(op, rcstate)
-int op;
-struct regcomp_state *rcstate;
+regnode(int op, struct regcomp_state *rcstate)
{
register char *ret;
register char *ptr;
- regc - emit (if appropriate) a byte of code
*/
static void
-regc(b, rcstate)
-int b;
-struct regcomp_state *rcstate;
+regc(int b, struct regcomp_state *rcstate)
{
if (rcstate->regcode != ®dummy)
*rcstate->regcode++ = (char)b;
* Means relocating the operand.
*/
static void
-reginsert(op, opnd, rcstate)
-int op;
-char *opnd;
-struct regcomp_state *rcstate;
+reginsert(int op, char *opnd, struct regcomp_state *rcstate)
{
register char *src;
register char *dst;
- regtail - set the next-pointer at the end of a node chain
*/
static void
-regtail(p, val)
-char *p;
-char *val;
+regtail(char *p, char *val)
{
register char *scan;
register char *temp;
- regoptail - regtail on operand of first argument; nop if operandless
*/
static void
-regoptail(p, val)
-char *p;
-char *val;
+regoptail(char *p, char *val)
{
/* "Operandless" and "op != BRANCH" are synonymous in practice. */
if (p == NULL || p == ®dummy || OP(p) != BRANCH)
- TclRegExec - match a regexp against a string
*/
int
-TclRegExec(prog, string, start)
-register regexp *prog;
-register char *string;
-char *start;
+TclRegExec(register regexp *prog, register char *string, char *start)
{
register char *s;
struct regexec_state state;
- regtry - try match at specific point
*/
static int /* 0 failure, 1 success */
-regtry(prog, string, restate)
-regexp *prog;
-char *string;
-struct regexec_state *restate;
+regtry(regexp *prog, char *string, struct regexec_state *restate)
{
register int i;
register char **sp;
* by recursion.
*/
static int /* 0 failure, 1 success */
-regmatch(prog, restate)
-char *prog;
-struct regexec_state *restate;
+regmatch(char *prog, struct regexec_state *restate)
{
register char *scan; /* Current node. */
char *next; /* Next node. */
- regrepeat - repeatedly match something simple, report how many
*/
static int
-regrepeat(p, restate)
-char *p;
-struct regexec_state *restate;
+regrepeat(char *p, struct regexec_state *restate)
{
register int count = 0;
register char *scan;
- regnext - dig the "next" pointer out of a node
*/
static char *
-regnext(p)
-register char *p;
+regnext(register char *p)
{
register int offset;
- regdump - dump a regexp onto stdout in vaguely comprehensible form
*/
void
-regdump(r)
-regexp *r;
+regdump(regexp *r)
{
register char *s;
register char op = EXACTLY; /* Arbitrary non-END op. */
- regprop - printable representation of opcode
*/
static char *
-regprop(op)
-char *op;
+regprop(char *op)
{
register char *p;
static char buf[50];
*/
static int
-strcspn(s1, s2)
-char *s1;
-char *s2;
+strcspn(char *s1, char *s2)
{
register char *scan1;
register char *scan2;
*/
void
-TclRegError(string)
- char *string; /* Error message. */
+TclRegError(char *string /* Error message. */)
{
errMsg = string;
}
char *
-TclGetRegError()
+TclGetRegError(void)
{
return errMsg;
}
*/
Tcl_AsyncHandler
-Tcl_AsyncCreate(proc, clientData)
- Tcl_AsyncProc *proc; /* Procedure to call when handler
- * is invoked. */
- ClientData clientData; /* Argument to pass to handler. */
+Tcl_AsyncCreate(Tcl_AsyncProc *proc /* Procedure to call when handler is invoked. */,
+ ClientData clientData /* Argument to pass to handler. */)
{
AsyncHandler *asyncPtr;
*/
void
-Tcl_AsyncMark(async)
- Tcl_AsyncHandler async; /* Token for handler. */
+Tcl_AsyncMark(Tcl_AsyncHandler async /* Token for handler. */)
{
((AsyncHandler *) async)->ready = 1;
if (!asyncActive) {
*
*----------------------------------------------------------------------
*/
+/* interp, If invoked from Tcl_Eval just after completing a command,
+ * points to interpreter. Otherwise it is NULL. */
+/* code, If interp is non-NULL, this gives completion code from command
+ * that just completed. */
int
-Tcl_AsyncInvoke(interp, code)
- Tcl_Interp *interp; /* If invoked from Tcl_Eval just after
- * completing a command, points to
- * interpreter. Otherwise it is
- * NULL. */
- int code; /* If interp is non-NULL, this gives
- * completion code from command that
- * just completed. */
+Tcl_AsyncInvoke(Tcl_Interp *interp, int code)
{
AsyncHandler *asyncPtr;
*/
void
-Tcl_AsyncDelete(async)
- Tcl_AsyncHandler async; /* Token for handler to delete. */
+Tcl_AsyncDelete(Tcl_AsyncHandler async /* Token for handler to delete. */)
{
AsyncHandler *asyncPtr = (AsyncHandler *) async;
AsyncHandler *prevPtr;
*/
int
-Tcl_AsyncReady()
+Tcl_AsyncReady(void)
{
return asyncReady;
}
*/
Tcl_Interp *
-Tcl_CreateInterp()
+Tcl_CreateInterp(void)
{
register Interp *iPtr;
register Command *cmdPtr;
*
*--------------------------------------------------------------
*/
+/* interp, Interpreter to watch. */
+/* proc, Procedure to call when interpreter is about to be deleted. */
+/* clientData, One-word value to pass to proc. */
void
-Tcl_CallWhenDeleted(interp, proc, clientData)
- Tcl_Interp *interp; /* Interpreter to watch. */
- Tcl_InterpDeleteProc *proc; /* Procedure to call when interpreter
- * is about to be deleted. */
- ClientData clientData; /* One-word value to pass to proc. */
+Tcl_CallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData)
{
Interp *iPtr = (Interp *) interp;
static int assocDataCounter = 0;
*
*--------------------------------------------------------------
*/
+/* interp, Interpreter to watch. */
+/* proc, Procedure to call when interpreter is about to be deleted. */
+/* clientData, One-word value to pass to proc. */
void
-Tcl_DontCallWhenDeleted(interp, proc, clientData)
- Tcl_Interp *interp; /* Interpreter to watch. */
- Tcl_InterpDeleteProc *proc; /* Procedure to call when interpreter
- * is about to be deleted. */
- ClientData clientData; /* One-word value to pass to proc. */
+Tcl_DontCallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData)
{
Interp *iPtr = (Interp *) interp;
Tcl_HashTable *hTablePtr;
*/
void
-Tcl_SetAssocData(interp, name, proc, clientData)
- Tcl_Interp *interp; /* Interpreter to associate with. */
- char *name; /* Name for association. */
- Tcl_InterpDeleteProc *proc; /* Proc to call when interpreter is
- * about to be deleted. */
- ClientData clientData; /* One-word value to pass to proc. */
+Tcl_SetAssocData(
+Tcl_Interp *interp /* Interpreter to associate with. */,
+char *name /* Name for association. */,
+Tcl_InterpDeleteProc *proc /* Proc to call when interpreter is about to be deleted. */,
+ClientData clientData /* One-word value to pass to proc. */
+)
{
Interp *iPtr = (Interp *) interp;
AssocData *dPtr;
*/
void
-Tcl_DeleteAssocData(interp, name)
- Tcl_Interp *interp; /* Interpreter to associate with. */
- char *name; /* Name of association. */
+Tcl_DeleteAssocData(
+ Tcl_Interp *interp /* Interpreter to associate with. */,
+ char *name /* Name of association. */
+)
{
Interp *iPtr = (Interp *) interp;
AssocData *dPtr;
*/
ClientData
-Tcl_GetAssocData(interp, name, procPtr)
- Tcl_Interp *interp; /* Interpreter associated with. */
- char *name; /* Name of association. */
- Tcl_InterpDeleteProc **procPtr; /* Pointer to place to store address
+Tcl_GetAssocData(
+ Tcl_Interp *interp /* Interpreter associated with. */,
+ char *name /* Name of association. */,
+ Tcl_InterpDeleteProc **procPtr /* Pointer to place to store address
* of current deletion callback. */
+)
{
Interp *iPtr = (Interp *) interp;
AssocData *dPtr;
*/
static void
-DeleteInterpProc(interp)
- Tcl_Interp *interp; /* Interpreter to delete. */
+DeleteInterpProc(
+ Tcl_Interp *interp /* Interpreter to delete. */
+)
{
Interp *iPtr = (Interp *) interp;
Tcl_HashEntry *hPtr;
*/
int
-Tcl_InterpDeleted(interp)
- Tcl_Interp *interp;
+Tcl_InterpDeleted(Tcl_Interp *interp)
{
return (((Interp *) interp)->flags & DELETED) ? 1 : 0;
}
*/
void
-Tcl_DeleteInterp(interp)
- Tcl_Interp *interp; /* Token for command interpreter (returned
+Tcl_DeleteInterp(
+ Tcl_Interp *interp /* Token for command interpreter (returned
* by a previous call to Tcl_CreateInterp). */
+)
{
Interp *iPtr = (Interp *) interp;
*/
Tcl_Command
-Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
- Tcl_Interp *interp; /* Token for command interpreter (returned
+Tcl_CreateCommand(
+ Tcl_Interp *interp, /* Token for command interpreter (returned
* by a previous call to Tcl_CreateInterp). */
- char *cmdName; /* Name of command. */
- Tcl_CmdProc *proc; /* Command procedure to associate with
+ char *cmdName, /* Name of command. */
+ Tcl_CmdProc *proc, /* Command procedure to associate with
* cmdName. */
- ClientData clientData; /* Arbitrary one-word value to pass to proc. */
- Tcl_CmdDeleteProc *deleteProc;
+ ClientData clientData, /* Arbitrary one-word value to pass to proc. */
+ Tcl_CmdDeleteProc *deleteProc
/* If not NULL, gives a procedure to call when
* this command is deleted. */
+)
{
Interp *iPtr = (Interp *) interp;
Command *cmdPtr;
*/
int
-Tcl_SetCommandInfo(interp, cmdName, infoPtr)
- Tcl_Interp *interp; /* Interpreter in which to look
+Tcl_SetCommandInfo(
+ Tcl_Interp *interp, /* Interpreter in which to look
* for command. */
- char *cmdName; /* Name of desired command. */
- Tcl_CmdInfo *infoPtr; /* Where to store information about
+ char *cmdName, /* Name of desired command. */
+ Tcl_CmdInfo *infoPtr /* Where to store information about
* command. */
+)
{
Tcl_HashEntry *hPtr;
Command *cmdPtr;
*/
int
-Tcl_GetCommandInfo(interp, cmdName, infoPtr)
- Tcl_Interp *interp; /* Interpreter in which to look
+Tcl_GetCommandInfo(
+ Tcl_Interp *interp, /* Interpreter in which to look
* for command. */
- char *cmdName; /* Name of desired command. */
- Tcl_CmdInfo *infoPtr; /* Where to store information about
+ char *cmdName, /* Name of desired command. */
+ Tcl_CmdInfo *infoPtr /* Where to store information about
* command. */
+)
{
Tcl_HashEntry *hPtr;
Command *cmdPtr;
*/
char *
-Tcl_GetCommandName(interp, command)
- Tcl_Interp *interp; /* Interpreter containing the command. */
- Tcl_Command command; /* Token for the command, returned by a
+Tcl_GetCommandName(
+ Tcl_Interp *interp, /* Interpreter containing the command. */
+ Tcl_Command command /* Token for the command, returned by a
* previous call to Tcl_CreateCommand.
* The command must not have been deleted. */
+)
{
Command *cmdPtr = (Command *) command;
Interp *iPtr = (Interp *) interp;
*/
int
-Tcl_DeleteCommand(interp, cmdName)
- Tcl_Interp *interp; /* Token for command interpreter (returned
+Tcl_DeleteCommand(
+ Tcl_Interp *interp, /* Token for command interpreter (returned
* by a previous call to Tcl_CreateInterp). */
- char *cmdName; /* Name of command to remove. */
+ char *cmdName /* Name of command to remove. */
+)
{
Interp *iPtr = (Interp *) interp;
Tcl_HashEntry *hPtr, *tkErrorHPtr;
*/
int
-Tcl_Eval(interp, cmd)
- Tcl_Interp *interp; /* Token for command interpreter (returned
+Tcl_Eval(
+ Tcl_Interp *interp, /* Token for command interpreter (returned
* by a previous call to Tcl_CreateInterp). */
- char *cmd; /* Pointer to TCL command to interpret. */
+ char *cmd /* Pointer to TCL command to interpret. */
+)
{
/*
* The storage immediately below is used to generate a copy
*/
Tcl_Trace
-Tcl_CreateTrace(interp, level, proc, clientData)
- Tcl_Interp *interp; /* Interpreter in which to create the trace. */
- int level; /* Only call proc for commands at nesting level
+Tcl_CreateTrace(
+ Tcl_Interp *interp, /* Interpreter in which to create the trace. */
+ int level, /* Only call proc for commands at nesting level
* <= level (1 => top level). */
- Tcl_CmdTraceProc *proc; /* Procedure to call before executing each
+ Tcl_CmdTraceProc *proc, /* Procedure to call before executing each
* command. */
- ClientData clientData; /* Arbitrary one-word value to pass to proc. */
+ ClientData clientData /* Arbitrary one-word value to pass to proc. */
+)
{
register Trace *tracePtr;
register Interp *iPtr = (Interp *) interp;
*/
void
-Tcl_DeleteTrace(interp, trace)
- Tcl_Interp *interp; /* Interpreter that contains trace. */
- Tcl_Trace trace; /* Token for trace (returned previously by
+Tcl_DeleteTrace(
+ Tcl_Interp *interp, /* Interpreter that contains trace. */
+ Tcl_Trace trace /* Token for trace (returned previously by
* Tcl_CreateTrace). */
+)
{
register Interp *iPtr = (Interp *) interp;
register Trace *tracePtr = (Trace *) trace;
*/
void
-Tcl_AddErrorInfo(interp, message)
- Tcl_Interp *interp; /* Interpreter to which error information
+Tcl_AddErrorInfo(
+ Tcl_Interp *interp, /* Interpreter to which error information
* pertains. */
- char *message; /* Message to record. */
+ char *message /* Message to record. */
+)
{
register Interp *iPtr = (Interp *) interp;
*/
int
-Tcl_GlobalEval(interp, command)
- Tcl_Interp *interp; /* Interpreter in which to evaluate command. */
- char *command; /* Command to evaluate. */
+Tcl_GlobalEval(
+ Tcl_Interp *interp, /* Interpreter in which to evaluate command. */
+ char *command /* Command to evaluate. */
+)
{
register Interp *iPtr = (Interp *) interp;
int result;
*/
int
-Tcl_SetRecursionLimit(interp, depth)
- Tcl_Interp *interp; /* Interpreter whose nesting limit
+Tcl_SetRecursionLimit(
+ Tcl_Interp *interp, /* Interpreter whose nesting limit
* is to be set. */
- int depth; /* New value for maximimum depth. */
+ int depth /* New value for maximimum depth. */
+)
{
Interp *iPtr = (Interp *) interp;
int old;
*/
void
-Tcl_AllowExceptions(interp)
- Tcl_Interp *interp; /* Interpreter in which to set flag. */
+Tcl_AllowExceptions(
+ Tcl_Interp *interp /* Interpreter in which to set flag. */
+)
{
Interp *iPtr = (Interp *) interp;
*----------------------------------------------------------------------
*/
VOID *
-Tcl_Ckalloc (size)
- unsigned int size;
+Tcl_Ckalloc (unsigned int size)
{
char *result;
\f
char *
-Tcl_DbCkalloc(size, file, line)
- unsigned int size;
- char *file;
- int line;
+Tcl_DbCkalloc(unsigned int size, char *file, int line)
{
char *result;
}
char *
-Tcl_DbCkrealloc(ptr, size, file, line)
- char *ptr;
- unsigned int size;
- char *file;
- int line;
+Tcl_DbCkrealloc(char *ptr, unsigned int size, char *file, int line)
{
char *result;
*----------------------------------------------------------------------
*/
void
-Tcl_Ckfree (ptr)
- char *ptr;
+Tcl_Ckfree (char *ptr)
{
free (ptr);
}
int
-Tcl_DbCkfree(ptr, file, line)
- char * ptr;
- char *file;
- int line;
+Tcl_DbCkfree(char *ptr, char *file, int line)
{
free (ptr);
return 0;
*/
/* ARGSUSED */
void
-Tcl_InitMemory(interp)
- Tcl_Interp *interp;
+Tcl_InitMemory(Tcl_Interp *interp)
{
}
int line));
int
-Tcl_DumpActiveMemory (fileName)
- char *fileName;
+Tcl_DumpActiveMemory (char *fileName)
{
return TCL_OK;
}
void
-Tcl_ValidateAllMemory (file, line)
- char *file;
- int line;
+Tcl_ValidateAllMemory (char *file, int line)
{
}
*/
int
-Tcl_ClockCmd (dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_ClockCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int c;
size_t length;
*/
static int
-ParseTime(interp, string, timePtr)
- Tcl_Interp *interp;
- char *string;
- unsigned long *timePtr;
+ParseTime(Tcl_Interp *interp, char *string, unsigned long *timePtr)
{
char *end, *p;
unsigned long i;
*/
static int
-FormatClock(interp, clockVal, useGMT, format)
- Tcl_Interp *interp; /* Current interpreter. */
- unsigned long clockVal; /* Time in seconds. */
- int useGMT; /* Boolean */
- char *format; /* Format string */
+FormatClock(
+ Tcl_Interp *interp, /* Current interpreter. */
+ unsigned long clockVal, /* Time in seconds. */
+ int useGMT, /* Boolean */
+ char *format /* Format string */
+)
{
struct tm *timeDataPtr;
Tcl_DString buffer;
/* 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. */
+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 \"",
/* 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. */
+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;
/* 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. */
+Tcl_CatchCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int result;
/* ARGSUSED */
int
-Tcl_CdCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_CdCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *dirName;
Tcl_DString buffer;
/* 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. */
+Tcl_ConcatCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc >= 2) {
interp->result = Tcl_Concat(argc-1, argv+1);
/* 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. */
+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],
/* 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. */
+Tcl_ErrorCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Interp *iPtr = (Interp *) interp;
/* 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. */
+Tcl_EvalCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int result;
char *cmd;
/* ARGSUSED */
int
-Tcl_ExitCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_ExitCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int value;
/* 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. */
+Tcl_ExprCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_DString buffer;
int i, result;
/* ARGSUSED */
int
-Tcl_FileCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_FileCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *fileName, *extension;
int c, statOp, result;
*/
static int
-StoreStatData(interp, varName, statPtr)
- Tcl_Interp *interp; /* Interpreter for error reports. */
- char *varName; /* Name of associative array variable
+StoreStatData(
+ Tcl_Interp *interp, /* Interpreter for error reports. */
+ char *varName, /* Name of associative array variable
* in which to store stat results. */
- struct stat *statPtr; /* Pointer to buffer containing
+ struct stat *statPtr /* Pointer to buffer containing
* stat data to store in varName. */
+)
{
char string[30];
*/
static char *
-GetTypeFromMode(mode)
- int mode;
+GetTypeFromMode(int mode)
{
if (S_ISREG(mode)) {
return "file";
/* 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. */
+Tcl_ForCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int result, value;
/* 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. */
+Tcl_ForeachCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int result = TCL_OK;
int i; /* i selects a value list */
/* 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. */
+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. */
/* ARGSUSED */
int
-Tcl_IfCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_IfCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i, result, value;
/* ARGSUSED */
int
-Tcl_IncrCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_IncrCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int value;
char *oldString, *result;
/* ARGSUSED */
int
-Tcl_InfoCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_InfoCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Interp *iPtr = (Interp *) interp;
size_t length;
/* ARGSUSED */
int
-Tcl_JoinCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_JoinCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *joinString;
char **listArgv;
/* ARGSUSED */
int
-Tcl_LindexCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_LindexCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *p, *element, *next;
int index, size, parenthesized, result, returnLast;
/* ARGSUSED */
int
-Tcl_LinsertCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_LinsertCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *p, *element, savedChar;
int i, index, count, result, size;
/* ARGSUSED */
int
-Tcl_ListCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_ListCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc >= 2) {
interp->result = Tcl_Merge(argc-1, argv+1);
/* ARGSUSED */
int
-Tcl_LlengthCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_LlengthCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int count, result;
char *element, *p;
/* ARGSUSED */
int
-Tcl_LrangeCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_LrangeCmd(
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int first, last, result;
char *begin, *end, c, *dummy, *next;
/* ARGSUSED */
int
-Tcl_LreplaceCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_LreplaceCmd(
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *p1, *p2, *element, savedChar, *dummy, *next;
int i, first, last, count, result, size, firstIsEnd;
/* ARGSUSED */
int
-Tcl_LsearchCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_LsearchCmd(
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
#define EXACT 0
#define GLOB 1
/* ARGSUSED */
int
-Tcl_LsortCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_LsortCmd(
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int listArgc, i, c;
size_t length;
*/
static int
-SortCompareProc(first, second)
- CONST VOID *first, *second; /* Elements to be compared. */
+SortCompareProc(CONST VOID *first, CONST VOID *second) /* Elements to be compared. */
{
int order;
char *firstString = *((char **) first);
/* ARGSUSED */
int
-Tcl_PwdCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_PwdCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *dirName;
/* ARGSUSED */
int
-Tcl_RegexpCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_RegexpCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int noCase = 0;
int indices = 0;
/* ARGSUSED */
int
-Tcl_RegsubCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_RegsubCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int noCase = 0, all = 0;
Tcl_RegExp regExpr;
/* ARGSUSED */
int
-Tcl_RenameCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_RenameCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Command *cmdPtr;
Interp *iPtr = (Interp *) interp;
/* ARGSUSED */
int
-Tcl_ReturnCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_ReturnCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Interp *iPtr = (Interp *) interp;
int c, code;
/* ARGSUSED */
int
-Tcl_ScanCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_ScanCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
# define MAX_FIELDS 20
typedef struct {
/* ARGSUSED */
int
-Tcl_SourceCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_SourceCmd(
+ 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],
/* ARGSUSED */
int
-Tcl_SplitCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_SplitCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *splitChars;
register char *p, *p2;
/* ARGSUSED */
int
-Tcl_StringCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_StringCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
size_t length;
register char *p;
/* ARGSUSED */
int
-Tcl_SubstCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_SubstCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Interp *iPtr = (Interp *) interp;
Tcl_DString result;
/* ARGSUSED */
int
-Tcl_SwitchCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_SwitchCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
#define EXACT 0
#define GLOB 1
/* ARGSUSED */
int
-Tcl_TimeCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_TimeCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int count, i, result;
double timePer;
/* ARGSUSED */
int
-Tcl_TraceCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_TraceCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int c;
size_t length;
/* ARGSUSED */
static char *
-TraceVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Information about the variable trace. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable or array. */
- char *name2; /* Name of element within array; NULL means
+TraceVarProc(
+ ClientData clientData, /* Information about the variable trace. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable or array. */
+ char *name2, /* Name of element within array; NULL means
* scalar variable is being referenced. */
- int flags; /* OR-ed bits giving operation and other
+ int flags /* OR-ed bits giving operation and other
* information. */
+)
{
TraceVarInfo *tvarPtr = (TraceVarInfo *) clientData;
char *result;
/* ARGSUSED */
int
-Tcl_WhileCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_WhileCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int result, value;
* Dump error messages in the bit bucket.
*/
static void
-TclDateerror(s)
- char *s;
+TclDateerror(char *s)
{
}
static time_t
-ToSeconds(Hours, Minutes, Seconds, Meridian)
- time_t Hours;
- time_t Minutes;
- time_t Seconds;
- MERIDIAN Meridian;
+ToSeconds(time_t Hours, time_t Minutes, time_t Seconds, MERIDIAN Meridian)
{
if (Minutes < 0 || Minutes > 59 || Seconds < 0 || Seconds > 59)
return -1;
static int
-Convert(Month, Day, Year, Hours, Minutes, Seconds, Meridian, DSTmode, TimePtr)
- time_t Month;
- time_t Day;
- time_t Year;
- time_t Hours;
- time_t Minutes;
- time_t Seconds;
- MERIDIAN Meridian;
- DSTMODE DSTmode;
- time_t *TimePtr;
+Convert(time_t Month, time_t Day, time_t Year,
+ time_t Hours, time_t Minutes, time_t Seconds,
+ MERIDIAN Meridian, DSTMODE DSTmode, time_t *TimePtr)
{
static int DaysInMonth[12] = {
31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
static time_t
-DSTcorrect(Start, Future)
- time_t Start;
- time_t Future;
+DSTcorrect(time_t Start, time_t Future)
{
time_t StartDay;
time_t FutureDay;
static time_t
-RelativeDate(Start, DayOrdinal, DayNumber)
- time_t Start;
- time_t DayOrdinal;
- time_t DayNumber;
+RelativeDate(time_t Start, time_t DayOrdinal, time_t DayNumber)
{
struct tm *tm;
time_t now;
static int
-RelativeMonth(Start, RelMonth, TimePtr)
- time_t Start;
- time_t RelMonth;
- time_t *TimePtr;
+RelativeMonth(time_t Start, time_t RelMonth, time_t *TimePtr)
{
struct tm *tm;
time_t Month;
static int
-LookupWord(buff)
- char *buff;
+LookupWord(char *buff)
{
register char *p;
register char *q;
static int
-TclDatelex()
+TclDatelex(void)
{
register char c;
register char *p;
*/
int
-TclGetDate(p, now, zone, timePtr)
- char *p;
- unsigned long now;
- long zone;
- unsigned long *timePtr;
+TclGetDate(char *p, unsigned long now, long zone, unsigned long *timePtr)
{
struct tm *tm;
time_t Start;
*/
void
-TclSetupEnv(interp)
- Tcl_Interp *interp; /* Interpreter whose "env" array is to be
+TclSetupEnv(
+ Tcl_Interp *interp /* Interpreter whose "env" array is to be
* managed. */
+)
{
EnvInterp *eiPtr;
int i;
*/
static int
-FindVariable(name, lengthPtr)
- CONST char *name; /* Name of desired environment variable. */
- int *lengthPtr; /* Used to return length of name (for
+FindVariable(
+ CONST char *name, /* Name of desired environment variable. */
+ int *lengthPtr /* Used to return length of name (for
* successful searches) or number of non-NULL
* entries in environ (for unsuccessful
* searches). */
+)
{
int i;
register CONST char *p1, *p2;
*/
char *
-TclGetEnv(name)
- char *name; /* Name of desired environment variable. */
+TclGetEnv(
+ char *name /* Name of desired environment variable. */
+)
{
int i;
size_t len;
*/
void
-TclSetEnv(name, value)
- CONST char *name; /* Name of variable whose value is to be
+TclSetEnv(
+ CONST char *name, /* Name of variable whose value is to be
* set. */
- CONST char *value; /* New value for variable. */
+ CONST char *value /* New value for variable. */
+)
{
int index, length, nameLength;
char *p;
*/
int
-Tcl_PutEnv(string)
- CONST char *string; /* Info about environment variable in the
+Tcl_PutEnv(
+ CONST char *string /* Info about environment variable in the
* form NAME=value. */
+)
{
int nameLength;
char *name, *value;
*/
void
-TclUnsetEnv(name)
- CONST char *name; /* Name of variable to remove. */
+TclUnsetEnv(
+ CONST char *name /* Name of variable to remove. */
+)
{
int index, dummy;
char **envPtr;
/* ARGSUSED */
static char *
-EnvTraceProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Interpreter whose "env" variable is
+EnvTraceProc(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Interpreter whose "env" variable is
* being modified. */
- char *name1; /* Better be "env". */
- char *name2; /* Name of variable being modified, or
+ char *name1, /* Better be "env". */
+ char *name2, /* Name of variable being modified, or
* NULL if whole array is being deleted. */
- int flags; /* Indicates what's happening. */
+ int flags /* Indicates what's happening. */
+)
{
/*
* First see if the whole "env" variable is being deleted. If
*/
static void
-EnvInit()
+EnvInit(void)
{
#ifdef MAC_TCL
environSize = TclMacCreateEnv();
*/
static void
-EnvExitProc(clientData)
- ClientData clientData; /* Not used. */
+EnvExitProc(
+ ClientData clientData /* Not used. */
+)
{
char **p;
*/
void
-Tcl_CreateFileHandler(file, mask, proc, clientData)
- Tcl_File file; /* Handle of stream to watch. */
- int mask; /* OR'ed combination of TCL_READABLE,
+Tcl_CreateFileHandler(
+ Tcl_File file, /* Handle of stream to watch. */
+ int mask, /* OR'ed combination of TCL_READABLE,
* TCL_WRITABLE, and TCL_EXCEPTION:
* indicates conditions under which
* proc should be called. */
- Tcl_FileProc *proc; /* Procedure to call for each
+ Tcl_FileProc *proc, /* Procedure to call for each
* selected event. */
- ClientData clientData; /* Arbitrary data to pass to proc. */
+ ClientData clientData /* Arbitrary data to pass to proc. */
+)
{
register FileHandler *filePtr;
*/
void
-Tcl_DeleteFileHandler(file)
- Tcl_File file; /* Stream id for which to remove
+Tcl_DeleteFileHandler(
+ Tcl_File file /* Stream id for which to remove
* callback procedure. */
+)
{
FileHandler *filePtr, *prevPtr;
/* ARGSUSED */
static void
-FileHandlerExitProc(clientData)
- ClientData clientData; /* Not used. */
+FileHandlerExitProc(
+ ClientData clientData /* Not used. */
+)
{
Tcl_DeleteEventSource(FileHandlerSetupProc, FileHandlerCheckProc,
(ClientData) NULL);
*/
static void
-FileHandlerSetupProc(clientData, flags)
- ClientData clientData; /* Not used. */
- int flags; /* Flags passed to Tk_DoOneEvent:
+FileHandlerSetupProc(
+ ClientData clientData, /* Not used. */
+ int flags /* Flags passed to Tk_DoOneEvent:
* if it doesn't include
* TCL_FILE_EVENTS then we do
* nothing. */
+)
{
FileHandler *filePtr;
*/
static void
-FileHandlerCheckProc(clientData, flags)
- ClientData clientData; /* Not used. */
- int flags; /* Flags passed to Tk_DoOneEvent:
+FileHandlerCheckProc(
+ ClientData clientData, /* Not used. */
+ int flags /* Flags passed to Tk_DoOneEvent:
* if it doesn't include
* TCL_FILE_EVENTS then we do
* nothing. */
+)
{
FileHandler *filePtr;
FileHandlerEvent *fileEvPtr;
*/
static int
-FileHandlerEventProc(evPtr, flags)
- Tcl_Event *evPtr; /* Event to service. */
- int flags; /* Flags that indicate what events to
+FileHandlerEventProc(
+ Tcl_Event *evPtr, /* Event to service. */
+ int flags /* Flags that indicate what events to
* handle, such as TCL_FILE_EVENTS. */
+)
{
FileHandler *filePtr;
FileHandlerEvent *fileEvPtr = (FileHandlerEvent *) evPtr;
*/
Tcl_TimerToken
-Tcl_CreateTimerHandler(milliseconds, proc, clientData)
- int milliseconds; /* How many milliseconds to wait
+Tcl_CreateTimerHandler(
+ int milliseconds, /* How many milliseconds to wait
* before invoking proc. */
- Tcl_TimerProc *proc; /* Procedure to invoke. */
- ClientData clientData; /* Arbitrary data to pass to proc. */
+ Tcl_TimerProc *proc, /* Procedure to invoke. */
+ ClientData clientData /* Arbitrary data to pass to proc. */
+)
{
register TimerHandler *timerHandlerPtr, *tPtr2, *prevPtr;
static int id = 0;
*/
void
-Tcl_DeleteTimerHandler(token)
- Tcl_TimerToken token; /* Result previously returned by
+Tcl_DeleteTimerHandler(
+ Tcl_TimerToken token /* Result previously returned by
* Tcl_DeleteTimerHandler. */
+)
{
register TimerHandler *timerHandlerPtr, *prevPtr;
*/
void
-Tcl_CreateModalTimeout(milliseconds, proc, clientData)
- int milliseconds; /* How many milliseconds to wait
+Tcl_CreateModalTimeout(
+ int milliseconds, /* How many milliseconds to wait
* before invoking proc. */
- Tcl_TimerProc *proc; /* Procedure to invoke. */
- ClientData clientData; /* Arbitrary data to pass to proc. */
+ Tcl_TimerProc *proc, /* Procedure to invoke. */
+ ClientData clientData /* Arbitrary data to pass to proc. */
+)
{
TimerHandler *timerHandlerPtr;
*/
void
-Tcl_DeleteModalTimeout(proc, clientData)
- Tcl_TimerProc *proc; /* Callback procedure for the timeout. */
- ClientData clientData; /* Arbitrary data to pass to proc. */
+Tcl_DeleteModalTimeout(
+ Tcl_TimerProc *proc, /* Callback procedure for the timeout. */
+ ClientData clientData /* Arbitrary data to pass to proc. */
+)
{
TimerHandler *timerHandlerPtr;
*/
static void
-TimerHandlerSetupProc(clientData, flags)
- ClientData clientData; /* Not used. */
- int flags; /* Flags passed to Tk_DoOneEvent:
+TimerHandlerSetupProc(
+ ClientData clientData, /* Not used. */
+ int flags /* Flags passed to Tk_DoOneEvent:
* if it doesn't include
* TCL_TIMER_EVENTS then we only
* consider modal timers. */
+)
{
TimerHandler *timerHandlerPtr, *tPtr2;
Tcl_Time blockTime;
*/
static void
-TimerHandlerCheckProc(clientData, flags)
- ClientData clientData; /* Not used. */
- int flags; /* Flags passed to Tk_DoOneEvent:
+TimerHandlerCheckProc(
+ ClientData clientData, /* Not used. */
+ int flags /* Flags passed to Tk_DoOneEvent:
* if it doesn't include
* TCL_TIMER_EVENTS then we only
* consider modal timeouts. */
+)
{
TimerHandler *timerHandlerPtr;
TimerEvent *timerEvPtr;
/* ARGSUSED */
static void
-TimerHandlerExitProc(clientData)
- ClientData clientData; /* Not used. */
+TimerHandlerExitProc(
+ ClientData clientData /* Not used. */
+)
{
Tcl_DeleteEventSource(TimerHandlerSetupProc, TimerHandlerCheckProc,
(ClientData) NULL);
*/
static int
-TimerHandlerEventProc(evPtr, flags)
- Tcl_Event *evPtr; /* Event to service. */
- int flags; /* Flags that indicate what events to
+TimerHandlerEventProc(
+ Tcl_Event *evPtr, /* Event to service. */
+ int flags /* Flags that indicate what events to
* handle, such as TCL_FILE_EVENTS. */
+)
{
TimerHandler *timerHandlerPtr;
TimerEvent *timerEvPtr = (TimerEvent *) evPtr;
*/
void
-Tcl_DoWhenIdle(proc, clientData)
- Tcl_IdleProc *proc; /* Procedure to invoke. */
- ClientData clientData; /* Arbitrary value to pass to proc. */
+Tcl_DoWhenIdle(
+ Tcl_IdleProc *proc, /* Procedure to invoke. */
+ ClientData clientData /* Arbitrary value to pass to proc. */
+)
{
register IdleHandler *idlePtr;
*/
void
-Tcl_CancelIdleCall(proc, clientData)
- Tcl_IdleProc *proc; /* Procedure that was previously registered. */
- ClientData clientData; /* Arbitrary value to pass to proc. */
+Tcl_CancelIdleCall(
+ Tcl_IdleProc *proc, /* Procedure that was previously registered. */
+ ClientData clientData /* Arbitrary value to pass to proc. */
+)
{
register IdleHandler *idlePtr, *prevPtr;
IdleHandler *nextPtr;
*/
int
-TclIdlePending()
+TclIdlePending(void)
{
return (idleList == NULL) ? 0 : 1;
}
*/
int
-TclServiceIdle()
+TclServiceIdle(void)
{
IdleHandler *idlePtr;
int oldGeneration;
*/
void
-Tcl_BackgroundError(interp)
- Tcl_Interp *interp; /* Interpreter in which an error has
+Tcl_BackgroundError(
+ Tcl_Interp *interp /* Interpreter in which an error has
* occurred. */
+)
{
BgError *errPtr;
char *varValue;
*/
static void
-HandleBgErrors(clientData)
- ClientData clientData; /* Pointer to ErrAssocData structure. */
+HandleBgErrors(
+ ClientData clientData /* Pointer to ErrAssocData structure. */
+)
{
Tcl_Interp *interp;
char *command;
*/
static void
-BgErrorDeleteProc(clientData, interp)
- ClientData clientData; /* Pointer to ErrAssocData structure. */
- Tcl_Interp *interp; /* Interpreter being deleted. */
+BgErrorDeleteProc(
+ ClientData clientData, /* Pointer to ErrAssocData structure. */
+ Tcl_Interp *interp /* Interpreter being deleted. */
+)
{
ErrAssocData *assocPtr = (ErrAssocData *) clientData;
BgError *errPtr;
*/
void
-Tcl_CreateExitHandler(proc, clientData)
- Tcl_ExitProc *proc; /* Procedure to invoke. */
- ClientData clientData; /* Arbitrary value to pass to proc. */
+Tcl_CreateExitHandler(
+ Tcl_ExitProc *proc, /* Procedure to invoke. */
+ ClientData clientData /* Arbitrary value to pass to proc. */
+)
{
ExitHandler *exitPtr;
*/
void
-Tcl_DeleteExitHandler(proc, clientData)
- Tcl_ExitProc *proc; /* Procedure that was previously registered. */
- ClientData clientData; /* Arbitrary value to pass to proc. */
+Tcl_DeleteExitHandler(
+ Tcl_ExitProc *proc, /* Procedure that was previously registered. */
+ ClientData clientData /* Arbitrary value to pass to proc. */
+)
{
ExitHandler *exitPtr, *prevPtr;
*/
void
-Tcl_Exit(status)
- int status; /* Exit status for application; typically
+Tcl_Exit(
+ int status /* Exit status for application; typically
* 0 for normal return, 1 for error return. */
+)
{
ExitHandler *exitPtr;
/* ARGSUSED */
int
-Tcl_AfterCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Points to the "tclAfter" assocData for
+Tcl_AfterCmd(
+ ClientData clientData, /* Points to the "tclAfter" assocData for
* this interpreter, or NULL if the assocData
* hasn't been created yet.*/
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
/*
* The variable below is used to generate unique identifiers for
*/
static AfterInfo *
-GetAfterEvent(assocPtr, string)
- AfterAssocData *assocPtr; /* Points to "after"-related information for
+GetAfterEvent(
+ AfterAssocData *assocPtr, /* Points to "after"-related information for
* this interpreter. */
- char *string; /* Textual identifier for after event, such
+ char *string /* Textual identifier for after event, such
* as "after#6". */
+)
{
AfterInfo *afterPtr;
int id;
*/
static void
-AfterProc(clientData)
- ClientData clientData; /* Describes command to execute. */
+AfterProc(
+ ClientData clientData /* Describes command to execute. */
+)
{
AfterInfo *afterPtr = (AfterInfo *) clientData;
AfterAssocData *assocPtr = afterPtr->assocPtr;
*/
static void
-FreeAfterPtr(afterPtr)
- AfterInfo *afterPtr; /* Command to be deleted. */
+FreeAfterPtr(
+ AfterInfo *afterPtr /* Command to be deleted. */
+)
{
AfterInfo *prevPtr;
AfterAssocData *assocPtr = afterPtr->assocPtr;
/* ARGSUSED */
static void
-AfterCleanupProc(clientData, interp)
- ClientData clientData; /* Points to AfterAssocData for the
+AfterCleanupProc(
+ ClientData clientData, /* Points to AfterAssocData for the
* interpreter. */
- Tcl_Interp *interp; /* Interpreter that is being deleted. */
+ Tcl_Interp *interp /* Interpreter that is being deleted. */
+)
{
AfterAssocData *assocPtr = (AfterAssocData *) clientData;
AfterInfo *afterPtr;
/* ARGSUSED */
int
-Tcl_VwaitCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_VwaitCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int done, foundEvent;
/* ARGSUSED */
static char *
-VwaitVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Pointer to integer to set to 1. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable. */
- char *name2; /* Second part of variable name. */
- int flags; /* Information about what happened. */
+VwaitVarProc(
+ ClientData clientData, /* Pointer to integer to set to 1. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable. */
+ char *name2, /* Second part of variable name. */
+ int flags /* Information about what happened. */
+)
{
int *donePtr = (int *) clientData;
/* ARGSUSED */
int
-Tcl_UpdateCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_UpdateCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int flags = 0; /* Initialization needed only to stop
* compiler warnings. */
*/
int
-TclWaitForFile(file, mask, timeout)
- Tcl_File file; /* Handle for file on which to wait. */
- int mask; /* What to wait for: OR'ed combination of
+TclWaitForFile(
+ Tcl_File file, /* Handle for file on which to wait. */
+ int mask, /* What to wait for: OR'ed combination of
* TCL_READABLE, TCL_WRITABLE, and
* TCL_EXCEPTION. */
- int timeout; /* Maximum amount of time to wait for one
+ int timeout /* Maximum amount of time to wait for one
* of the conditions in mask to occur, in
* milliseconds. A value of 0 means don't
* wait at all, and a value of -1 means
* wait forever. */
+)
{
Tcl_Time abortTime, now, blockTime;
int present;
*/
static int
-ExprParseString(interp, string, valuePtr)
- Tcl_Interp *interp; /* Where to store error message. */
- char *string; /* String to turn into value. */
- Value *valuePtr; /* Where to store value information.
+ExprParseString(
+ Tcl_Interp *interp, /* Where to store error message. */
+ char *string, /* String to turn into value. */
+ Value *valuePtr /* Where to store value information.
* Caller must have initialized pv field. */
+)
{
char *term, *p, *start;
*/
static int
-ExprLex(interp, infoPtr, valuePtr)
- Tcl_Interp *interp; /* Interpreter to use for error
+ExprLex(
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */
- register ExprInfo *infoPtr; /* Describes the state of the parse. */
- register Value *valuePtr; /* Where to store value, if that is
+ register ExprInfo *infoPtr, /* Describes the state of the parse. */
+ register Value *valuePtr /* Where to store value, if that is
* what's parsed from string. Caller
* must have initialized pv field
* correctly. */
+)
{
register char *p;
char *var, *term;
*/
static int
-ExprGetValue(interp, infoPtr, prec, valuePtr)
- Tcl_Interp *interp; /* Interpreter to use for error
+ExprGetValue(
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */
- register ExprInfo *infoPtr; /* Describes the state of the parse
+ register ExprInfo *infoPtr, /* Describes the state of the parse
* just before the value (i.e. ExprLex
* will be called to get first token
* of value). */
- int prec; /* Treat any un-parenthesized operator
+ int prec, /* Treat any un-parenthesized operator
* with precedence <= this as the end
* of the expression. */
- Value *valuePtr; /* Where to store the value of the
+ Value *valuePtr /* Where to store the value of the
* expression. Caller must have
* initialized pv field. */
+)
{
Interp *iPtr = (Interp *) interp;
Value value2; /* Second operand for current
*/
static void
-ExprMakeString(interp, valuePtr)
- Tcl_Interp *interp; /* Interpreter to use for precision
+ExprMakeString(
+ Tcl_Interp *interp, /* Interpreter to use for precision
* information. */
- register Value *valuePtr; /* Value to be converted. */
+ register Value *valuePtr /* Value to be converted. */
+)
{
int shortfall;
*/
static int
-ExprTopLevel(interp, string, valuePtr)
- Tcl_Interp *interp; /* Context in which to evaluate the
+ExprTopLevel(
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
- Value *valuePtr; /* Where to store result. Should
+ char *string, /* Expression to evaluate. */
+ Value *valuePtr /* Where to store result. Should
* not be initialized by caller. */
+)
{
ExprInfo info;
int result;
*/
int
-Tcl_ExprLong(interp, string, ptr)
- Tcl_Interp *interp; /* Context in which to evaluate the
+Tcl_ExprLong(
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
- long *ptr; /* Where to store result. */
+ char *string, /* Expression to evaluate. */
+ long *ptr /* Where to store result. */
+)
{
Value value;
int result;
}
int
-Tcl_ExprDouble(interp, string, ptr)
- Tcl_Interp *interp; /* Context in which to evaluate the
+Tcl_ExprDouble(
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
- double *ptr; /* Where to store result. */
+ char *string, /* Expression to evaluate. */
+ double *ptr /* Where to store result. */
+)
{
Value value;
int result;
}
int
-Tcl_ExprBoolean(interp, string, ptr)
- Tcl_Interp *interp; /* Context in which to evaluate the
+Tcl_ExprBoolean(
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
- int *ptr; /* Where to store 0/1 result. */
+ char *string, /* Expression to evaluate. */
+ int *ptr /* Where to store 0/1 result. */
+)
{
Value value;
int result;
*/
int
-Tcl_ExprString(interp, string)
- Tcl_Interp *interp; /* Context in which to evaluate the
+Tcl_ExprString(
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
+ char *string /* Expression to evaluate. */
+)
{
Value value;
int result;
*/
void
-Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData)
- Tcl_Interp *interp; /* Interpreter in which function is
+Tcl_CreateMathFunc(
+ Tcl_Interp *interp, /* Interpreter in which function is
* to be available. */
- char *name; /* Name of function (e.g. "sin"). */
- int numArgs; /* Nnumber of arguments required by
+ char *name, /* Name of function (e.g. "sin"). */
+ int numArgs, /* Nnumber of arguments required by
* function. */
- Tcl_ValueType *argTypes; /* Array of types acceptable for
+ Tcl_ValueType *argTypes, /* Array of types acceptable for
* each argument. */
- Tcl_MathProc *proc; /* Procedure that implements the
+ Tcl_MathProc *proc, /* Procedure that implements the
* math function. */
- ClientData clientData; /* Additional value to pass to the
+ ClientData clientData /* Additional value to pass to the
* function. */
+)
{
Interp *iPtr = (Interp *) interp;
Tcl_HashEntry *hPtr;
*/
static int
-ExprMathFunc(interp, infoPtr, valuePtr)
- Tcl_Interp *interp; /* Interpreter to use for error
+ExprMathFunc(
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */
- register ExprInfo *infoPtr; /* Describes the state of the parse.
+ register ExprInfo *infoPtr, /* Describes the state of the parse.
* infoPtr->expr must point to the
* first character of the function's
* name. */
- register Value *valuePtr; /* Where to store value, if that is
+ register Value *valuePtr /* Where to store value, if that is
* what's parsed from string. Caller
* must have initialized pv field
* correctly. */
+)
{
Interp *iPtr = (Interp *) interp;
MathFunc *mathFuncPtr; /* Info about math function. */
*/
void
-TclExprFloatError(interp, value)
- Tcl_Interp *interp; /* Where to store error message. */
- double value; /* Value returned after error; used to
+TclExprFloatError(
+ Tcl_Interp *interp, /* Where to store error message. */
+ double value /* Value returned after error; used to
* distinguish underflows from overflows. */
+)
{
char buf[20];
*/
static int
-ExprUnaryFunc(clientData, interp, args, resultPtr)
- ClientData clientData; /* Contains address of procedure that
+ExprUnaryFunc(
+ ClientData clientData, /* Contains address of procedure that
* takes one double argument and
* returns a double result. */
- Tcl_Interp *interp;
- Tcl_Value *args;
- Tcl_Value *resultPtr;
+ Tcl_Interp *interp,
+ Tcl_Value *args,
+ Tcl_Value *resultPtr
+)
{
double (*func) _ANSI_ARGS_((double)) = (double (*)_ANSI_ARGS_((double))) clientData;
}
static int
-ExprBinaryFunc(clientData, interp, args, resultPtr)
- ClientData clientData; /* Contains address of procedure that
+ExprBinaryFunc(
+ ClientData clientData, /* Contains address of procedure that
* takes two double arguments and
* returns a double result. */
- Tcl_Interp *interp;
- Tcl_Value *args;
- Tcl_Value *resultPtr;
+ Tcl_Interp *interp,
+ Tcl_Value *args,
+ Tcl_Value *resultPtr
+)
{
double (*func) _ANSI_ARGS_((double, double))
= (double (*)_ANSI_ARGS_((double, double))) clientData;
/* ARGSUSED */
static int
-ExprAbsFunc(clientData, interp, args, resultPtr)
- ClientData clientData;
- Tcl_Interp *interp;
- Tcl_Value *args;
- Tcl_Value *resultPtr;
+ExprAbsFunc(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ Tcl_Value *args,
+ Tcl_Value *resultPtr
+)
{
resultPtr->type = TCL_DOUBLE;
if (args[0].type == TCL_DOUBLE) {
/* ARGSUSED */
static int
-ExprDoubleFunc(clientData, interp, args, resultPtr)
- ClientData clientData;
- Tcl_Interp *interp;
- Tcl_Value *args;
- Tcl_Value *resultPtr;
+ExprDoubleFunc(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ Tcl_Value *args,
+ Tcl_Value *resultPtr
+)
{
resultPtr->type = TCL_DOUBLE;
if (args[0].type == TCL_DOUBLE) {
/* ARGSUSED */
static int
-ExprIntFunc(clientData, interp, args, resultPtr)
- ClientData clientData;
- Tcl_Interp *interp;
- Tcl_Value *args;
- Tcl_Value *resultPtr;
+ExprIntFunc(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ Tcl_Value *args,
+ Tcl_Value *resultPtr
+)
{
resultPtr->type = TCL_INT;
if (args[0].type == TCL_INT) {
/* ARGSUSED */
static int
-ExprRoundFunc(clientData, interp, args, resultPtr)
- ClientData clientData;
- Tcl_Interp *interp;
- Tcl_Value *args;
- Tcl_Value *resultPtr;
+ExprRoundFunc(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ Tcl_Value *args,
+ Tcl_Value *resultPtr
+)
{
resultPtr->type = TCL_INT;
if (args[0].type == TCL_INT) {
*/
static int
-ExprLooksLikeInt(p)
- char *p; /* Pointer to string. */
+ExprLooksLikeInt(
+ char *p /* Pointer to string. */
+)
{
while (isspace(UCHAR(*p))) {
p++;
*/
Tcl_File
-Tcl_GetFile(osHandle, type)
- ClientData osHandle; /* Platform specific file handle. */
- int type; /* Type of file handle. */
+Tcl_GetFile(
+ ClientData osHandle, /* Platform specific file handle. */
+ int type /* Type of file handle. */
+)
{
FileHashKey key;
Tcl_HashEntry *entryPtr;
*/
void
-Tcl_FreeFile(handle)
- Tcl_File handle;
+Tcl_FreeFile(
+ Tcl_File handle
+)
{
Tcl_HashEntry *entryPtr;
FileHandle *handlePtr = (FileHandle *) handle;
*/
ClientData
-Tcl_GetFileInfo(handle, typePtr)
- Tcl_File handle;
- int *typePtr;
+Tcl_GetFileInfo(
+ Tcl_File handle,
+ int *typePtr
+)
{
FileHandle *handlePtr = (FileHandle *) handle;
*/
void
-Tcl_SetNotifierData(handle, proc, data)
- Tcl_File handle;
- Tcl_FileFreeProc *proc;
- ClientData data;
+Tcl_SetNotifierData(
+ Tcl_File handle,
+ Tcl_FileFreeProc *proc,
+ ClientData data
+)
{
FileHandle *handlePtr = (FileHandle *) handle;
handlePtr->proc = proc;
*/
ClientData
-Tcl_GetNotifierData(handle, procPtr)
- Tcl_File handle;
- Tcl_FileFreeProc **procPtr;
+Tcl_GetNotifierData(
+ Tcl_File handle,
+ Tcl_FileFreeProc **procPtr
+)
{
FileHandle *handlePtr = (FileHandle *) handle;
if (procPtr != NULL) {
*/
static void
-FileExitProc(clientData)
- ClientData clientData; /* Not used. */
+FileExitProc(
+ ClientData clientData /* Not used. */
+)
{
Tcl_HashSearch search;
Tcl_HashEntry *entryPtr;
*/
static void
-FileNameCleanup(clientData)
- ClientData clientData; /* Not used. */
+FileNameCleanup(
+ ClientData clientData /* Not used. */
+)
{
if (winRootPatternPtr != NULL) {
ckfree((char *)winRootPatternPtr);
*/
static char *
-ExtractWinRoot(path, resultPtr, offset)
- char *path; /* Path to parse. */
- Tcl_DString *resultPtr; /* Buffer to hold result. */
- int offset; /* Offset in buffer where result should be
+ExtractWinRoot(
+ char *path, /* Path to parse. */
+ Tcl_DString *resultPtr, /* Buffer to hold result. */
+ int offset /* Offset in buffer where result should be
* stored. */
+)
{
int length;
*/
Tcl_PathType
-Tcl_GetPathType(path)
- char *path;
+Tcl_GetPathType(
+ char *path
+)
{
Tcl_PathType type = TCL_PATH_ABSOLUTE;
*/
void
-Tcl_SplitPath(path, argcPtr, argvPtr)
- char *path; /* Pointer to string containing a path. */
- int *argcPtr; /* Pointer to location to fill in with
+Tcl_SplitPath(
+ char *path, /* Pointer to string containing a path. */
+ int *argcPtr, /* Pointer to location to fill in with
* the number of elements in the path. */
- char ***argvPtr; /* Pointer to place to store pointer to array
+ char ***argvPtr /* Pointer to place to store pointer to array
* of pointers to path elements. */
+)
{
int i, size;
char *p;
*/
static char *
-SplitUnixPath(path, bufPtr)
- char *path; /* Pointer to string containing a path. */
- Tcl_DString *bufPtr; /* Pointer to DString to use for the result. */
+SplitUnixPath(
+ char *path, /* Pointer to string containing a path. */
+ Tcl_DString *bufPtr /* Pointer to DString to use for the result. */
+)
{
int length;
char *p, *elementStart;
*/
static char *
-SplitWinPath(path, bufPtr)
- char *path; /* Pointer to string containing a path. */
- Tcl_DString *bufPtr; /* Pointer to DString to use for the result. */
+SplitWinPath(
+ char *path, /* Pointer to string containing a path. */
+ Tcl_DString *bufPtr /* Pointer to DString to use for the result. */
+)
{
int length;
char *p, *elementStart;
*/
static char *
-SplitMacPath(path, bufPtr)
- char *path; /* Pointer to string containing a path. */
- Tcl_DString *bufPtr; /* Pointer to DString to use for the result. */
+SplitMacPath(
+ char *path, /* Pointer to string containing a path. */
+ Tcl_DString *bufPtr /* Pointer to DString to use for the result. */
+)
{
int isMac = 0; /* 1 if is Mac-style, 0 if Unix-style path. */
int i, length;
*/
char *
-Tcl_JoinPath(argc, argv, resultPtr)
- int argc;
- char **argv;
- Tcl_DString *resultPtr; /* Pointer to previously initialized DString. */
+Tcl_JoinPath(
+ int argc,
+ char **argv,
+ Tcl_DString *resultPtr /* Pointer to previously initialized DString. */
+)
{
int oldLength, length, i, needsSep;
Tcl_DString buffer;
*---------------------------------------------------------------------- */
char *
-Tcl_TranslateFileName(interp, name, bufferPtr)
- Tcl_Interp *interp; /* Interpreter in which to store error
+Tcl_TranslateFileName(
+ Tcl_Interp *interp, /* Interpreter in which to store error
* message (if necessary). */
- char *name; /* File name, which may begin with "~"
+ char *name, /* File name, which may begin with "~"
* (to indicate current user's home directory)
* or "~<user>" (to indicate any user's
* home directory). */
- Tcl_DString *bufferPtr; /* May be used to hold result. Must not hold
+ Tcl_DString *bufferPtr /* May be used to hold result. Must not hold
* anything at the time of the call, and need
* not even be initialized. */
+)
{
register char *p;
*/
char *
-TclGetExtension(name)
- char *name; /* File name to parse. */
+TclGetExtension(
+ char *name /* File name to parse. */
+)
{
char *p, *lastSep;
*/
static char *
-DoTildeSubst(interp, user, resultPtr)
- Tcl_Interp *interp; /* Interpreter in which to store error
+DoTildeSubst(
+ Tcl_Interp *interp, /* Interpreter in which to store error
* message (if necessary). */
- char *user; /* Name of user whose home directory should be
+ char *user, /* Name of user whose home directory should be
* substituted, or "" for current user. */
- Tcl_DString *resultPtr; /* May be used to hold result. Must not hold
+ Tcl_DString *resultPtr /* May be used to hold result. Must not hold
* anything at the time of the call, and need
* not even be initialized. */
+)
{
char *dir;
/* ARGSUSED */
int
-Tcl_GlobCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_GlobCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i, noComplain, firstArg;
char c;
*/
static int
-SkipToChar(stringPtr, match)
- char **stringPtr; /* Pointer string to check. */
- char *match; /* Pointer to character to find. */
+SkipToChar(
+ char **stringPtr, /* Pointer string to check. */
+ char *match /* Pointer to character to find. */
+)
{
int quoted, level;
register char *p;
*/
int
-TclDoGlob(interp, separators, headPtr, tail)
- Tcl_Interp *interp; /* Interpreter to use for error reporting
+TclDoGlob(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting
* (e.g. unmatched brace). */
- char *separators; /* String containing separator characters
+ char *separators, /* String containing separator characters
* that should be used to identify globbing
* boundaries. */
- Tcl_DString *headPtr; /* Completely expanded prefix. */
- char *tail; /* The unexpanded remainder of the path. */
+ Tcl_DString *headPtr, /* Completely expanded prefix. */
+ char *tail /* The unexpanded remainder of the path. */
+)
{
int level, baseLength, quoted, count;
int result = TCL_OK;
*/
int
-Tcl_GetInt(interp, string, intPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- char *string; /* String containing a (possibly signed)
+Tcl_GetInt(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ char *string, /* String containing a (possibly signed)
* integer in a form acceptable to strtol. */
- int *intPtr; /* Place to store converted result. */
+ int *intPtr /* Place to store converted result. */
+)
{
char *end, *p;
int i;
*/
int
-Tcl_GetDouble(interp, string, doublePtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- char *string; /* String containing a floating-point number
+Tcl_GetDouble(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ char *string, /* String containing a floating-point number
* in a form acceptable to strtod. */
- double *doublePtr; /* Place to store converted result. */
+ double *doublePtr /* Place to store converted result. */
+)
{
char *end;
double d;
*/
int
-Tcl_GetBoolean(interp, string, boolPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- char *string; /* String containing a boolean number
+Tcl_GetBoolean(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ char *string, /* String containing a boolean number
* specified either as 1/0 or true/false or
* yes/no. */
- int *boolPtr; /* Place to store converted result, which
+ int *boolPtr /* Place to store converted result, which
* will be 0 or 1. */
+)
{
int i;
char lowerCase[10], c;
*/
void
-Tcl_InitHashTable(tablePtr, keyType)
- register Tcl_HashTable *tablePtr; /* Pointer to table record, which
+Tcl_InitHashTable(
+ register Tcl_HashTable *tablePtr, /* Pointer to table record, which
* is supplied by the caller. */
- int keyType; /* Type of keys to use in table:
+ int keyType /* Type of keys to use in table:
* TCL_STRING_KEYS, TCL_ONE_WORD_KEYS,
* or an integer >= 2. */
+)
{
tablePtr->buckets = tablePtr->staticBuckets;
tablePtr->staticBuckets[0] = tablePtr->staticBuckets[1] = 0;
*/
void
-Tcl_DeleteHashEntry(entryPtr)
- Tcl_HashEntry *entryPtr;
+Tcl_DeleteHashEntry(
+ Tcl_HashEntry *entryPtr
+)
{
register Tcl_HashEntry *prevPtr;
*/
void
-Tcl_DeleteHashTable(tablePtr)
- register Tcl_HashTable *tablePtr; /* Table to delete. */
+Tcl_DeleteHashTable(
+ register Tcl_HashTable *tablePtr /* Table to delete. */
+)
{
register Tcl_HashEntry *hPtr, *nextPtr;
int i;
*/
Tcl_HashEntry *
-Tcl_FirstHashEntry(tablePtr, searchPtr)
- Tcl_HashTable *tablePtr; /* Table to search. */
- Tcl_HashSearch *searchPtr; /* Place to store information about
+Tcl_FirstHashEntry(
+ Tcl_HashTable *tablePtr, /* Table to search. */
+ Tcl_HashSearch *searchPtr /* Place to store information about
* progress through the table. */
+)
{
searchPtr->tablePtr = tablePtr;
searchPtr->nextIndex = 0;
*/
Tcl_HashEntry *
-Tcl_NextHashEntry(searchPtr)
- register Tcl_HashSearch *searchPtr; /* Place to store information about
+Tcl_NextHashEntry(
+ register Tcl_HashSearch *searchPtr /* Place to store information about
* progress through the table. Must
* have been initialized by calling
* Tcl_FirstHashEntry. */
+)
{
Tcl_HashEntry *hPtr;
*/
char *
-Tcl_HashStats(tablePtr)
- Tcl_HashTable *tablePtr; /* Table for which to produce stats. */
+Tcl_HashStats(
+ Tcl_HashTable *tablePtr /* Table for which to produce stats. */
+)
{
#define NUM_COUNTERS 10
int count[NUM_COUNTERS], overflow, i, j;
*/
static unsigned int
-HashString(string)
- register char *string; /* String from which to compute hash value. */
+HashString(
+ register char *string /* String from which to compute hash value. */
+)
{
register unsigned int result;
register int c;
*/
static Tcl_HashEntry *
-StringFind(tablePtr, key)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find matching entry. */
+StringFind(
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key /* Key to use to find matching entry. */
+)
{
register Tcl_HashEntry *hPtr;
register char *p1, *p2;
*/
static Tcl_HashEntry *
-StringCreate(tablePtr, key, newPtr)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find or create matching
+StringCreate(
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key, /* Key to use to find or create matching
* entry. */
- int *newPtr; /* Store info here telling whether a new
+ int *newPtr /* Store info here telling whether a new
* entry was created. */
+)
{
register Tcl_HashEntry *hPtr;
register char *p1, *p2;
*/
static Tcl_HashEntry *
-OneWordFind(tablePtr, key)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- register char *key; /* Key to use to find matching entry. */
+OneWordFind(
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ register char *key /* Key to use to find matching entry. */
+)
{
register Tcl_HashEntry *hPtr;
int index;
*/
static Tcl_HashEntry *
-OneWordCreate(tablePtr, key, newPtr)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- register char *key; /* Key to use to find or create matching
+OneWordCreate(
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ register char *key, /* Key to use to find or create matching
* entry. */
- int *newPtr; /* Store info here telling whether a new
+ int *newPtr /* Store info here telling whether a new
* entry was created. */
+)
{
register Tcl_HashEntry *hPtr;
int index;
*/
static Tcl_HashEntry *
-ArrayFind(tablePtr, key)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find matching entry. */
+ArrayFind(
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key /* Key to use to find matching entry. */
+)
{
register Tcl_HashEntry *hPtr;
int *arrayPtr = (int *) key;
*/
static Tcl_HashEntry *
-ArrayCreate(tablePtr, key, newPtr)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- register char *key; /* Key to use to find or create matching
+ArrayCreate(
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ register char *key, /* Key to use to find or create matching
* entry. */
- int *newPtr; /* Store info here telling whether a new
+ int *newPtr /* Store info here telling whether a new
* entry was created. */
+)
{
register Tcl_HashEntry *hPtr;
int *arrayPtr = (int *) key;
/* ARGSUSED */
static Tcl_HashEntry *
-BogusFind(tablePtr, key)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find matching entry. */
+BogusFind(
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key /* Key to use to find matching entry. */
+)
{
panic("called Tcl_FindHashEntry on deleted table");
return NULL;
/* ARGSUSED */
static Tcl_HashEntry *
-BogusCreate(tablePtr, key, newPtr)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find or create matching
+BogusCreate(
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key, /* Key to use to find or create matching
* entry. */
- int *newPtr; /* Store info here telling whether a new
+ int *newPtr /* Store info here telling whether a new
* entry was created. */
+)
{
panic("called Tcl_CreateHashEntry on deleted table");
return NULL;
*/
static void
-RebuildTable(tablePtr)
- register Tcl_HashTable *tablePtr; /* Table to enlarge. */
+RebuildTable(
+ register Tcl_HashTable *tablePtr /* Table to enlarge. */
+)
{
int oldSize, count, index;
Tcl_HashEntry **oldBuckets;
*/
static void
-InitHistory(iPtr)
- register Interp *iPtr; /* Interpreter to initialize. */
+InitHistory(
+ register Interp *iPtr /* Interpreter to initialize. */
+)
{
int i;
*/
int
-Tcl_RecordAndEval(interp, cmd, flags)
- Tcl_Interp *interp; /* Token for interpreter in which command
+Tcl_RecordAndEval(
+ Tcl_Interp *interp, /* Token for interpreter in which command
* will be executed. */
- char *cmd; /* Command to record. */
- int flags; /* Additional flags. TCL_NO_EVAL means
+ char *cmd, /* Command to record. */
+ int flags /* Additional flags. TCL_NO_EVAL means
* only record: don't execute command.
* TCL_EVAL_GLOBAL means use Tcl_GlobalEval
* instead of Tcl_Eval. */
+)
{
register Interp *iPtr = (Interp *) interp;
register HistoryEvent *eventPtr;
/* ARGSUSED */
int
-Tcl_HistoryCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_HistoryCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Interp *iPtr = (Interp *) interp;
register HistoryEvent *eventPtr;
*/
static void
-MakeSpace(hPtr, size)
- HistoryEvent *hPtr;
- int size; /* # of bytes needed in hPtr. */
+MakeSpace(
+ HistoryEvent *hPtr,
+ int size /* # of bytes needed in hPtr. */
+)
{
if (hPtr->bytesAvl < size) {
ckfree(hPtr->command);
*/
static void
-InsertRev(iPtr, revPtr)
- Interp *iPtr; /* Interpreter to use. */
- register HistoryRev *revPtr; /* Revision to add to iPtr's list. */
+InsertRev(
+ Interp *iPtr, /* Interpreter to use. */
+ register HistoryRev *revPtr /* Revision to add to iPtr's list. */
+)
{
register HistoryRev *curPtr;
register HistoryRev *prevPtr;
*/
static void
-RevCommand(iPtr, string)
- register Interp *iPtr; /* Interpreter in which to perform the
+RevCommand(
+ register Interp *iPtr, /* Interpreter in which to perform the
* substitution. */
- char *string; /* String to substitute. */
+ char *string /* String to substitute. */
+)
{
register HistoryRev *revPtr;
*/
static void
-RevResult(iPtr, string)
- register Interp *iPtr; /* Interpreter in which to perform the
+RevResult(
+ register Interp *iPtr, /* Interpreter in which to perform the
* substitution. */
- char *string; /* String to substitute. */
+ char *string /* String to substitute. */
+)
{
register HistoryRev *revPtr;
char *evalFirst, *evalLast;
*/
static void
-DoRevs(iPtr)
- register Interp *iPtr; /* Interpreter whose history is to
+DoRevs(
+ register Interp *iPtr /* Interpreter whose history is to
* be modified. */
+)
{
register HistoryRev *revPtr;
register HistoryEvent *eventPtr;
*/
static HistoryEvent *
-GetEvent(iPtr, string)
- register Interp *iPtr; /* Interpreter in which to look. */
- char *string; /* Description of event. */
+GetEvent(
+ register Interp *iPtr, /* Interpreter in which to look. */
+ char *string /* Description of event. */
+)
{
int eventNum, index;
register HistoryEvent *eventPtr;
*/
static int
-SubsAndEval(iPtr, cmd, old, new)
- register Interp *iPtr; /* Interpreter in which to execute
+SubsAndEval(
+ register Interp *iPtr, /* Interpreter in which to execute
* new command. */
- char *cmd; /* Command in which to substitute. */
- char *old; /* String to search for in command. */
- char *new; /* Replacement string for "old". */
+ char *cmd, /* Command in which to substitute. */
+ char *old, /* String to search for in command. */
+ char *new /* Replacement string for "old". */
+)
{
char *src, *dst, *newCmd;
int count, oldLength, newLength, length, result;
*/
static char *
-GetWords(iPtr, command, words)
- register Interp *iPtr; /* Tcl interpreter in which to place
+GetWords(
+ register Interp *iPtr, /* Tcl interpreter in which to place
* an error message if needed. */
- char *command; /* Command string. */
- char *words; /* Description of which words to extract
+ char *command, /* Command string. */
+ char *words /* Description of which words to extract
* from the command. Either num[-num] or
* a pattern. */
+)
{
char *result;
char *start, *end, *dst;
*/
void
-Tcl_SetStdChannel(channel, type)
- Tcl_Channel channel;
- int type; /* One of TCL_STDIN, TCL_STDOUT, TCL_STDERR. */
+Tcl_SetStdChannel(
+ Tcl_Channel channel,
+ int type /* One of TCL_STDIN, TCL_STDOUT, TCL_STDERR. */
+)
{
switch (type) {
case TCL_STDIN:
*/
Tcl_Channel
-Tcl_GetStdChannel(type)
- int type; /* One of TCL_STDIN, TCL_STDOUT, TCL_STDERR. */
+Tcl_GetStdChannel(
+ int type /* One of TCL_STDIN, TCL_STDOUT, TCL_STDERR. */
+)
{
Tcl_Channel channel = NULL;
*/
void
-Tcl_CreateCloseHandler(chan, proc, clientData)
- Tcl_Channel chan; /* The channel for which to create the
+Tcl_CreateCloseHandler(
+ Tcl_Channel chan, /* The channel for which to create the
* close callback. */
- Tcl_CloseProc *proc; /* The callback routine to call when the
+ Tcl_CloseProc *proc, /* The callback routine to call when the
* channel will be closed. */
- ClientData clientData; /* Arbitrary data to pass to the
+ ClientData clientData /* Arbitrary data to pass to the
* close callback. */
+)
{
Channel *chanPtr;
CloseCallback *cbPtr;
*/
void
-Tcl_DeleteCloseHandler(chan, proc, clientData)
- Tcl_Channel chan; /* The channel for which to cancel the
+Tcl_DeleteCloseHandler(
+ Tcl_Channel chan, /* The channel for which to cancel the
* close callback. */
- Tcl_CloseProc *proc; /* The procedure for the callback to
+ Tcl_CloseProc *proc, /* The procedure for the callback to
* remove. */
- ClientData clientData; /* The callback data for the callback
+ ClientData clientData /* The callback data for the callback
* to remove. */
+)
{
Channel *chanPtr;
CloseCallback *cbPtr, *cbPrevPtr;
/* ARGSUSED */
static void
-CloseChannelsOnExit(clientData)
- ClientData clientData; /* NULL - unused. */
+CloseChannelsOnExit(
+ ClientData clientData /* NULL - unused. */
+)
{
Channel *chanPtr; /* Iterates over open channels. */
Channel *nextChanPtr; /* Iterates over open channels. */
*/
static Tcl_HashTable *
-GetChannelTable(interp)
- Tcl_Interp *interp;
+GetChannelTable(
+ Tcl_Interp *interp
+)
{
Tcl_HashTable *hTblPtr; /* Hash table of channels. */
Tcl_Channel stdinChannel, stdoutChannel, stderrChannel;
*/
static void
-DeleteChannelTable(clientData, interp)
- ClientData clientData; /* The per-interpreter data structure. */
- Tcl_Interp *interp; /* The interpreter being deleted. */
+DeleteChannelTable(
+ ClientData clientData, /* The per-interpreter data structure. */
+ Tcl_Interp *interp /* The interpreter being deleted. */
+)
{
Tcl_HashTable *hTblPtr; /* The hash table. */
Tcl_HashSearch hSearch; /* Search variable. */
*/
int
-Tcl_UnregisterChannel(interp, chan)
- Tcl_Interp *interp; /* Interpreter in which channel is defined. */
- Tcl_Channel chan; /* Channel to delete. */
+Tcl_UnregisterChannel(
+ Tcl_Interp *interp, /* Interpreter in which channel is defined. */
+ Tcl_Channel chan /* Channel to delete. */
+)
{
Tcl_HashTable *hTblPtr; /* Hash table of channels. */
Tcl_HashEntry *hPtr; /* Search variable. */
*/
void
-Tcl_RegisterChannel(interp, chan)
- Tcl_Interp *interp; /* Interpreter in which to add the channel. */
- Tcl_Channel chan; /* The channel to add to this interpreter
+Tcl_RegisterChannel(
+ Tcl_Interp *interp, /* Interpreter in which to add the channel. */
+ Tcl_Channel chan /* The channel to add to this interpreter
* channel table. */
+)
{
Tcl_HashTable *hTblPtr; /* Hash table of channels. */
Tcl_HashEntry *hPtr; /* Search variable. */
*/
Tcl_Channel
-Tcl_GetChannel(interp, chanName, modePtr)
- Tcl_Interp *interp; /* Interpreter in which to find or create
+Tcl_GetChannel(
+ Tcl_Interp *interp, /* Interpreter in which to find or create
* the channel. */
- char *chanName; /* The name of the channel. */
- int *modePtr; /* Where to store the mode in which the
+ char *chanName, /* The name of the channel. */
+ int *modePtr /* Where to store the mode in which the
* channel was opened? Will contain an ORed
* combination of TCL_READABLE and
* TCL_WRITABLE, if non-NULL. */
+)
{
Channel *chanPtr; /* The actual channel. */
Tcl_HashTable *hTblPtr; /* Hash table of channels. */
*/
Tcl_Channel
-Tcl_CreateChannel(typePtr, chanName, inFile, outFile, instanceData)
- Tcl_ChannelType *typePtr; /* The channel type record. */
- char *chanName; /* Name of channel to record. */
- Tcl_File inFile; /* File to use for input, or NULL. */
- Tcl_File outFile; /* File to use for output, or NULL. */
- ClientData instanceData; /* Instance specific data. */
+Tcl_CreateChannel(
+ Tcl_ChannelType *typePtr, /* The channel type record. */
+ char *chanName, /* Name of channel to record. */
+ Tcl_File inFile, /* File to use for input, or NULL. */
+ Tcl_File outFile, /* File to use for output, or NULL. */
+ ClientData instanceData /* Instance specific data. */
+)
{
Channel *chanPtr; /* The channel structure newly created. */
*/
char *
-Tcl_GetChannelName(chan)
- Tcl_Channel chan; /* The channel for which to return the name. */
+Tcl_GetChannelName(
+ Tcl_Channel chan /* The channel for which to return the name. */
+)
{
Channel *chanPtr; /* The actual channel. */
*/
Tcl_ChannelType *
-Tcl_GetChannelType(chan)
- Tcl_Channel chan; /* The channel to return type for. */
+Tcl_GetChannelType(
+ Tcl_Channel chan /* The channel to return type for. */
+)
{
Channel *chanPtr; /* The actual channel. */
*/
Tcl_File
-Tcl_GetChannelFile(chan, direction)
- Tcl_Channel chan; /* The channel to get file from. */
- int direction; /* TCL_WRITABLE or TCL_READABLE. */
+Tcl_GetChannelFile(
+ Tcl_Channel chan, /* The channel to get file from. */
+ int direction /* TCL_WRITABLE or TCL_READABLE. */
+)
{
Channel *chanPtr; /* The actual channel. */
*/
ClientData
-Tcl_GetChannelInstanceData(chan)
- Tcl_Channel chan; /* Channel for which to return client data. */
+Tcl_GetChannelInstanceData(
+ Tcl_Channel chan /* Channel for which to return client data. */
+)
{
Channel *chanPtr; /* The actual channel. */
*/
static void
-RecycleBuffer(chanPtr, bufPtr, mustDiscard)
- Channel *chanPtr; /* Channel for which to recycle buffers. */
- ChannelBuffer *bufPtr; /* The buffer to recycle. */
- int mustDiscard; /* If nonzero, free the buffer to the
+RecycleBuffer(
+ Channel *chanPtr, /* Channel for which to recycle buffers. */
+ ChannelBuffer *bufPtr, /* The buffer to recycle. */
+ int mustDiscard /* If nonzero, free the buffer to the
* OS, always. */
+)
{
/*
* Do we have to free the buffer to the OS?
*/
static void
-DiscardOutputQueued(chanPtr)
- Channel *chanPtr; /* The channel for which to discard output. */
+DiscardOutputQueued(
+ Channel *chanPtr /* The channel for which to discard output. */
+)
{
ChannelBuffer *bufPtr;
*/
static int
-FlushChannel(interp, chanPtr, calledFromAsyncFlush)
- Tcl_Interp *interp; /* For error reporting during close. */
- Channel *chanPtr; /* The channel to flush on. */
- int calledFromAsyncFlush; /* If nonzero then we are being
+FlushChannel(
+ Tcl_Interp *interp, /* For error reporting during close. */
+ Channel *chanPtr, /* The channel to flush on. */
+ int calledFromAsyncFlush /* If nonzero then we are being
* called from an asynchronous
* flush callback. */
+)
{
ChannelBuffer *bufPtr; /* Iterates over buffered output
* queue. */
*/
static int
-CloseChannel(interp, chanPtr, errorCode)
- Tcl_Interp *interp; /* For error reporting. */
- Channel *chanPtr; /* The channel to close. */
- int errorCode; /* Status of operation so far. */
+CloseChannel(
+ Tcl_Interp *interp, /* For error reporting. */
+ Channel *chanPtr, /* The channel to close. */
+ int errorCode /* Status of operation so far. */
+)
{
int result; /* Of calling driver close
* operation. */
/* ARGSUSED */
int
-Tcl_Close(interp, chan)
- Tcl_Interp *interp; /* Interpreter for errors. */
- Tcl_Channel chan; /* The channel being closed. Must
+Tcl_Close(
+ Tcl_Interp *interp, /* Interpreter for errors. */
+ Tcl_Channel chan /* The channel being closed. Must
* not be referenced in any
* interpreter. */
+)
{
ChannelHandler *chPtr, *chNext; /* Iterate over channel handlers. */
CloseCallback *cbPtr; /* Iterate over close callbacks
*/
static int
-ChannelEventDeleteProc(evPtr, clientData)
- Tcl_Event *evPtr; /* The event to check for a match. */
- ClientData clientData; /* The channel to check for. */
+ChannelEventDeleteProc(
+ Tcl_Event *evPtr, /* The event to check for a match. */
+ ClientData clientData /* The channel to check for. */
+)
{
ChannelHandlerEvent *cEvPtr;
Channel *chanPtr;
*/
int
-Tcl_Write(chan, srcPtr, slen)
- Tcl_Channel chan; /* The channel to buffer output for. */
- char *srcPtr; /* Output to buffer. */
- int slen; /* Its length. Negative means
+Tcl_Write(
+ Tcl_Channel chan, /* The channel to buffer output for. */
+ char *srcPtr, /* Output to buffer. */
+ int slen /* Its length. Negative means
* the output is null terminated
* and we must compute its length. */
+)
{
Channel *chanPtr; /* The actual channel. */
ChannelBuffer *outBufPtr; /* Current output buffer. */
*/
int
-Tcl_Flush(chan)
- Tcl_Channel chan; /* The Channel to flush. */
+Tcl_Flush(
+ Tcl_Channel chan /* The Channel to flush. */
+)
{
int result; /* Of calling FlushChannel. */
Channel *chanPtr; /* The actual channel. */
*/
static void
-DiscardInputQueued(chanPtr, discardSavedBuffers)
- Channel *chanPtr; /* Channel on which to discard
+DiscardInputQueued(
+ Channel *chanPtr, /* Channel on which to discard
* the queued input. */
- int discardSavedBuffers; /* If non-zero, discard all buffers including
+ int discardSavedBuffers /* If non-zero, discard all buffers including
* last one. */
+)
{
ChannelBuffer *bufPtr, *nxtPtr; /* Loop variables. */
*/
static int
-GetInput(chanPtr)
- Channel *chanPtr; /* Channel to read input from. */
+GetInput(
+ Channel *chanPtr /* Channel to read input from. */
+)
{
int toRead; /* How much to read? */
int result; /* Of calling driver. */
*/
static int
-CopyAndTranslateBuffer(chanPtr, result, space)
- Channel *chanPtr; /* The channel from which to read input. */
- char *result; /* Where to store the copied input. */
- int space; /* How many bytes are available in result
+CopyAndTranslateBuffer(
+ Channel *chanPtr, /* The channel from which to read input. */
+ char *result, /* Where to store the copied input. */
+ int space /* How many bytes are available in result
* to store the copied input? */
+)
{
int bytesInBuffer; /* How many bytes are available to be
* copied in the current input buffer? */
*/
static int
-ScanBufferForEOL(chanPtr, bufPtr, translation, eofChar, bytesToEOLPtr,
- crSeenPtr)
- Channel *chanPtr;
- ChannelBuffer *bufPtr; /* Buffer to scan for EOL. */
- Tcl_EolTranslation translation; /* Translation mode to use. */
- int eofChar; /* EOF char to look for. */
- int *bytesToEOLPtr; /* Running counter. */
- int *crSeenPtr; /* Has "\r" been seen? */
+ScanBufferForEOL(
+ Channel *chanPtr,
+ ChannelBuffer *bufPtr, /* Buffer to scan for EOL. */
+ Tcl_EolTranslation translation, /* Translation mode to use. */
+ int eofChar, /* EOF char to look for. */
+ int *bytesToEOLPtr, /* Running counter. */
+ int *crSeenPtr /* Has "\r" been seen? */
+)
{
char *rPtr; /* Iterates over input string. */
char *sPtr; /* Where to stop search? */
*/
static int
-ScanInputForEOL(chanPtr, bytesQueuedPtr)
- Channel *chanPtr; /* Channel for which to scan queued
+ScanInputForEOL(
+ Channel *chanPtr, /* Channel for which to scan queued
* input for end of line. */
- int *bytesQueuedPtr; /* Where to store the number of bytes
+ int *bytesQueuedPtr /* Where to store the number of bytes
* currently queued if no end of line
* was found. */
+)
{
ChannelBuffer *bufPtr; /* Iterates over queued buffers. */
int bytesToEOL; /* How many bytes to end of line? */
*/
static int
-GetEOL(chanPtr)
- Channel *chanPtr; /* Channel to queue input on. */
+GetEOL(
+ Channel *chanPtr /* Channel to queue input on. */
+)
{
int result; /* Of getting another buffer from the
* channel. */
*/
int
-Tcl_Read(chan, bufPtr, toRead)
- Tcl_Channel chan; /* The channel from which to read. */
- char *bufPtr; /* Where to store input read. */
- int toRead; /* Maximum number of characters to read. */
+Tcl_Read(
+ Tcl_Channel chan, /* The channel from which to read. */
+ char *bufPtr, /* Where to store input read. */
+ int toRead /* Maximum number of characters to read. */
+)
{
Channel *chanPtr; /* The real IO channel. */
int copied; /* How many characters were copied into
*/
int
-Tcl_Gets(chan, lineRead)
- Tcl_Channel chan; /* Channel from which to read. */
- Tcl_DString *lineRead; /* The characters of the line read
+Tcl_Gets(
+ Tcl_Channel chan, /* Channel from which to read. */
+ Tcl_DString *lineRead /* The characters of the line read
* (excluding the terminating newline if
* present) will be appended to this
* DString. The caller must have initialized
* it and is responsible for managing the
* storage. */
+)
{
Channel *chanPtr; /* The channel to read from. */
char *buf; /* Points into DString where data
*/
int
-Tcl_Seek(chan, offset, mode)
- Tcl_Channel chan; /* The channel on which to seek. */
- int offset; /* Offset to seek to. */
- int mode; /* Relative to which location to seek? */
+Tcl_Seek(
+ Tcl_Channel chan, /* The channel on which to seek. */
+ int offset, /* Offset to seek to. */
+ int mode /* Relative to which location to seek? */
+)
{
Channel *chanPtr; /* The real IO channel. */
ChannelBuffer *bufPtr; /* Iterates over queued input
*/
int
-Tcl_Tell(chan)
- Tcl_Channel chan; /* The channel to return pos for. */
+Tcl_Tell(
+ Tcl_Channel chan /* The channel to return pos for. */
+)
{
Channel *chanPtr; /* The actual channel to tell on. */
ChannelBuffer *bufPtr; /* Iterates over queued input
*/
int
-Tcl_Eof(chan)
- Tcl_Channel chan; /* Does this channel have EOF? */
+Tcl_Eof(
+ Tcl_Channel chan /* Does this channel have EOF? */
+)
{
Channel *chanPtr; /* The real channel structure. */
*/
int
-Tcl_InputBlocked(chan)
- Tcl_Channel chan; /* Is this channel blocked? */
+Tcl_InputBlocked(
+ Tcl_Channel chan /* Is this channel blocked? */
+)
{
Channel *chanPtr; /* The real channel structure. */
*/
int
-Tcl_InputBuffered(chan)
- Tcl_Channel chan; /* The channel to query. */
+Tcl_InputBuffered(
+ Tcl_Channel chan /* The channel to query. */
+)
{
Channel *chanPtr;
int bytesBuffered;
*/
void
-Tcl_SetChannelBufferSize(chan, sz)
- Tcl_Channel chan; /* The channel whose buffer size
+Tcl_SetChannelBufferSize(
+ Tcl_Channel chan, /* The channel whose buffer size
* to set. */
- int sz; /* The size to set. */
+ int sz /* The size to set. */
+)
{
Channel *chanPtr;
*/
int
-Tcl_GetChannelBufferSize(chan)
- Tcl_Channel chan; /* The channel for which to find the
+Tcl_GetChannelBufferSize(
+ Tcl_Channel chan /* The channel for which to find the
* buffer size. */
+)
{
Channel *chanPtr;
*/
int
-Tcl_GetChannelOption(chan, optionName, dsPtr)
- Tcl_Channel chan; /* Channel on which to get option. */
- char *optionName; /* Option to get. */
- Tcl_DString *dsPtr; /* Where to store value(s). */
+Tcl_GetChannelOption(
+ Tcl_Channel chan, /* Channel on which to get option. */
+ char *optionName, /* Option to get. */
+ Tcl_DString *dsPtr /* Where to store value(s). */
+)
{
Channel *chanPtr; /* The real IO channel. */
size_t len; /* Length of optionName string. */
*/
int
-Tcl_SetChannelOption(interp, chan, optionName, newValue)
- Tcl_Interp *interp; /* For error reporting - can be NULL. */
- Tcl_Channel chan; /* Channel on which to set mode. */
- char *optionName; /* Which option to set? */
- char *newValue; /* New value for option. */
+Tcl_SetChannelOption(
+ Tcl_Interp *interp, /* For error reporting - can be NULL. */
+ Tcl_Channel chan, /* Channel on which to set mode. */
+ char *optionName, /* Which option to set? */
+ char *newValue /* New value for option. */
+)
{
int result; /* Result of channel type operation. */
int newMode; /* New (numeric) mode to sert. */
/* ARGSUSED */
static void
-ChannelEventSourceExitProc(clientData)
- ClientData clientData; /* Not used. */
+ChannelEventSourceExitProc(
+ ClientData clientData /* Not used. */
+)
{
Tcl_DeleteEventSource(ChannelHandlerSetupProc, ChannelHandlerCheckProc,
(ClientData) NULL);
*/
static void
-ChannelHandlerSetupProc(clientData, flags)
- ClientData clientData; /* Not used. */
- int flags; /* Flags passed to Tk_DoOneEvent:
+ChannelHandlerSetupProc(
+ ClientData clientData, /* Not used. */
+ int flags /* Flags passed to Tk_DoOneEvent:
* if it doesn't include
* TCL_FILE_EVENTS then we do
* nothing. */
+)
{
Tcl_Time dontBlock;
Channel *chanPtr, *nextChanPtr;
*/
static void
-ChannelHandlerCheckProc(clientData, flags)
- ClientData clientData; /* Not used. */
- int flags; /* Flags passed to Tk_DoOneEvent:
+ChannelHandlerCheckProc(
+ ClientData clientData, /* Not used. */
+ int flags /* Flags passed to Tk_DoOneEvent:
* if it doesn't include
* TCL_FILE_EVENTS then we do
* nothing. */
+)
{
Channel *chanPtr, *nextChanPtr;
ChannelHandlerEvent *ePtr;
*/
static void
-FlushEventProc(clientData, mask)
- ClientData clientData; /* Channel to produce output on. */
- int mask; /* Not used. */
+FlushEventProc(
+ ClientData clientData, /* Channel to produce output on. */
+ int mask /* Not used. */
+)
{
(void) FlushChannel(NULL, (Channel *) clientData, 1);
}
*/
static int
-ChannelHandlerEventProc(evPtr, flags)
- Tcl_Event *evPtr; /* Event to service. */
- int flags; /* Flags that indicate what events to
+ChannelHandlerEventProc(
+ Tcl_Event *evPtr, /* Event to service. */
+ int flags /* Flags that indicate what events to
* handle, such as TCL_FILE_EVENTS. */
+)
{
Channel *chanPtr;
ChannelHandler *chPtr;
*/
void
-Tcl_CreateChannelHandler(chan, mask, proc, clientData)
- Tcl_Channel chan; /* The channel to create the handler for. */
- int mask; /* OR'ed combination of TCL_READABLE,
+Tcl_CreateChannelHandler(
+ Tcl_Channel chan, /* The channel to create the handler for. */
+ int mask, /* OR'ed combination of TCL_READABLE,
* TCL_WRITABLE, and TCL_EXCEPTION:
* indicates conditions under which
* proc should be called. Use 0 to
* disable a registered handler. */
- Tcl_ChannelProc *proc; /* Procedure to call for each
+ Tcl_ChannelProc *proc, /* Procedure to call for each
* selected event. */
- ClientData clientData; /* Arbitrary data to pass to proc. */
+ ClientData clientData /* Arbitrary data to pass to proc. */
+)
{
ChannelHandler *chPtr;
Channel *chanPtr;
*/
void
-Tcl_DeleteChannelHandler(chan, proc, clientData)
- Tcl_Channel chan; /* The channel for which to remove the
+Tcl_DeleteChannelHandler(
+ Tcl_Channel chan, /* The channel for which to remove the
* callback. */
- Tcl_ChannelProc *proc; /* The procedure in the callback to delete. */
- ClientData clientData; /* The client data in the callback
+ Tcl_ChannelProc *proc, /* The procedure in the callback to delete. */
+ ClientData clientData /* The client data in the callback
* to delete. */
-
+)
{
ChannelHandler *chPtr, *prevChPtr;
Channel *chanPtr;
*/
static void
-ReturnScriptRecord(interp, chanPtr, mask)
- Tcl_Interp *interp; /* The interpreter in which the script
+ReturnScriptRecord(
+ Tcl_Interp *interp, /* The interpreter in which the script
* is to be executed. */
- Channel *chanPtr; /* The channel for which the script is
+ Channel *chanPtr, /* The channel for which the script is
* stored. */
- int mask; /* Events in mask must overlap with events
+ int mask /* Events in mask must overlap with events
* for which this script is stored. */
+)
{
EventScriptRecord *esPtr;
*/
static void
-DeleteScriptRecord(interp, chanPtr, mask)
- Tcl_Interp *interp; /* Interpreter in which script was to be
+DeleteScriptRecord(
+ Tcl_Interp *interp, /* Interpreter in which script was to be
* executed. */
- Channel *chanPtr; /* The channel for which to delete the
+ Channel *chanPtr, /* The channel for which to delete the
* script record (if any). */
- int mask; /* Events in mask must exactly match mask
+ int mask /* Events in mask must exactly match mask
* of script to delete. */
+)
{
EventScriptRecord *esPtr, *prevEsPtr;
*/
static void
-CreateScriptRecord(interp, chanPtr, mask, script)
- Tcl_Interp *interp; /* Interpreter in which to execute
+CreateScriptRecord(
+ Tcl_Interp *interp, /* Interpreter in which to execute
* the stored script. */
- Channel *chanPtr; /* Channel for which script is to
+ Channel *chanPtr, /* Channel for which script is to
* be stored. */
- int mask; /* Set of events for which script
+ int mask, /* Set of events for which script
* will be invoked. */
- char *script; /* A copy of this script is stored
+ char *script /* A copy of this script is stored
* in the newly created record. */
+)
{
EventScriptRecord *esPtr;
*/
static void
-ChannelEventScriptInvoker(clientData, mask)
- ClientData clientData; /* The script+interp record. */
- int mask; /* Not used. */
+ChannelEventScriptInvoker(
+ ClientData clientData, /* The script+interp record. */
+ int mask /* Not used. */
+)
{
Tcl_Interp *interp; /* Interpreter in which to eval the script. */
Channel *chanPtr; /* The channel for which this handler is
/* ARGSUSED */
int
-Tcl_FileEventCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Interpreter in which the channel
+Tcl_FileEventCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Interpreter in which the channel
* for which to create the handler
* is found. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Channel *chanPtr; /* The channel to create
* the handler for. */
/* ARGSUSED */
int
-TclTestChannelCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Interpreter for result. */
- int argc; /* Count of additional args. */
- char **argv; /* Additional arg strings. */
+TclTestChannelCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Interpreter for result. */
+ int argc, /* Count of additional args. */
+ char **argv /* Additional arg strings. */
+)
{
char *cmdName; /* Sub command. */
Tcl_HashTable *hTblPtr; /* Hash table of channels. */
/* ARGSUSED */
int
-TclTestChannelEventCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+TclTestChannelEventCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Channel *chanPtr;
EventScriptRecord *esPtr, *prevEsPtr, *nextEsPtr;
/* ARGSUSED */
int
-Tcl_PutsCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_PutsCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to puts on. */
int i; /* Counter. */
/* ARGSUSED */
int
-Tcl_FlushCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_FlushCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to flush on. */
int result; /* Result of call to channel
/* ARGSUSED */
int
-Tcl_GetsCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_GetsCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to read from. */
char *varName; /* Assign to this variable? */
/* ARGSUSED */
int
-Tcl_ReadCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_ReadCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to read from. */
int newline, i; /* Discard newline at end? */
*/
int
-TclUnsupported0Cmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Interpreter in which both channels
+TclUnsupported0Cmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Interpreter in which both channels
* are defined. */
- int argc; /* How many arguments? */
- char **argv; /* The argument strings. */
+ int argc, /* How many arguments? */
+ char **argv /* The argument strings. */
+)
{
Tcl_Channel inChan, outChan;
int requested;
/* ARGSUSED */
int
-Tcl_SeekCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_SeekCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to tell on. */
int offset, mode; /* Where to seek? */
/* ARGSUSED */
int
-Tcl_TellCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_TellCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to tell on. */
/* ARGSUSED */
int
-Tcl_CloseCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_CloseCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to close. */
int len; /* Length of error output. */
/* ARGSUSED */
int
-Tcl_FconfigureCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_FconfigureCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to set a mode on. */
int result; /* Of Tcl_Set/GetChannelOption. */
/* ARGSUSED */
int
-Tcl_EofCmd(unused, interp, argc, argv)
- ClientData unused; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_EofCmd(
+ ClientData unused, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to query for EOF. */
int mode; /* Mode in which channel is opened. */
/* ARGSUSED */
int
-Tcl_ExecCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_ExecCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
#ifdef MAC_TCL
Tcl_AppendResult(interp, "exec not implemented under Mac OS",
/* ARGSUSED */
int
-Tcl_FblockedCmd(unused, interp, argc, argv)
- ClientData unused; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_FblockedCmd(
+ ClientData unused, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to query for blocked. */
int mode; /* Mode in which channel was opened. */
/* ARGSUSED */
int
-Tcl_OpenCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_OpenCmd(
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int pipeline, prot;
char *modeString;
/* ARGSUSED */
static void
-TcpAcceptCallbacksDeleteProc(clientData, interp)
- ClientData clientData; /* Data which was passed when the assocdata
+TcpAcceptCallbacksDeleteProc(
+ ClientData clientData, /* Data which was passed when the assocdata
* was registered. */
- Tcl_Interp *interp; /* Interpreter being deleted - not used. */
+ Tcl_Interp *interp /* Interpreter being deleted - not used. */
+)
{
Tcl_HashTable *hTblPtr;
Tcl_HashEntry *hPtr;
*/
static void
-RegisterTcpServerInterpCleanup(interp, acceptCallbackPtr)
- Tcl_Interp *interp; /* Interpreter for which we want to be
+RegisterTcpServerInterpCleanup(
+ Tcl_Interp *interp, /* Interpreter for which we want to be
* informed of deletion. */
- AcceptCallback *acceptCallbackPtr;
+ AcceptCallback *acceptCallbackPtr
/* The accept callback record whose
* interp field we want set to NULL when
* the interpreter is deleted. */
+)
{
Tcl_HashTable *hTblPtr; /* Hash table for accept callback
* records to smash when the interpreter
*/
static void
-UnregisterTcpServerInterpCleanupProc(interp, acceptCallbackPtr)
- Tcl_Interp *interp; /* Interpreter in which the accept callback
+UnregisterTcpServerInterpCleanupProc(
+ Tcl_Interp *interp, /* Interpreter in which the accept callback
* record was registered. */
- AcceptCallback *acceptCallbackPtr;
+ AcceptCallback *acceptCallbackPtr
/* The record for which to delete the
* registration. */
+)
{
Tcl_HashTable *hTblPtr;
Tcl_HashEntry *hPtr;
*/
static void
-AcceptCallbackProc(callbackData, chan, address, port)
- ClientData callbackData; /* The data stored when the callback
+AcceptCallbackProc(
+ ClientData callbackData, /* The data stored when the callback
* was created in the call to
* Tcl_OpenTcpServer. */
- Tcl_Channel chan; /* Channel for the newly accepted
+ Tcl_Channel chan, /* Channel for the newly accepted
* connection. */
- char *address; /* Address of client that was
+ char *address, /* Address of client that was
* accepted. */
- int port; /* Port of client that was accepted. */
+ int port /* Port of client that was accepted. */
+)
{
AcceptCallback *acceptCallbackPtr;
Tcl_Interp *interp;
*/
static void
-TcpServerCloseProc(callbackData)
- ClientData callbackData; /* The data passed in the call to
+TcpServerCloseProc(
+ ClientData callbackData /* The data passed in the call to
* Tcl_CreateCloseHandler. */
+)
{
AcceptCallback *acceptCallbackPtr;
/* The actual data. */
*/
int
-Tcl_SocketCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_SocketCmd(
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int a, server, port;
char *arg, *copyScript, *host, *script;
*/
int
-TclSockGetPort(interp, string, proto, portPtr)
- Tcl_Interp *interp;
- char *string; /* Integer or service name */
- char *proto; /* "tcp" or "udp", typically */
- int *portPtr; /* Return port number */
+TclSockGetPort(
+ Tcl_Interp *interp,
+ char *string, /* Integer or service name */
+ char *proto, /* "tcp" or "udp", typically */
+ int *portPtr /* Return port number */
+)
{
struct servent *sp = getservbyname(string, proto);
if (sp != NULL) {
*/
int
-TclSockMinimumBuffers(sock, size)
- int sock; /* Socket file descriptor */
- int size; /* Minimum buffer size */
+TclSockMinimumBuffers(
+ int sock, /* Socket file descriptor */
+ int size /* Minimum buffer size */
+)
{
int current;
int len = sizeof(int);
*/
static Tcl_File
-FileForRedirect(interp, spec, atOk, arg, flags, nextArg, skipPtr, closePtr)
- Tcl_Interp *interp; /* Intepreter to use for error
+FileForRedirect(
+ Tcl_Interp *interp, /* Intepreter to use for error
* reporting. */
- register char *spec; /* Points to character just after
+ register char *spec, /* Points to character just after
* redirection character. */
- int atOk; /* Non-zero means '@' notation is
+ int atOk, /* Non-zero means '@' notation is
* OK, zero means it isn't. */
- char *arg; /* Pointer to entire argument
+ char *arg, /* Pointer to entire argument
* containing spec: used for error
* reporting. */
- int flags; /* Flags to use for opening file. */
- char *nextArg; /* Next argument in argc/argv
+ int flags, /* Flags to use for opening file. */
+ char *nextArg, /* Next argument in argc/argv
* array, if needed for file name.
* May be NULL. */
- int *skipPtr; /* This value is incremented if
+ int *skipPtr, /* This value is incremented if
* nextArg is used for redirection
* spec. */
- int *closePtr; /* This value is set to 1 if the file
+ int *closePtr /* This value is set to 1 if the file
* that's returned must be closed, 0
* if it was specified with "@" so
* it must be left open. */
+)
{
int writing = (flags & O_WRONLY);
Tcl_Channel chan;
*/
int
-TclGetOpenMode(interp, string, seekFlagPtr)
- Tcl_Interp *interp; /* Interpreter to use for error
+TclGetOpenMode(
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting - may be NULL. */
- char *string; /* Mode string, e.g. "r+" or
+ char *string, /* Mode string, e.g. "r+" or
* "RDONLY CREAT". */
- int *seekFlagPtr; /* Set this to 1 if the caller
+ int *seekFlagPtr /* Set this to 1 if the caller
* should seek to EOF during the
* opening of the file. */
+)
{
int mode, modeArgc, c, i, gotRW;
char **modeArgv, *flag;
*/
int
-Tcl_EvalFile(interp, fileName)
- Tcl_Interp *interp; /* Interpreter in which to process file. */
- char *fileName; /* Name of file to process. Tilde-substitution
+Tcl_EvalFile(
+ Tcl_Interp *interp, /* Interpreter in which to process file. */
+ char *fileName /* Name of file to process. Tilde-substitution
* will be performed on this name. */
+)
{
int result;
struct stat statBuf;
*/
void
-Tcl_DetachPids(numPids, pidPtr)
- int numPids; /* Number of pids to detach: gives size
+Tcl_DetachPids(
+ int numPids, /* Number of pids to detach: gives size
* of array pointed to by pidPtr. */
- pid_t *pidPtr; /* Array of pids to detach. */
+ pid_t *pidPtr /* Array of pids to detach. */
+)
{
register Detached *detPtr;
int i;
*/
void
-Tcl_ReapDetachedProcs()
+Tcl_ReapDetachedProcs(void)
{
register Detached *detPtr;
Detached *nextPtr, *prevPtr;
*/
int
-TclCleanupChildren(interp, numPids, pidPtr, errorChan)
- Tcl_Interp *interp; /* Used for error messages. */
- int numPids; /* Number of entries in pidPtr array. */
- pid_t *pidPtr; /* Array of process ids of children. */
- Tcl_Channel errorChan; /* Channel for file containing stderr output
+TclCleanupChildren(
+ Tcl_Interp *interp, /* Used for error messages. */
+ int numPids, /* Number of entries in pidPtr array. */
+ pid_t *pidPtr, /* Array of process ids of children. */
+ Tcl_Channel errorChan /* Channel for file containing stderr output
* from pipeline. NULL means there isn't any
* stderr output. */
+)
{
int result = TCL_OK;
pid_t pid;
*/
int
-TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr,
- outPipePtr, errFilePtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- int argc; /* Number of entries in argv. */
- char **argv; /* Array of strings describing commands in
+TclCreatePipeline(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ int argc, /* Number of entries in argv. */
+ char **argv, /* Array of strings describing commands in
* pipeline plus I/O redirection with <,
* <<, >, etc. Argv[argc] must be NULL. */
- pid_t **pidArrayPtr; /* Word at *pidArrayPtr gets filled in with
+ pid_t **pidArrayPtr, /* Word at *pidArrayPtr gets filled in with
* address of array of pids for processes
* in pipeline (first pid is first process
* in pipeline). */
- Tcl_File *inPipePtr; /* If non-NULL, input to the pipeline comes
+ Tcl_File *inPipePtr, /* If non-NULL, input to the pipeline comes
* from a pipe (unless overridden by
* redirection in the command). The file
* id with which to write to this pipe is
* stored at *inPipePtr. NULL means command
* specified its own input source. */
- Tcl_File *outPipePtr; /* If non-NULL, output to the pipeline goes
+ Tcl_File *outPipePtr, /* If non-NULL, output to the pipeline goes
* to a pipe, unless overriden by redirection
* in the command. The file id with which to
* read frome this pipe is stored at
* *outPipePtr. NULL means command specified
* its own output sink. */
- Tcl_File *errFilePtr; /* If non-NULL, all stderr output from the
+ Tcl_File *errFilePtr /* If non-NULL, all stderr output from the
* pipeline will go to a temporary file
* created here, and a descriptor to read
* the file will be left at *errFilePtr.
* If the pipeline specifies redirection
* then the file will still be created
* but it will never get any data. */
+)
{
#if defined( MAC_TCL )
Tcl_AppendResult(interp,
*/
int
-Tcl_GetErrno()
+Tcl_GetErrno(void)
{
return errno;
}
*/
void
-Tcl_SetErrno(err)
- int err; /* The new value. */
+Tcl_SetErrno(
+ int err /* The new value. */
+)
{
errno = err;
}
*/
char *
-Tcl_PosixError(interp)
- Tcl_Interp *interp; /* Interpreter whose $errorCode variable
+Tcl_PosixError(
+ Tcl_Interp *interp /* Interpreter whose $errorCode variable
* is to be changed. */
+)
{
char *id, *msg;
*/
Tcl_Channel
-Tcl_OpenCommandChannel(interp, argc, argv, flags)
- Tcl_Interp *interp; /* Interpreter for error reporting. Can
+Tcl_OpenCommandChannel(
+ Tcl_Interp *interp, /* Interpreter for error reporting. Can
* NOT be NULL. */
- int argc; /* How many arguments. */
- char **argv; /* Array of arguments for command pipe. */
- int flags; /* Or'ed combination of TCL_STDIN, TCL_STDOUT,
+ int argc, /* How many arguments. */
+ char **argv, /* Array of arguments for command pipe. */
+ int flags /* Or'ed combination of TCL_STDIN, TCL_STDOUT,
* TCL_STDERR, and TCL_ENFORCE_MODE. */
+)
{
Tcl_File *inPipePtr, *outPipePtr, *errFilePtr;
Tcl_File inPipe, outPipe, errFile;
*/
int
-TclPreventAliasLoop(interp, cmdInterp, cmdName, proc, clientData)
- Tcl_Interp *interp; /* Interp in which to report errors. */
- Tcl_Interp *cmdInterp; /* Interp in which the command is
+TclPreventAliasLoop(
+ Tcl_Interp *interp, /* Interp in which to report errors. */
+ Tcl_Interp *cmdInterp, /* Interp in which the command is
* being defined. */
- char *cmdName; /* Name of Tcl command we are
+ char *cmdName, /* Name of Tcl command we are
* attempting to define. */
- Tcl_CmdProc *proc; /* The command procedure for the
+ Tcl_CmdProc *proc, /* The command procedure for the
* command being created. */
- ClientData clientData; /* The client data associated with the
+ ClientData clientData /* The client data associated with the
* command to be created. */
+)
{
Alias *aliasPtr, *nextAliasPtr;
Tcl_CmdInfo cmdInfo;
*/
static int
-MakeSafe(interp)
- Tcl_Interp *interp; /* Interpreter to be made safe. */
+MakeSafe(
+ Tcl_Interp *interp /* Interpreter to be made safe. */
+)
{
char **argv; /* Args for Tcl_Eval. */
int argc, keep, i, j; /* Loop indices. */
*/
static Tcl_Interp *
-GetInterp(interp, masterPtr, path, masterPtrPtr)
- Tcl_Interp *interp; /* Interp. to start search from. */
- Master *masterPtr; /* Its master record. */
- char *path; /* The path (name) of interp. to be found. */
- Master **masterPtrPtr; /* (Return) its master record. */
+GetInterp(
+ Tcl_Interp *interp, /* Interp. to start search from. */
+ Master *masterPtr, /* Its master record. */
+ char *path, /* The path (name) of interp. to be found. */
+ Master **masterPtrPtr /* (Return) its master record. */
+)
{
Tcl_HashEntry *hPtr; /* Search element. */
Slave *slavePtr; /* Interim slave record. */
*/
static Tcl_Interp *
-CreateSlave(interp, slavePath, safe)
- Tcl_Interp *interp; /* Interp. to start search from. */
- char *slavePath; /* Path (name) of slave to create. */
- int safe; /* Should we make it "safe"? */
+CreateSlave(
+ Tcl_Interp *interp, /* Interp. to start search from. */
+ char *slavePath, /* Path (name) of slave to create. */
+ int safe /* Should we make it "safe"? */
+)
{
Master *masterPtr; /* Master record. */
Tcl_Interp *slaveInterp; /* Ptr to slave interpreter. */
*/
static int
-CreateInterpObject(interp, argc, argv)
- Tcl_Interp *interp; /* Invoking interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+CreateInterpObject(
+ Tcl_Interp *interp, /* Invoking interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int safe; /* Create a safe interpreter? */
Master *masterPtr; /* Master record. */
*/
static int
-DeleteOneInterpObject(interp, path)
- Tcl_Interp *interp; /* Interpreter for reporting errors. */
- char *path; /* Path of interpreter to delete. */
+DeleteOneInterpObject(
+ Tcl_Interp *interp, /* Interpreter for reporting errors. */
+ char *path /* Path of interpreter to delete. */
+)
{
Master *masterPtr; /* Interim storage for master record.*/
Slave *slavePtr; /* Interim storage for slave record. */
*/
static int
-DeleteInterpObject(interp, argc, argv)
- Tcl_Interp *interp; /* Interpreter start search from. */
- int argc; /* Number of arguments in vector. */
- char **argv; /* Contains path to interps to
+DeleteInterpObject(
+ Tcl_Interp *interp, /* Interpreter start search from. */
+ int argc, /* Number of arguments in vector. */
+ char **argv /* Contains path to interps to
* delete. */
+)
{
int i;
*/
static int
-AliasHelper(curInterp, slaveInterp, masterInterp, masterPtr,
- aliasName, targetName, argc, argv)
- Tcl_Interp *curInterp; /* Interp that invoked this proc. */
- Tcl_Interp *slaveInterp; /* Interp where alias cmd will live
+AliasHelper(
+ Tcl_Interp *curInterp, /* Interp that invoked this proc. */
+ Tcl_Interp *slaveInterp, /* Interp where alias cmd will live
* or from which alias will be
* deleted. */
- Tcl_Interp *masterInterp; /* Interp where target cmd will be. */
- Master *masterPtr; /* Master record for target interp. */
- char *aliasName; /* Name of alias cmd. */
- char *targetName; /* Name of target cmd. */
- int argc; /* Additional arguments to store */
- char **argv; /* with alias. */
+ Tcl_Interp *masterInterp, /* Interp where target cmd will be. */
+ Master *masterPtr, /* Master record for target interp. */
+ char *aliasName, /* Name of alias cmd. */
+ char *targetName, /* Name of target cmd. */
+ int argc, /* Additional arguments to store */
+ char **argv /* with alias. */
+)
{
Alias *aliasPtr; /* Storage for alias data. */
Alias *tmpAliasPtr; /* Temp storage for alias to delete. */
*/
static int
-SlaveAliasHelper(interp, argc, argv)
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+SlaveAliasHelper(
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Master *masterPtr; /* Master record for current interp. */
Tcl_Interp *slaveInterp, /* Interpreters used when */
*/
static int
-DescribeAlias(interp, slaveInterp, aliasName)
- Tcl_Interp *interp; /* Interpreter for result and errors. */
- Tcl_Interp *slaveInterp; /* Interpreter defining alias. */
- char *aliasName; /* Name of alias to describe. */
+DescribeAlias(
+ Tcl_Interp *interp, /* Interpreter for result and errors. */
+ Tcl_Interp *slaveInterp, /* Interpreter defining alias. */
+ char *aliasName /* Name of alias to describe. */
+)
{
Slave *slavePtr; /* Slave record for slave interpreter. */
Tcl_HashEntry *hPtr; /* Search variable. */
*/
static int
-DeleteAlias(interp, slaveInterp, aliasName)
- Tcl_Interp *interp; /* Interpreter for result and errors. */
- Tcl_Interp *slaveInterp; /* Interpreter defining alias. */
- char *aliasName; /* Name of alias to delete. */
+DeleteAlias(
+ Tcl_Interp *interp, /* Interpreter for result and errors. */
+ Tcl_Interp *slaveInterp, /* Interpreter defining alias. */
+ char *aliasName /* Name of alias to delete. */
+)
{
Slave *slavePtr; /* Slave record for slave interpreter. */
Tcl_HashEntry *hPtr; /* Search variable. */
*/
int
-Tcl_GetInterpPath(askingInterp, targetInterp)
- Tcl_Interp *askingInterp; /* Interpreter to start search from. */
- Tcl_Interp *targetInterp; /* Interpreter to find. */
+Tcl_GetInterpPath(
+ Tcl_Interp *askingInterp, /* Interpreter to start search from. */
+ Tcl_Interp *targetInterp /* Interpreter to find. */
+)
{
Master *masterPtr; /* Interim storage for Master record. */
Slave *slavePtr; /* Interim storage for Slave record. */
*/
static int
-GetTarget(askingInterp, path, aliasName)
- Tcl_Interp *askingInterp; /* Interpreter to start search from. */
- char *path; /* The path of the interp to find. */
- char *aliasName; /* The target of this allias. */
+GetTarget(
+ Tcl_Interp *askingInterp, /* Interpreter to start search from. */
+ char *path, /* The path of the interp to find. */
+ char *aliasName /* The target of this allias. */
+)
{
Tcl_Interp *slaveInterp; /* Interim storage for slave. */
Slave *slaveSlavePtr; /* Its Slave record. */
*/
/* ARGSUSED */
int
-Tcl_InterpCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Unused. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_InterpCmd(
+ ClientData clientData, /* Unused. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Interp *slaveInterp; /* A slave. */
Tcl_Interp *masterInterp; /* A master. */
*/
static int
-SlaveObjectCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Slave interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+SlaveObjectCmd(
+ ClientData clientData, /* Slave interpreter. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Master *masterPtr; /* Master record for slave interp. */
Slave *slavePtr; /* Slave record. */
*/
static void
-SlaveObjectDeleteProc(clientData)
- ClientData clientData; /* The SlaveRecord for the command. */
+SlaveObjectDeleteProc(
+ ClientData clientData /* The SlaveRecord for the command. */
+)
{
Slave *slavePtr; /* Interim storage for Slave record. */
Tcl_Interp *slaveInterp; /* And for a slave interp. */
*/
static int
-AliasCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Alias record. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+AliasCmd(
+ ClientData clientData, /* Alias record. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Alias *aliasPtr; /* Describes the alias. */
Tcl_CmdInfo cmdInfo; /* Info about target command. */
*/
static void
-AliasCmdDeleteProc(clientData)
- ClientData clientData; /* The alias record for this alias. */
+AliasCmdDeleteProc(
+ ClientData clientData /* The alias record for this alias. */
+)
{
Alias *aliasPtr; /* Alias record for alias to delete. */
Target *targetPtr; /* Record for target of this alias. */
*/
static void
-MasterRecordDeleteProc(clientData, interp)
- ClientData clientData; /* Master record for deleted interp. */
- Tcl_Interp *interp; /* Interpreter being deleted. */
+MasterRecordDeleteProc(
+ ClientData clientData, /* Master record for deleted interp. */
+ Tcl_Interp *interp /* Interpreter being deleted. */
+)
{
Target *targetPtr; /* Loop variable. */
Tcl_HashEntry *hPtr; /* Search element. */
*/
static void
-SlaveRecordDeleteProc(clientData, interp)
- ClientData clientData; /* Slave record for deleted interp. */
- Tcl_Interp *interp; /* Interpreter being deleted. */
+SlaveRecordDeleteProc(
+ ClientData clientData, /* Slave record for deleted interp. */
+ Tcl_Interp *interp /* Interpreter being deleted. */
+)
{
Slave *slavePtr; /* Interim storage. */
Alias *aliasPtr;
*/
int
-TclInterpInit(interp)
- Tcl_Interp *interp; /* Interpreter to initialize. */
+TclInterpInit(
+ Tcl_Interp *interp /* Interpreter to initialize. */
+)
{
Master *masterPtr; /* Its Master record. */
*/
int
-Tcl_IsSafe(interp)
- Tcl_Interp *interp; /* Is this interpreter "safe" ? */
+Tcl_IsSafe(
+ Tcl_Interp *interp /* Is this interpreter "safe" ? */
+)
{
Master *masterPtr; /* Its master record. */
*/
int
-Tcl_MakeSafe(interp)
- Tcl_Interp *interp; /* Make this interpreter "safe". */
+Tcl_MakeSafe(
+ Tcl_Interp *interp /* Make this interpreter "safe". */
+)
{
if (interp == (Tcl_Interp *) NULL) {
return TCL_ERROR;
*/
Tcl_Interp *
-Tcl_CreateSlave(interp, slavePath, isSafe)
- Tcl_Interp *interp; /* Interpreter to start search at. */
- char *slavePath; /* Name of slave to create. */
- int isSafe; /* Should new slave be "safe" ? */
+Tcl_CreateSlave(
+ Tcl_Interp *interp, /* Interpreter to start search at. */
+ char *slavePath, /* Name of slave to create. */
+ int isSafe /* Should new slave be "safe" ? */
+)
{
if ((interp == (Tcl_Interp *) NULL) || (slavePath == (char *) NULL)) {
return NULL;
*/
Tcl_Interp *
-Tcl_GetSlave(interp, slavePath)
- Tcl_Interp *interp; /* Interpreter to start search from. */
- char *slavePath; /* Path of slave to find. */
+Tcl_GetSlave(
+ Tcl_Interp *interp, /* Interpreter to start search from. */
+ char *slavePath /* Path of slave to find. */
+)
{
Master *masterPtr; /* Interim storage for Master record. */
*/
Tcl_Interp *
-Tcl_GetMaster(interp)
- Tcl_Interp *interp; /* Get the master of this interpreter. */
+Tcl_GetMaster(
+ Tcl_Interp *interp /* Get the master of this interpreter. */
+)
{
Slave *slavePtr; /* Slave record of this interpreter. */
*/
int
-Tcl_CreateAlias(slaveInterp, slaveCmd, targetInterp, targetCmd, argc, argv)
- Tcl_Interp *slaveInterp; /* Interpreter for source command. */
- char *slaveCmd; /* Command to install in slave. */
- Tcl_Interp *targetInterp; /* Interpreter for target command. */
- char *targetCmd; /* Name of target command. */
- int argc; /* How many additional arguments? */
- char **argv; /* These are the additional args. */
+Tcl_CreateAlias(
+ Tcl_Interp *slaveInterp, /* Interpreter for source command. */
+ char *slaveCmd, /* Command to install in slave. */
+ Tcl_Interp *targetInterp, /* Interpreter for target command. */
+ char *targetCmd, /* Name of target command. */
+ int argc, /* How many additional arguments? */
+ char **argv /* These are the additional args. */
+)
{
Master *masterPtr; /* Master record for target interp. */
*/
int
-Tcl_GetAlias(interp, aliasName, targetInterpPtr, targetNamePtr, argcPtr,
- argvPtr)
- Tcl_Interp *interp; /* Interp to start search from. */
- char *aliasName; /* Name of alias to find. */
- Tcl_Interp **targetInterpPtr; /* (Return) target interpreter. */
- char **targetNamePtr; /* (Return) name of target command. */
- int *argcPtr; /* (Return) count of addnl args. */
- char ***argvPtr; /* (Return) additional arguments. */
+Tcl_GetAlias(
+ Tcl_Interp *interp, /* Interp to start search from. */
+ char *aliasName, /* Name of alias to find. */
+ Tcl_Interp **targetInterpPtr, /* (Return) target interpreter. */
+ char **targetNamePtr, /* (Return) name of target command. */
+ int *argcPtr, /* (Return) count of addnl args. */
+ char ***argvPtr /* (Return) additional arguments. */
+)
{
Slave *slavePtr; /* Slave record for slave interp. */
Tcl_HashEntry *hPtr; /* Search element. */
*/
int
-Tcl_LinkVar(interp, varName, addr, type)
- Tcl_Interp *interp; /* Interpreter in which varName exists. */
- char *varName; /* Name of a global variable in interp. */
- char *addr; /* Address of a C variable to be linked
+Tcl_LinkVar(
+ Tcl_Interp *interp, /* Interpreter in which varName exists. */
+ char *varName, /* Name of a global variable in interp. */
+ char *addr, /* Address of a C variable to be linked
* to varName. */
- int type; /* Type of C variable: TCL_LINK_INT, etc.
+ int type /* Type of C variable: TCL_LINK_INT, etc.
* Also may have TCL_LINK_READ_ONLY
* OR'ed in. */
+)
{
Link *linkPtr;
char buffer[TCL_DOUBLE_SPACE];
*/
void
-Tcl_UnlinkVar(interp, varName)
- Tcl_Interp *interp; /* Interpreter containing variable to unlink. */
- char *varName; /* Global variable in interp to unlink. */
+Tcl_UnlinkVar(
+ Tcl_Interp *interp, /* Interpreter containing variable to unlink. */
+ char *varName /* Global variable in interp to unlink. */
+)
{
Link *linkPtr;
*/
void
-Tcl_UpdateLinkedVar(interp, varName)
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *varName; /* Name of global variable that is linked. */
+Tcl_UpdateLinkedVar(
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *varName /* Name of global variable that is linked. */
+)
{
Link *linkPtr;
char buffer[TCL_DOUBLE_SPACE];
*/
static char *
-LinkTraceProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Contains information about the link. */
- Tcl_Interp *interp; /* Interpreter containing Tcl variable. */
- char *name1; /* First part of variable name. */
- char *name2; /* Second part of variable name. */
- int flags; /* Miscellaneous additional information. */
+LinkTraceProc(
+ ClientData clientData, /* Contains information about the link. */
+ Tcl_Interp *interp, /* Interpreter containing Tcl variable. */
+ char *name1, /* First part of variable name. */
+ char *name2, /* Second part of variable name. */
+ int flags /* Miscellaneous additional information. */
+)
{
Link *linkPtr = (Link *) clientData;
int changed;
*/
static char *
-StringValue(linkPtr, buffer)
- Link *linkPtr; /* Structure describing linked variable. */
- char *buffer; /* Small buffer to use for converting
+StringValue(
+ Link *linkPtr, /* Structure describing linked variable. */
+ char *buffer /* Small buffer to use for converting
* values. Must have TCL_DOUBLE_SPACE
* bytes or more. */
+)
{
char *p;
*/
int
-Tcl_LoadCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_LoadCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Interp *target;
LoadedPackage *pkgPtr;
*/
void
-Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc)
- Tcl_Interp *interp; /* If not NULL, it means that the
+Tcl_StaticPackage(
+ Tcl_Interp *interp, /* If not NULL, it means that the
* package has already been loaded
* into the given interpreter by
* calling the appropriate init proc. */
- char *pkgName; /* Name of package (must be properly
+ char *pkgName, /* Name of package (must be properly
* capitalized: first letter upper
* case, others lower case). */
- Tcl_PackageInitProc *initProc; /* Procedure to call to incorporate
+ Tcl_PackageInitProc *initProc, /* Procedure to call to incorporate
* this package into a trusted
* interpreter. */
- Tcl_PackageInitProc *safeInitProc; /* Procedure to call to incorporate
+ Tcl_PackageInitProc *safeInitProc /* Procedure to call to incorporate
* this package into a safe interpreter
* (one that will execute untrusted
* scripts). NULL means the package
* can't be used in safe
* interpreters. */
+)
{
LoadedPackage *pkgPtr;
InterpPackage *ipPtr, *ipFirstPtr;
*/
int
-TclGetLoadedPackages(interp, targetName)
- Tcl_Interp *interp; /* Interpreter in which to return
+TclGetLoadedPackages(
+ Tcl_Interp *interp, /* Interpreter in which to return
* information or error message. */
- char *targetName; /* Name of target interpreter or NULL.
+ char *targetName /* Name of target interpreter or NULL.
* If NULL, return info about all interps;
* otherwise, just return info about this
* interpreter. */
+)
{
Tcl_Interp *target;
LoadedPackage *pkgPtr;
*/
static void
-LoadCleanupProc(clientData, interp)
- ClientData clientData; /* Pointer to first InterpPackage structure
+LoadCleanupProc(
+ ClientData clientData, /* Pointer to first InterpPackage structure
* for interp. */
- Tcl_Interp *interp; /* Interpreter that is being deleted. */
+ Tcl_Interp *interp /* Interpreter that is being deleted. */
+)
{
InterpPackage *ipPtr, *nextPtr;
*/
static void
-LoadExitProc(clientData)
- ClientData clientData; /* Not used. */
+LoadExitProc(
+ ClientData clientData /* Not used. */
+)
{
LoadedPackage *pkgPtr;
*/
int
-TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr)
- Tcl_Interp *interp; /* Used for error reporting. */
- char *fileName; /* Name of the file containing the desired
+TclLoadFile(
+ Tcl_Interp *interp, /* Used for error reporting. */
+ char *fileName, /* Name of the file containing the desired
* code. */
- char *sym1, *sym2; /* Names of two procedures to look up in
+ char *sym1, char *sym2, /* Names of two procedures to look up in
* the file's symbol table. */
- Tcl_PackageInitProc **proc1Ptr, **proc2Ptr;
+ Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc2Ptr
/* Where to return the addresses corresponding
* to sym1 and sym2. */
+)
{
interp->result =
"dynamic loading is not currently available on this system";
*/
int
-TclGuessPackageName(fileName, bufPtr)
- char *fileName; /* Name of file containing package (already
+TclGuessPackageName(
+ char *fileName, /* Name of file containing package (already
* translated to local form if needed). */
- Tcl_DString *bufPtr; /* Initialized empty dstring. Append
+ Tcl_DString *bufPtr /* Initialized empty dstring. Append
* package name to this if possible. */
+)
{
return 0;
}
*/
void
-Tcl_Main(argc, argv, appInitProc)
- int argc; /* Number of arguments. */
- char **argv; /* Array of argument strings. */
- Tcl_AppInitProc *appInitProc; /* Application-specific initialization
+Tcl_Main(
+ int argc, /* Number of arguments. */
+ char **argv, /* Array of argument strings. */
+ Tcl_AppInitProc *appInitProc /* Application-specific initialization
* procedure to call after most
* initialization but before starting
* to execute commands. */
+)
{
char buffer[1000], *cmd, *args, *fileName;
int code, gotPartial, tty, length;
/* ARGSUSED */
static int
-CheckmemCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Interpreter for evaluation. */
- int argc; /* Number of arguments. */
- char *argv[]; /* String values of arguments. */
+CheckmemCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Interpreter for evaluation. */
+ int argc, /* Number of arguments. */
+ char *argv[] /* String values of arguments. */
+)
{
extern char *tclMemDumpFileName;
if (argc != 2) {
*/
void
-Tcl_CreateEventSource(setupProc, checkProc, clientData)
- Tcl_EventSetupProc *setupProc; /* Procedure to invoke to figure out
+Tcl_CreateEventSource(
+ Tcl_EventSetupProc *setupProc, /* Procedure to invoke to figure out
* what to wait for. */
- Tcl_EventCheckProc *checkProc; /* Procedure to call after waiting
+ Tcl_EventCheckProc *checkProc, /* Procedure to call after waiting
* to see what happened. */
- ClientData clientData; /* One-word argument to pass to
+ ClientData clientData /* One-word argument to pass to
* setupProc and checkProc. */
+)
{
TclEventSource *sourcePtr;
*/
void
-Tcl_DeleteEventSource(setupProc, checkProc, clientData)
- Tcl_EventSetupProc *setupProc; /* Procedure to invoke to figure out
+Tcl_DeleteEventSource(
+ Tcl_EventSetupProc *setupProc, /* Procedure to invoke to figure out
* what to wait for. */
- Tcl_EventCheckProc *checkProc; /* Procedure to call after waiting
+ Tcl_EventCheckProc *checkProc, /* Procedure to call after waiting
* to see what happened. */
- ClientData clientData; /* One-word argument to pass to
+ ClientData clientData /* One-word argument to pass to
* setupProc and checkProc. */
+)
{
TclEventSource *sourcePtr, *prevPtr;
*/
void
-Tcl_QueueEvent(evPtr, position)
- Tcl_Event* evPtr; /* Event to add to queue. The storage
+Tcl_QueueEvent(
+ Tcl_Event* evPtr, /* Event to add to queue. The storage
* space must have been allocated the caller
* with malloc (ckalloc), and it becomes
* the property of the event queue. It
* will be freed after the event has been
* handled. */
- Tcl_QueuePosition position; /* One of TCL_QUEUE_TAIL, TCL_QUEUE_HEAD,
+ Tcl_QueuePosition position /* One of TCL_QUEUE_TAIL, TCL_QUEUE_HEAD,
* TCL_QUEUE_MARK. */
+)
{
if (position == TCL_QUEUE_TAIL) {
/*
*/
void
-Tcl_DeleteEvents(proc, clientData)
- Tcl_EventDeleteProc *proc; /* The procedure to call. */
- ClientData clientData; /* type-specific data. */
+Tcl_DeleteEvents(
+ Tcl_EventDeleteProc *proc, /* The procedure to call. */
+ ClientData clientData /* type-specific data. */
+)
{
Tcl_Event *evPtr, *prevPtr, *hold;
*/
static int
-ServiceEvent(flags)
- int flags; /* Indicates what events should be processed.
+ServiceEvent(
+ int flags /* Indicates what events should be processed.
* May be any combination of TCL_WINDOW_EVENTS
* TCL_FILE_EVENTS, TCL_TIMER_EVENTS, or other
* flags defined elsewhere. Events not
* matching this will be skipped for processing
* later. */
+)
{
Tcl_Event *evPtr, *prevPtr;
Tcl_EventProc *proc;
*/
void
-Tcl_SetMaxBlockTime(timePtr)
- Tcl_Time *timePtr; /* Specifies a maximum elapsed time for
+Tcl_SetMaxBlockTime(
+ Tcl_Time *timePtr /* Specifies a maximum elapsed time for
* the next blocking operation in the
* event notifier. */
+)
{
if (!blockTimeSet || (timePtr->sec < blockTime.sec)
|| ((timePtr->sec == blockTime.sec)
*/
int
-Tcl_DoOneEvent(flags)
- int flags; /* Miscellaneous flag values: may be any
+Tcl_DoOneEvent(
+ int flags /* Miscellaneous flag values: may be any
* combination of TCL_DONT_WAIT,
* TCL_WINDOW_EVENTS, TCL_FILE_EVENTS,
* TCL_TIMER_EVENTS, TCL_IDLE_EVENTS, or
* others defined by event sources. */
+)
{
TclEventSource *sourcePtr;
Tcl_Time *timePtr;
*/
char
-Tcl_Backslash(src, readPtr)
- char *src; /* Points to the backslash character of
+Tcl_Backslash(
+ char *src, /* Points to the backslash character of
* a backslash sequence. */
- int *readPtr; /* Fill in with number of characters read
+ int *readPtr /* Fill in with number of characters read
* from src, unless NULL. */
+)
{
register char *p = src+1;
char result;
*/
int
-TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr)
- Tcl_Interp *interp; /* Interpreter to use for nested command
+TclParseQuotes(
+ Tcl_Interp *interp, /* Interpreter to use for nested command
* evaluations and error messages. */
- char *string; /* Character just after opening double-
+ char *string, /* Character just after opening double-
* quote. */
- int termChar; /* Character that terminates "quoted" string
+ int termChar, /* Character that terminates "quoted" string
* (usually double-quote, but sometimes
* right-paren or something else). */
- int flags; /* Flags to pass to nested Tcl_Eval calls. */
- char **termPtr; /* Store address of terminating character
+ int flags, /* Flags to pass to nested Tcl_Eval calls. */
+ char **termPtr, /* Store address of terminating character
* here. */
- ParseValue *pvPtr; /* Information about where to place
+ ParseValue *pvPtr /* Information about where to place
* fully-substituted result of parse. */
+)
{
register char *src, *dst, c;
*/
int
-TclParseNestedCmd(interp, string, flags, termPtr, pvPtr)
- Tcl_Interp *interp; /* Interpreter to use for nested command
+TclParseNestedCmd(
+ Tcl_Interp *interp, /* Interpreter to use for nested command
* evaluations and error messages. */
- char *string; /* Character just after opening bracket. */
- int flags; /* Flags to pass to nested Tcl_Eval. */
- char **termPtr; /* Store address of terminating character
+ char *string, /* Character just after opening bracket. */
+ int flags, /* Flags to pass to nested Tcl_Eval. */
+ char **termPtr, /* Store address of terminating character
* here. */
- register ParseValue *pvPtr; /* Information about where to place
+ register ParseValue *pvPtr /* Information about where to place
* result of command. */
+)
{
int result, length, shortfall;
Interp *iPtr = (Interp *) interp;
*/
int
-TclParseBraces(interp, string, termPtr, pvPtr)
- Tcl_Interp *interp; /* Interpreter to use for nested command
+TclParseBraces(
+ Tcl_Interp *interp, /* Interpreter to use for nested command
* evaluations and error messages. */
- char *string; /* Character just after opening bracket. */
- char **termPtr; /* Store address of terminating character
- * here. */
- register ParseValue *pvPtr; /* Information about where to place
+ char *string, /* Character just after opening bracket. */
+ char **termPtr, /* Store address of terminating character
+ * here. */
+ register ParseValue *pvPtr /* Information about where to place
* result of command. */
+)
{
int level;
register char *src, *dst, *end;
*/
int
-TclParseWords(interp, string, flags, maxWords, termPtr, argcPtr, argv, pvPtr)
- Tcl_Interp *interp; /* Interpreter to use for nested command
+TclParseWords(
+ Tcl_Interp *interp, /* Interpreter to use for nested command
* evaluations and error messages. */
- char *string; /* First character of word. */
- int flags; /* Flags to control parsing (same values as
+ char *string, /* First character of word. */
+ int flags, /* Flags to control parsing (same values as
* passed to Tcl_Eval). */
- int maxWords; /* Maximum number of words to parse. */
- char **termPtr; /* Store address of terminating character
+ int maxWords, /* Maximum number of words to parse. */
+ char **termPtr, /* Store address of terminating character
* here. */
- int *argcPtr; /* Filled in with actual number of words
+ int *argcPtr, /* Filled in with actual number of words
* parsed. */
- char **argv; /* Store addresses of individual words here. */
- register ParseValue *pvPtr; /* Information about where to place
+ char **argv, /* Store addresses of individual words here. */
+ register ParseValue *pvPtr /* Information about where to place
* fully-substituted word. */
+)
{
register char *src, *dst;
register char c;
*/
void
-TclExpandParseValue(pvPtr, needed)
- register ParseValue *pvPtr; /* Information about buffer that
+TclExpandParseValue(
+ register ParseValue *pvPtr, /* Information about buffer that
* must be expanded. If the clientData
* in the structure is non-zero, it
* means that the current buffer is
* dynamically allocated. */
- int needed; /* Minimum amount of additional space
+ int needed /* Minimum amount of additional space
* to allocate. */
+)
{
int newSpace;
char *new;
*/
char *
-TclWordEnd(start, nested, semiPtr)
- char *start; /* Beginning of a word of a Tcl command. */
- int nested; /* Zero means this is a top-level command.
+TclWordEnd(
+ char *start, /* Beginning of a word of a Tcl command. */
+ int nested, /* Zero means this is a top-level command.
* One means this is a nested command (close
* bracket is a word terminator). */
- int *semiPtr; /* Set to 1 if word ends with a command-
+ int *semiPtr /* Set to 1 if word ends with a command-
* terminating semi-colon, zero otherwise.
* If NULL then ignored. */
+)
{
register char *p;
int count;
*/
static char *
-QuoteEnd(string, term)
- char *string; /* Pointer to character just after opening
+QuoteEnd(
+ char *string, /* Pointer to character just after opening
* "quote". */
- int term; /* This character will terminate the
+ int term /* This character will terminate the
* quoted string (e.g. '"' or ')'). */
+)
{
register char *p = string;
int count;
*/
static char *
-VarNameEnd(string)
- char *string; /* Pointer to dollar-sign character. */
+VarNameEnd(
+ char *string /* Pointer to dollar-sign character. */
+)
{
register char *p = string+1;
*/
static char *
-ScriptEnd(p, nested)
- char *p; /* Script to check. */
- int nested; /* Zero means this is a top-level command.
+ScriptEnd(
+ char *p, /* Script to check. */
+ int nested /* Zero means this is a top-level command.
* One means this is a nested command (the
* last character of the script must be
* an unquoted ]). */
+)
{
int commentOK = 1;
int length;
*/
char *
-Tcl_ParseVar(interp, string, termPtr)
- Tcl_Interp *interp; /* Context for looking up variable. */
- register char *string; /* String containing variable name.
+Tcl_ParseVar(
+ Tcl_Interp *interp, /* Context for looking up variable. */
+ register char *string, /* String containing variable name.
* First character must be "$". */
- char **termPtr; /* If non-NULL, points to word to fill
+ char **termPtr /* If non-NULL, points to word to fill
* in with character just after last
* one in the variable specifier. */
-
+)
{
char *name1, *name1End, c, *result;
register char *name2;
*/
int
-Tcl_CommandComplete(cmd)
- char *cmd; /* Command to check. */
+Tcl_CommandComplete(
+ char *cmd /* Command to check. */
+)
{
char *p;
*/
int
-Tcl_PkgProvide(interp, name, version)
- Tcl_Interp *interp; /* Interpreter in which package is now
+Tcl_PkgProvide(
+ Tcl_Interp *interp, /* Interpreter in which package is now
* available. */
- char *name; /* Name of package. */
- char *version; /* Version string for package. */
+ char *name, /* Name of package. */
+ char *version /* Version string for package. */
+)
{
Package *pkgPtr;
*/
char *
-Tcl_PkgRequire(interp, name, version, exact)
- Tcl_Interp *interp; /* Interpreter in which package is now
+Tcl_PkgRequire(
+ Tcl_Interp *interp, /* Interpreter in which package is now
* available. */
- char *name; /* Name of desired package. */
- char *version; /* Version string for desired version;
+ char *name, /* Name of desired package. */
+ char *version, /* Version string for desired version;
* NULL means use the latest version
* available. */
- int exact; /* Non-zero means that only the particular
+ int exact /* Non-zero means that only the particular
* version given is acceptable. Zero means
* use the latest compatible version. */
+)
{
Package *pkgPtr;
PkgAvail *availPtr, *bestPtr;
/* ARGSUSED */
int
-Tcl_PackageCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_PackageCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Interp *iPtr = (Interp *) interp;
size_t length;
*/
static Package *
-FindPackage(interp, name)
- Tcl_Interp *interp; /* Interpreter to use for package lookup. */
- char *name; /* Name of package to fine. */
+FindPackage(
+ Tcl_Interp *interp, /* Interpreter to use for package lookup. */
+ char *name /* Name of package to fine. */
+)
{
Interp *iPtr = (Interp *) interp;
Tcl_HashEntry *hPtr;
*/
void
-TclFreePackageInfo(iPtr)
- Interp *iPtr; /* Interpereter that is being deleted. */
+TclFreePackageInfo(
+ Interp *iPtr /* Interpereter that is being deleted. */
+)
{
Package *pkgPtr;
Tcl_HashSearch search;
*/
static int
-CheckVersion(interp, string)
- Tcl_Interp *interp; /* Used for error reporting. */
- char *string; /* Supposedly a version number, which is
+CheckVersion(
+ Tcl_Interp *interp, /* Used for error reporting. */
+ char *string /* Supposedly a version number, which is
* groups of decimal digits separated
* by dots. */
+)
{
char *p = string;
*/
static int
-ComparePkgVersions(v1, v2, satPtr)
- char *v1, *v2; /* Versions strings, of form 2.1.3 (any
+ComparePkgVersions(
+ char *v1, char *v2, /* Versions strings, of form 2.1.3 (any
* number of version numbers). */
- int *satPtr; /* If non-null, the word pointed to is
+ int *satPtr /* If non-null, the word pointed to is
* filled in with a 0/1 value. 1 means
* v1 "satisfies" v2: v1 is greater than
* or equal to v2 and both version numbers
* have the same major number. */
+)
{
int thisIsMajor, n1, n2;
*/
char *
-Tcl_ErrnoId()
+Tcl_ErrnoId(void)
{
switch (errno) {
#ifdef E2BIG
*/
char *
-Tcl_ErrnoMsg(err)
- int err; /* Error number (such as in errno variable). */
+Tcl_ErrnoMsg(
+ int err /* Error number (such as in errno variable). */
+)
{
switch (err) {
#ifdef E2BIG
*/
char *
-Tcl_SignalId(sig)
- int sig; /* Number of signal. */
+Tcl_SignalId(
+ int sig /* Number of signal. */
+)
{
switch (sig) {
#ifdef SIGABRT
*/
char *
-Tcl_SignalMsg(sig)
- int sig; /* Number of signal. */
+Tcl_SignalMsg(
+ int sig /* Number of signal. */
+)
{
switch (sig) {
#ifdef SIGABRT
/* ARGSUSED */
static void
-PreserveExitProc(clientData)
- ClientData clientData; /* NULL -Unused. */
+PreserveExitProc(
+ ClientData clientData /* NULL -Unused. */
+)
{
if (spaceAvl != 0) {
ckfree((char *) refArray);
*/
void
-Tcl_Preserve(clientData)
- ClientData clientData; /* Pointer to malloc'ed block of memory. */
+Tcl_Preserve(
+ ClientData clientData /* Pointer to malloc'ed block of memory. */
+)
{
Reference *refPtr;
int i;
*/
void
-Tcl_Release(clientData)
- ClientData clientData; /* Pointer to malloc'ed block of memory. */
+Tcl_Release(
+ ClientData clientData /* Pointer to malloc'ed block of memory. */
+)
{
Reference *refPtr;
int mustFree;
*/
void
-Tcl_EventuallyFree(clientData, freeProc)
- ClientData clientData; /* Pointer to malloc'ed block of memory. */
- Tcl_FreeProc *freeProc; /* Procedure to actually do free. */
+Tcl_EventuallyFree(
+ ClientData clientData, /* Pointer to malloc'ed block of memory. */
+ Tcl_FreeProc *freeProc /* Procedure to actually do free. */
+)
{
Reference *refPtr;
int i;
/* 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;
*/
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;
/* 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;
*/
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;
*/
Proc *
-TclIsProc(cmdPtr)
- Command *cmdPtr; /* Command to test. */
+TclIsProc(
+ Command *cmdPtr /* Command to test. */
+)
{
if (cmdPtr->proc == InterpProc) {
return (Proc *) cmdPtr->clientData;
*/
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;
*/
static void
-ProcDeleteProc(clientData)
- ClientData clientData; /* Procedure to be deleted. */
+ProcDeleteProc(
+ ClientData clientData /* Procedure to be deleted. */
+)
{
Proc *procPtr = (Proc *) clientData;
*/
static void
-CleanupProc(procPtr)
- register Proc *procPtr; /* Procedure to be deleted. */
+CleanupProc(
+ register Proc *procPtr /* Procedure to be deleted. */
+)
{
register Arg *argPtr;
*/
int
-TclUpdateReturnInfo(iPtr)
- Interp *iPtr; /* Interpreter for which TCL_RETURN
+TclUpdateReturnInfo(
+ Interp *iPtr /* Interpreter for which TCL_RETURN
* exception is being processed. */
+)
{
int code;
/* ARGSUSED */
static int
-CommonBlockModeProc(instanceData, inFile, outFile, mode)
- ClientData instanceData; /* Unused. */
- Tcl_File inFile, outFile; /* Input, output files for channel. */
- int mode; /* The mode to set. Can be one of
+CommonBlockModeProc(
+ ClientData instanceData, /* Unused. */
+ Tcl_File inFile, Tcl_File outFile, /* Input, output files for channel. */
+ int mode /* The mode to set. Can be one of
* TCL_MODE_BLOCKING or
* TCL_MODE_NONBLOCKING. */
+)
{
int curStatus;
int fd;
/* ARGSUSED */
static int
-FilePipeInputProc(instanceData, inFile, buf, toRead, errorCodePtr)
- ClientData instanceData; /* Unused. */
- Tcl_File inFile; /* Input device for channel. */
- char *buf; /* Where to store data read. */
- int toRead; /* How much space is available
+FilePipeInputProc(
+ ClientData instanceData, /* Unused. */
+ Tcl_File inFile, /* Input device for channel. */
+ char *buf, /* Where to store data read. */
+ int toRead, /* How much space is available
* in the buffer? */
- int *errorCodePtr; /* Where to store error code. */
+ int *errorCodePtr /* Where to store error code. */
+)
{
int fd; /* The OS handle for reading. */
int bytesRead; /* How many bytes were actually
/* ARGSUSED */
static int
-FilePipeOutputProc(instanceData, outFile, buf, toWrite, errorCodePtr)
- ClientData instanceData; /* Unused. */
- Tcl_File outFile; /* Output device for channel. */
- char *buf; /* The data buffer. */
- int toWrite; /* How many bytes to write? */
- int *errorCodePtr; /* Where to store error code. */
+FilePipeOutputProc(
+ ClientData instanceData, /* Unused. */
+ Tcl_File outFile, /* Output device for channel. */
+ char *buf, /* The data buffer. */
+ int toWrite, /* How many bytes to write? */
+ int *errorCodePtr /* Where to store error code. */
+)
{
int written;
int fd;
/* ARGSUSED */
static int
-FileCloseProc(instanceData, interp, inFile, outFile)
- ClientData instanceData; /* Unused. */
- Tcl_Interp *interp; /* For error reporting - unused. */
- Tcl_File inFile; /* Input file to close. */
- Tcl_File outFile; /* Output file to close. */
+FileCloseProc(
+ ClientData instanceData, /* Unused. */
+ Tcl_Interp *interp, /* For error reporting - unused. */
+ Tcl_File inFile, /* Input file to close. */
+ Tcl_File outFile /* Output file to close. */
+)
{
int fd, errorCode = 0;
/* ARGSUSED */
static int
-FileSeekProc(instanceData, inFile, outFile, offset, mode, errorCodePtr)
- ClientData instanceData; /* Unused. */
- Tcl_File inFile, outFile; /* Input and output
+FileSeekProc(
+ ClientData instanceData, /* Unused. */
+ Tcl_File inFile, Tcl_File outFile, /* Input and output
* files for channel. */
- long offset; /* Offset to seek to. */
- int mode; /* Relative to where
+ long offset, /* Offset to seek to. */
+ int mode, /* Relative to where
* should we seek? Can be
* one of SEEK_START,
* SEEK_SET or SEEK_END. */
- int *errorCodePtr; /* To store error code. */
+ int *errorCodePtr /* To store error code. */
+)
{
int newLoc;
int fd;
*/
void
-TclGetAndDetachPids(interp, chan)
- Tcl_Interp *interp;
- Tcl_Channel chan;
+TclGetAndDetachPids(
+ Tcl_Interp *interp,
+ Tcl_Channel chan
+)
{
PipeState *pipePtr;
Tcl_ChannelType *chanTypePtr;
/* ARGSUSED */
static int
-PipeCloseProc(instanceData, interp, inFile, outFile)
- ClientData instanceData; /* The pipe to close. */
- Tcl_Interp *interp; /* For error reporting. */
- Tcl_File inFile, outFile; /* Unused. */
+PipeCloseProc(
+ ClientData instanceData, /* The pipe to close. */
+ Tcl_Interp *interp, /* For error reporting. */
+ Tcl_File inFile, Tcl_File outFile /* Unused. */
+)
{
PipeState *pipePtr;
Tcl_Channel errChan;
*/
Tcl_Channel
-Tcl_OpenFileChannel(interp, fileName, modeString, permissions)
- Tcl_Interp *interp; /* Interpreter for error reporting;
+Tcl_OpenFileChannel(
+ Tcl_Interp *interp, /* Interpreter for error reporting;
* can be NULL. */
- char *fileName; /* Name of file to open. */
- char *modeString; /* A list of POSIX open modes or
+ char *fileName, /* Name of file to open. */
+ char *modeString, /* A list of POSIX open modes or
* a string such as "rw". */
- int permissions; /* If the open involves creating a
+ int permissions /* If the open involves creating a
* file, with what modes to create
* it? */
+)
{
int fd, seekFlag, mode, channelPermissions;
Tcl_File file;
*/
Tcl_Channel
-Tcl_MakeFileChannel(inFd, outFd, mode)
- ClientData inFd; /* OS level handle used for input. */
- ClientData outFd; /* OS level handle used for output. */
- int mode; /* ORed combination of TCL_READABLE and
+Tcl_MakeFileChannel(
+ ClientData inFd, /* OS level handle used for input. */
+ ClientData outFd, /* OS level handle used for output. */
+ int mode /* ORed combination of TCL_READABLE and
* TCL_WRITABLE to indicate whether inFile
* and/or outFile are valid. */
+)
{
Tcl_File inFile, outFile;
char channelName[20];
*/
Tcl_Channel
-TclCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr)
- Tcl_File readFile; /* If non-null, gives the file for reading. */
- Tcl_File writeFile; /* If non-null, gives the file for writing. */
- Tcl_File errorFile; /* If non-null, gives the file where errors
+TclCreateCommandChannel(
+ Tcl_File readFile, /* If non-null, gives the file for reading. */
+ Tcl_File writeFile, /* If non-null, gives the file for writing. */
+ Tcl_File errorFile, /* If non-null, gives the file where errors
* can be read. */
- int numPids; /* The number of pids in the pid array. */
- pid_t *pidPtr; /* An array of process identifiers.
+ int numPids, /* The number of pids in the pid array. */
+ pid_t *pidPtr /* An array of process identifiers.
* Allocated by the caller, freed when
* the channel is closed or the processes
* are detached (in a background exec). */
+)
{
Tcl_Channel channel;
char channelName[20];
/* ARGSUSED */
int
-Tcl_PidCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_PidCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_Channel chan; /* The channel to get pids for. */
Tcl_ChannelType *chanTypePtr; /* The type of that channel. */
/* ARGSUSED */
static int
-TcpBlockModeProc(instanceData, inFile, outFile, mode)
- ClientData instanceData; /* Socket state. */
- Tcl_File inFile, outFile; /* Input, output files for channel. */
- int mode; /* The mode to set. Can be one of
+TcpBlockModeProc(
+ ClientData instanceData, /* Socket state. */
+ Tcl_File inFile, Tcl_File outFile, /* Input, output files for channel. */
+ int mode /* The mode to set. Can be one of
* TCL_MODE_BLOCKING or
* TCL_MODE_NONBLOCKING. */
+)
{
TcpState *statePtr;
*/
static int
-WaitForConnect(statePtr, fileToWaitFor, errorCodePtr)
- TcpState *statePtr; /* State of the socket. */
- Tcl_File fileToWaitFor; /* File to wait on to become connected. */
- int *errorCodePtr; /* Where to store errors? */
+WaitForConnect(
+ TcpState *statePtr, /* State of the socket. */
+ Tcl_File fileToWaitFor, /* File to wait on to become connected. */
+ int *errorCodePtr /* Where to store errors? */
+)
{
int sock; /* The socket itself. */
int timeOut; /* How long to wait. */
/* ARGSUSED */
static int
-TcpInputProc(instanceData, inFile, buf, bufSize, errorCodePtr)
- ClientData instanceData; /* Socket state. */
- Tcl_File inFile; /* Input device for channel. */
- char *buf; /* Where to store data read. */
- int bufSize; /* How much space is available
+TcpInputProc(
+ ClientData instanceData, /* Socket state. */
+ Tcl_File inFile, /* Input device for channel. */
+ char *buf, /* Where to store data read. */
+ int bufSize, /* How much space is available
* in the buffer? */
- int *errorCodePtr; /* Where to store error code. */
+ int *errorCodePtr /* Where to store error code. */
+)
{
TcpState *statePtr; /* The state of the socket. */
int sock; /* The OS handle. */
*/
static int
-TcpOutputProc(instanceData, outFile, buf, toWrite, errorCodePtr)
- ClientData instanceData; /* Socket state. */
- Tcl_File outFile; /* Output device for channel. */
- char *buf; /* The data buffer. */
- int toWrite; /* How many bytes to write? */
- int *errorCodePtr; /* Where to store error code. */
+TcpOutputProc(
+ ClientData instanceData, /* Socket state. */
+ Tcl_File outFile, /* Output device for channel. */
+ char *buf, /* The data buffer. */
+ int toWrite, /* How many bytes to write? */
+ int *errorCodePtr /* Where to store error code. */
+)
{
TcpState *statePtr;
int written;
/* ARGSUSED */
static int
-TcpCloseProc(instanceData, interp, inFile, outFile)
- ClientData instanceData; /* The socket to close. */
- Tcl_Interp *interp; /* For error reporting - unused. */
- Tcl_File inFile, outFile; /* Unused. */
+TcpCloseProc(
+ ClientData instanceData, /* The socket to close. */
+ Tcl_Interp *interp, /* For error reporting - unused. */
+ Tcl_File inFile, Tcl_File outFile /* Unused. */
+)
{
TcpState *statePtr;
Tcl_File sockFile;
*/
static int
-TcpGetOptionProc(instanceData, optionName, dsPtr)
- ClientData instanceData; /* Socket state. */
- char *optionName; /* Name of the option to
+TcpGetOptionProc(
+ ClientData instanceData, /* Socket state. */
+ char *optionName, /* Name of the option to
* retrieve the value for, or
* NULL to get all options and
* their values. */
- Tcl_DString *dsPtr; /* Where to store the computed
+ Tcl_DString *dsPtr /* Where to store the computed
* value; initialized by caller. */
+)
{
TcpState *statePtr;
struct sockaddr_in sockname;
*/
static TcpState *
-CreateSocket(interp, port, host, server, myaddr, myport, async)
- Tcl_Interp *interp; /* For error reporting; can be NULL. */
- int port; /* Port number to open. */
- char *host; /* Name of host on which to open port.
+CreateSocket(
+ Tcl_Interp *interp, /* For error reporting; can be NULL. */
+ int port, /* Port number to open. */
+ char *host, /* Name of host on which to open port.
* NULL implies INADDR_ANY */
- int server; /* 1 if socket should be a server socket,
+ int server, /* 1 if socket should be a server socket,
* else 0 for a client socket. */
- char *myaddr; /* Optional client-side address */
- int myport; /* Optional client-side port */
- int async; /* If nonzero and creating a client socket,
+ char *myaddr, /* Optional client-side address */
+ int myport, /* Optional client-side port */
+ int async /* If nonzero and creating a client socket,
* attempt to do an async connect. Otherwise
* do a synchronous connect or bind. */
+)
{
int status, sock, asyncConnect, curState, origState;
struct sockaddr_in sockaddr; /* socket address */
*/
static int
-CreateSocketAddress(sockaddrPtr, host, port)
- struct sockaddr_in *sockaddrPtr; /* Socket address */
- char *host; /* Host. NULL implies INADDR_ANY */
- int port; /* Port number */
+CreateSocketAddress(
+ struct sockaddr_in *sockaddrPtr, /* Socket address */
+ char *host, /* Host. NULL implies INADDR_ANY */
+ int port /* Port number */
+)
{
struct hostent *hostent; /* Host database entry */
struct in_addr addr; /* For 64/32 bit madness */
*/
Tcl_Channel
-Tcl_OpenTcpClient(interp, port, host, myaddr, myport, async)
- Tcl_Interp *interp; /* For error reporting; can be NULL. */
- int port; /* Port number to open. */
- char *host; /* Host on which to open port. */
- char *myaddr; /* Client-side address */
- int myport; /* Client-side port */
- int async; /* If nonzero, attempt to do an
+Tcl_OpenTcpClient(
+ Tcl_Interp *interp, /* For error reporting; can be NULL. */
+ int port, /* Port number to open. */
+ char *host, /* Host on which to open port. */
+ char *myaddr, /* Client-side address */
+ int myport, /* Client-side port */
+ int async /* If nonzero, attempt to do an
* asynchronous connect. Otherwise
* we do a blocking connect. */
+)
{
Tcl_Channel chan;
TcpState *statePtr;
*/
Tcl_Channel
-Tcl_MakeTcpClientChannel(sock)
- ClientData sock; /* The socket to wrap up into a channel. */
+Tcl_MakeTcpClientChannel(
+ ClientData sock /* The socket to wrap up into a channel. */
+)
{
TcpState *statePtr;
Tcl_File sockFile;
*/
Tcl_Channel
-Tcl_OpenTcpServer(interp, port, myHost, acceptProc, acceptProcData)
- Tcl_Interp *interp; /* For error reporting - may be
+Tcl_OpenTcpServer(
+ Tcl_Interp *interp, /* For error reporting - may be
* NULL. */
- int port; /* Port number to open. */
- char *myHost; /* Name of local host. */
- Tcl_TcpAcceptProc *acceptProc; /* Callback for accepting connections
+ int port, /* Port number to open. */
+ char *myHost, /* Name of local host. */
+ Tcl_TcpAcceptProc *acceptProc, /* Callback for accepting connections
* from new clients. */
- ClientData acceptProcData; /* Data for the callback. */
+ ClientData acceptProcData /* Data for the callback. */
+)
{
Tcl_Channel chan;
TcpState *statePtr;
/* ARGSUSED */
static void
-TcpAccept(data, mask)
- ClientData data; /* Callback token. */
- int mask; /* Not used. */
+TcpAccept(
+ ClientData data, /* Callback token. */
+ int mask /* Not used. */
+)
{
TcpState *sockState; /* Client data of server socket. */
int newsock; /* The new client socket */
*/
Tcl_Channel
-TclGetDefaultStdChannel(type)
- int type; /* One of TCL_STDIN, TCL_STDOUT, TCL_STDERR. */
+TclGetDefaultStdChannel(
+ int type /* One of TCL_STDIN, TCL_STDOUT, TCL_STDERR. */
+)
{
Tcl_Channel channel = NULL;
int fd = 0; /* Initializations needed to prevent */
*/
void
-TclClosePipeFile(file)
- Tcl_File file;
+TclClosePipeFile(
+ Tcl_File file
+)
{
int fd = (int) (intptr_t) Tcl_GetFileInfo(file, NULL);
close(fd);
*/
int
-Tcl_GetOpenFile(interp, string, forWriting, checkUsage, filePtr)
- Tcl_Interp *interp; /* Interpreter in which to find file. */
- char *string; /* String that identifies file. */
- int forWriting; /* 1 means the file is going to be used
+Tcl_GetOpenFile(
+ Tcl_Interp *interp, /* Interpreter in which to find file. */
+ char *string, /* String that identifies file. */
+ int forWriting, /* 1 means the file is going to be used
* for writing, 0 means for reading. */
- int checkUsage; /* 1 means verify that the file was opened
+ int checkUsage, /* 1 means verify that the file was opened
* in a mode that allows the access specified
* by "forWriting". Ignored, we always
* check that the channel is open for the
* requested mode. */
- ClientData *filePtr; /* Store pointer to FILE structure here. */
+ ClientData *filePtr /* Store pointer to FILE structure here. */
+)
{
Tcl_Channel chan;
int chanMode;
*/
int
-Tcl_WaitPid(pid, statPtr, options)
- pid_t pid;
- int *statPtr;
- int options;
+Tcl_WaitPid(
+ pid_t pid,
+ int *statPtr,
+ int options
+)
{
int result;
pid_t real_pid;
/* ARGSUSED */
static void
-FreeCurrentDir(clientData)
- ClientData clientData; /* Not used. */
+FreeCurrentDir(
+ ClientData clientData /* Not used. */
+)
{
if (currentDir != (char *) NULL) {
ckfree(currentDir);
/* ARGSUSED */
static void
-FreeExecutableName(clientData)
- ClientData clientData; /* Not used. */
+FreeExecutableName(
+ ClientData clientData /* Not used. */
+)
{
if (tclExecutableName != (char *) NULL) {
ckfree(tclExecutableName);
*/
int
-TclChdir(interp, dirName)
- Tcl_Interp *interp; /* If non NULL, used for error reporting. */
- char *dirName; /* Path to new working directory. */
+TclChdir(
+ Tcl_Interp *interp, /* If non NULL, used for error reporting. */
+ char *dirName /* Path to new working directory. */
+)
{
if (currentDir != NULL) {
ckfree(currentDir);
*/
char *
-TclGetCwd(interp)
- Tcl_Interp *interp; /* If non NULL, used for error reporting. */
+TclGetCwd(
+ Tcl_Interp *interp /* If non NULL, used for error reporting. */
+)
{
char buffer[MAXPATHLEN+1];
*/
Tcl_File
-TclOpenFile(fname, mode)
- char *fname; /* The name of the file to open. */
- int mode; /* In what mode to open the file? */
+TclOpenFile(
+ char *fname, /* The name of the file to open. */
+ int mode /* In what mode to open the file? */
+)
{
int fd;
*/
int
-TclCloseFile(file)
- Tcl_File file; /* The file to close. */
+TclCloseFile(
+ Tcl_File file /* The file to close. */
+)
{
int type;
int fd;
*/
/* ARGSUSED */
int
-TclReadFile(file, shouldBlock, buf, toRead)
- Tcl_File file; /* The file to read from. */
- int shouldBlock; /* Not used. */
- char *buf; /* The buffer to store input in. */
- int toRead; /* Number of characters to read. */
+TclReadFile(
+ Tcl_File file, /* The file to read from. */
+ int shouldBlock, /* Not used. */
+ char *buf, /* The buffer to store input in. */
+ int toRead /* Number of characters to read. */
+)
{
int type, fd;
/* ARGSUSED */
int
-TclWriteFile(file, shouldBlock, buf, toWrite)
- Tcl_File file; /* The file to write to. */
- int shouldBlock; /* Not used. */
- char *buf; /* Where output is stored. */
- int toWrite; /* Number of characters to write. */
+TclWriteFile(
+ Tcl_File file, /* The file to write to. */
+ int shouldBlock, /* Not used. */
+ char *buf, /* Where output is stored. */
+ int toWrite /* Number of characters to write. */
+)
{
int type, fd;
*/
int
-TclSeekFile(file, offset, whence)
- Tcl_File file; /* The file to seek on. */
- int offset; /* How far to seek? */
- int whence; /* And from where to seek? */
+TclSeekFile(
+ Tcl_File file, /* The file to seek on. */
+ int offset, /* How far to seek? */
+ int whence /* And from where to seek? */
+)
{
int type, fd;
*/
Tcl_File
-TclCreateTempFile(contents)
- char *contents; /* String to write into temp file, or NULL. */
+TclCreateTempFile(
+ char *contents /* String to write into temp file, or NULL. */
+)
{
char fileName[L_tmpnam];
Tcl_File file;
*/
void
-Tcl_FindExecutable(argv0)
- char *argv0; /* The value of the application's argv[0]. */
+Tcl_FindExecutable(
+ char *argv0 /* The value of the application's argv[0]. */
+)
{
char *name, *p, *cwd;
Tcl_DString buffer;
*/
char *
-TclGetUserHome(name, bufferPtr)
- char *name; /* User name to use to find home directory. */
- Tcl_DString *bufferPtr; /* May be used to hold result. Must not hold
+TclGetUserHome(
+ char *name, /* User name to use to find home directory. */
+ Tcl_DString *bufferPtr /* May be used to hold result. Must not hold
* anything at the time of the call, and need
* not even be initialized. */
+)
{
struct passwd *pwPtr;
*---------------------------------------------------------------------- */
int
-TclMatchFiles(interp, separators, dirPtr, pattern, tail)
- Tcl_Interp *interp; /* Interpreter to receive results. */
- char *separators; /* Path separators to pass to TclDoGlob. */
- Tcl_DString *dirPtr; /* Contains path to directory to search. */
- char *pattern; /* Pattern to match against. */
- char *tail; /* Pointer to end of pattern. */
+TclMatchFiles(
+ Tcl_Interp *interp, /* Interpreter to receive results. */
+ char *separators, /* Path separators to pass to TclDoGlob. */
+ Tcl_DString *dirPtr, /* Contains path to directory to search. */
+ char *pattern, /* Pattern to match against. */
+ char *tail /* Pointer to end of pattern. */
+)
{
char *dirName, *patternEnd = tail;
char savedChar = 0; /* Initialization needed only to prevent
*/
void
-TclPlatformInit(interp)
- Tcl_Interp *interp;
+TclPlatformInit(
+ Tcl_Interp *interp
+)
{
#ifndef NO_UNAME
struct utsname name;
*/
int
-Tcl_Init(interp)
- Tcl_Interp *interp; /* Interpreter to initialize. */
+Tcl_Init(
+ Tcl_Interp *interp /* Interpreter to initialize. */
+)
{
return Tcl_Eval(interp, initScript);
}
*/
void
-Tcl_WatchFile(file, mask)
- Tcl_File file; /* Generic file handle for a stream. */
- int mask; /* OR'ed combination of TCL_READABLE,
+Tcl_WatchFile(
+ Tcl_File file, /* Generic file handle for a stream. */
+ int mask /* OR'ed combination of TCL_READABLE,
* TCL_WRITABLE, and TCL_EXCEPTION:
* indicates conditions to wait for
* in select. */
+)
{
int fd, type, index;
fd_mask bit;
*/
int
-Tcl_FileReady(file, mask)
- Tcl_File file; /* Generic file handle for a stream. */
- int mask; /* OR'ed combination of TCL_READABLE,
+Tcl_FileReady(
+ Tcl_File file, /* Generic file handle for a stream. */
+ int mask /* OR'ed combination of TCL_READABLE,
* TCL_WRITABLE, and TCL_EXCEPTION:
* indicates conditions caller cares about. */
+)
{
int index, result, type, fd;
fd_mask bit;
*/
static int
-MaskEmpty(maskPtr)
- long *maskPtr;
+MaskEmpty(
+ long *maskPtr
+)
{
long *runPtr, *tailPtr;
int found, sz;
*/
int
-Tcl_WaitForEvent(timePtr)
- Tcl_Time *timePtr; /* Specifies the maximum amount of time
+Tcl_WaitForEvent(
+ Tcl_Time *timePtr /* Specifies the maximum amount of time
* that this procedure should block before
* returning. The time is given as an
* interval, not an absolute wakeup time.
* NULL means block forever. */
+)
{
struct timeval timeout, *timeoutPtr;
int numFound;
*/
void
-Tcl_Sleep(ms)
- int ms; /* Number of milliseconds to sleep. */
+Tcl_Sleep(
+ int ms /* Number of milliseconds to sleep. */
+)
{
static struct timeval delay;
Tcl_Time before, after;
*/
static void
-RestoreSignals()
+RestoreSignals(void)
{
#ifdef SIGABRT
signal(SIGABRT, SIG_DFL);
*/
static int
-SetupStdFile(file, type)
- Tcl_File file; /* File to dup, or NULL. */
- int type; /* One of TCL_STDIN, TCL_STDOUT, TCL_STDERR */
+SetupStdFile(
+ Tcl_File file, /* File to dup, or NULL. */
+ int type /* One of TCL_STDIN, TCL_STDOUT, TCL_STDERR */
+)
{
Tcl_Channel channel;
int fd;
*----------------------------------------------------------------------
*/
int
-TclSpawnPipeline(interp, pidPtr, numPids, argc, argv, inputFile,
- outputFile, errorFile, intIn, finalOut)
- Tcl_Interp *interp; /* Interpreter in which to process pipeline. */
- pid_t *pidPtr; /* Array of pids which are created. */
- int *numPids; /* Number of pids created. */
- int argc; /* Number of entries in argv. */
- char **argv; /* Array of strings describing commands in
+TclSpawnPipeline(
+ Tcl_Interp *interp, /* Interpreter in which to process pipeline. */
+ pid_t *pidPtr, /* Array of pids which are created. */
+ int *numPids, /* Number of pids created. */
+ int argc, /* Number of entries in argv. */
+ char **argv, /* Array of strings describing commands in
* pipeline plus I/O redirection with <,
* <<, >, etc. argv[argc] must be NULL. */
- Tcl_File inputFile; /* If >=0, gives file id to use as input for
+ Tcl_File inputFile, /* If >=0, gives file id to use as input for
* first process in pipeline (specified via <
* or <@). */
- Tcl_File outputFile; /* Writable file id for output from last
+ Tcl_File outputFile, /* Writable file id for output from last
* command in pipeline (could be file or
* pipe). NULL means use stdout. */
- Tcl_File errorFile; /* Writable file id for error output from all
+ Tcl_File errorFile, /* Writable file id for error output from all
* commands in the pipeline. NULL means use
* stderr */
- char *intIn; /* File name for initial input (for Win32s). */
- char *finalOut; /* File name for final output (for Win32s). */
+ char *intIn, /* File name for initial input (for Win32s). */
+ char *finalOut /* File name for final output (for Win32s). */
+)
{
int firstArg, lastArg;
pid_t pid;
*----------------------------------------------------------------------
*/
int
-TclCreatePipe(readPipe, writePipe)
- Tcl_File *readPipe; /* Location to store file handle for
+TclCreatePipe(
+ Tcl_File *readPipe, /* Location to store file handle for
* read side of pipe. */
- Tcl_File *writePipe; /* Location to store file handle for
+ Tcl_File *writePipe /* Location to store file handle for
* write side of pipe. */
+)
{
int pipeIds[2];
*/
int
-Tcl_CreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr,
- outPipePtr, errFilePtr)
- Tcl_Interp *interp;
- int argc;
- char **argv;
- pid_t **pidArrayPtr;
- int *inPipePtr;
- int *outPipePtr;
- int *errFilePtr;
+Tcl_CreatePipeline(
+ Tcl_Interp *interp,
+ int argc,
+ char **argv,
+ pid_t **pidArrayPtr,
+ int *inPipePtr,
+ int *outPipePtr,
+ int *errFilePtr
+)
{
Tcl_File inFile, outFile, errFile;
int result;
*/
char *
-Tcl_GetHostName()
+Tcl_GetHostName(void)
{
struct utsname u;
struct hostent *hp;
*/
unsigned long
-TclGetSeconds()
+TclGetSeconds(void)
{
return time((time_t *) NULL);
}
*/
unsigned long
-TclGetClicks()
+TclGetClicks(void)
{
unsigned long now;
#ifdef NO_GETTOD
*/
int
-TclGetTimeZone (currentTime)
- unsigned long currentTime;
+TclGetTimeZone (
+ unsigned long currentTime
+)
{
/*
* Determine how a timezone is obtained from "struct tm". If there is no
*/
void
-TclGetTime(timePtr)
- Tcl_Time *timePtr; /* Location to store time information. */
+TclGetTime(
+ Tcl_Time *timePtr /* Location to store time information. */
+)
{
struct timeval tv;
struct timezone tz;
*/
int
-TclFindElement(interp, list, elementPtr, nextPtr, sizePtr, bracePtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting.
+TclFindElement(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting.
* If NULL, then no error message is left
* after errors. */
- register char *list; /* String containing Tcl list with zero
+ register char *list, /* String containing Tcl list with zero
* or more elements (possibly in braces). */
- char **elementPtr; /* Fill in with location of first significant
+ char **elementPtr, /* Fill in with location of first significant
* character in first element of list. */
- char **nextPtr; /* Fill in with location of character just
+ char **nextPtr, /* Fill in with location of character just
* after all white space following end of
* argument (i.e. next argument or end of
* list). */
- int *sizePtr; /* If non-zero, fill in with size of
+ int *sizePtr, /* If non-zero, fill in with size of
* element. */
- int *bracePtr; /* If non-zero fill in with non-zero/zero
+ int *bracePtr /* If non-zero fill in with non-zero/zero
* to indicate that arg was/wasn't
* in braces. */
+)
{
register char *p;
int openBraces = 0;
*/
void
-TclCopyAndCollapse(count, src, dst)
- int count; /* Total number of characters to copy
+TclCopyAndCollapse(
+ int count, /* Total number of characters to copy
* from src. */
- register char *src; /* Copy from here... */
- register char *dst; /* ... to here. */
+ register char *src, /* Copy from here... */
+ register char *dst /* ... to here. */
+)
{
register char c;
int numRead;
*/
int
-Tcl_SplitList(interp, list, argcPtr, argvPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting.
+Tcl_SplitList(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting.
* If NULL, then no error message is left. */
- char *list; /* Pointer to string with list structure. */
- int *argcPtr; /* Pointer to location to fill in with
+ char *list, /* Pointer to string with list structure. */
+ int *argcPtr, /* Pointer to location to fill in with
* the number of elements in the list. */
- char ***argvPtr; /* Pointer to place to store pointer to array
+ char ***argvPtr /* Pointer to place to store pointer to array
* of pointers to list elements. */
+)
{
char **argv;
register char *p;
*/
int
-Tcl_ScanElement(string, flagPtr)
- char *string; /* String to convert to Tcl list element. */
- int *flagPtr; /* Where to store information to guide
+Tcl_ScanElement(
+ char *string, /* String to convert to Tcl list element. */
+ int *flagPtr /* Where to store information to guide
* Tcl_ConvertElement. */
+)
{
int flags, nestingLevel;
register char *p;
*/
int
-Tcl_ConvertElement(src, dst, flags)
- register char *src; /* Source information for list element. */
- char *dst; /* Place to put list-ified element. */
- int flags; /* Flags produced by Tcl_ScanElement. */
+Tcl_ConvertElement(
+ register char *src, /* Source information for list element. */
+ char *dst, /* Place to put list-ified element. */
+ int flags /* Flags produced by Tcl_ScanElement. */
+)
{
register char *p = dst;
*/
char *
-Tcl_Merge(argc, argv)
- int argc; /* How many strings to merge. */
- char **argv; /* Array of string values. */
+Tcl_Merge(
+ int argc, /* How many strings to merge. */
+ char **argv /* Array of string values. */
+)
{
# define LOCAL_SIZE 20
int localFlags[LOCAL_SIZE], *flagPtr;
*/
char *
-Tcl_Concat(argc, argv)
- int argc; /* Number of strings to concatenate. */
- char **argv; /* Array of strings to concatenate. */
+Tcl_Concat(
+ int argc, /* Number of strings to concatenate. */
+ char **argv /* Array of strings to concatenate. */
+)
{
int totalSize, i;
register char *p;
*/
int
-Tcl_StringMatch(string, pattern)
- register char *string; /* String. */
- register char *pattern; /* Pattern, which may contain
+Tcl_StringMatch(
+ register char *string, /* String. */
+ register char *pattern /* Pattern, which may contain
* special characters. */
+)
{
char c2;
*/
void
-Tcl_SetResult(interp, string, freeProc)
- Tcl_Interp *interp; /* Interpreter with which to associate the
+Tcl_SetResult(
+ Tcl_Interp *interp, /* Interpreter with which to associate the
* return value. */
- char *string; /* Value to be returned. If NULL,
+ char *string, /* Value to be returned. If NULL,
* the result is set to an empty string. */
- Tcl_FreeProc *freeProc; /* Gives information about the string:
+ Tcl_FreeProc *freeProc /* Gives information about the string:
* TCL_STATIC, TCL_VOLATILE, or the address
* of a Tcl_FreeProc such as free. */
+)
{
register Interp *iPtr = (Interp *) interp;
int length;
*/
void
-Tcl_AppendElement(interp, string)
- Tcl_Interp *interp; /* Interpreter whose result is to be
+Tcl_AppendElement(
+ Tcl_Interp *interp, /* Interpreter whose result is to be
* extended. */
- char *string; /* String to convert to list element and
+ char *string /* String to convert to list element and
* add to result. */
+)
{
register Interp *iPtr = (Interp *) interp;
int size, flags;
*/
static void
-SetupAppendBuffer(iPtr, newSpace)
- register Interp *iPtr; /* Interpreter whose result is being set up. */
- int newSpace; /* Make sure that at least this many bytes
+SetupAppendBuffer(
+ register Interp *iPtr, /* Interpreter whose result is being set up. */
+ int newSpace /* Make sure that at least this many bytes
* of new information may be added. */
+)
{
int totalSpace;
*/
void
-Tcl_ResetResult(interp)
- Tcl_Interp *interp; /* Interpreter for which to clear result. */
+Tcl_ResetResult(
+ Tcl_Interp *interp /* Interpreter for which to clear result. */
+)
{
register Interp *iPtr = (Interp *) interp;
*/
int
-TclGetListIndex(interp, string, indexPtr)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- char *string; /* String containing list index. */
- int *indexPtr; /* Where to store index. */
+TclGetListIndex(
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ char *string, /* String containing list index. */
+ int *indexPtr /* Where to store index. */
+)
{
if (isdigit(UCHAR(*string)) || (*string == '-')) {
if (Tcl_GetInt(interp, string, indexPtr) != TCL_OK) {
*/
Tcl_RegExp
-Tcl_RegExpCompile(interp, string)
- Tcl_Interp *interp; /* For use in error reporting. */
- char *string; /* String for which to produce
+Tcl_RegExpCompile(
+ Tcl_Interp *interp, /* For use in error reporting. */
+ char *string /* String for which to produce
* compiled regular expression. */
+)
{
register Interp *iPtr = (Interp *) interp;
int i, length;
*/
int
-Tcl_RegExpExec(interp, re, string, start)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tcl_RegExp re; /* Compiled regular expression; must have
+Tcl_RegExpExec(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tcl_RegExp re, /* Compiled regular expression; must have
* been returned by previous call to
* Tcl_RegExpCompile. */
- char *string; /* String against which to match re. */
- char *start; /* If string is part of a larger string,
+ char *string, /* String against which to match re. */
+ char *start /* If string is part of a larger string,
* this identifies beginning of larger
* string, so that "^" won't match. */
+)
{
int match;
*/
void
-Tcl_RegExpRange(re, index, startPtr, endPtr)
- Tcl_RegExp re; /* Compiled regular expression that has
+Tcl_RegExpRange(
+ Tcl_RegExp re, /* Compiled regular expression that has
* been passed to Tcl_RegExpExec. */
- int index; /* 0 means give the range of the entire
+ int index, /* 0 means give the range of the entire
* match, > 0 means give the range of
* a matching subrange. Must be no greater
* than NSUBEXP. */
- char **startPtr; /* Store address of first character in
+ char **startPtr, /* Store address of first character in
* (sub-) range here. */
- char **endPtr; /* Store address of character just after last
+ char **endPtr /* Store address of character just after last
* in (sub-) range here. */
+)
{
regexp *regexpPtr = (regexp *) re;
*/
int
-Tcl_RegExpMatch(interp, string, pattern)
- Tcl_Interp *interp; /* Used for error reporting. */
- char *string; /* String. */
- char *pattern; /* Regular expression to match against
+Tcl_RegExpMatch(
+ Tcl_Interp *interp, /* Used for error reporting. */
+ char *string, /* String. */
+ char *pattern /* Regular expression to match against
* string. */
+)
{
Tcl_RegExp re;
*/
void
-Tcl_DStringInit(dsPtr)
- register Tcl_DString *dsPtr; /* Pointer to structure for
+Tcl_DStringInit(
+ register Tcl_DString *dsPtr /* Pointer to structure for
* dynamic string. */
+)
{
dsPtr->string = dsPtr->staticSpace;
dsPtr->length = 0;
*/
char *
-Tcl_DStringAppend(dsPtr, string, length)
- register Tcl_DString *dsPtr; /* Structure describing dynamic
+Tcl_DStringAppend(
+ register Tcl_DString *dsPtr, /* Structure describing dynamic
* string. */
- char *string; /* String to append. If length is
+ char *string, /* String to append. If length is
* -1 then this must be
* null-terminated. */
- int length; /* Number of characters from string
+ int length /* Number of characters from string
* to append. If < 0, then append all
* of string, up to null at end. */
+)
{
int newSize;
char *newString, *dst, *end;
*/
char *
-Tcl_DStringAppendElement(dsPtr, string)
- register Tcl_DString *dsPtr; /* Structure describing dynamic
+Tcl_DStringAppendElement(
+ register Tcl_DString *dsPtr, /* Structure describing dynamic
* string. */
- char *string; /* String to append. Must be
+ char *string /* String to append. Must be
* null-terminated. */
+)
{
int newSize, flags;
char *dst, *newString;
*/
void
-Tcl_DStringSetLength(dsPtr, length)
- register Tcl_DString *dsPtr; /* Structure describing dynamic
+Tcl_DStringSetLength(
+ register Tcl_DString *dsPtr, /* Structure describing dynamic
* string. */
- int length; /* New length for dynamic string. */
+ int length /* New length for dynamic string. */
+)
{
if (length < 0) {
length = 0;
*/
void
-Tcl_DStringFree(dsPtr)
- register Tcl_DString *dsPtr; /* Structure describing dynamic
+Tcl_DStringFree(
+ register Tcl_DString *dsPtr /* Structure describing dynamic
* string. */
+)
{
if (dsPtr->string != dsPtr->staticSpace) {
ckfree(dsPtr->string);
*/
void
-Tcl_DStringResult(interp, dsPtr)
- Tcl_Interp *interp; /* Interpreter whose result is to be
+Tcl_DStringResult(
+ Tcl_Interp *interp, /* Interpreter whose result is to be
* reset. */
- Tcl_DString *dsPtr; /* Dynamic string that is to become
+ Tcl_DString *dsPtr /* Dynamic string that is to become
* the result of interp. */
+)
{
Tcl_ResetResult(interp);
if (dsPtr->string != dsPtr->staticSpace) {
*/
void
-Tcl_DStringGetResult(interp, dsPtr)
- Tcl_Interp *interp; /* Interpreter whose result is to be
+Tcl_DStringGetResult(
+ Tcl_Interp *interp, /* Interpreter whose result is to be
* reset. */
- Tcl_DString *dsPtr; /* Dynamic string that is to become
+ Tcl_DString *dsPtr /* Dynamic string that is to become
* the result of interp. */
+)
{
Interp *iPtr = (Interp *) interp;
if (dsPtr->string != dsPtr->staticSpace) {
*/
void
-Tcl_DStringStartSublist(dsPtr)
- Tcl_DString *dsPtr; /* Dynamic string. */
+Tcl_DStringStartSublist(
+ Tcl_DString *dsPtr /* Dynamic string. */
+)
{
if (TclNeedSpace(dsPtr->string, dsPtr->string + dsPtr->length)) {
Tcl_DStringAppend(dsPtr, " {", -1);
*/
void
-Tcl_DStringEndSublist(dsPtr)
- Tcl_DString *dsPtr; /* Dynamic string. */
+Tcl_DStringEndSublist(
+ Tcl_DString *dsPtr /* Dynamic string. */
+)
{
Tcl_DStringAppend(dsPtr, "}", -1);
}
*/
void
-Tcl_PrintDouble(interp, value, dst)
- Tcl_Interp *interp; /* Interpreter whose tcl_precision
+Tcl_PrintDouble(
+ Tcl_Interp *interp, /* Interpreter whose tcl_precision
* variable controls printing. */
- double value; /* Value to print as string. */
- char *dst; /* Where to store converted value;
+ double value, /* Value to print as string. */
+ char *dst /* Where to store converted value;
* must have at least TCL_DOUBLE_SPACE
* characters. */
+)
{
register char *p;
sprintf(dst, ((Interp *) interp)->pdFormat, value);
/* ARGSUSED */
char *
-TclPrecTraceProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable. */
- char *name2; /* Second part of variable name. */
- int flags; /* Information about what happened. */
+TclPrecTraceProc(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable. */
+ char *name2, /* Second part of variable name. */
+ int flags /* Information about what happened. */
+)
{
register Interp *iPtr = (Interp *) interp;
char *value, *end;
*/
int
-TclNeedSpace(start, end)
- char *start; /* First character in string. */
- char *end; /* End of string (place where space will
+TclNeedSpace(
+ char *start, /* First character in string. */
+ char *end /* End of string (place where space will
* be added, if appropriate). */
+)
{
/*
* A space is needed unless either
*/
static Var *
-LookupVar(interp, part1, part2, flags, msg, create, arrayPtrPtr)
- Tcl_Interp *interp; /* Interpreter to use for lookup. */
- char *part1; /* If part2 isn't NULL, this is the name
+LookupVar(
+ Tcl_Interp *interp, /* Interpreter to use for lookup. */
+ char *part1, /* If part2 isn't NULL, this is the name
* of an array. Otherwise, if the
* PART1_NOT_PARSED flag bit is set this
* is a full variable name that could
* include a parenthesized array elemnt.
* If PART1_NOT_PARSED isn't present, then
* this is the name of a scalar variable. */
- char *part2; /* Name of an element within array, or NULL. */
- int flags; /* Only the TCL_GLOBAL_ONLY, TCL_LEAVE_ERR_MSG,
+ char *part2, /* Name of an element within array, or NULL. */
+ int flags, /* Only the TCL_GLOBAL_ONLY, TCL_LEAVE_ERR_MSG,
* and PART1_NOT_PARSED bits matter. */
- char *msg; /* Verb to use in error messages, e.g.
+ char *msg, /* Verb to use in error messages, e.g.
* "read" or "set". Only needed if
* TCL_LEAVE_ERR_MSG is set in flags. */
- int create; /* OR'ed combination of CRT_PART1 and
+ int create, /* OR'ed combination of CRT_PART1 and
* CRT_PART2. Tells which entries to create
* if they don't already exist. */
- Var **arrayPtrPtr; /* If the name refers to an element of an
+ Var **arrayPtrPtr /* If the name refers to an element of an
* array, *arrayPtrPtr gets filled in with
* address of array variable. Otherwise
* this is set to NULL. */
+)
{
Interp *iPtr = (Interp *) interp;
Tcl_HashTable *tablePtr;
*/
char *
-Tcl_GetVar(interp, varName, flags)
- Tcl_Interp *interp; /* Command interpreter in which varName is
+Tcl_GetVar(
+ Tcl_Interp *interp, /* Command interpreter in which varName is
* to be looked up. */
- char *varName; /* Name of a variable in interp. */
- int flags; /* OR-ed combination of TCL_GLOBAL_ONLY
+ char *varName, /* Name of a variable in interp. */
+ int flags /* OR-ed combination of TCL_GLOBAL_ONLY
* or TCL_LEAVE_ERR_MSG bits. */
+)
{
return Tcl_GetVar2(interp, varName, (char *) NULL,
flags | PART1_NOT_PARSED);
*/
char *
-Tcl_GetVar2(interp, part1, part2, flags)
- Tcl_Interp *interp; /* Command interpreter in which variable is
+Tcl_GetVar2(
+ Tcl_Interp *interp, /* Command interpreter in which variable is
* to be looked up. */
- char *part1; /* Name of array (if part2 is NULL) or
+ char *part1, /* Name of array (if part2 is NULL) or
* name of variable. */
- char *part2; /* If non-null, gives name of element in
+ char *part2, /* If non-null, gives name of element in
* array. */
- int flags; /* OR-ed combination of TCL_GLOBAL_ONLY,
+ int flags /* OR-ed combination of TCL_GLOBAL_ONLY,
* TCL_LEAVE_ERR_MSG, and PART1_NOT_PARSED
* bits. */
+)
{
Var *varPtr, *arrayPtr;
Interp *iPtr = (Interp *) interp;
*/
char *
-Tcl_SetVar(interp, varName, newValue, flags)
- Tcl_Interp *interp; /* Command interpreter in which varName is
+Tcl_SetVar(
+ Tcl_Interp *interp, /* Command interpreter in which varName is
* to be looked up. */
- char *varName; /* Name of a variable in interp. */
- char *newValue; /* New value for varName. */
- int flags; /* Various flags that tell how to set value:
+ char *varName, /* Name of a variable in interp. */
+ char *newValue, /* New value for varName. */
+ int flags /* Various flags that tell how to set value:
* any of TCL_GLOBAL_ONLY, TCL_APPEND_VALUE,
* TCL_LIST_ELEMENT, or TCL_LEAVE_ERR_MSG. */
+)
{
return Tcl_SetVar2(interp, varName, (char *) NULL, newValue,
flags | PART1_NOT_PARSED);
*/
char *
-Tcl_SetVar2(interp, part1, part2, newValue, flags)
- Tcl_Interp *interp; /* Command interpreter in which variable is
+Tcl_SetVar2(
+ Tcl_Interp *interp, /* Command interpreter in which variable is
* to be looked up. */
- char *part1; /* If part2 is NULL, this is name of scalar
+ char *part1, /* If part2 is NULL, this is name of scalar
* variable. Otherwise it is name of array. */
- char *part2; /* Name of an element within array, or NULL. */
- char *newValue; /* New value for variable. */
- int flags; /* Various flags that tell how to set value:
+ char *part2, /* Name of an element within array, or NULL. */
+ char *newValue, /* New value for variable. */
+ int flags /* Various flags that tell how to set value:
* any of TCL_GLOBAL_ONLY, TCL_APPEND_VALUE,
* TCL_LIST_ELEMENT, TCL_LEAVE_ERR_MSG, or
* PART1_NOT_PARSED. */
+)
{
register Var *varPtr;
register Interp *iPtr = (Interp *) interp;
*/
int
-Tcl_UnsetVar(interp, varName, flags)
- Tcl_Interp *interp; /* Command interpreter in which varName is
+Tcl_UnsetVar(
+ Tcl_Interp *interp, /* Command interpreter in which varName is
* to be looked up. */
- char *varName; /* Name of a variable in interp. May be
+ char *varName, /* Name of a variable in interp. May be
* either a scalar name or an array name
* or an element in an array. */
- int flags; /* OR-ed combination of any of
+ int flags /* OR-ed combination of any of
* TCL_GLOBAL_ONLY or TCL_LEAVE_ERR_MSG. */
+)
{
return Tcl_UnsetVar2(interp, varName, (char *) NULL,
flags | PART1_NOT_PARSED);
*/
int
-Tcl_UnsetVar2(interp, part1, part2, flags)
- Tcl_Interp *interp; /* Command interpreter in which varName is
+Tcl_UnsetVar2(
+ Tcl_Interp *interp, /* Command interpreter in which varName is
* to be looked up. */
- char *part1; /* Name of variable or array. */
- char *part2; /* Name of element within array or NULL. */
- int flags; /* OR-ed combination of any of
+ char *part1, /* Name of variable or array. */
+ char *part2, /* Name of element within array or NULL. */
+ int flags /* OR-ed combination of any of
* TCL_GLOBAL_ONLY, TCL_LEAVE_ERR_MSG,
* or PART1_NOT_PARSED. */
+)
{
Var *varPtr, dummyVar;
Interp *iPtr = (Interp *) interp;
*/
int
-Tcl_TraceVar(interp, varName, flags, proc, clientData)
- Tcl_Interp *interp; /* Interpreter in which variable is
+Tcl_TraceVar(
+ Tcl_Interp *interp, /* Interpreter in which variable is
* to be traced. */
- char *varName; /* Name of variable; may end with "(index)"
+ char *varName, /* Name of variable; may end with "(index)"
* to signify an array reference. */
- int flags; /* OR-ed collection of bits, including any
+ int flags, /* OR-ed collection of bits, including any
* of TCL_TRACE_READS, TCL_TRACE_WRITES,
* TCL_TRACE_UNSETS, and TCL_GLOBAL_ONLY. */
- Tcl_VarTraceProc *proc; /* Procedure to call when specified ops are
+ Tcl_VarTraceProc *proc, /* Procedure to call when specified ops are
* invoked upon varName. */
- ClientData clientData; /* Arbitrary argument to pass to proc. */
+ ClientData clientData /* Arbitrary argument to pass to proc. */
+)
{
return Tcl_TraceVar2(interp, varName, (char *) NULL,
flags | PART1_NOT_PARSED, proc, clientData);
*/
int
-Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData)
- Tcl_Interp *interp; /* Interpreter in which variable is
+Tcl_TraceVar2(
+ Tcl_Interp *interp, /* Interpreter in which variable is
* to be traced. */
- char *part1; /* Name of scalar variable or array. */
- char *part2; /* Name of element within array; NULL means
+ char *part1, /* Name of scalar variable or array. */
+ char *part2, /* Name of element within array; NULL means
* trace applies to scalar variable or array
* as-a-whole. */
- int flags; /* OR-ed collection of bits, including any
+ int flags, /* OR-ed collection of bits, including any
* of TCL_TRACE_READS, TCL_TRACE_WRITES,
* TCL_TRACE_UNSETS, TCL_GLOBAL_ONLY, and
* PART1_NOT_PARSED. */
- Tcl_VarTraceProc *proc; /* Procedure to call when specified ops are
+ Tcl_VarTraceProc *proc, /* Procedure to call when specified ops are
* invoked upon varName. */
- ClientData clientData; /* Arbitrary argument to pass to proc. */
+ ClientData clientData /* Arbitrary argument to pass to proc. */
+)
{
Var *varPtr, *arrayPtr;
register VarTrace *tracePtr;
*/
void
-Tcl_UntraceVar(interp, varName, flags, proc, clientData)
- Tcl_Interp *interp; /* Interpreter containing traced variable. */
- char *varName; /* Name of variable; may end with "(index)"
+Tcl_UntraceVar(
+ Tcl_Interp *interp, /* Interpreter containing traced variable. */
+ char *varName, /* Name of variable; may end with "(index)"
* to signify an array reference. */
- int flags; /* OR-ed collection of bits describing
+ int flags, /* OR-ed collection of bits describing
* current trace, including any of
* TCL_TRACE_READS, TCL_TRACE_WRITES,
* TCL_TRACE_UNSETS, and TCL_GLOBAL_ONLY. */
- Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */
- ClientData clientData; /* Arbitrary argument to pass to proc. */
+ Tcl_VarTraceProc *proc, /* Procedure assocated with trace. */
+ ClientData clientData /* Arbitrary argument to pass to proc. */
+)
{
Tcl_UntraceVar2(interp, varName, (char *) NULL, flags | PART1_NOT_PARSED,
proc, clientData);
*/
void
-Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData)
- Tcl_Interp *interp; /* Interpreter containing traced variable. */
- char *part1; /* Name of variable or array. */
- char *part2; /* Name of element within array; NULL means
+Tcl_UntraceVar2(
+ Tcl_Interp *interp, /* Interpreter containing traced variable. */
+ char *part1, /* Name of variable or array. */
+ char *part2, /* Name of element within array; NULL means
* trace applies to scalar variable or array
* as-a-whole. */
- int flags; /* OR-ed collection of bits describing
+ int flags, /* OR-ed collection of bits describing
* current trace, including any of
* TCL_TRACE_READS, TCL_TRACE_WRITES,
* TCL_TRACE_UNSETS, TCL_GLOBAL_ONLY, and
* PART1_NOT_PARSED. */
- Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */
- ClientData clientData; /* Arbitrary argument to pass to proc. */
+ Tcl_VarTraceProc *proc, /* Procedure assocated with trace. */
+ ClientData clientData /* Arbitrary argument to pass to proc. */
+)
{
register VarTrace *tracePtr;
VarTrace *prevPtr;
*/
ClientData
-Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData)
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *varName; /* Name of variable; may end with "(index)"
+Tcl_VarTraceInfo(
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *varName, /* Name of variable; may end with "(index)"
* to signify an array reference. */
- int flags; /* 0 or TCL_GLOBAL_ONLY. */
- Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */
- ClientData prevClientData; /* If non-NULL, gives last value returned
+ int flags, /* 0 or TCL_GLOBAL_ONLY. */
+ Tcl_VarTraceProc *proc, /* Procedure assocated with trace. */
+ ClientData prevClientData /* If non-NULL, gives last value returned
* by this procedure, so this call will
* return the next trace after that one.
* If NULL, this call will return the
* first trace. */
+)
{
return Tcl_VarTraceInfo2(interp, varName, (char *) NULL,
flags | PART1_NOT_PARSED, proc, prevClientData);
*/
ClientData
-Tcl_VarTraceInfo2(interp, part1, part2, flags, proc, prevClientData)
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *part1; /* Name of variable or array. */
- char *part2; /* Name of element within array; NULL means
+Tcl_VarTraceInfo2(
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *part1, /* Name of variable or array. */
+ char *part2, /* Name of element within array; NULL means
* trace applies to scalar variable or array
* as-a-whole. */
- int flags; /* OR-ed combination of TCL_GLOBAL_ONLY and
+ int flags, /* OR-ed combination of TCL_GLOBAL_ONLY and
* PART1_NOT_PARSED. */
- Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */
- ClientData prevClientData; /* If non-NULL, gives last value returned
+ Tcl_VarTraceProc *proc, /* Procedure assocated with trace. */
+ ClientData prevClientData /* If non-NULL, gives last value returned
* by this procedure, so this call will
* return the next trace after that one.
* If NULL, this call will return the
* first trace. */
+)
{
register VarTrace *tracePtr;
Var *varPtr, *arrayPtr;
/* ARGSUSED */
int
-Tcl_SetCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_SetCmd(
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc == 2) {
char *value;
/* ARGSUSED */
int
-Tcl_UnsetCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_UnsetCmd(
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i;
/* ARGSUSED */
int
-Tcl_AppendCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_AppendCmd(
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i;
char *result = NULL; /* (Initialization only needed to keep
/* ARGSUSED */
int
-Tcl_LappendCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_LappendCmd(
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i;
char *result = NULL; /* (Initialization only needed to keep
/* ARGSUSED */
int
-Tcl_ArrayCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_ArrayCmd(
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int c, notArray;
size_t length;
*/
static int
-MakeUpvar(iPtr, framePtr, otherP1, otherP2, myName, flags)
- Interp *iPtr; /* Interpreter containing variables. Used
+MakeUpvar(
+ Interp *iPtr, /* Interpreter containing variables. Used
* for error messages, too. */
- CallFrame *framePtr; /* Call frame containing "other" variable.
+ CallFrame *framePtr, /* Call frame containing "other" variable.
* NULL means use global context. */
- char *otherP1, *otherP2; /* Two-part name of variable in framePtr. */
- char *myName; /* Name of variable in local table, which
+ char *otherP1, char *otherP2,/* Two-part name of variable in framePtr. */
+ char *myName, /* Name of variable in local table, which
* will refer to otherP1/P2. Must be a
* scalar. */
- int flags; /* 0 or TCL_GLOBAL_ONLY: indicates scope of
+ int flags /* 0 or TCL_GLOBAL_ONLY: indicates scope of
* myName. */
+)
{
Tcl_HashEntry *hPtr;
Var *otherPtr, *varPtr, *arrayPtr;
*/
int
-Tcl_UpVar(interp, frameName, varName, localName, flags)
- Tcl_Interp *interp; /* Command interpreter in which varName is
+Tcl_UpVar(
+ Tcl_Interp *interp, /* Command interpreter in which varName is
* to be looked up. */
- char *frameName; /* Name of the frame containing the source
+ char *frameName, /* Name of the frame containing the source
* variable, such as "1" or "#0". */
- char *varName; /* Name of a variable in interp. May be
+ char *varName, /* Name of a variable in interp. May be
* either a scalar name or an element
* in an array. */
- char *localName; /* Destination variable name. */
- int flags; /* Either 0 or TCL_GLOBAL_ONLY; indicates
+ char *localName, /* Destination variable name. */
+ int flags /* Either 0 or TCL_GLOBAL_ONLY; indicates
* whether localName is local or global. */
+)
{
int result;
CallFrame *framePtr;
*/
int
-Tcl_UpVar2(interp, frameName, part1, part2, localName, flags)
- Tcl_Interp *interp; /* Interpreter containing variables. Used
+Tcl_UpVar2(
+ Tcl_Interp *interp, /* Interpreter containing variables. Used
* for error messages too. */
- char *frameName; /* Name of the frame containing the source
+ char *frameName, /* Name of the frame containing the source
* variable, such as "1" or "#0". */
- char *part1, *part2; /* Two parts of source variable name. */
- char *localName; /* Destination variable name. */
- int flags; /* TCL_GLOBAL_ONLY or 0. */
+ char *part1, char *part2, /* Two parts of source variable name. */
+ char *localName, /* Destination variable name. */
+ int flags /* TCL_GLOBAL_ONLY or 0. */
+)
{
int result;
CallFrame *framePtr;
/* ARGSUSED */
int
-Tcl_GlobalCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_GlobalCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Interp *iPtr = (Interp *) interp;
/* ARGSUSED */
int
-Tcl_UpvarCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_UpvarCmd(
+ 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;
*/
static char *
-CallTraces(iPtr, arrayPtr, varPtr, part1, part2, flags)
- Interp *iPtr; /* Interpreter containing variable. */
- register Var *arrayPtr; /* Pointer to array variable that
+CallTraces(
+ Interp *iPtr, /* Interpreter containing variable. */
+ register Var *arrayPtr, /* Pointer to array variable that
* contains the variable, or NULL if
* the variable isn't an element of an
* array. */
- Var *varPtr; /* Variable whose traces are to be
+ Var *varPtr, /* Variable whose traces are to be
* invoked. */
- char *part1, *part2; /* Variable's two-part name. */
- int flags; /* Flags to pass to trace procedures:
+ char *part1, char *part2, /* Variable's two-part name. */
+ int flags /* Flags to pass to trace procedures:
* indicates what's happening to
* variable, plus other stuff like
* TCL_GLOBAL_ONLY and
* contain PART1_NOT_PARSEd, which
* should not be passed through
* to callbacks. */
+)
{
register VarTrace *tracePtr;
ActiveVarTrace active;
*/
static Var *
-NewVar()
+NewVar(void)
{
register Var *varPtr;
*/
static ArraySearch *
-ParseSearchId(interp, varPtr, varName, string)
- Tcl_Interp *interp; /* Interpreter containing variable. */
- Var *varPtr; /* Array variable search is for. */
- char *varName; /* Name of array variable that search is
+ParseSearchId(
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ Var *varPtr, /* Array variable search is for. */
+ char *varName, /* Name of array variable that search is
* supposed to be for. */
- char *string; /* String containing id of search. Must have
+ char *string /* String containing id of search. Must have
* form "search-num-var" where "num" is a
* decimal number and "var" is a variable
* name. */
+)
{
char *end;
int id;
*/
static void
-DeleteSearches(arrayVarPtr)
- register Var *arrayVarPtr; /* Variable whose searches are
+DeleteSearches(
+ register Var *arrayVarPtr /* Variable whose searches are
* to be deleted. */
+)
{
ArraySearch *searchPtr;
*/
void
-TclDeleteVars(iPtr, tablePtr)
- Interp *iPtr; /* Interpreter to which variables belong. */
- Tcl_HashTable *tablePtr; /* Hash table containing variables to
+TclDeleteVars(
+ Interp *iPtr, /* Interpreter to which variables belong. */
+ Tcl_HashTable *tablePtr /* Hash table containing variables to
* delete. */
+)
{
Tcl_HashSearch search;
Tcl_HashEntry *hPtr;
*/
static void
-DeleteArray(iPtr, arrayName, varPtr, flags)
- Interp *iPtr; /* Interpreter containing array. */
- char *arrayName; /* Name of array (used for trace
+DeleteArray(
+ Interp *iPtr, /* Interpreter containing array. */
+ char *arrayName, /* Name of array (used for trace
* callbacks). */
- Var *varPtr; /* Pointer to variable structure. */
- int flags; /* Flags to pass to CallTraces:
+ Var *varPtr, /* Pointer to variable structure. */
+ int flags /* Flags to pass to CallTraces:
* TCL_TRACE_UNSETS and sometimes
* TCL_INTERP_DESTROYED and/or
* TCL_GLOBAL_ONLY. */
+)
{
Tcl_HashSearch search;
register Tcl_HashEntry *hPtr;
*/
static void
-CleanupVar(varPtr, arrayPtr)
- Var *varPtr; /* Pointer to variable that may be a
+CleanupVar(
+ Var *varPtr, /* Pointer to variable that may be a
* candidate for being expunged. */
- Var *arrayPtr; /* Array that contains the variable, or
+ Var *arrayPtr /* Array that contains the variable, or
* NULL if this variable isn't an array
* element. */
+)
{
if ((varPtr->flags & VAR_UNDEFINED) && (varPtr->refCount == 0)
&& (varPtr->tracePtr == NULL)) {
*/
static void
-VarErrMsg(interp, part1, part2, operation, reason)
- Tcl_Interp *interp; /* Interpreter in which to record message. */
- char *part1, *part2; /* Variable's two-part name. */
- char *operation; /* String describing operation that failed,
+VarErrMsg(
+ Tcl_Interp *interp, /* Interpreter in which to record message. */
+ char *part1, char *part2, /* Variable's two-part name. */
+ char *operation, /* String describing operation that failed,
* e.g. "read", "set", or "unset". */
- char *reason; /* String describing why operation failed. */
+ char *reason /* String describing why operation failed. */
+)
{
Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "can't ", operation, " \"", part1, (char *) NULL);
#include "XlationSvc.h"
int
-main()
+main(void)
{
_DtXlateDb myDb = NULL;
char myPlatform[_DtPLATFORM_MAX_LEN+1];
projects / oweals / cde.git / commitdiff