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

Diff of /parser/parser.ml

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

revision 50 by abate, Tue Jul 10 17:00:57 2007 UTC revision 51 by abate, Tue Jul 10 17:01:10 2007 UTC
# Line 73  Line 73 
73      ]      ]
74    
75      |      |
76      [ e1 = expr; "+"; e2 = expr -> mk loc (Op ("+",[e1;e2]))      [ e1 = expr; op = ["+" | "-" | "@"]; e2 = expr -> mk loc (Op (op,[e1;e2]))
77      | e1 = expr; "@"; e2 = expr -> mk loc (Op ("@",[e1;e2])) ]      ]
78      |      |
79      [ e1 = expr; "*"; e2 = expr -> mk loc (Op ("*",[e1;e2]))  ]      [ e1 = expr; op = ["*" | "/"]; e2 = expr -> mk loc (Op (op,[e1;e2]))
80        ]
81      |      |
82      [ e = expr;  "."; l = [LIDENT | UIDENT] -> mk loc (Dot (e,Types.label l)) ]      [ e = expr;  "."; l = [LIDENT | UIDENT] -> mk loc (Dot (e,Types.label l))
83        ]
84    
85      | "no_appl"      | "no_appl"
86      [ c = const -> mk loc (Cst c)      [ c = const -> mk loc (Cst c)
Legend:
Removed from v.50  
changed lines
  Added in v.51
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5