{-# LINE 1 "System\\Win32\\FileMapping\\Internal.hsc" #-}{-# LINE 2 "System\\Win32\\FileMapping\\Internal.hsc" #-}{-# LANGUAGE Safe #-}{-# LINE 6 "System\\Win32\\FileMapping\\Internal.hsc" #-}----------------------------------------------------------------------------- -- | -- Module : System.Win32.FileMapping.Internal -- Copyright : (c) Esa Ilari Vuokko, 2006 -- License : BSD-style (see the file LICENSE) -- -- Maintainer : Esa Ilari Vuokko <ei@vuokko.info> -- Stability : provisional -- Portability : portable -- -- A collection of FFI declarations for interfacing with Win32 mapped files. -- ----------------------------------------------------------------------------- moduleSystem.Win32.FileMapping.InternalwhereimportSystem.Win32.Types(HANDLE,DWORD,BOOL,SIZE_T,LPCTSTR)importForeign(Ptr,FunPtr)importForeign.C.Types(CUIntPtr(..)) #include "windows_cconv.h" --------------------------------------------------------------------------- -- Derived functions --------------------------------------------------------------------------- dataMappedObject=MappedObjectHANDLEHANDLEFileMapAccess--------------------------------------------------------------------------- -- Enums --------------------------------------------------------------------------- typeProtectSectionFlags=DWORDsEC_COMMIT::ProtectSectionFlagssEC_COMMIT=134217728sEC_IMAGE::ProtectSectionFlagssEC_IMAGE=16777216sEC_NOCACHE::ProtectSectionFlagssEC_NOCACHE=268435456sEC_RESERVE::ProtectSectionFlagssEC_RESERVE=67108864{-# LINE 47 "System\\Win32\\FileMapping\\Internal.hsc" #-}typeFileMapAccess=DWORDfILE_MAP_ALL_ACCESS::FileMapAccessfILE_MAP_ALL_ACCESS=983071fILE_MAP_COPY::FileMapAccessfILE_MAP_COPY=1fILE_MAP_READ::FileMapAccessfILE_MAP_READ=4fILE_MAP_WRITE::FileMapAccessfILE_MAP_WRITE=2{-# LINE 54 "System\\Win32\\FileMapping\\Internal.hsc" #-}--------------------------------------------------------------------------- -- Imports --------------------------------------------------------------------------- foreignimportWINDOWS_CCONV"windows.h OpenFileMappingW"c_OpenFileMapping::DWORD->BOOL->LPCTSTR->IOHANDLEforeignimportWINDOWS_CCONV"windows.h CreateFileMappingW"c_CreateFileMapping::HANDLE->Ptr()->DWORD->DWORD->DWORD->LPCTSTR->IOHANDLEforeignimportWINDOWS_CCONV"windows.h MapViewOfFileEx"c_MapViewOfFileEx::HANDLE->DWORD->DWORD->DWORD->SIZE_T->Ptra->IO(Ptrb)foreignimportWINDOWS_CCONV"windows.h UnmapViewOfFile"c_UnmapViewOfFile::Ptra->IOBOOL{-# CFILES cbits/HsWin32.c #-}foreignimportccall"HsWin32.h &UnmapViewOfFileFinaliser"c_UnmapViewOfFileFinaliser::FunPtr(Ptra->IO())