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 34, Thu Feb 11 00:38:12 2010 UTC revision 35, Thu Feb 11 01:04:20 2010 UTC
# Line 262  Line 262 
262          ;          ;
263    
264  AtomExp  AtomExp
265          : ID          : ID ( "(" Arguments ")" )?
266                  => (markExpr(FULL_SPAN, PT.E_Var ID))                  => (case SR
267                         of NONE => markExpr(FULL_SPAN, PT.E_Var ID)
268                          | SOME args => markExpr(FULL_SPAN, PT.E_Apply(ID, args))
269                        (* end case *))
270          | POSINT          | POSINT
271                  => (markExpr(FULL_SPAN, PT.E_Lit(L.Int POSINT)))                  => (markExpr(FULL_SPAN, PT.E_Lit(L.Int POSINT)))
272          | NEGINT          | NEGINT

Legend:
Removed from v.34  
changed lines
  Added in v.35

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