Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/parser/diderot.grm
ViewVC logotype

Diff of /trunk/src/parser/diderot.grm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 85, Wed May 26 19:51:10 2010 UTC revision 86, Wed May 26 22:23:17 2010 UTC
# Line 334  Line 334 
334                       of NONE => markExpr(FULL_SPAN, PT.E_Var ID)                       of NONE => markExpr(FULL_SPAN, PT.E_Var ID)
335                        | SOME args => markExpr(FULL_SPAN, PT.E_Apply(ID, args))                        | SOME args => markExpr(FULL_SPAN, PT.E_Apply(ID, args))
336                      (* end case *))                      (* end case *))
337          | ValueType "(" Arguments ")"          | "real" "(" Expr ")"
338                  => (markExpr(FULL_SPAN, PT.E_Cons(ValueType, Arguments)))                  => (markExpr(FULL_SPAN, PT.E_Real Expr))
339            | "[" Expr ("," Expr)* "]"
340                    => (markExpr(FULL_SPAN, PT.E_Cons(Expr::SR)))
341          | INT          | INT
342                  => (markExpr(FULL_SPAN, PT.E_Lit(L.Int INT)))                  => (markExpr(FULL_SPAN, PT.E_Lit(L.Int INT)))
343          | FLOAT          | FLOAT

Legend:
Removed from v.85  
changed lines
  Added in v.86

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0