SCM Repository
| [diderot] / trunk / src / parser / diderot.grm |
Diff of /trunk/src/parser/diderot.grm
Parent Directory
| 
Revision Log
| 
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 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
