/[svn]/parser/parser.ml
ViewVC logotype

Diff of /parser/parser.ml

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

revision 25 by abate, Tue Jul 10 16:58:57 2007 UTC revision 26 by abate, Tue Jul 10 16:59:08 2007 UTC
# Line 69  Line 69 
69      | e1 = expr; "@"; e2 = expr -> mk loc (Op ("@",[e1;e2])) ]      | e1 = expr; "@"; e2 = expr -> mk loc (Op ("@",[e1;e2])) ]
70      |      |
71      [ e1 = expr; "*"; e2 = expr -> mk loc (Op ("*",[e1;e2]))  ]      [ e1 = expr; "*"; e2 = expr -> mk loc (Op ("*",[e1;e2]))  ]
72        |
73        [ e = expr;  "."; l = [LIDENT | UIDENT] -> mk loc (Dot (e,Types.label l)) ]
74    
75      | "no_appl"      | "no_appl"
76      [ c = const -> mk loc (Cst c)      [ c = const -> mk loc (Cst c)
Legend:
Removed from v.25  
changed lines
  Added in v.26
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5