Author: mdiep Date: Sat Aug 20 07:39:38 2005 New Revision: 9007 Modified: trunk/languages/tcl/lib/expression.pir trunk/languages/tcl/lib/parser.pir Log: tcl: Rename _Tcl::parse_variable t _Tcl::get_variable
Modified: trunk/languages/tcl/lib/expression.pir ============================================================================== --- trunk/languages/tcl/lib/expression.pir (original) +++ trunk/languages/tcl/lib/expression.pir Sat Aug 20 07:39:38 2005 @@ -58,7 +58,7 @@ chunk_loop: $I0 = ord expr, chunk_start if $I0 == 91 goto subcommand # [ if $I0 == 40 goto get_parenthetical # ( - if $I0 == 36 goto get_variable # $ + if $I0 == 36 goto variable # $ if $I0 == 46 goto get_number # . $I0 = is_wordchar expr, chunk_start @@ -109,8 +109,8 @@ get_paren_done: chunk_start += $I0 goto chunk_loop -get_variable: - (retval, chunk_start) = parse_variable(expr, chunk_start) +variable: + (retval, chunk_start) = get_variable(expr, chunk_start) chunk = new TclList chunk[0] = OPERAND Modified: trunk/languages/tcl/lib/parser.pir ============================================================================== --- trunk/languages/tcl/lib/parser.pir (original) +++ trunk/languages/tcl/lib/parser.pir Sat Aug 20 07:39:38 2005 @@ -261,7 +261,7 @@ variable: push word, $P0 variable2: - ($P0, pos) = parse_variable(tcl_code, pos) + ($P0, pos) = get_variable(tcl_code, pos) push word, $P0 dec pos start = pos + 1 @@ -359,7 +359,7 @@ variable: push word, $P0 variable2: - ($P0, pos) = parse_variable(tcl_code, pos) + ($P0, pos) = get_variable(tcl_code, pos) push word, $P0 dec pos start = pos + 1 @@ -508,7 +508,7 @@ Parses a subcommand and returns a TclCom .return get_command(tcl_code, chars, pos) .end -=item C<(pmc var, int pos) = parse_variable(string tcl_code, int pos)> +=item C<(pmc var, int pos) = get_variable(string tcl_code, int pos)> If it's really a variable, returns a TclVar object. If it's something else, return a TclConst object. @@ -520,7 +520,7 @@ something else, return a TclConst object =cut -.sub parse_variable +.sub get_variable .param string tcl_code .param int pos inc pos
