106 lines
2.6 KiB
C
106 lines
2.6 KiB
C
/*
|
|
|
|
$Log: S:\oiwh\filing\wgfsdele.c_v $
|
|
*
|
|
* Rev 1.4 02 Nov 1995 11:50:06 RWR
|
|
* Delete all obsolete functions, prototypes and EXPORTs
|
|
* Eliminate use of the "privapis.h" header file in the FILING build
|
|
* Move miscellaneous required constants/prototypes from privapis.h to filing.h
|
|
*
|
|
* Rev 1.3 10 Aug 1995 08:40:36 RWR
|
|
* Set error code FIO_DELFILE_ERROR on bad status from gfsdelpgs()
|
|
*
|
|
* Rev 1.2 07 Jul 1995 10:17:32 RWR
|
|
* Change error codes in Delete from FIO_OPEN_READ_ERROR to FIO_OPEN_WRITE_ERROR
|
|
*
|
|
* Rev 1.1 12 Apr 1995 03:56:28 JAR
|
|
* massaged to get compilation under windows 95
|
|
*
|
|
* Rev 1.0 06 Apr 1995 13:55:44 JAR
|
|
* Initial entry
|
|
|
|
*/
|
|
|
|
#include "abridge.h"
|
|
#include <windows.h>
|
|
#include "wgfs.h"
|
|
#include "oierror.h"
|
|
#include "filing.h"
|
|
|
|
int FAR PASCAL wgfsdelpgs (hWnd, path, frompage, topage, errcode)
|
|
HWND hWnd;
|
|
LPSTR path;
|
|
unsigned long frompage;
|
|
unsigned long topage;
|
|
LPINT errcode;
|
|
{
|
|
int localremote;
|
|
int status;
|
|
int tmperror = 0;
|
|
HANDLE svrhndl;
|
|
|
|
// 9504.11 jar unused
|
|
//LPSTR svrname;
|
|
|
|
char lpname[MAXFILESPECLENGTH];
|
|
|
|
//if (!LockData (0))
|
|
//{
|
|
// *errcode = FIO_LOCK_DATA_SEGMENT_ERROR;
|
|
// return (-1);
|
|
//}
|
|
|
|
*errcode = 0;
|
|
lstrcpy(lpname, path);
|
|
|
|
if (!(svrhndl = GlobalAlloc (GMEM_ZEROINIT | GMEM_MOVEABLE | GMEM_NOT_BANKED,
|
|
MAXSERVERLENGTH)))
|
|
{
|
|
*errcode = FIO_GLOBAL_ALLOC_FAILED;
|
|
//UnlockData (0);
|
|
return (-1);
|
|
}
|
|
|
|
if ((*errcode = IMGFileParsePath (lpname, svrhndl, &localremote)) == SUCCESS)
|
|
{
|
|
if (localremote == LOCAL)
|
|
{
|
|
/* LOCAL GFS call */
|
|
status = gfsdelpgs(lpname, frompage, topage);
|
|
if (status != 0)
|
|
*errcode = FIO_DELFILE_ERROR;
|
|
}
|
|
// 9504.10 jar for windows 95 norwegians, this is commented out!
|
|
// else
|
|
// {
|
|
// /* REMOTE RPCGFS call */
|
|
// if (!(svrname = (LPSTR) GlobalLock (svrhndl)))
|
|
// {
|
|
// *errcode = FIO_GLOBAL_LOCK_FAILED;
|
|
// GlobalFree (svrhndl);
|
|
// //UnlockData (0);
|
|
// return (-1);
|
|
// }
|
|
//
|
|
// /* Place RPC call here. */
|
|
// status = RPCgfsdelpgs (hWnd, svrname, lpname, frompage, topage, errcode);
|
|
// GlobalUnlock (svrhndl);
|
|
// }
|
|
// 9504.10 jar for windows 95 norwegians, this is commented out!
|
|
}
|
|
else
|
|
{
|
|
*errcode = FIO_OPEN_WRITE_ERROR;
|
|
status = -1;
|
|
}
|
|
|
|
GlobalFree (svrhndl);
|
|
//UnlockData (0);
|
|
|
|
/* Must map GFS error code to IDK error code. */
|
|
if ((status < 0) && (*errcode < 16))
|
|
*errcode = FIO_OPEN_WRITE_ERROR;
|
|
|
|
return (status);
|
|
}
|