[hoc-cvs] [hoc commit] r345 - trunk/hoc/InterfaceGenerator2

[<cod...@go...>]

Author: grddev
Date: Wed Oct 29 04:07:25 2008
New Revision: 345

Modified:
    trunk/hoc/InterfaceGenerator2/Parser.hs

Log:
Assume CGFloat=float to fix build on 10.5.5


Modified: trunk/hoc/InterfaceGenerator2/Parser.hs
==============================================================================
--- trunk/hoc/InterfaceGenerator2/Parser.hs	(original)
+++ trunk/hoc/InterfaceGenerator2/Parser.hs	Wed Oct 29 04:07:25 2008
@@ -256,7 +256,9 @@
      typ <- identifier objc
      if typ `elem` ["char","short","int","float","double"]
          then return typ
-        else fail "not a built-in type"
+        else if typ == "CGFloat"
+          then return "float" -- NOTE: Assumes 32 bit...
+          else fail "not a built-in type"

  id_type = do
      reserved objc "id"