/*--------------------------------------------------------------------
* DESCRIPTION
* Map an entire file. (WIN32 Version)
*
* AUTHOR
* lsh
*
* DATE CREATED
* November 9, 1993
*------------------------------------------------------------------*/
void FAR *KpMapFileEx (
KpChar_p FileName,
KpFileProps_t FAR *FileProps,
KpChar_p Mode,
KpMapFile_t FAR *MapFileCtl)
{
KpInt32_t status;
DWORD fdwProtect;
DWORD fdwAccess;
/* validate mode */
switch (*Mode) {
case 'R':
case 'r':
fdwProtect = PAGE_READONLY;
fdwAccess = FILE_MAP_READ;
break;
#if 0
case 'w':
fdwProtect = PAGE_READWRITE;
fdwAccess = FILE_MAP_WRITE;
break;
#endif
default:
return NULL;
}
/* get the size of the file */
if (!KpFileSize (FileName, FileProps, &MapFileCtl->NumBytes))
return NULL;
/* open the file */
status = KpFileOpen (FileName, Mode, FileProps, (KpFileId *)&MapFileCtl->hFile);
if (KCMS_IO_SUCCESS != status)
return NULL;
/* create the mapping object */
MapFileCtl->hMapObject = CreateFileMapping ((HANDLE)MapFileCtl->hFile,
NULL, fdwProtect, 0, 0, NULL);
if (!MapFileCtl->hMapObject) {
KpFileClose((KpFileId)MapFileCtl->hFile);
return NULL;
}
/* create a view of the file */
MapFileCtl->Ptr = MapViewOfFile (MapFileCtl->hMapObject,
fdwAccess, 0, 0, 0);
if (NULL == MapFileCtl->Ptr) {
CloseHandle (MapFileCtl->hMapObject);
KpFileClose((KpFileId)MapFileCtl->hFile);
return NULL;
}
/* return the address of the memory mapped file */
return MapFileCtl->Ptr;
}
/*--------------------------------------------------------------------
* DESCRIPTION
* Map an entire file.
*
* AUTHOR
* lsh
*
* DATE CREATED
* November 9, 1993
*------------------------------------------------------------------*/
void FAR *KpMapFileEx (
KpChar_p FileName,
KpFileProps_t FAR *FileProps,
KpChar_p Mode,
KpMapFile_t FAR *MapFileCtl)
{
/* validate mode */
switch (*Mode) {
case 'R':
case 'r':
#if 0
case 'w':
#endif
break;
default:
return NULL;
}
/* get the size of the file */
if (!KpFileSize (FileName, FileProps, &MapFileCtl->NumBytes))
return NULL;
/* allocate buffer to hold file */
MapFileCtl->Ptr = allocBufferPtr (MapFileCtl->NumBytes);
if (NULL == MapFileCtl->Ptr)
return NULL;
/* open the file */
if (!KpFileOpen (FileName, Mode, FileProps, &MapFileCtl->Fd)) {
freeBufferPtr (MapFileCtl->Ptr);
return NULL;
}
/* read file into the buffer */
if (!KpFileRead (MapFileCtl->Fd, MapFileCtl->Ptr, &MapFileCtl->NumBytes)) {
freeBufferPtr (MapFileCtl->Ptr);
KpFileClose (MapFileCtl->Fd);
return NULL;
}
/* done with file, close it */
if ('r' == *Mode) {
KpFileClose (MapFileCtl->Fd);
MapFileCtl->Fd = -1;
}
MapFileCtl->Mode = *Mode;
return MapFileCtl->Ptr;
}
/*--------------------------------------------------------------------
* DESCRIPTION
* Map an entire file. (WIN32 Version)
*
* AUTHOR
* lsh
*
* DATE CREATED
* November 9, 1993
*------------------------------------------------------------------*/
void FAR *KpMapFileEx (
KpChar_p FileName,
KpFileProps_t FAR *FileProps,
KpChar_p Mode,
KpMapFile_t FAR *MapFileCtl)
{
#if !defined(_M_IA64)
OFSTRUCT OF;
#endif /* !defined(_M_IA64) */
DWORD fdwProtect;
DWORD fdwAccess;
/* validate mode */
switch (*Mode) {
case 'R':
case 'r':
fdwProtect = PAGE_READONLY;
fdwAccess = FILE_MAP_READ;
break;
#if 0
case 'w':
fdwProtect = PAGE_READWRITE;
fdwAccess = FILE_MAP_WRITE;
break;
#endif
default:
return NULL;
}
/* get the size of the file */
if (!KpFileSize (FileName, FileProps, &MapFileCtl->NumBytes))
return NULL;
/* open the file */
#if defined(_M_IA64)
/* OpenFile not compatible with win64; must use CreateFile instead */
MapFileCtl->hFile = CreateFile (FileName, GENERIC_READ,
FILE_SHARE_READ, NULL, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, NULL);
if (MapFileCtl->hFile == INVALID_HANDLE_VALUE) {
return NULL;
}
#else /* non-64-bit case */
MapFileCtl->hFile = OpenFile (FileName, &OF, OF_READ);
if (MapFileCtl->hFile == HFILE_ERROR)
return NULL;
#endif /* defined(_M_IA64) */
/* create the mapping object */
MapFileCtl->hMapObject = CreateFileMapping ((HANDLE)MapFileCtl->hFile,
NULL, fdwProtect, 0, 0, NULL);
if (!MapFileCtl->hMapObject) {
#if defined(_M_IA64)
CloseHandle(MapFileCtl->hFile);
#else /* non-64-bit case */
_lclose (MapFileCtl->hFile);
#endif /* defined(_M_IA64) */
return NULL;
}
/* create a view of the file */
MapFileCtl->Ptr = MapViewOfFile (MapFileCtl->hMapObject,
fdwAccess, 0, 0, 0);
if (NULL == MapFileCtl->Ptr) {
CloseHandle (MapFileCtl->hMapObject);
#if defined(_M_IA64)
CloseHandle(MapFileCtl->hFile);
#else /* non-64-bit case */
_lclose (MapFileCtl->hFile);
#endif /* defined(_M_IA64) */
return NULL;
}
/* return the address of the memory mapped file */
return MapFileCtl->Ptr;
}
/*--------------------------------------------------------------------
* DESCRIPTION
* Unmap an entire file. (WIN32 Version)
*
* AUTHOR
* lsh
*
* DATE CREATED
* November 9, 1993
*------------------------------------------------------------------*/
KpInt32_t KpUnMapFile (KpMapFile_t FAR *MapFileCtl)
{
int Status;
Status = KCMS_IO_SUCCESS;
if (!UnmapViewOfFile (MapFileCtl->Ptr))
Status = KCMS_IO_ERROR;
if (!CloseHandle (MapFileCtl->hMapObject))
Status = KCMS_IO_ERROR;
#if defined(_M_IA64)
if (!CloseHandle (MapFileCtl->hFile)) {
#else /* non-64-bit case */
if (_lclose (MapFileCtl->hFile)) {
#endif /* defined(_M_IA64) */
Status = KCMS_IO_ERROR;
}
return Status;
}
#else
/*--------------------------------------------------------------------
* DESCRIPTION
* Map an entire file.
*
* AUTHOR
* lsh
*
* DATE CREATED
* November 9, 1993
*------------------------------------------------------------------*/
void FAR *KpMapFileEx (
KpChar_p FileName,
KpFileProps_t FAR *FileProps,
KpChar_p Mode,
KpMapFile_t FAR *MapFileCtl)
{
/* validate mode */
switch (*Mode) {
case 'R':
case 'r':
#if 0
case 'w':
#endif
break;
default:
return NULL;
}
/* get the size of the file */
if (!KpFileSize (FileName, FileProps, &MapFileCtl->NumBytes))
return NULL;
/* allocate buffer to hold file */
MapFileCtl->Ptr = allocBufferPtr (MapFileCtl->NumBytes);
if (NULL == MapFileCtl->Ptr)
return NULL;
/* open the file */
if (!KpFileOpen (FileName, Mode, FileProps, &MapFileCtl->Fd)) {
freeBufferPtr (MapFileCtl->Ptr);
return NULL;
}
/* read file into the buffer */
if (!KpFileRead (MapFileCtl->Fd, MapFileCtl->Ptr, &MapFileCtl->NumBytes)) {
freeBufferPtr (MapFileCtl->Ptr);
KpFileClose (MapFileCtl->Fd);
return NULL;
}
/* done with file, close it */
if ('r' == *Mode) {
KpFileClose (MapFileCtl->Fd);
MapFileCtl->Fd = -1;
}
MapFileCtl->Mode = *Mode;
return MapFileCtl->Ptr;
}
/*--------------------------------------------------------------------
* DESCRIPTION
* Map an entire file. (non-win32 version)
*
* AUTHOR
* lsh
*
* DATE CREATED
* November 9, 1993
*------------------------------------------------------------------*/
void FAR *KpMapFile (
KpChar_p FileName,
ioFileChar FAR *FileProps,
KpChar_p Mode,
KpMapFile_t FAR *MapFileCtl)
{
KpFileProps_t kpFileProps, *kpFilePropsPtr;
/* convert FileProps to KpFileProps_t and call
KpMapFileEx */
#if defined (KPMAC) || defined (KPMSMAC)
if (FileProps != NULL) {
kpFileProps.vRefNum = FileProps->vRefNum;
kpFileProps.dirID= 0;
strncpy(kpFileProps.fileType, FileProps->fileType, 5);
strncpy(kpFileProps.creatorType, FileProps->creatorType, 5);
}
else {
kpFileProps.vRefNum = 0;
kpFileProps.dirID= 0;
strncpy(kpFileProps.fileType, " ", 5);
strncpy(kpFileProps.creatorType, " ", 5);
}
kpFilePropsPtr = &kpFileProps;
#else
kpFilePropsPtr = FileProps;
#endif
return (KpMapFileEx (FileName, kpFilePropsPtr, Mode, MapFileCtl) );
}