equal
deleted
inserted
replaced
716 expr2C (NumberLiteral s) = do |
716 expr2C (NumberLiteral s) = do |
717 modify(\s -> s{lastType = BTInt}) |
717 modify(\s -> s{lastType = BTInt}) |
718 return $ text s |
718 return $ text s |
719 expr2C (FloatLiteral s) = return $ text s |
719 expr2C (FloatLiteral s) = return $ text s |
720 expr2C (HexNumber s) = return $ text "0x" <> (text . map toLower $ s) |
720 expr2C (HexNumber s) = return $ text "0x" <> (text . map toLower $ s) |
721 expr2C (StringLiteral [a]) = do |
721 {-expr2C (StringLiteral [a]) = do |
722 modify(\s -> s{lastType = BTChar}) |
722 modify(\s -> s{lastType = BTChar}) |
723 return . quotes . text $ escape a |
723 return . quotes . text $ escape a |
724 where |
724 where |
725 escape '\'' = "\\\'" |
725 escape '\'' = "\\\'" |
726 escape a = [a] |
726 escape a = [a]-} |
727 expr2C (StringLiteral s) = addStringConst s |
727 expr2C (StringLiteral s) = addStringConst s |
728 expr2C (Reference ref) = ref2CF ref |
728 expr2C (Reference ref) = ref2CF ref |
729 expr2C (PrefixOp op expr) = do |
729 expr2C (PrefixOp op expr) = do |
730 e <- expr2C expr |
730 e <- expr2C expr |
731 lt <- gets lastType |
731 lt <- gets lastType |