{-# LINE 1 "FreeType/Format/TrueType/Internal.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE PatternSynonyms #-}
module FreeType.Format.TrueType.Internal
(
ft_Get_Sfnt_Table'
, ft_Load_Sfnt_Table'
, ft_Sfnt_Table_Info'
, pattern FT_PARAM_TAG_UNPATENTED_HINTING
, pattern TT_PLATFORM_ISO
, pattern TT_APPLE_ID_ISO_10646
, pattern TT_ISO_ID_7BIT_ASCII
, pattern TT_ISO_ID_10646
, pattern TT_ISO_ID_8859_1
) where
import FreeType.Control.Parameter.Internal (pattern FT_PARAM_TAG_UNPATENTED_HINTING)
import FreeType.Core.Base.Types
import FreeType.Core.Types.Types
import FreeType.Format.TrueType.Types
import Foreign.Ptr
foreign import ccall "FT_Get_Sfnt_Table"
ft_Get_Sfnt_Table'
:: FT_Face
-> FT_Sfnt_Tag
-> IO (Ptr ())
foreign import ccall "FT_Load_Sfnt_Table"
ft_Load_Sfnt_Table'
:: FT_Face
-> FT_ULong
-> FT_Long
-> Ptr FT_Byte
-> Ptr FT_ULong
-> IO FT_Error
foreign import ccall "FT_Sfnt_Table_Info"
ft_Sfnt_Table_Info'
:: FT_Face
-> FT_UInt
-> Ptr FT_ULong
-> Ptr FT_ULong
-> IO FT_Error
pattern TT_PLATFORM_ISO :: FT_UShort
pattern TT_PLATFORM_ISO = 2
{-# LINE 65 "FreeType/Format/TrueType/Internal.hsc" #-}
pattern TT_APPLE_ID_ISO_10646 :: FT_UShort
pattern TT_APPLE_ID_ISO_10646 = 2
{-# LINE 70 "FreeType/Format/TrueType/Internal.hsc" #-}
pattern TT_ISO_ID_7BIT_ASCII
, TT_ISO_ID_10646
, TT_ISO_ID_8859_1
:: FT_UShort
pattern TT_ISO_ID_7BIT_ASCII = 0
{-# LINE 78 "FreeType/Format/TrueType/Internal.hsc" #-}
pattern TT_ISO_ID_10646 = 1
{-# LINE 79 "FreeType/Format/TrueType/Internal.hsc" #-}
pattern TT_ISO_ID_8859_1 = 2
{-# LINE 80 "FreeType/Format/TrueType/Internal.hsc" #-}