561 e <- initExpression |
561 e <- initExpression |
562 spaces |
562 spaces |
563 return (i ,e) |
563 return (i ,e) |
564 |
564 |
565 table = [ |
565 table = [ |
566 [ Infix (char '*' >> return (InitBinOp "*")) AssocLeft |
566 [ |
|
567 Prefix (char '-' >> return (InitPrefixOp "-")) |
|
568 ] |
|
569 , [ Infix (char '*' >> return (InitBinOp "*")) AssocLeft |
567 , Infix (char '/' >> return (InitBinOp "/")) AssocLeft |
570 , Infix (char '/' >> return (InitBinOp "/")) AssocLeft |
568 , Infix (try (string "div") >> return (InitBinOp "div")) AssocLeft |
571 , Infix (try (string "div") >> return (InitBinOp "div")) AssocLeft |
569 , Infix (try (string "mod") >> return (InitBinOp "mod")) AssocLeft |
572 , Infix (try (string "mod") >> return (InitBinOp "mod")) AssocLeft |
570 ] |
573 ] |
571 , [ Infix (char '+' >> return (InitBinOp "+")) AssocLeft |
574 , [ Infix (char '+' >> return (InitBinOp "+")) AssocLeft |
572 , Infix (char '-' >> return (InitBinOp "-")) AssocLeft |
575 , Infix (char '-' >> return (InitBinOp "-")) AssocLeft |
573 , Prefix (char '-' >> return (InitPrefixOp "-")) |
|
574 ] |
576 ] |
575 , [ Infix (try (string "<>") >> return (InitBinOp "<>")) AssocNone |
577 , [ Infix (try (string "<>") >> return (InitBinOp "<>")) AssocNone |
576 , Infix (try (string "<=") >> return (InitBinOp "<=")) AssocNone |
578 , Infix (try (string "<=") >> return (InitBinOp "<=")) AssocNone |
577 , Infix (try (string ">=") >> return (InitBinOp ">=")) AssocNone |
579 , Infix (try (string ">=") >> return (InitBinOp ">=")) AssocNone |
578 , Infix (char '<' >> return (InitBinOp "<")) AssocNone |
580 , Infix (char '<' >> return (InitBinOp "<")) AssocNone |