archive
/
windows-nt-4.0
mirror of https://github.com/lianthony/NT4.0
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Windows NT 4.0 source code leak
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
1 Branch
0 Tags
184 MiB
 
 
 
 
 
 
Tree: b4a8d373d8
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'b4a8d373d8'
${ noResults }
windows-nt-4.0/private/wangview/oiwh/libgfs/gfcntl.c

781 lines
25 KiB
Raw Blame History

/*
$Log: S:\products\msprods\oiwh\libgfs\gfcntl.c_v $
*
* Rev 1.12 11 Jun 1996 11:18:04 RWR08970
* FIx to last update (I left a dangling #else/#endif lying around)
*
* Rev 1.11 11 Jun 1996 10:32:44 RWR08970
* Replaced IMG_WIN95 conditionals for XIF processing with WITH_XIF conditionals
* (I'm commented them out completely for the moment, until things get settled)
*
* Rev 1.10 01 May 1996 08:04:26 RWR08970
* Remove references to (Xerox-specific) "Uint8" and #include of "xfile.h"
*
* Rev 1.9 30 Apr 1996 11:17:34 JFC
* Include header xfile.h, so as to define type UInt8.
*
* Rev 1.8 27 Apr 1996 18:10:54 RWR08970
* Remove support for XIF-as-TIF images on non-XIF platforms (e.g. NT)
* Problems with XIF JPEG format requires that these be disabled for now
*
* Rev 1.7 26 Mar 1996 08:15:08 RWR08970
* Remove IN_PROG_GENERAL conditionals surrounding XIF processing (IMG_WIN95 only)
*
* Rev 1.6 26 Feb 1996 14:44:26 KENDRAK
* Added XIF support.
*
* Rev 1.5 12 Sep 1995 16:44:38 HEIDI
*
* added else before test of second error code after read.
*
* Rev 1.4 12 Sep 1995 10:42:38 HEIDI
*
* Check for HFILE_ERROR after calls to read
*
* Rev 1.3 10 Aug 1995 08:58:58 RWR
* Add macro for "unlink", define as DeleteFile() call
*
* Rev 1.2 15 Jun 1995 15:12:02 HEIDI
*
* Changed MUTEX debug logic.
*
* Rev 1.1 01 Jun 1995 17:21:54 HEIDI
*
* put in mutex logic
*
* Rev 1.0 06 Apr 1995 14:02:32 HEIDI
* Initial entry
*
* Rev 1.0 28 Mar 1995 15:52:56 JAR
* Initial entry
*/
/*
Copyright 1989, 1990, 1991 by Wang Laboratories Inc.
Permission to use, copy, modify, and distribute this
software and its documentation for any purpose and without
fee is hereby granted, provided that the above copyright
notice appear in all copies and that both that copyright
notice and this permission notice appear in supporting
documentation, and that the name of WANG not be used in
advertising or publicity pertaining to distribution of the
software without specific, written prior permission.
WANG makes no representations about the suitability of
this software for any purpose. It is provided "as is"
without express or implied warranty.
*/
/*
* SccsId: @(#)Source gfcntl.c 1.25@(#)
*
* GFS: File Control Table Handling and Lookup
*
* Routines:
* getfct(), putfct(), rmfct(), getfmt()
*
* UPDATE HISTORY:
* 08/18/94 - KMC, Added support for DCX file format.
*
*/
/*LINTLIBRARY*/
#define GFS_CORE
#include "gfsintrn.h"
#include "gfstypes.h"
#include <stdio.h>
#include <errno.h>
#include "gfct.h"
#include "tiff.h"
#include "rtbk.h"
extern HANDLE g_hGFSMutex_FCT_GLOBAL;
extern long FAR PASCAL ulseek();
//#ifdef WITH_XIF
extern int FAR PASCAL IsXifFile(char *lpFileBuf, int *lpBoolResult);
//#endif //WITH_XIF
unsigned short FAR PASCAL ParseDcxPages(unsigned long FAR *);
#ifdef NOVELL
#include "oimgr.h"
extern long PORTCxtInit();
extern long PORTCxtAllocate();
extern long PORTCxtGet();
extern long PORTCxtClr();
long Sid = (long) GFS;
long CxtSize;
#else
#ifdef MSWINDOWS
#ifndef HVS1
#define unlink(X) DeleteFile(X)
#endif
#endif
static struct _gfct FCT_GLOBAL[MAX_FILES]; /* GFS File Control Table */
#endif
extern void FAR PASCAL freetiff();
extern void FAR PASCAL freeroot();
#ifdef HVS1
int FAR PASCAL initgfs() /*errno_KEY*/
{
struct _gfct FAR *fct;
fct = FCT;
(void) memset((char FAR *) fct, (int) 0,
(int) (MAX_FILES * (sizeof(struct _gfct))));
return ( (int) 0 );
}
#endif
#ifdef NOVELL
int FAR PASCAL initgfs(flag) /*errno_KEY*/
char flag;
{
long rc = 0L;
struct _gfct *FCT;
if (flag == (char) TRUE) {
rc = PORTCxtInit((long) Sid,
(long) (MAX_FILES * (sizeof(struct _gfct))));
if (rc != 0L)
return ( (int) -1 );
} else {
rc = PORTCxtAllocate((long) Sid,
(char **) &FCT,
(long *) &CxtSize);
if (rc != 0L)
return ( (int) -1 );
}
return( (int) 0 );
}
int FAR PASCAL abortgfs(fct) /*errno_KEY*/
struct _gfct FAR *fct;
{
int i;
for (i = 0; i < (int) MAX_FILES; i++) {
if ((fct + i)->fildes != (int) NULL) {
switch ((fct + i)->format) {
case GFS_WIFF:
freeroot(fct + i);
break;
case GFS_FREESTYLE:
break;
case GFS_FLAT:
break;
case GFS_MILSTD:
break;
case GFS_TIFF:
if ((fct + i)->TOC_PAGED) {
(void) close((fct + i)->u.tif.mem_ptr.toc32->fildes);
(void) unlink( (char FAR *) (fct + i)->u.tif.tmp_file);
}
freetiff(fct + i);
break;
default:
break;
}
(void) close((fct + i)->fildes);
}
}
return ( (int) 0);
}
int FAR PASCAL termgfs() /*errno_KEY*/
{
int i;
long rc = 0L;
struct _gfct FAR *fct;
rc = PORTCxtGet((long) Sid, (char **) &fct, (long *) &CxtSize);
if (rc != 0L)
return( (int) -1);
for (i = 0; i < (int) MAX_FILES; i++) {
if ((fct + i)->fildes != (int) NULL)
(void) gfsclose(i - 1);
}
rc = PORTCxtClr((long) Sid);
if (rc != 0L)
return ( (int) -1 );
return( (int) 0 );
}
#endif
/* Given fildes, find FCT entry */
struct _gfct FAR *getfct(fildes) /*errno_KEY*/
int fildes;
{
struct _gfct FAR *fct;
#ifdef NOVELL
struct _gfct *FCT;
long rc = 0L;
rc = PORTCxtGet((long) Sid, (char **) &FCT, (long *) &CxtSize);
if (rc != 0L)
return( (struct _gfct FAR *) NULL); /* return NULL */
#endif
fct = FCT_GLOBAL;
if ((0 < fildes) &&
(--fildes < (int) MAX_FILES) &&
((fct + fildes)->fildes != (int) NULL))
return(fct + fildes);
/* set errno = bad file number */
errno = (int) EBADF;
return( (struct _gfct FAR *) NULL); /* return NULL */
}
/* Insert new FCT entry, given FCT */
int FAR PASCAL putfct(fct) /*errno_KEY*/
struct _gfct FAR *fct;
{
struct _gfct FAR *gfct;
int i;
#ifdef MUTEXSTRING
DWORD ProcessId;
char szBuf1[100];
char szOutputBuf[200];
#endif
DWORD dwObjectWait;
#ifdef NOVELL
struct _gfct *FCT;
long rc = 0L;
rc = PORTCxtGet((long) Sid, (char **) &FCT, (long *) &CxtSize);
if (rc != 0L)
return ( (int) -1 );
#endif
gfct = FCT_GLOBAL;
/* BEGIN MUTEX SECTION Prevent interrupts while we're in here */
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t Before Wait - putfct %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
dwObjectWait = WaitForSingleObject(g_hGFSMutex_FCT_GLOBAL, INFINITE);
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t After Wait - putfct %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
for (i = 0; i < (int) MAX_FILES; i++) {
if (gfct->fildes == (int) NULL) {
(void) memcpy((char FAR *) gfct, (char FAR *) fct,
(int) sizeof(FCT_GLOBAL[0]));
ReleaseMutex(g_hGFSMutex_FCT_GLOBAL);
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t After Release - putfct %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
/* END MUTEX SECTION. */
return(++i);
}
gfct++;
}
ReleaseMutex(g_hGFSMutex_FCT_GLOBAL);
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t After Release - putfct %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
/* END MUTEX SECTION. */
/* set file table overflow */
errno = (int) ENFILE;
return( (int) -1);
}
/* Given fildes, remove FCT entry */
int FAR PASCAL rmfct(fildes) /*errno_KEY*/
int fildes;
{
struct _gfct FAR *fct;
DWORD dwObjectWait;
#ifdef MUTEXSTRING
DWORD ProcessId;
char szBuf1[100];
char szOutputBuf[200];
#endif
#ifdef NOVELL
struct _gfct *FCT;
long rc = 0L;
rc = PORTCxtGet((long) Sid, (char **) &FCT, (long *) &CxtSize);
if (rc != 0L)
return ( (int) -1 );
#endif
fct = FCT_GLOBAL;
if (fildes < (int) 1) {
errno = (int) EBADF;
return ( (int) -1);
}
/* BEGIN MUTEX SECTION Prevent interrupts while we're in here */
#ifdef DEBUGSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t Before Wait - rmfct %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputDebugString);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
dwObjectWait = WaitForSingleObject(g_hGFSMutex_FCT_GLOBAL, INFINITE);
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t After Wait - rmfct %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
if ((--fildes < (int) MAX_FILES) &&
((fct + fildes)->fildes != (int) NULL)) {
(fct + fildes)->fildes = (int) NULL;
ReleaseMutex(g_hGFSMutex_FCT_GLOBAL);
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t After Release - rmfct %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
return ( (int) 0);
}
ReleaseMutex(g_hGFSMutex_FCT_GLOBAL);
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t After Release - rmfct %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
/* END MUTEX SECTION. */
/* set errno = bad file number */
errno = (int) EBADF;
return( (int) -1); /* return -1 */
}
#define id_GIF1 (0x4947)
#define id_GIF2 (0x3846)
#define id_GIF3 (0x6137)
#define id_GIF4 (0x6139)
#define id_BMP (0x4D42)
#define id_PCPBa (0x000a)
#define id_PCPBb (0x020a)
#define id_PCPBc (0x030a)
#define id_PCPBd (0x050a)
#define id_DCX 987654321
/* Given FCT, determine file format */
int FAR PASCAL getfmt(fct) /*errno_KEY*/
struct _gfct FAR *fct;
{
int num_read = 0;
union first_block {
u_long align;
struct _ifh tif;
struct _rtbk wif;
unsigned short datbuf[18];
unsigned long dcx;
unsigned char buffer[18];
} FAR *p_buf;
unsigned long FAR *dcx_pages;
long filepos;
long fp;
//#ifdef WITH_XIF
int RetVal;
BOOL bResult;
//#endif //WITH_XIF
/* 1. Get 1 K of buffer for read. */
p_buf = (union first_block FAR *) calloc( (unsigned) 1,
(unsigned) 1 * K);
if (p_buf == (union first_block FAR *) NULL) {
errno = (int) ENOMEM;
return ( (int) -1);
}
/* 2. Read the first 1k of the file into the buffer. */
num_read = read(fct->fildes, (char FAR *) p_buf, (unsigned) 1 * K);
if (num_read == 0) { /* 0 is eof*/
fct->format = (int) GFS_FLAT;
free ( (char FAR *) p_buf);
return ( (int) 0);
}
else
if (num_read == HFILE_ERROR) {
free ( (char FAR *) p_buf);
return ( (int) -1);
}
/* 3. Check to see what format the file is. */
/* Note: For now, only WIFF, TIFF and FLAT are supported. */
/* a. First check for WIFF. */
if ( (p_buf->wif.file_id == (u_short) WIFF_ID_MM) ||
(p_buf->wif.file_id == (u_short) WIFF_ID_II) ) {
fct->format = (int) GFS_WIFF;
free ( (char FAR *) p_buf);
return ( (int) 0);
}
/* b. Now check for TIFF. */
if ( ( (p_buf->tif.byte_order == (u_short) MM) ||
(p_buf->tif.byte_order == (u_short) II) ) &&
( (p_buf->tif.tiff_version == (u_short) TIFFVERSION_MM) ||
(p_buf->tif.tiff_version == (u_short) TIFFVERSION_II)))
{
//#ifdef WITH_XIF
RetVal = IsXifFile((char *)p_buf, &bResult);
if (RetVal != 0)
{
errno = RetVal;
return(-1);
}
else if (bResult == TRUE)
{ //it is a XIF
fct->format = GFS_XIF;
free((char FAR *) p_buf);
return(0);
}
else
{ //it isn't a XIF
//#endif //WITH_XIF
#ifdef WITH_XIF_NOT //Temporary - we'll fix this later
/* This is a quickie version of IsXifFile(), contained in GFSXIF.C */
/* We aren't supporting XIF on non-XIF platforms for the time being */
#define XIF_HEADER_KEY "XEROX DIFF" /* XIF identifier */
#define SIZEOF_TIFF_HEADER (8)
if (memcmp(((unsigned char *)p_buf)+SIZEOF_TIFF_HEADER,XIF_HEADER_KEY,10)==0)
{
fct->format = (int) GFS_FLAT;
free ( (char FAR *) p_buf);
return ( (int) 0);
}
else
{ //it isn't a XIF
#endif //WITH_XIF_NOT
fct->format = (int) GFS_TIFF;
fct->u.tif.byte_order = p_buf->tif.byte_order;
free ( (char FAR *) p_buf);
return ( (int) 0);
}
}
/* c. Now check for DCX. */
if (p_buf->dcx == id_DCX)
{
fct->format = (int) GFS_DCX;
free ( (char FAR *) p_buf);
dcx_pages = (unsigned long FAR *) calloc( (unsigned) 1,
(unsigned) 4 * K);
if (dcx_pages == (unsigned long FAR *) NULL)
{
errno = (int) ENOMEM;
return ( (int) -1);
}
if ((fp = lseek(fct->fildes, 0L, (int) FROM_END)) < 0L)
return( (int) -1 );
if ((filepos = lseek(fct->fildes, 4L, (int) FROM_BEGINNING)) < 0L)
return( (int) -1 );
if (fp < (4*K))
num_read = read(fct->fildes, (char FAR *) dcx_pages, (unsigned) fp);
else
num_read = read(fct->fildes, (char FAR *) dcx_pages, (unsigned) 4 * K);
if (num_read == 0) /* 0 is eof */
{
fct->format = (int) GFS_FLAT;
free ( (char FAR *) dcx_pages);
return ( (int) 0);
}
else
if (num_read == HFILE_ERROR)
{
free ( (char FAR *) dcx_pages);
return ( (int) -1);
}
fct->num_pages = ParseDcxPages(dcx_pages);
fct->u.dcx.dcx_offsets = (unsigned long FAR *) calloc( (unsigned) 1,
(unsigned) (fct->num_pages*sizeof(u_long)));
(void) memcpy( (char FAR *) fct->u.dcx.dcx_offsets,
(char FAR *) dcx_pages,
(int) (fct->num_pages*sizeof(u_long)));
free ( (char FAR *) dcx_pages);
return ( (int) 0);
}
/* Check for GIF, PCX, BMP. */
switch ( p_buf->datbuf[0] )
{
case id_GIF1:
if ( p_buf->datbuf[1] == id_GIF2 && ((p_buf->datbuf[2] == id_GIF3) ||
(p_buf->datbuf[2] == id_GIF4)) )
{
fct->format = (int) GFS_GIF;
free((char FAR *) p_buf);
return ((int) 0);
}
break;
case id_BMP:
fct->format = (int) GFS_BMP;
free((char FAR *) p_buf);
return ((int) 0);
break;
case id_PCPBa:
case id_PCPBb:
case id_PCPBc:
case id_PCPBd:
if ( (char)(p_buf->datbuf[1]) == 1 )
{
fct->format = (int) GFS_PCX;
free((char FAR *) p_buf);
return ((int) 0);
}
break;
default:
break;
}
/* End GIF, PCX, BMP. */
/* Check for JFIF. */
if (p_buf->buffer[0] == 0xFF)
{
if ((p_buf->buffer[1] == 0xD8) && (p_buf->buffer[2] == 0xFF) &&
(p_buf->buffer[3] == 0xE0))
{
if ((p_buf->buffer[6] == 'J') && (p_buf->buffer[7] == 'F') &&
(p_buf->buffer[8] == 'I') && (p_buf->buffer[9] == 'F') &&
(p_buf->buffer[10] == 0x00))
{
fct->format = (int) GFS_JFIF;
free((char FAR *) p_buf);
return ((int) 0);
}
}
}
/* End JFIF. */
/* Now check for Targa. */
if (p_buf->buffer[2] == 0x01 ||
p_buf->buffer[2] == 0x02 ||
p_buf->buffer[2] == 0x03 ||
p_buf->buffer[2] == 0x09 ||
p_buf->buffer[2] == 0x0a ||
p_buf->buffer[2] == 0x0b)
{
fct->format = (int) GFS_TGA;
free((char FAR *) p_buf);
return ((int) 0);
}
/* End Targa. */
/* If we haven't identified it yet, we don't know what it is. */
fct->format = (int) GFS_FLAT;
free ( (char FAR *) p_buf);
return ( (int) 0);
}
#ifndef NOVELL
int FAR PASCAL abortgfs() /*errno_KEY*/
{
int i;
struct _gfct FAR *fct;
DWORD dwObjectWait;
#ifdef MUTEXSTRING
DWORD ProcessId;
char szBuf1[100];
char szOutputBuf[200];
#endif
fct = FCT_GLOBAL;
/* BEGIN MUTEX SECTION Prevent interrupts while we're in here */
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t Before Wait - abortgfs %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
dwObjectWait = WaitForSingleObject(g_hGFSMutex_FCT_GLOBAL, INFINITE);
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t After Wait - abortgfs %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
for (i = 0; i < (int) MAX_FILES; i++) {
if ((fct + i)->fildes != (int) NULL) {
switch ((fct + i)->format) {
case GFS_WIFF:
freeroot(fct + i);
break;
case GFS_FREESTYLE:
break;
case GFS_FLAT:
break;
case GFS_MILSTD:
break;
case GFS_TIFF:
if ((fct + i)->TOC_PAGED) {
(void) close((fct + i)->
u.tif.mem_ptr.toc32->fildes);
(void) unlink( (char FAR *)
(fct + i)->u.tif.tmp_file);
}
freetiff(fct + i);
break;
default:
break;
}
(void) close((fct + i)->fildes);
}
}
ReleaseMutex(g_hGFSMutex_FCT_GLOBAL);
#ifdef MUTEXSTRING
ProcessId = GetCurrentProcessId();
sprintf(szOutputBuf, "\t After Release - abortgfs %lu\n", ProcessId);
sprintf(szBuf1, "\t Handle = %lu; \n", g_hGFSMutex_FCT_GLOBAL);
strcat(szOutputBuf, szBuf1);
sprintf(szBuf1, "\t File = %s; \n Line = %lu; \n", __FILE__,__LINE__);
strcat(szOutputBuf, szBuf1);
OutputDebugString(szOutputBuf);
#endif
#ifdef MUTEXDEBUG
MessageBox(NULL, szOutputBuf, NULL, MB_OKCANCEL);
#endif
/* END MUTEX SECTION. */
return ( (int) 0);
}
#endif
unsigned short FAR PASCAL ParseDcxPages(unsigned long FAR *dcx_pages)
{
unsigned short pages = 0;
unsigned long offset;
unsigned long FAR * p_pages;
p_pages = dcx_pages;
offset = *p_pages;
while (offset != 0)
{
++pages;
++p_pages;
offset = *(p_pages);
}
return (pages);
}