module Language.ObjC.Analysis.Builtins (builtins) where

import Language.ObjC.Data.Ident
import Language.ObjC.Data.Node
import Language.ObjC.Analysis.DefTable
import Language.ObjC.Analysis.SemRep
import Language.ObjC.Analysis.TypeUtils

builtins :: DefTable
builtins = foldr doIdent (foldr doTypeDef emptyDefTable typedefs) idents
  where doTypeDef d = snd . defineTypeDef (identOfTypeDef d) d
        doIdent   d = snd . defineGlobalIdent (declIdent d) d
        dName     s = VarName (builtinIdent s) Nothing
        param ty    = ParamDecl (VarDecl
                                 NoName
                                 (DeclAttrs False (Auto False) [])
                                 ty) undefNode
        fnAttrs     = DeclAttrs False (FunLinkage ExternalLinkage) []
        varAttrs    = DeclAttrs False (Static InternalLinkage False) []
        fnType r as = FunctionType (FunType r (map param as) False) noAttributes
        fnType' r as = FunctionType (FunType r (map param as) True) noAttributes
        func n r as = Declaration
                      (Decl
                       (VarDecl (dName n) fnAttrs (fnType r as))
                       undefNode)
        func' n r as = Declaration
                       (Decl
                        (VarDecl (dName n) fnAttrs (fnType' r as))
                        undefNode)
        var n t     = Declaration
                      (Decl (VarDecl (dName n) varAttrs t) undefNode)
        typedef n t = TypeDef (builtinIdent n) t [] undefNode
        typedefs    = [ typedef "__builtin_va_list"
                                valistType
                      ]
        idents      = [ func "__builtin_expect"
                             (integral TyLong)
                             [integral TyLong, integral TyLong]
                      , func "__builtin_fabs"
                             (floating TyDouble)
                             [floating TyDouble]
                      , func "__builtin_fabsf"
                             (floating TyFloat)
                             [floating TyFloat]
                      , func "__builtin_fabsl"
                             (floating TyLDouble)
                             [floating TyLDouble]
                      , func "__builtin_inf" (floating TyDouble) []
                      , func "__builtin_inff" (floating TyFloat) []
                      , func "__builtin_infl" (floating TyLDouble) []
                      , func "__builtin_huge_val" (floating TyDouble) []
                      , func "__builtin_huge_valf" (floating TyFloat) []
                      , func "__builtin_huge_vall" (floating TyLDouble) []
                      , func "__builtin_copysign"
                             (floating TyDouble)
                             [ floating TyDouble, floating TyDouble ]
                      , func "__builtin_va_start"
                             voidType
                             [ valistType , voidPtr ]
                      , func "__builtin_va_end"
                             voidType
                             [valistType]
                      , func "__builtin_va_copy"
                             voidType
                             [ valistType, valistType ]
                      , func "__builtin_va_arg_pack" (integral TyInt) []
                      , func "__builtin_va_arg_pack_len" (integral TyInt) []
                      , func "__builtin_alloca"
                             voidPtr
                             [ size_tType ]
                      , func "__builtin_memcpy"
                             voidPtr
                             [ voidPtr
                             , constVoidPtr
                             , size_tType
                             ]
                      , func "__builtin_strspn"
                             size_tType
                             [ constCharPtr, constCharPtr ]
                      , func "__builtin_strcspn"
                             size_tType
                             [ constCharPtr, constCharPtr ]
                      , func "__builtin_strchr"
                             charPtr
                             [ constCharPtr, integral TyInt]
                      , func "__builtin_strncpy"
                             charPtr
                             [ constCharPtr -- XXX: restrict
                             , constCharPtr -- XXX: restrict
                             , size_tType
                             ]
                      , func "__builtin_strncat"
                             charPtr
                             [ constCharPtr -- XXX: restrict
                             , constCharPtr -- XXX: restrict
                             , size_tType
                             ]
                      , func "__builtin_strcmp"
                             (integral TyInt)
                             [ constCharPtr, constCharPtr ]
                      , func "__builtin_strpbrk"
                             charPtr
                             [ constCharPtr, constCharPtr ]
                      , func "__builtin_bzero"
                             voidType
                             [ voidPtr, size_tType ]
                      , func "__builtin_clz"
                             (integral TyInt)
                             [ integral TyUInt ]
                      , func "__builtin_constant_p"
                             (integral TyInt)
                             [DirectType (TyBuiltin TyAny) noTypeQuals noAttributes]
                      -- XXX: I don't know if the following has the
                      -- correct type. It doesn't seem to be
                      -- documented.
                      , func "__builtin_extract_return_addr"
                             voidPtr
                             [ voidPtr ]
                      , func "__builtin_return_address"
                             voidPtr
                             [ integral TyUInt ]
                      , func "__builtin_frame_address"
                             voidPtr
                             [ integral TyUInt ]
                      , func "__builtin_expect"
                             (integral TyLong)
                             [ integral TyLong, integral TyLong ]
                      , func "__builtin_prefetch"
                             voidType
                             [ constVoidPtr ]
                      , var "__func__"
                            stringType
                      , var "__PRETTY_FUNCTION__"
                            stringType
                      , var "__FUNCTION__"
                            stringType
                      -- Builtin GCC error checking functions
                      , func "__builtin_object_size"
                             size_tType
                             [ voidPtr, integral TyInt ]
                      , func "__builtin___memcpy_chk"
                             voidPtr
                             [ voidPtr, constVoidPtr, size_tType, size_tType ]
                      , func "__builtin___mempcpy_chk"
                             voidPtr
                             [ voidPtr, constVoidPtr, size_tType, size_tType ]
                      , func "__builtin___memmove_chk"
                             voidPtr
                             [ voidPtr, constVoidPtr, size_tType, size_tType ]
                      , func "__builtin___memset_chk"
                             voidPtr
                             [ voidPtr, integral TyInt, size_tType, size_tType ]
                      , func "__builtin___strcpy_chk"
                             charPtr
                             [ constCharPtr -- XXX: restrict
                             , constCharPtr -- XXX: restrict
                             , size_tType
                             ]
                      , func "__builtin___stpcpy_chk"
                             charPtr
                             [ constCharPtr -- XXX: restrict
                             , constCharPtr -- XXX: restrict
                             , size_tType
                             ]
                      , func "__builtin___strncpy_chk"
                             charPtr
                             [ constCharPtr -- XXX: restrict
                             , constCharPtr -- XXX: restrict
                             , size_tType
                             , size_tType
                             ]
                      , func "__builtin___strcat_chk"
                             charPtr
                             [ constCharPtr -- XXX: restrict
                             , constCharPtr -- XXX: restrict
                             , size_tType
                             ]
                      , func "__builtin___strncat_chk"
                             charPtr
                             [ constCharPtr -- XXX: restrict
                             , constCharPtr -- XXX: restrict
                             , size_tType
                             , size_tType
                             ]
                      , func' "__builtin___sprintf_chk"
                             (integral TyInt)
                             [ charPtr
                             , integral TyInt
                             , size_tType
                             , constCharPtr
                             ]
                      , func' "__builtin___snprintf_chk"
                             (integral TyInt)
                             [ charPtr
                             , size_tType
                             , integral TyInt
                             , size_tType
                             , constCharPtr
                             ]
                      , func "__builtin___vsprintf_chk"
                             (integral TyInt)
                             [ charPtr
                             , integral TyInt
                             , size_tType
                             , constCharPtr
                             , valistType
                             ]
                      , func "__builtin___vsnprintf_chk"
                             (integral TyInt)
                             [ charPtr
                             , size_tType
                             , integral TyInt
                             , size_tType
                             , constCharPtr
                             , valistType
                             ]
                      ]