comparison src/lacweb.grm @ 131:5df655503288

Untangle
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Jul 2008 12:19:44 -0400
parents e3041657d653
children f214c535d253
comparison
equal deleted inserted replaced
130:96bd3350e77d 131:5df655503288
343 xml), pos) 343 xml), pos)
344 else 344 else
345 (ErrorMsg.errorAt pos "Begin and end tags don't match."; 345 (ErrorMsg.errorAt pos "Begin and end tags don't match.";
346 (EFold, pos)) 346 (EFold, pos))
347 end) 347 end)
348 | LBRACE eexp RBRACE (eexp)
348 349
349 attrs : ([]) 350 attrs : ([])
350 | attr attrs (attr :: attrs) 351 | attr attrs (attr :: attrs)
351 352
352 attr : SYMBOL EQ attrv ((CName (uppercaseFirst SYMBOL), s (SYMBOLleft, SYMBOLright)), attrv) 353 attr : SYMBOL EQ attrv ((CName (uppercaseFirst SYMBOL), s (SYMBOLleft, SYMBOLright)), attrv)