[add readTy to read in a C.Op.Ty from a string
John Meacham <john@repetae.net>**20070524173712] hunk ./C/Op.hs 4
+import Util.Gen
hunk ./C/Op.hs 173
+readTy :: Monad m => String -> m Ty
+readTy "bool" = return TyBool
+readTy "bits<ptr>" = return $ TyBits (BitsArch BitsPtr) HintNone
+readTy "bits<max>" = return $ TyBits (BitsArch BitsMax) HintNone
+readTy "bits<int>" = return $ TyBits (BitsArch BitsInt) HintNone
+readTy ('b':'i':'t':'s':'<':rs) = return $ TyBits (BitsExt (takeWhile ('>' /=) rs)) HintNone
+readTy ('b':'i':'t':'s':rs) = do n <- readM rs; return $ TyBits (Bits n) HintNone
+readTy ('s':rs) = do TyBits x _ <- readTy rs; return $ TyBits x HintSigned
+readTy ('u':rs) = do TyBits x _ <- readTy rs; return $ TyBits x HintUnsigned
+readTy ('f':rs) = do TyBits x _ <- readTy rs; return $ TyBits x HintFloat
+readTy ('c':rs) = do TyBits x _ <- readTy rs; return $ TyBits x HintCharacter
+readTy _ = fail "readTy: not type"
+
+
hunk ./C/Op.hs 192
-    showsPrec _ HintNone = ('?':)
+    showsPrec _ HintNone = id