mirror of https://github.com/lianthony/NT4.0
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.
91 lines
2.4 KiB
91 lines
2.4 KiB
/*
|
|
|
|
$Log: S:\oiwh\filing\wgfsclos.c_v $
|
|
*
|
|
* Rev 1.1 12 Apr 1995 03:56:24 JAR
|
|
* massaged to get compilation under windows 95
|
|
*
|
|
* Rev 1.0 06 Apr 1995 13:55:36 JAR
|
|
* Initial entry
|
|
|
|
*/
|
|
//***********************************************************************
|
|
//
|
|
// wgfsclos.c
|
|
//
|
|
//***********************************************************************
|
|
|
|
#include "abridge.h"
|
|
#include <windows.h>
|
|
#include "fiodata.h"
|
|
#include "wgfs.h"
|
|
#include "oierror.h"
|
|
|
|
//#include "monit.h"
|
|
|
|
#ifdef TIMESTAMP
|
|
#include "timestmp.h"
|
|
#endif
|
|
//***********************************************************************
|
|
//
|
|
// wgfsclos
|
|
//
|
|
//***********************************************************************
|
|
int FAR PASCAL wgfsclose (hWnd, fildes, errcode)
|
|
HWND hWnd;
|
|
int fildes;
|
|
LPINT errcode;
|
|
|
|
{
|
|
int status;
|
|
int cid, file_id, loc_rem;
|
|
|
|
#ifdef TIMESTAMP
|
|
timestmp((LPSTR)"Entry Point", (LPSTR)"wgfsclose",
|
|
(LPSTR)__FILE__, __LINE__, NULL, 0, NULL, 0);
|
|
#endif
|
|
|
|
//if (!LockData (0)) {
|
|
// *errcode = FIO_LOCK_DATA_SEGMENT_ERROR;
|
|
// #ifdef TIMESTAMP
|
|
// timestmp((LPSTR)"Function Exit", (LPSTR)"wgfsclose",
|
|
// (LPSTR)__FILE__, __LINE__, (LPSTR)"Function Returns: ", 0xFFFF, (LPSTR)"errcode", *errcode);
|
|
// #endif
|
|
// return (-1);
|
|
//}
|
|
|
|
if (*errcode = get_file_id(fildes, &file_id, &loc_rem, &cid)) {
|
|
//UnlockData (0);
|
|
#ifdef TIMESTAMP
|
|
timestmp((LPSTR)"Function Exit", (LPSTR)"wgfsclose",
|
|
(LPSTR)__FILE__, __LINE__, (LPSTR)"Function Returns: ", 0xFFFF, (LPSTR)"errcode", *errcode);
|
|
#endif
|
|
return (-1);
|
|
}
|
|
|
|
if (loc_rem == LOCAL)
|
|
{ /* IF LOCAL */
|
|
if (status = gfsclose (file_id))
|
|
*errcode = FIO_DOSCLOSE_ERROR; /* _dos_close error */
|
|
}
|
|
|
|
// 9504.10 jar for windows 95 norwegians, this is commented out!
|
|
// else {
|
|
// /* RPC GFS call */
|
|
// if (status = RPCgfsclose (hWnd, cid, file_id, errcode))
|
|
// if (!(*errcode))
|
|
// *errcode = FIO_WRITE_ERROR ; /* can not close the file */
|
|
// }
|
|
// 9504.10 jar for windows 95 norwegians, this is commented out!
|
|
|
|
//monit1("wgfsclose status =%x\n",(int)status);
|
|
|
|
close_file_id(fildes);
|
|
|
|
//UnlockData (0);
|
|
#ifdef TIMESTAMP
|
|
timestmp((LPSTR)"Function Exit", (LPSTR)"wgfsclose",
|
|
(LPSTR)__FILE__, __LINE__, (LPSTR)"status", status, (LPSTR)"errcode", *errcode);
|
|
#endif
|
|
return (status);
|
|
}
|