Author: coke Date: Mon Sep 19 06:37:55 2005 New Revision: 9211 Modified: branches/leo-ctx5/languages/tcl/lib/expression.pir Log: Add basic support for quoted operands in expr. Passes a few more tcl [expr] tests, but it's not perfect.
Modified: branches/leo-ctx5/languages/tcl/lib/expression.pir ============================================================================== --- branches/leo-ctx5/languages/tcl/lib/expression.pir (original) +++ branches/leo-ctx5/languages/tcl/lib/expression.pir Mon Sep 19 06:37:55 2005 @@ -174,6 +174,7 @@ eat_space: if $I0 == 40 goto subexpr # ( if $I0 == 36 goto variable # $ if $I0 == 46 goto number # . + if $I0 == 34 goto quote # " if $I0 == 45 goto unary # - if $I0 == 43 goto unary # + if $I0 == 47 goto unary # ~ @@ -201,6 +202,9 @@ function: number: .return get_number(expr, pos) +quote: + .return get_quote(expr, pos) + unary: .return get_unary(expr, pos)
