module Bindings.PpDev where
import System.Posix.IOCtl
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
import Data.Typeable (Typeable)
deriving instance Typeable C'timeval
deriving instance Typeable C'ppdev_frob_struct
data C'timeval = C'timeval{
c'timeval'tv_sec :: CLong
,
c'timeval'tv_usec :: CLong
} deriving (Eq,Show)
instance Storable C'timeval where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'timeval v0 v1
poke p (C'timeval v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
c'PP_IOCTL = 112
c'PP_IOCTL :: (Num a) => a
c'PPSETMODE = 1074032768
c'PPSETMODE :: (Num a) => a
data C'PPSETMODE = C'PPSETMODE
instance IOControl C'PPSETMODE CInt where ioctlReq _ = c'PPSETMODE
c'PPRSTATUS = 2147577985
c'PPRSTATUS :: (Num a) => a
data C'PPRSTATUS = C'PPRSTATUS
instance IOControl C'PPRSTATUS CUChar where ioctlReq _ = c'PPRSTATUS
c'PPRCONTROL = 2147577987
c'PPRCONTROL :: (Num a) => a
data C'PPRCONTROL = C'PPRCONTROL
instance IOControl C'PPRCONTROL CUChar where ioctlReq _ = c'PPRCONTROL
c'PPWCONTROL = 1073836164
c'PPWCONTROL :: (Num a) => a
data C'PPWCONTROL = C'PPWCONTROL
instance IOControl C'PPWCONTROL CUChar where ioctlReq _ = c'PPWCONTROL
data C'ppdev_frob_struct = C'ppdev_frob_struct{
c'ppdev_frob_struct'mask :: CUChar
,
c'ppdev_frob_struct'val :: CUChar
} deriving (Eq,Show)
instance Storable C'ppdev_frob_struct where
sizeOf _ = 2
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 1
return $ C'ppdev_frob_struct v0 v1
poke p (C'ppdev_frob_struct v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 1 v1
return ()
c'PPFCONTROL = 1073901710
c'PPFCONTROL :: (Num a) => a
data C'PPFCONTROL = C'PPFCONTROL
instance IOControl C'PPFCONTROL C'ppdev_frob_struct where ioctlReq _ = c'PPFCONTROL
c'PPRDATA = 2147577989
c'PPRDATA :: (Num a) => a
data C'PPRDATA = C'PPRDATA
instance IOControl C'PPRDATA CUChar where ioctlReq _ = c'PPRDATA
c'PPWDATA = 1073836166
c'PPWDATA :: (Num a) => a
data C'PPWDATA = C'PPWDATA
instance IOControl C'PPWDATA CUChar where ioctlReq _ = c'PPWDATA
c'PPCLAIM = 28811
c'PPCLAIM :: (Num a) => a
data C'PPCLAIM = C'PPCLAIM
instance IOControl C'PPCLAIM CInt where ioctlReq _ = c'PPCLAIM
c'PPRELEASE = 28812
c'PPRELEASE :: (Num a) => a
data C'PPRELEASE = C'PPRELEASE
instance IOControl C'PPRELEASE CInt where ioctlReq _ = c'PPRELEASE
c'PPYIELD = 28813
c'PPYIELD :: (Num a) => a
data C'PPYIELD = C'PPYIELD
instance IOControl C'PPYIELD CInt where ioctlReq _ = c'PPYIELD
c'PPEXCL = 28815
c'PPEXCL :: (Num a) => a
data C'PPEXCL = C'PPEXCL
instance IOControl C'PPEXCL CInt where ioctlReq _ = c'PPEXCL
c'PPDATADIR = 1074032784
c'PPDATADIR :: (Num a) => a
data C'PPDATADIR = C'PPDATADIR
instance IOControl C'PPDATADIR CInt where ioctlReq _ = c'PPDATADIR
c'PPNEGOT = 1074032785
c'PPNEGOT :: (Num a) => a
data C'PPNEGOT = C'PPNEGOT
instance IOControl C'PPNEGOT CInt where ioctlReq _ = c'PPNEGOT
c'PPWCTLONIRQ = 1073836178
c'PPWCTLONIRQ :: (Num a) => a
data C'PPWCTLONIRQ = C'PPWCTLONIRQ
instance IOControl C'PPWCTLONIRQ CUChar where ioctlReq _ = c'PPWCTLONIRQ
c'PPCLRIRQ = 2147774611
c'PPCLRIRQ :: (Num a) => a
data C'PPCLRIRQ = C'PPCLRIRQ
instance IOControl C'PPCLRIRQ CInt where ioctlReq _ = c'PPCLRIRQ
c'PPSETPHASE = 1074032788
c'PPSETPHASE :: (Num a) => a
data C'PPSETPHASE = C'PPSETPHASE
instance IOControl C'PPSETPHASE CInt where ioctlReq _ = c'PPSETPHASE
c'PPGETTIME = 2148036757
c'PPGETTIME :: (Num a) => a
data C'PPGETTIME = C'PPGETTIME
instance IOControl C'PPGETTIME C'timeval where ioctlReq _ = c'PPGETTIME
c'PPSETTIME = 1074294934
c'PPSETTIME :: (Num a) => a
data C'PPSETTIME = C'PPSETTIME
instance IOControl C'PPSETTIME C'timeval where ioctlReq _ = c'PPSETTIME
c'PPGETMODES = 2147774615
c'PPGETMODES :: (Num a) => a
data C'PPGETMODES = C'PPGETMODES
instance IOControl C'PPGETMODES CUInt where ioctlReq _ = c'PPGETMODES
c'PPGETMODE = 2147774616
c'PPGETMODE :: (Num a) => a
data C'PPGETMODE = C'PPGETMODE
instance IOControl C'PPGETMODE CInt where ioctlReq _ = c'PPGETMODE
c'PPGETPHASE = 2147774617
c'PPGETPHASE :: (Num a) => a
data C'PPGETPHASE = C'PPGETPHASE
instance IOControl C'PPGETPHASE CInt where ioctlReq _ = c'PPGETPHASE
c'PPGETFLAGS = 2147774618
c'PPGETFLAGS :: (Num a) => a
data C'PPGETFLAGS = C'PPGETFLAGS
instance IOControl C'PPGETFLAGS CInt where ioctlReq _ = c'PPGETFLAGS
c'PPSETFLAGS = 1074032795
c'PPSETFLAGS :: (Num a) => a
data C'PPSETFLAGS = C'PPSETFLAGS
instance IOControl C'PPSETFLAGS CInt where ioctlReq _ = c'PPSETFLAGS
c'PP_FASTWRITE = 4
c'PP_FASTWRITE :: (Num a) => a
c'PP_FASTREAD = 8
c'PP_FASTREAD :: (Num a) => a
c'PP_W91284PIC = 16
c'PP_W91284PIC :: (Num a) => a
c'PP_FLAGMASK = 28
c'PP_FLAGMASK :: (Num a) => a