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

Diff of /parser/parser.ml

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

revision 38 by abate, Tue Jul 10 16:59:59 2007 UTC revision 43 by abate, Tue Jul 10 17:00:25 2007 UTC
# Line 43  Line 43 
43    
44    phrase: [    phrase: [
45      [ e = expr -> EvalStatement e      [ e = expr -> EvalStatement e
46      | "type"; x = UIDENT; "="; t = pat -> TypeDecl (x,t) ]      | "type"; x = UIDENT; "="; t = pat -> TypeDecl (x,t)
47        | "debug"; d = debug_directive -> Debug d
48        ]
49      ];
50    
51      debug_directive: [
52        [ LIDENT "filter"; t = pat; p = pat -> `Filter(t,p)
53        | LIDENT "accept"; p = pat -> `Accept p;
54        | LIDENT "compile"; t = pat; p = LIST1 pat -> `Compile (t,p)
55        ]
56    ];    ];
57    
58    expr: [    expr: [
Legend:
Removed from v.38  
changed lines
  Added in v.43
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5