1 interface Oberon_Integer where
2 from_decimal_string :: [Char] -> Oberon_Integer
3 {-# ARITY from_decimal_string = 1 #-}
4 from_hex_string :: [Char] -> Oberon_Integer
5 {-# ARITY from_hex_string = 1 #-}
6 from_int :: Integer -> Oberon_Integer
7 {-# ARITY from_int = 1 #-}
8 isHexDigit :: Char -> Bool
9 {-# ARITY isHexDigit = 1 #-}
10 is_short_int :: Oberon_Integer -> Bool
11 {-# ARITY is_short_int = 1 #-}
13 instance Eq Oberon_Integer
14 {-# ARITY (==) = 2 #-}
15 {-# ARITY (/=) = 0 #-}
16 instance Text Oberon_Integer
17 {-# ARITY readsPrec = 0 #-}
18 {-# ARITY showsPrec = 2 #-}
19 {-# ARITY readList = 0 #-}
20 {-# ARITY showList = 0 #-}