-- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE TypeSynonymInstances #-} -- This source file is part of HGamer3D -- (A project to enable 3D game development in Haskell) -- For the latest info, see http://www.althainz.de/HGamer3D.html -- -- (c) 2011, 2012 Peter Althainz -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at -- -- http://www.apache.org/licenses/LICENSE-2.0 -- -- Unless required by applicable law or agreed to in writing, software -- distributed under the License is distributed on an "AS IS" BASIS, -- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -- See the License for the specific language governing permissions and -- limitations under the License. -- -- ClassListHeader.chs -- module HGamer3D.Bindings.CEGUI.ClassListHeader where import Foreign import Foreign.Ptr import Foreign.C import HGamer3D.Data.HG3DClass import HGamer3D.Data.Vector import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.CEGUI.Utils {-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} import HGamer3D.Bindings.CEGUI.ClassPtr {-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} import HGamer3D.Bindings.CEGUI.EnumSortDirection {-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getColumnCount -} getColumnCount :: HG3DClass -> IO (Int) getColumnCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> getColumnCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') {-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getSegmentFromColumn -} getSegmentFromColumn :: HG3DClass -> Int -> IO (HG3DClass) getSegmentFromColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in alloca $ \a3' -> getSegmentFromColumn'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') {-# LINE 55 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getSegmentFromID -} getSegmentFromID :: HG3DClass -> Int -> IO (HG3DClass) getSegmentFromID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in alloca $ \a3' -> getSegmentFromID'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') {-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getSortSegment -} getSortSegment :: HG3DClass -> IO (HG3DClass) getSortSegment a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> getSortSegment'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') {-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getColumnFromSegment -} getColumnFromSegment :: HG3DClass -> HG3DClass -> IO (Int) getColumnFromSegment a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> alloca $ \a3' -> getColumnFromSegment'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getColumnFromID -} getColumnFromID :: HG3DClass -> Int -> IO (Int) getColumnFromID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in alloca $ \a3' -> getColumnFromID'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getSortColumn -} getSortColumn :: HG3DClass -> IO (Int) getSortColumn a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> getSortColumn'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getColumnWithText -} getColumnWithText :: HG3DClass -> String -> IO (Int) getColumnWithText a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> alloca $ \a3' -> getColumnWithText'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') {-# LINE 89 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getPixelOffsetToSegment -} getPixelOffsetToSegment :: HG3DClass -> HG3DClass -> IO (Float) getPixelOffsetToSegment a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> alloca $ \a3' -> getPixelOffsetToSegment'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') {-# LINE 95 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getPixelOffsetToColumn -} getPixelOffsetToColumn :: HG3DClass -> Int -> IO (Float) getPixelOffsetToColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in alloca $ \a3' -> getPixelOffsetToColumn'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') {-# LINE 101 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getTotalSegmentsPixelExtent -} getTotalSegmentsPixelExtent :: HG3DClass -> IO (Float) getTotalSegmentsPixelExtent a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> getTotalSegmentsPixelExtent'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 106 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getSortDirection -} getSortDirection :: HG3DClass -> IO (EnumSortDirection) getSortDirection a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> getSortDirection'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') {-# LINE 111 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function isSortingEnabled -} isSortingEnabled :: HG3DClass -> IO (Bool) isSortingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> isSortingEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 116 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function isColumnSizingEnabled -} isColumnSizingEnabled :: HG3DClass -> IO (Bool) isColumnSizingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> isColumnSizingEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 121 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function isColumnDraggingEnabled -} isColumnDraggingEnabled :: HG3DClass -> IO (Bool) isColumnDraggingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> isColumnDraggingEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 126 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function getSegmentOffset -} getSegmentOffset :: HG3DClass -> IO (Float) getSegmentOffset a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> getSegmentOffset'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 131 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function setSortingEnabled -} setSortingEnabled :: HG3DClass -> Bool -> IO () setSortingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in setSortingEnabled'_ a1' a2' >>= \res -> return () {-# LINE 136 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function setSortDirection -} setSortDirection :: HG3DClass -> EnumSortDirection -> IO () setSortDirection a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in setSortDirection'_ a1' a2' >>= \res -> return () {-# LINE 141 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function setSortSegment -} setSortSegment :: HG3DClass -> HG3DClass -> IO () setSortSegment a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> setSortSegment'_ a1' a2' >>= \res -> return () {-# LINE 146 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function setSortColumn -} setSortColumn :: HG3DClass -> Int -> IO () setSortColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in setSortColumn'_ a1' a2' >>= \res -> return () {-# LINE 151 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function setSortColumnFromID -} setSortColumnFromID :: HG3DClass -> Int -> IO () setSortColumnFromID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in setSortColumnFromID'_ a1' a2' >>= \res -> return () {-# LINE 156 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function setColumnSizingEnabled -} setColumnSizingEnabled :: HG3DClass -> Bool -> IO () setColumnSizingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in setColumnSizingEnabled'_ a1' a2' >>= \res -> return () {-# LINE 161 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function setColumnDraggingEnabled -} setColumnDraggingEnabled :: HG3DClass -> Bool -> IO () setColumnDraggingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in setColumnDraggingEnabled'_ a1' a2' >>= \res -> return () {-# LINE 166 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function removeColumn -} removeColumn :: HG3DClass -> Int -> IO () removeColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in removeColumn'_ a1' a2' >>= \res -> return () {-# LINE 171 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function removeSegment -} removeSegment :: HG3DClass -> HG3DClass -> IO () removeSegment a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> removeSegment'_ a1' a2' >>= \res -> return () {-# LINE 176 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function moveColumn -} moveColumn :: HG3DClass -> Int -> Int -> IO () moveColumn a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in let {a3' = fromIntegral a3} in moveColumn'_ a1' a2' a3' >>= \res -> return () {-# LINE 182 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function moveColumn2 -} moveColumn2 :: HG3DClass -> Int -> HG3DClass -> IO () moveColumn2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in withHG3DClass a3 $ \a3' -> moveColumn2'_ a1' a2' a3' >>= \res -> return () {-# LINE 188 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function moveSegment -} moveSegment :: HG3DClass -> HG3DClass -> Int -> IO () moveSegment a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> let {a3' = fromIntegral a3} in moveSegment'_ a1' a2' a3' >>= \res -> return () {-# LINE 194 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function moveSegment2 -} moveSegment2 :: HG3DClass -> HG3DClass -> HG3DClass -> IO () moveSegment2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> withHG3DClass a3 $ \a3' -> moveSegment2'_ a1' a2' a3' >>= \res -> return () {-# LINE 200 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function setSegmentOffset -} setSegmentOffset :: HG3DClass -> Float -> IO () setSegmentOffset a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in setSegmentOffset'_ a1' a2' >>= \res -> return () {-# LINE 205 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function ListHeader -} new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> alloca $ \a3' -> new'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') {-# LINE 211 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} {- function ~ListHeader -} delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 215 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getColumnCount" getColumnCount'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSegmentFromColumn" getSegmentFromColumn'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSegmentFromID" getSegmentFromID'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSortSegment" getSortSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getColumnFromSegment" getColumnFromSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getColumnFromID" getColumnFromID'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CUInt) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSortColumn" getSortColumn'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getColumnWithText" getColumnWithText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CUInt) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getPixelOffsetToSegment" getPixelOffsetToSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getPixelOffsetToColumn" getPixelOffsetToColumn'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CFloat) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getTotalSegmentsPixelExtent" getTotalSegmentsPixelExtent'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSortDirection" getSortDirection'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_isSortingEnabled" isSortingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_isColumnSizingEnabled" isColumnSizingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_isColumnDraggingEnabled" isColumnDraggingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSegmentOffset" getSegmentOffset'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortingEnabled" setSortingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortDirection" setSortDirection'_ :: ((HG3DClassPtr) -> (CInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortSegment" setSortSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortColumn" setSortColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortColumnFromID" setSortColumnFromID'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setColumnSizingEnabled" setColumnSizingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setColumnDraggingEnabled" setColumnDraggingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_removeColumn" removeColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_removeSegment" removeSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_moveColumn" moveColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (CUInt -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_moveColumn2" moveColumn2'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_moveSegment" moveSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CUInt -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_moveSegment2" moveSegment2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSegmentOffset" setSegmentOffset'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_construct" new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_destruct" delete'_ :: ((HG3DClassPtr) -> (IO ()))