aa7b9a7281f365bde0a07df260c89b9b57e06474
1 /****************************************************************************
3 ****************************************************************************/
8 * This header file describes the externally-visible facilities
9 * of the Tcl interpreter.
11 * Copyright (c) 1987-1994 The Regents of the University of California.
12 * Copyright (c) 1994-1996 Sun Microsystems, Inc.
14 * See the file "license.terms" for information on usage and redistribution
15 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
17 * SCCS: @(#) tcl.h 1.283 96/10/02 17:17:39
27 #define kDstringStaticSize 200
29 typedef struct DString
{
30 char *pString
; /* Points to beginning of string: either
31 * staticSpace below or a malloc'ed array. */
32 int length
; /* Number of non-NULL characters in the
34 int spaceAvl
; /* Total number of bytes available for the
35 * string and its terminating NULL char. */
36 char staticSpace
[kDstringStaticSize
];
37 /* Space to use in common case where string
41 #define DStringLength(dsPtr) ((dsPtr)->length)
42 #define DStringValue(dsPtr) ((dsPtr)->pString)
43 #define DStringTrunc DStringSetLength
46 DStringAppend(DString
* dsPtr
,
51 DStringFree(DString
* dsPtr
);
54 DStringInit(DString
* dsPtr
);
57 DStringSetLength(DString
* dsPtr
,
61 DStringSprintf(DString
* pDs
,
65 DStringAppendLowerCase(DString
* pDs
,