Mercurial > urweb

diff src/lacweb.grm @ 100:f0f59e918cac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
page declaration, up through monoize
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Jul 2008 10:11:35 -0400
parents 94afff1ff7f6
children b1e5398a7f30
line wrap: on
line diff
--- a/src/lacweb.grm	Thu Jul 10 09:24:43 2008 -0400
+++ b/src/lacweb.grm	Thu Jul 10 10:11:35 2008 -0400
@@ -46,7 +46,7 @@
  | ARROW | LARROW | DARROW
  | FN | PLUSPLUS | DOLLAR | TWIDDLE
  | STRUCTURE | SIGNATURE | STRUCT | SIG | END | FUNCTOR | WHERE | EXTERN
- | INCLUDE | OPEN | CONSTRAINT | CONSTRAINTS
+ | INCLUDE | OPEN | CONSTRAINT | CONSTRAINTS | PAGE
 
  | XML_BEGIN of string | XML_END
  | NOTAGS of string 
@@ -140,6 +140,7 @@
                                              [] => raise Fail "Impossible mpath parse [3]"
                                            | m :: ms => (DOpenConstraints (m, ms), s (OPENleft, mpathright)))
        | CONSTRAINT cterm TWIDDLE cterm (DConstraint (cterm1, cterm2), s (CONSTRAINTleft, ctermright))
+       | PAGE eexp                      (DPage eexp, s (PAGEleft, eexpright))
 
 sgn    : sgntm                          (sgntm)
        | FUNCTOR LPAREN CSYMBOL COLON sgn RPAREN COLON sgn