casa-mp-base

--- 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_"])