380 , [ Infix (try (string "<>") >> return (BinOp "<>")) AssocNone |
380 , [ Infix (try (string "<>") >> return (BinOp "<>")) AssocNone |
381 , Infix (try (string "<=") >> return (BinOp "<=")) AssocNone |
381 , Infix (try (string "<=") >> return (BinOp "<=")) AssocNone |
382 , Infix (try (string ">=") >> return (BinOp ">=")) AssocNone |
382 , Infix (try (string ">=") >> return (BinOp ">=")) AssocNone |
383 , Infix (char '<' >> return (BinOp "<")) AssocNone |
383 , Infix (char '<' >> return (BinOp "<")) AssocNone |
384 , Infix (char '>' >> return (BinOp ">")) AssocNone |
384 , Infix (char '>' >> return (BinOp ">")) AssocNone |
385 , Infix (char '=' >> return (BinOp "=")) AssocNone |
|
386 ] |
385 ] |
387 , [ Infix (try $ string "shl" >> return (BinOp "shl")) AssocNone |
386 , [ Infix (try $ string "shl" >> return (BinOp "shl")) AssocNone |
388 , Infix (try $ string "shr" >> return (BinOp "shr")) AssocNone |
387 , Infix (try $ string "shr" >> return (BinOp "shr")) AssocNone |
389 ] |
388 ] |
390 , [ Infix (try $ string "and" >> return (BinOp "and")) AssocLeft |
389 , [ Infix (try $ string "and" >> return (BinOp "and")) AssocLeft |
391 , Infix (try $ string "or" >> return (BinOp "or")) AssocLeft |
390 , Infix (try $ string "or" >> return (BinOp "or")) AssocLeft |
392 , Infix (try $ string "xor" >> return (BinOp "xor")) AssocLeft |
391 , Infix (try $ string "xor" >> return (BinOp "xor")) AssocLeft |
|
392 ] |
|
393 , [ |
|
394 Infix (char '=' >> return (BinOp "=")) AssocNone |
393 ] |
395 ] |
394 ] |
396 ] |
395 strOrChar [a] = CharCode . show . ord $ a |
397 strOrChar [a] = CharCode . show . ord $ a |
396 strOrChar a = StringLiteral a |
398 strOrChar a = StringLiteral a |
397 |
399 |