1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
/*
* tclResult.c --
*
* This file contains code to manage the interpreter result.
*
* Copyright (c) 1997 by Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclResult.c,v 1.2 1999/04/16 00:46:53 stanton Exp $
*/
#include "tclInt.h"
/*
* Function prototypes for local procedures in this file:
*/
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
/*
* tclResult.c --
*
* This file contains code to manage the interpreter result.
*
* Copyright (c) 1997 by Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclResult.c,v 1.3 1999/05/07 20:07:35 stanton Exp $
*/
#include "tclInt.h"
/*
* Function prototypes for local procedures in this file:
*/
|
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
|
TCL_VOLATILE);
}
/*
* Scan through all the arguments to see how much space is needed.
*/
tmpArgList = argList;
newSpace = 0;
while (1) {
string = va_arg(tmpArgList, char *);
if (string == NULL) {
break;
}
newSpace += strlen(string);
|
|
|
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
|
TCL_VOLATILE);
}
/*
* Scan through all the arguments to see how much space is needed.
*/
memcpy ((VOID *) &tmpArgList, (VOID *) &argList, sizeof (tmpArgList));
newSpace = 0;
while (1) {
string = va_arg(tmpArgList, char *);
if (string == NULL) {
break;
}
newSpace += strlen(string);
|