GitHub/haskell-wasm
1
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix float numbers parsing

Browse Source
This commit is contained in:
Ilya Rezvov
2018-04-10 15:04:18 -07:00
parent f4e008ab9a
commit f6cae32148
4 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Language/Wasm/Lexer.x
+4 -4
View File
@@ -141,7 +141,7 @@ parseHexFloat :: AlexAction Lexeme
parseHexFloat = token $ \(pos, _, s, _) len ->
let (sign, slen) = parseSign s in
let ('0' : 'x' : str) = filter (/= '_') $ takeChars (len - slen) $ LBS.drop slen s in
Lexeme pos $ TFloatLit $ readHexFloat str
Lexeme pos $ TFloatLit $ sign $ readHexFloat str
startBlockComment :: AlexAction Lexeme
startBlockComment _inp _len = do
@@ -340,14 +340,14 @@ readHexFloat str =
readHexExp :: String -> Double
readHexExp [] = 1
readHexExp ('+' : rest) = readHexExp rest
readHexExp ('-' : rest) = negate $ readHexExp rest
readHexExp expStr = 2 * read expStr
readHexExp ('-' : rest) = 1 / readHexExp rest
readHexExp expStr = 2 ^ read expStr
readHexFrac :: String -> Double
readHexFrac [] = 0
readHexFrac val =
let len = length val in
sum $ zipWith (\i c -> readHexFromChar c / (16 ^ len - i)) [1..] val
sum $ zipWith (\i c -> readHexFromChar c / (16 ^ i)) [1..] val
scanner :: LBS.ByteString -> Either String [Lexeme]
scanner str = runAlex str loop