--- InterfaceGenerator2/Parser.hs.orig	2010-03-23 02:10:18.000000000 +0100
+++ InterfaceGenerator2/Parser.hs	2010-03-23 02:21:31.000000000 +0100
@@ -125,6 +125,7 @@
             do
                 val <- integer objc
                 optional (reserved objc "U" <|> reserved objc "L"
+                            <|> reserved objc "ULL"
                             <|> reserved objc "UL") -- ### TODO: no space allowed before 'U'
                 return val
 
@@ -402,6 +403,10 @@
        parens objc (skipParens)
        return ()
     <|>
+    do reserved objc "NS_FORMAT_FUNCTION" <|> reserved objc "__OSX_AVAILABLE_STARTING"
+       skipParens
+       return ()
+    <|>
     do x <- identifier objc
        guard $ all (\c -> isUpper c || isDigit c || c == '_') x
        -- guard (any (`isPrefixOf` x) ["AVAILABLE_MAC_", "DEPRECATED_IN_"])