{-# LINE 1 "FreeType/Control/Driver/Types.hsc" #-} module FreeType.Control.Driver.Types where import FreeType.Core.Base.Types import FreeType.Core.Types.Types import Foreign.Ptr import Foreign.Storable data FT_Prop_GlyphToScriptMap = FT_Prop_GlyphToScriptMap { pgtsmFace :: FT_Face , pgtsmMap :: Ptr FT_UShort } instance Storable FT_Prop_GlyphToScriptMap where sizeOf _ = (16) {-# LINE 21 "FreeType/Control/Driver/Types.hsc" #-} alignment _ = 8 {-# LINE 22 "FreeType/Control/Driver/Types.hsc" #-} peek ptr = FT_Prop_GlyphToScriptMap <$> (\hsc_ptr -> peekByteOff hsc_ptr 0) ptr {-# LINE 26 "FreeType/Control/Driver/Types.hsc" #-} <*> (\hsc_ptr -> peekByteOff hsc_ptr 8) ptr {-# LINE 27 "FreeType/Control/Driver/Types.hsc" #-} poke ptr val = do (\hsc_ptr -> pokeByteOff hsc_ptr 0) ptr $ pgtsmFace val {-# LINE 30 "FreeType/Control/Driver/Types.hsc" #-} (\hsc_ptr -> pokeByteOff hsc_ptr 8) ptr $ pgtsmMap val {-# LINE 31 "FreeType/Control/Driver/Types.hsc" #-} data FT_Prop_IncreaseXHeight = FT_Prop_IncreaseXHeight { pixhFace :: FT_Face , pixhLimit :: FT_UInt } instance Storable FT_Prop_IncreaseXHeight where sizeOf _ = (16) {-# LINE 41 "FreeType/Control/Driver/Types.hsc" #-} alignment _ = 8 {-# LINE 42 "FreeType/Control/Driver/Types.hsc" #-} peek ptr = FT_Prop_IncreaseXHeight <$> (\hsc_ptr -> peekByteOff hsc_ptr 0) ptr {-# LINE 46 "FreeType/Control/Driver/Types.hsc" #-} <*> (\hsc_ptr -> peekByteOff hsc_ptr 8) ptr {-# LINE 47 "FreeType/Control/Driver/Types.hsc" #-} poke ptr val = do (\hsc_ptr -> pokeByteOff hsc_ptr 0) ptr $ pixhFace val {-# LINE 50 "FreeType/Control/Driver/Types.hsc" #-} (\hsc_ptr -> pokeByteOff hsc_ptr 8) ptr $ pixhLimit val {-# LINE 51 "FreeType/Control/Driver/Types.hsc" #-}