diff options
author | dkf <dkf@noemail.net> | 2011-03-10 09:31:57 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2011-03-10 09:31:57 (GMT) |
commit | 6e96455cbb30c6c8811a0ff346039ed8cda3b6a9 (patch) | |
tree | b74fbaf07478b3a916755023109d8257208cc5f0 /generic/tclParse.c | |
parent | add492f5bdf280226f846665b3f671d44cc0ace9 (diff) | |
download | tcl-6e96455cbb30c6c8811a0ff346039ed8cda3b6a9.zip tcl-6e96455cbb30c6c8811a0ff346039ed8cda3b6a9.tar.gz tcl-6e96455cbb30c6c8811a0ff346039ed8cda3b6a9.tar.bz2 |
MINOR: Formatting fixes, mainly to comments, so code better fits the style in
the Engineering Manual.
FossilOrigin-Name: 5cb634a1c1fc60d754c5b98a3d8760b06f21e777
Diffstat (limited to 'generic/tclParse.c')
-rw-r--r-- | generic/tclParse.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index 705a141..ff7cdd6 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -479,11 +479,11 @@ Tcl_ParseCommand( if ((code != TCL_OK) || nakedbs) { /* - * Some list element could not be parsed, or contained - * naked backslashes. This means the literal string was - * not in fact a valid nor canonical list. Defer the - * handling of this to compile/eval time, where code is - * already in place to report the "attempt to expand a + * Some list element could not be parsed, or contained + * naked backslashes. This means the literal string was + * not in fact a valid nor canonical list. Defer the + * handling of this to compile/eval time, where code is + * already in place to report the "attempt to expand a * non-list" error or expand lists that require * substitution. */ @@ -1103,7 +1103,7 @@ ParseTokens( } /* - * This is a variable reference. Call Tcl_ParseVarName to do all + * This is a variable reference. Call Tcl_ParseVarName to do all * the dirty work of parsing the name. */ @@ -1127,7 +1127,7 @@ ParseTokens( } /* - * Command substitution. Call Tcl_ParseCommand recursively (and + * Command substitution. Call Tcl_ParseCommand recursively (and * repeatedly) to parse the nested command(s), then throw away the * parse information. */ @@ -1875,10 +1875,10 @@ Tcl_ParseQuotedString( * None. * * Side effects: - * The Tcl_Parse struct '*parsePtr' is filled with parse results. * The caller is expected to eventually call Tcl_FreeParse() to properly * cleanup the value written there. + * * If a parse error occurs, the Tcl_InterpState value '*statePtr' is * filled with the state created by that error. When *statePtr is written * to, the caller is expected to make the required calls to either |