tools/PascalParser.hs
changeset 6858 608c8b057c3b
parent 6836 42382794b73f
child 6875 6528171ce36d
equal deleted inserted replaced
6857:b34288c8fafa 6858:608c8b057c3b
   579           ]
   579           ]
   580         , [  Infix (try $ string "and" >> return (InitBinOp "and")) AssocLeft
   580         , [  Infix (try $ string "and" >> return (InitBinOp "and")) AssocLeft
   581            , Infix (try $ string "or" >> return (InitBinOp "or")) AssocLeft
   581            , Infix (try $ string "or" >> return (InitBinOp "or")) AssocLeft
   582            , Infix (try $ string "xor" >> return (InitBinOp "xor")) AssocLeft
   582            , Infix (try $ string "xor" >> return (InitBinOp "xor")) AssocLeft
   583           ]
   583           ]
   584         , [  Infix (try $ string "shl" >> return (InitBinOp "and")) AssocNone
   584         , [  Infix (try $ string "shl" >> return (InitBinOp "shl")) AssocNone
   585            , Infix (try $ string "shr" >> return (InitBinOp "or")) AssocNone
   585            , Infix (try $ string "shr" >> return (InitBinOp "shr")) AssocNone
   586           ]
   586           ]
   587         , [Prefix (try (string "not") >> return (InitPrefixOp "not"))]
   587         , [Prefix (try (string "not") >> return (InitPrefixOp "not"))]
   588         ]
   588         ]
   589 
   589 
   590     itypeCast = do
   590     itypeCast = do