[clean out old irrelevant code in Number.hs
John Meacham <john@repetae.net>**20080221032134] hunk ./Number.hs 1
-module Number(Number(..),TypeInfo,toIntegral) where
+module Number(Number(..),toIntegral) where
hunk ./Number.hs 6
-data NumType = Signed | Unsigned | Floating | Pointer
-data Value a = Known a | Unknown | AtLeast a | GreatestOfAll
-
-data TypeInfo = TypeInfo {
-    typeType :: NumType,
-    typeBytes :: Value Int
-    }
-
-{-
-signed v n = (toName RawType v,TypeInfo Signed (Known n))
-unsigned v n = (toName RawType v,TypeInfo Unsigned (Known n))
-typeTable = [
-    signed "int" 0 { typeBytes = AtLeast 4 },
-    unsigned "unsigned int" 0 { typeBytes = AtLeast 4 },
-    signed "int8_t" 1,
-    signed "int16_t" 2,
-    signed "int32_t" 4,
-    signed "int64_t" 8,
-    signed "intmax_t" 0 { typeBytes = GreatestOfAll },
-    signed "intptr_t" 0 { typeBytes = AtLeast 4 },
-    unsigned "uint8_t" 1,
-    unsigned "uint16_t" 2,
-    unsigned "uint32_t" 4,
-    unsigned "uint64_t" 8,
-    unsigned "uintmax_t" 0 { typeBytes = GreatestOfAll },
-    unsigned "uintptr_t" 0 { typeBytes = AtLeast 4 },
-    unsigned "wchar_t" 0   { typeBytes = AtLeast 4 },
-    signed "wint_t" 0   { typeBytes = AtLeast 4 },
-    unsigned "size_t" 0   { typeBytes = AtLeast 4 },
-    signed "ssize_t" 0   { typeBytes = AtLeast 4 },
-    (toName RawType "HsPtr", TypeInfo Pointer (AtLeast 4)),
-    (toName RawType "HsFunPtr", TypeInfo Pointer (AtLeast 4)),
-    unsigned "char" 1,
-    unsigned "short" 2 { typeBytes = AtLeast 2 }
-    ]
-
- -}
-
hunk ./Number.hs 26
---instance Show Number where
-
---data Number = Number {
---    numberValue :: Ratio,
---    numberType :: Atom
---    }
-
-