380 , Infix (try (string ">=") >> return (BinOp ">=")) AssocNone |
380 , Infix (try (string ">=") >> return (BinOp ">=")) AssocNone |
381 , Infix (char '<' >> return (BinOp "<")) AssocNone |
381 , Infix (char '<' >> return (BinOp "<")) AssocNone |
382 , Infix (char '>' >> return (BinOp ">")) AssocNone |
382 , Infix (char '>' >> return (BinOp ">")) AssocNone |
383 , Infix (char '=' >> return (BinOp "=")) AssocNone |
383 , Infix (char '=' >> return (BinOp "=")) AssocNone |
384 ] |
384 ] |
|
385 , [ Infix (try $ string "shl" >> return (BinOp "shl")) AssocNone |
|
386 , Infix (try $ string "shr" >> return (BinOp "shr")) AssocNone |
|
387 ] |
385 , [ Infix (try $ string "and" >> return (BinOp "and")) AssocLeft |
388 , [ Infix (try $ string "and" >> return (BinOp "and")) AssocLeft |
386 , Infix (try $ string "or" >> return (BinOp "or")) AssocLeft |
389 , Infix (try $ string "or" >> return (BinOp "or")) AssocLeft |
387 , Infix (try $ string "xor" >> return (BinOp "xor")) AssocLeft |
390 , Infix (try $ string "xor" >> return (BinOp "xor")) AssocLeft |
388 ] |
|
389 , [ Infix (try $ string "shl" >> return (BinOp "shl")) AssocNone |
|
390 , Infix (try $ string "shr" >> return (BinOp "shr")) AssocNone |
|
391 ] |
391 ] |
392 ] |
392 ] |
393 |
393 |
394 phrasesBlock = do |
394 phrasesBlock = do |
395 try $ string "begin" |
395 try $ string "begin" |