*----------------------------------------------------------------------
*/
-int
-TclFindElement(interp, list, elementPtr, nextPtr, sizePtr, bracePtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- register char *list; /* String containing Tcl list with zero
+int
+TclFindElement (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ 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
+void
+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. */
- char *list; /* Pointer to string with list structure. */
- int *argcPtr; /* Pointer to location to fill in with
+int
+Tcl_SplitList (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ 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
+int
+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. */
+int
+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
+int
+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
+void
+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, noSep)
- Tcl_Interp *interp; /* Interpreter whose result is to be
+void
+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. */
- int noSep; /* If non-zero, then don't output a
+ int noSep /* If non-zero, then don't output a
* space character before this element,
* even if the element isn't the first
* thing in the output buffer. */
+)
{
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
+static void
+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. */
+void
+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. */
+int
+TclGetListIndex (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ char *string, /* String containing list index. */
+ int *indexPtr /* Where to store index. */
+)
{
if (isdigit(*string) || (*string == '-')) {
if (Tcl_GetInt(interp, string, indexPtr) != TCL_OK) {
*/
regexp *
-TclCompileRegexp(interp, string)
- Tcl_Interp *interp; /* For use in error reporting. */
- char *string; /* String for which to produce
+TclCompileRegexp (
+ 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;
*----------------------------------------------------------------------
*/
-void
-regerror(string)
- char *string; /* Error message. */
+void
+regerror (
+ char *string /* Error message. */
+)
{
tclRegexpError = string;
}
projects / micropolis / blobdiff