1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE NoImplicitPrelude #-}
module Text.Read where
import Foreign.String
import Data.List
import Data.Function
import Compiler.Error
class Read a where
read :: [Char] -> a
instance Read Int where
read [] = error "Can't convert empty string to int."
read s = read_int (list_to_string s)
instance Read Double where
read [] = error "Can't convert empty string to double."
read s = read_double (list_to_string s)
foreign import bpcall "Prelude:" read_int :: CPPString -> Int
foreign import bpcall "Prelude:" read_double :: CPPString -> Double
|
