summaryrefslogtreecommitdiffstats
path: root/src/bltParse.C
diff options
context:
space:
mode:
Diffstat (limited to 'src/bltParse.C')
-rw-r--r--src/bltParse.C148
1 files changed, 8 insertions, 140 deletions
diff --git a/src/bltParse.C b/src/bltParse.C
index f968cf0..14fb262 100644
--- a/src/bltParse.C
+++ b/src/bltParse.C
@@ -184,81 +184,15 @@ static unsigned char tclTypeTable[] =
#define CHAR_TYPE(src,last) \
(((src)==(last))?TCL_COMMAND_END:(tclTypeTable+128)[(int)*(src)])
-/*
- *---------------------------------------------------------------------------
- *
- * Blt_ParseNestedCmd --
- *
- * This procedure parses a nested TCL command between
- * brackets, returning the result of the command.
- *
- * Results:
- * The return value is a standard TCL result, which is
- * TCL_OK unless there was an error while executing the
- * nested command. If an error occurs then interp->result
- * contains a standard error message. *TermPtr is filled
- * in with the address of the character just after the
- * last one processed; this is usually the character just
- * after the matching close-bracket, or the null character
- * at the end of the string if the close-bracket was missing
- * (a missing close bracket is an error). The result returned
- * by the command is stored in standard fashion in *parsePtr,
- * null-terminated, with parsePtr->next pointing to the null
- * character.
- *
- * Side effects:
- * The storage space at *parsePtr may be expanded.
- *
- *---------------------------------------------------------------------------
- */
+int Blt_ParseNestedCmd(Tcl_Interp* interp, const char *string,
+ int flags, const char **termPtr, ParseValue *parsePtr)
-int Blt_ParseNestedCmd(
- Tcl_Interp* interp, /* Interpreter to use for nested command
- * evaluations and error messages. */
- const char *string, /* Character just after opening bracket. */
- int flags, /* Flags to pass to nested Tcl_Eval. */
- const char **termPtr, /* Store address of terminating character
- * here. */
- ParseValue *parsePtr) /* Information about where to place
- * result of command. */
{
return TCL_ERROR;
}
-/*
- *---------------------------------------------------------------------------
- *
- * Blt_ParseBraces --
- *
- * This procedure scans the information between matching
- * curly braces.
- *
- * Results:
- * The return value is a standard TCL result, which is
- * TCL_OK unless there was an error while parsing string.
- * If an error occurs then interp->result contains a
- * standard error message. *TermPtr is filled
- * in with the address of the character just after the
- * last one successfully processed; this is usually the
- * character just after the matching close-brace. The
- * information between curly braces is stored in standard
- * fashion in *parsePtr, null-terminated with parsePtr->next
- * pointing to the terminating null character.
- *
- * Side effects:
- * The storage space at *parsePtr may be expanded.
- *
- *---------------------------------------------------------------------------
- */
-
-int Blt_ParseBraces(
- Tcl_Interp* interp, /* Interpreter to use for nested command
- * evaluations and error messages. */
- const char *string, /* Character just after opening bracket. */
- const char **termPtr, /* Store address of terminating character
- * here. */
- ParseValue *parsePtr) /* Information about where to place
- * result of command. */
+int Blt_ParseBraces(Tcl_Interp* interp, const char *string,
+ const char **termPtr, ParseValue *parsePtr)
{
int level;
const char *src;
@@ -339,34 +273,8 @@ int Blt_ParseBraces(
return TCL_OK;
}
-/*
- *---------------------------------------------------------------------------
- *
- * Blt_ExpandParseValue --
- *
- * This procedure is commonly used as the value of the
- * expandProc in a ParseValue. It uses malloc to allocate
- * more space for the result of a parse.
- *
- * Results:
- * The buffer space in *parsePtr is reallocated to something
- * larger, and if parsePtr->clientData is non-zero the old
- * buffer is freed. Information is copied from the old
- * buffer to the new one.
- *
- * Side effects:
- * None.
- *
- *---------------------------------------------------------------------------
- */
-void Blt_ExpandParseValue(
- ParseValue *parsePtr, /* 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
- * to allocate. */
+void Blt_ExpandParseValue(ParseValue *parsePtr, int needed)
+
{
/*
* Either double the size of the buffer or add enough new space
@@ -395,48 +303,8 @@ void Blt_ExpandParseValue(
parsePtr->clientData = (ClientData)1;
}
-/*
- *---------------------------------------------------------------------------
- *
- * Blt_ParseQuotes --
- *
- * This procedure parses a double-quoted string such as a
- * quoted TCL command argument or a quoted value in a Tcl
- * expression. This procedure is also used to parse array
- * element names within parentheses, or anything else that
- * needs all the substitutions that happen in quotes.
- *
- * Results:
- * The return value is a standard TCL result, which is
- * TCL_OK unless there was an error while parsing the
- * quoted string. If an error occurs then interp->result
- * contains a standard error message. *TermPtr is filled
- * in with the address of the character just after the
- * last one successfully processed; this is usually the
- * character just after the matching close-quote. The
- * fully-substituted contents of the quotes are stored in
- * standard fashion in *parsePtr, null-terminated with
- * parsePtr->next pointing to the terminating null character.
- *
- * Side effects:
- * The buffer space in parsePtr may be enlarged by calling its
- * expandProc.
- *
- *---------------------------------------------------------------------------
- */
-int Blt_ParseQuotes(
- Tcl_Interp* interp, /* Interpreter to use for nested command
- * evaluations and error messages. */
- const char *string, /* Character just after opening double-
- * quote. */
- 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. */
- const char **termPtr, /* Store address of terminating character
- * here. */
- ParseValue *parsePtr) /* Information about where to place
- * fully-substituted result of parse. */
+int Blt_ParseQuotes(Tcl_Interp* interp, const char *string, int termChar,
+ int flags, const char **termPtr, ParseValue *parsePtr)
{
const char *src;
char *dest, c;