-- 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\\ClassHG3DEventController.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.-- -- ClassHG3DEventController.chs-- moduleHGamer3D.Bindings.CEGUI.ClassHG3DEventControllerwhereimportForeignimportForeign.PtrimportForeign.CimportHGamer3D.Data.HG3DClassimportHGamer3D.Data.VectorimportHGamer3D.Data.ColourimportHGamer3D.Data.AngleimportHGamer3D.Bindings.CEGUI.Utils{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}importHGamer3D.Bindings.CEGUI.ClassPtr{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}importHGamer3D.Bindings.CEGUI.StructHG3DClass{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}{- function HG3DEventController -}new::IO(HG3DClass)new=alloca$\a1'->new'_a1'>>=\res->peeka1'>>=\a1''->return(a1''){-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}{- function ~HG3DEventController -}delete::HG3DClass->IO()deletea1=withHG3DClassa1$\a1'->delete'_a1'>>=\res->return(){-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}{- function pushEvent -}pushEvent::HG3DClass->String->String->HG3DClass->IO()pushEventa1a2a3a4=withHG3DClassa1$\a1'->withCStringa2$\a2'->withCStringa3$\a3'->withHG3DClassa4$\a4'->pushEvent'_a1'a2'a3'a4'>>=\res->return(){-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}{- function eventsAvailable -}eventsAvailable::HG3DClass->IO(Bool)eventsAvailablea1=withHG3DClassa1$\a1'->alloca$\a2'->eventsAvailable'_a1'a2'>>=\res->peekBoolUtila2'>>=\a2''->return(a2''){-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}{- function popEvent -}popEvent::HG3DClass->IO(String,String,HG3DClass)popEventa1=withHG3DClassa1$\a1'->alloc64k$\a2'->alloc64k$\a3'->alloca$\a4'->popEvent'_a1'a2'a3'a4'>>=\res->peekCStringa2'>>=\a2''->peekCStringa3'>>=\a3''->peeka4'>>=\a4''->return(a2'',a3'',a4''){-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}foreignimportccallsafe"HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h construct"new'_::((HG3DClassPtr)->(IO()))foreignimportccallsafe"HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h destruct"delete'_::((HG3DClassPtr)->(IO()))foreignimportccallsafe"HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h pushEvent"pushEvent'_::((HG3DClassPtr)->((PtrCChar)->((PtrCChar)->((HG3DClassPtr)->(IO())))))foreignimportccallsafe"HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h eventsAvailable"eventsAvailable'_::((HG3DClassPtr)->((PtrCInt)->(IO())))foreignimportccallsafe"HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h popEvent"popEvent'_::((HG3DClassPtr)->((PtrCChar)->((PtrCChar)->((HG3DClassPtr)->(IO())))))