442 lines
13 KiB
C
442 lines
13 KiB
C
|
/*
|
||
|
|
|
||
|
|
* $Log: S:\oiwh\filing\fiolist.c_v $
|
||
|
|
*
|
||
|
|
* Rev 1.6 16 Nov 1995 16:57:36 RWR
|
||
|
|
* Remove all AnsiToOem() and OemToAnsi() calls - not used for Windows routines!
|
||
|
|
*
|
||
|
|
* Rev 1.5 02 Nov 1995 11:49:54 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.4 22 May 1995 18:54:16 RWR
|
||
|
|
* Change IMGFileListDirNames() and IMGFileListVolNames() to take DWORD bufsize
|
||
|
|
*
|
||
|
|
* Rev 1.3 13 Apr 1995 21:34:30 JAR
|
||
|
|
* altered call to FinFstFile to be the windows call FindFirstFile, fixing a
|
||
|
|
* typo!
|
||
|
|
*
|
||
|
|
* Rev 1.2 12 Apr 1995 13:51:18 RWR
|
||
|
|
* Replace calls to (internal) IMGFindFstFile()/IMGFindNxtFile() with the
|
||
|
|
* corresponding Windows call (FindFirstFile()/FindNextFile()/FindClose())
|
||
|
|
*
|
||
|
|
* Rev 1.1 12 Apr 1995 03:56:42 JAR
|
||
|
|
* massaged to get compilation under windows 95
|
||
|
|
*
|
||
|
|
* Rev 1.0 06 Apr 1995 13:55:14 JAR
|
||
|
|
* Initial entry
|
||
|
|
|
||
|
|
*/
|
||
|
|
//************************************************************************
|
||
|
|
//
|
||
|
|
// fiolist.c
|
||
|
|
//
|
||
|
|
//************************************************************************
|
||
|
|
#include <dos.h>
|
||
|
|
#include "abridge.h"
|
||
|
|
#include <windows.h>
|
||
|
|
#include "fiodata.h"
|
||
|
|
#include "oierror.h"
|
||
|
|
#include "oifile.h"
|
||
|
|
#include "oidisp.h"
|
||
|
|
//#include "privapis.h"
|
||
|
|
#include "filing.h"
|
||
|
|
|
||
|
|
// 9504.11 jar unused
|
||
|
|
//#include "oirpc.h"
|
||
|
|
|
||
|
|
/* Forward Reference */
|
||
|
|
// 9504.12 rwr the following have been replaced w/Windows 95 functions
|
||
|
|
// unsigned short FAR PASCAL IMGFindFstFile (LPSTR, LPSTR); /* Find first file */
|
||
|
|
// unsigned short FAR PASCAL IMGFindNxtFile (LPSTR); /* Find next file */
|
||
|
|
|
||
|
|
//************************************************************************
|
||
|
|
//
|
||
|
|
// IMGFileListDirNames
|
||
|
|
//
|
||
|
|
//************************************************************************
|
||
|
|
// 9503.31 jar return as int
|
||
|
|
//WORD FAR PASCAL IMGFileListDirNames (hWnd, pathname, dirnamesbuf, buflength, count)
|
||
|
|
//HWND hWnd;
|
||
|
|
//LPSTR pathname;
|
||
|
|
//lp_DLISTBUF dirnamesbuf; /* Base addr of buffer to return full of names and
|
||
|
|
// file attributes. Note that each name is of set
|
||
|
|
// length = MAXNAMECHARS and each file attribute =
|
||
|
|
// long int */
|
||
|
|
//WORD buflength; /* Number of bytes the caller alloc'd for dirnamesbuf
|
||
|
|
// buffer, which includes both namestring and attributes */
|
||
|
|
//LPINT count;
|
||
|
|
int FAR PASCAL IMGFileListDirNames (HWND hWnd, LPSTR pathname,
|
||
|
|
lp_DLISTBUF dirnamesbuf, DWORD buflength,
|
||
|
|
LPINT count)
|
||
|
|
{
|
||
|
|
int status = 0;
|
||
|
|
|
||
|
|
// 9504.11 jar temp commented out
|
||
|
|
//int dirdes;
|
||
|
|
//int numentries;
|
||
|
|
//unsigned short dosstatus;
|
||
|
|
//HANDLE hbuffer;
|
||
|
|
//int i, j;
|
||
|
|
|
||
|
|
// 9504.11 jar ain't no int21h thingy for this here struct!
|
||
|
|
//struct find_t infobuf;
|
||
|
|
// 9504.12 rwr but there's a Windows 95 thingy for the following
|
||
|
|
WIN32_FIND_DATA ffd; // structure to store found file info
|
||
|
|
HANDLE hff; // handle used by Windows between "find" calls
|
||
|
|
|
||
|
|
HANDLE svrhndl;
|
||
|
|
BOOL seterror = TRUE, done_reading_dir = FALSE;
|
||
|
|
|
||
|
|
// 9504.11 jar temp commented out
|
||
|
|
//LPSTR svrname;
|
||
|
|
//int conid;
|
||
|
|
//int errcode;
|
||
|
|
//int toget;
|
||
|
|
|
||
|
|
int maxcount;
|
||
|
|
|
||
|
|
// 9504.11 jar temp commented out
|
||
|
|
//int total_count;
|
||
|
|
|
||
|
|
int localremote;
|
||
|
|
|
||
|
|
// 9504.11 jar temp commented out
|
||
|
|
//lp_IDSDIR dirbuffer;
|
||
|
|
//lp_IDSDIR rpcdirbuffer;
|
||
|
|
|
||
|
|
lp_DLISTBUF namesbuf;
|
||
|
|
int rpcerror = 0;
|
||
|
|
HANDLE hname;
|
||
|
|
LPSTR lpname;
|
||
|
|
|
||
|
|
if ( (!(pathname)) || (!(dirnamesbuf)) || (!(count)))
|
||
|
|
return ( FIO_NULL_POINTER );
|
||
|
|
|
||
|
|
|
||
|
|
//if (!LockData (0))
|
||
|
|
//return (FIO_LOCK_DATA_SEGMENT_ERROR);
|
||
|
|
|
||
|
|
maxcount = buflength / sizeof (DLISTBUF);
|
||
|
|
|
||
|
|
namesbuf = dirnamesbuf; /* Point to the beginning of the buffer */
|
||
|
|
|
||
|
|
if (!(svrhndl = GlobalAlloc (GMEM_ZEROINIT | GMEM_FIXED | GMEM_NOT_BANKED, MAXSERVERLENGTH))) {
|
||
|
|
//UnlockData (0);
|
||
|
|
return (FIO_GLOBAL_ALLOC_FAILED);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!(hname = GlobalAlloc (GMEM_ZEROINIT | GMEM_FIXED | GMEM_NOT_BANKED,
|
||
|
|
(LONG)MAXFILESPECLENGTH))) {
|
||
|
|
GlobalFree (svrhndl);
|
||
|
|
//UnlockData (0);
|
||
|
|
return (FIO_GLOBAL_ALLOC_FAILED);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!(lpname = (LPSTR) GlobalLock (hname)))
|
||
|
|
{
|
||
|
|
GlobalFree (svrhndl);
|
||
|
|
GlobalFree (hname);
|
||
|
|
//UnlockData (0);
|
||
|
|
return (FIO_GLOBAL_LOCK_FAILED);
|
||
|
|
}
|
||
|
|
|
||
|
|
lstrcpy((LPSTR)lpname, pathname);
|
||
|
|
|
||
|
|
if((status = IMGFileParsePath (lpname, svrhndl, &localremote)) == SUCCESS){
|
||
|
|
if (localremote == LOCAL)
|
||
|
|
{
|
||
|
|
/* Initialize */
|
||
|
|
// 11/16/95 rwr We're calling Windows functions now, so no OEM stuff any more!
|
||
|
|
// AnsiToOem(lpname, lpname); this is only for calling DOS/runtime!
|
||
|
|
*count = 0;
|
||
|
|
|
||
|
|
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
|
||
|
|
// TBD - SECTION BELOW --> ADD WINDOWS 95 CALL HERE!!!
|
||
|
|
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
|
||
|
|
//
|
||
|
|
// // 9504.11 jar ain't no int21h thingy this will be
|
||
|
|
// // replaced with windows 95 call
|
||
|
|
//
|
||
|
|
// /* DOS INT 21 calls (wiissubs) */
|
||
|
|
// dosstatus = IMGFindFstFile (lpname, (LPSTR) &infobuf);
|
||
|
|
// if ((dosstatus == 2) || (dosstatus == 18))
|
||
|
|
// *count = 0;
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// if (dosstatus == 0)
|
||
|
|
// { /* SUCCESS */
|
||
|
|
// if (++(*count) > maxcount)
|
||
|
|
// status = FIO_DIRLIST_FULLBUF;
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// lstrcpy (namesbuf -> namestring, infobuf.name);
|
||
|
|
// OemToAnsi(namesbuf -> namestring, namesbuf -> namestring);
|
||
|
|
// namesbuf -> attrs = (long) infobuf.attrib;
|
||
|
|
// ++namesbuf;
|
||
|
|
// }
|
||
|
|
// while (IMGFindNxtFile ((LPSTR) &infobuf) == 0)
|
||
|
|
// { /* SUCCESS */
|
||
|
|
// if (++(*count) > maxcount)
|
||
|
|
// status = FIO_DIRLIST_FULLBUF;
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// lstrcpy (namesbuf -> namestring, infobuf.name);
|
||
|
|
// OemToAnsi(namesbuf -> namestring,
|
||
|
|
// namesbuf -> namestring);
|
||
|
|
// namesbuf -> attrs = (long) infobuf.attrib;
|
||
|
|
// ++namesbuf;
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
//
|
||
|
|
// // 9504.12 rwr replaced int 21 thingies with Windows 95 thingies
|
||
|
|
//
|
||
|
|
hff = FindFirstFile(lpname,&ffd);
|
||
|
|
if (hff == INVALID_HANDLE_VALUE)
|
||
|
|
*count = 0;
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if (++(*count) > maxcount)
|
||
|
|
{
|
||
|
|
FindClose(hff);
|
||
|
|
hff = INVALID_HANDLE_VALUE;
|
||
|
|
status = FIO_DIRLIST_FULLBUF;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
lstrcpy (namesbuf -> namestring, ffd.cFileName);
|
||
|
|
/* WARNING!! - the above is the LONG filename (not 8.3)! */
|
||
|
|
// 11/16/95 rwr We're calling Windows functions now, so no OEM stuff any more!
|
||
|
|
// OemToAnsi(namesbuf -> namestring, namesbuf -> namestring);
|
||
|
|
namesbuf -> attrs = ffd.dwFileAttributes;
|
||
|
|
++namesbuf;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
while ((hff != INVALID_HANDLE_VALUE) && (FindNextFile (hff,&ffd)))
|
||
|
|
{
|
||
|
|
if (++(*count) > maxcount)
|
||
|
|
status = FIO_DIRLIST_FULLBUF;
|
||
|
|
else
|
||
|
|
{
|
||
|
|
lstrcpy (namesbuf -> namestring, ffd.cFileName);
|
||
|
|
/* WARNING!! - the above is the LONG filename (not 8.3)! */
|
||
|
|
// 11/16/95 rwr We're calling Windows functions now, so no OEM stuff any more!
|
||
|
|
// OemToAnsi(namesbuf -> namestring, namesbuf -> namestring);
|
||
|
|
namesbuf -> attrs = ffd.dwFileAttributes;
|
||
|
|
++namesbuf;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (hff != INVALID_HANDLE_VALUE)
|
||
|
|
FindClose(hff);
|
||
|
|
}
|
||
|
|
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
|
||
|
|
// TBD - SECTION ABOVE --> ADD WINDOWS 95 CALL HERE!!!
|
||
|
|
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
|
||
|
|
|
||
|
|
// 9504.11 jar not for Norway I!!!
|
||
|
|
// else
|
||
|
|
// { /* REMOTE */
|
||
|
|
// if (!(svrname = (LPSTR) GlobalLock (svrhndl)))
|
||
|
|
// {
|
||
|
|
// GlobalFree (svrhndl);
|
||
|
|
// GlobalUnlock (hname);
|
||
|
|
// GlobalFree (hname);
|
||
|
|
// //UnlockData (0);
|
||
|
|
// return (FIO_GLOBAL_LOCK_FAILED);
|
||
|
|
// }
|
||
|
|
// total_count = *count; // max num user wants
|
||
|
|
// toget = min (total_count, MAX_RPC_DIRNUM); // we can only get MAX_RPC at a time
|
||
|
|
//
|
||
|
|
// /* RPC IDS call */
|
||
|
|
// dirdes = RPCIDSopendir (hWnd, svrname, (LPINT) &conid, lpname, (LPINT) &errcode, &rpcerror);
|
||
|
|
// GlobalUnlock (svrhndl);
|
||
|
|
//
|
||
|
|
// if ((dirdes >= 0) && (errcode == SUCCESS))
|
||
|
|
// {
|
||
|
|
// if(!(hbuffer = GlobalAlloc (GMEM_FIXED | GMEM_ZEROINIT | GMEM_NOT_BANKED,
|
||
|
|
// (long) ((sizeof (IDSDIR)) *
|
||
|
|
// max (MAX_RPC_DIRNUM, (toget + 1))))))
|
||
|
|
// status = FIO_GLOBAL_ALLOC_FAILED;
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// if (!(rpcdirbuffer = (lp_IDSDIR) GlobalLock (hbuffer)))
|
||
|
|
// status = FIO_GLOBAL_LOCK_FAILED;
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// *count = 0;
|
||
|
|
//
|
||
|
|
//// 9503.31 jar this was a NOTUSED section, which I removed!!!!
|
||
|
|
//
|
||
|
|
// /* Get names from server */
|
||
|
|
// while((!done_reading_dir) && (!status))
|
||
|
|
// {
|
||
|
|
// if (total_count < toget)
|
||
|
|
// total_count = toget;
|
||
|
|
//
|
||
|
|
// dirbuffer = rpcdirbuffer;
|
||
|
|
// if ((numentries = RPCIDSreaddir (hWnd, &conid, dirdes, toget,
|
||
|
|
// dirbuffer, (LPINT) &errcode,
|
||
|
|
// &rpcerror))== -1)
|
||
|
|
// {
|
||
|
|
// if (rpcerror)
|
||
|
|
// status = rpcerror;
|
||
|
|
// else
|
||
|
|
// status = FIO_RPC_ERROR;
|
||
|
|
// }
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// if (((total_count -= toget) <= 0) || (numentries < toget))
|
||
|
|
// done_reading_dir = TRUE;
|
||
|
|
// if ((numentries > 0) && (errcode == SUCCESS))
|
||
|
|
// {
|
||
|
|
// numentries = min(toget, numentries);
|
||
|
|
// if ((*count + numentries) > maxcount)
|
||
|
|
// status = FIO_DIRLIST_FULLBUF;
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// *count += numentries;
|
||
|
|
// for (i = 0; i < numentries; ++i)
|
||
|
|
// {
|
||
|
|
// for (j = 0; j < 13; j++)
|
||
|
|
// namesbuf->namestring [j] = dirbuffer -> name [j];
|
||
|
|
// namesbuf -> attrs = (long) dirbuffer -> attrs;
|
||
|
|
// namesbuf++;
|
||
|
|
// dirbuffer++;
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
// toget = min (total_count, MAX_RPC_DIRNUM);
|
||
|
|
//
|
||
|
|
// if (errcode == 1)
|
||
|
|
// {
|
||
|
|
// done_reading_dir = TRUE;
|
||
|
|
// errcode = 0;
|
||
|
|
// }
|
||
|
|
// else
|
||
|
|
// if ((errcode != SUCCESS) && (status != FIO_DIRLIST_FULLBUF))
|
||
|
|
// {
|
||
|
|
// status = FIO_IDSREAD_ERROR;
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
// } //end of while loop
|
||
|
|
//
|
||
|
|
// 9503.31 jar this was a NOTUSED section, which I removed!!!!
|
||
|
|
// GlobalUnlock (hbuffer);
|
||
|
|
// GlobalFree (hbuffer);
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
// else if (errcode == 1) /* no more matches i.e files or directories */
|
||
|
|
// {
|
||
|
|
// status = 0;
|
||
|
|
// *count = 0;
|
||
|
|
// errcode = 0;
|
||
|
|
// }
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// if (rpcerror)
|
||
|
|
// {
|
||
|
|
// status = rpcerror;
|
||
|
|
// }
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// status = FIO_IDSOPEN_ERROR;
|
||
|
|
// }
|
||
|
|
// *count = 0;
|
||
|
|
// }
|
||
|
|
// RPCIDSclosedir (hWnd, &conid, dirdes, &errcode, &rpcerror);
|
||
|
|
// } /* endif (LOCAL OR REMOTE) */
|
||
|
|
// 9504.11 jar not for Norway I!!!
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
GlobalUnlock (hname);
|
||
|
|
GlobalFree (hname);
|
||
|
|
GlobalFree (svrhndl);
|
||
|
|
//UnlockData (0);
|
||
|
|
return (status);
|
||
|
|
}
|
||
|
|
|
||
|
|
/****************************************************************************/
|
||
|
|
// 9503.31 jar return as int
|
||
|
|
//WORD FAR PASCAL IMGFileListVolNames (hWnd, path, vol_no, count, volbuffer, bufsize)
|
||
|
|
//HWND hWnd;
|
||
|
|
//LPSTR path; /* path name must include server name only */
|
||
|
|
//WORD vol_no;
|
||
|
|
//LPINT count;
|
||
|
|
//IDSVOL FAR *volbuffer;
|
||
|
|
//WORD bufsize;
|
||
|
|
int FAR PASCAL IMGFileListVolNames (HWND hWnd, LPSTR path, WORD vol_no,
|
||
|
|
LPINT count, IDSVOL FAR *volbuffer,
|
||
|
|
DWORD bufsize)
|
||
|
|
{
|
||
|
|
/* Initialize */
|
||
|
|
int status = SUCCESS;
|
||
|
|
|
||
|
|
// 9504.11 jar this ain't in Norway I, so we stub it out man!
|
||
|
|
// int numvols, getnum;
|
||
|
|
// HANDLE svrhndl;
|
||
|
|
// LPSTR svrname;
|
||
|
|
// int errcode;
|
||
|
|
// int rpcerror = 0;
|
||
|
|
//
|
||
|
|
// if ( (!(path)) || (!(count)) || (!(volbuffer)))
|
||
|
|
// return ( FIO_NULL_POINTER );
|
||
|
|
//
|
||
|
|
// if (!IsWindow (hWnd))
|
||
|
|
// return (FIO_INVALID_WINDOW_HANDLE);
|
||
|
|
//
|
||
|
|
//// 9503.31 jar - removed calls to GlobalCompact and LocalCompact, since
|
||
|
|
//// they are meaningless in windows95
|
||
|
|
//// GlobalCompact(0L); // Must do so for rpc allocation space.
|
||
|
|
//// LocalCompact(1000);
|
||
|
|
//
|
||
|
|
// //if (!LockData (0))
|
||
|
|
// //return (FIO_LOCK_DATA_SEGMENT_ERROR);
|
||
|
|
//
|
||
|
|
// if (vol_no < 0)
|
||
|
|
// {
|
||
|
|
// //UnlockData (0);
|
||
|
|
// return (FIO_VOL_OUTOFRANGE);
|
||
|
|
// }
|
||
|
|
//
|
||
|
|
// if (!(svrhndl = GlobalAlloc (GMEM_ZEROINIT | GMEM_MOVEABLE | GMEM_NOT_BANKED, MAXSERVERLENGTH)))
|
||
|
|
// status = FIO_GLOBAL_ALLOC_FAILED;
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// if (!(svrname = (LPSTR) GlobalLock (svrhndl)))
|
||
|
|
// status = FIO_GLOBAL_LOCK_FAILED;
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// /* Copy image server ID to svrname */
|
||
|
|
// lstrcpy (svrname, path);
|
||
|
|
// getnum = *count;
|
||
|
|
//
|
||
|
|
// numvols = RPCIDSlistvolumes (hWnd,svrname, getnum, vol_no, volbuffer,
|
||
|
|
// (LPINT) &errcode, &rpcerror);
|
||
|
|
// GlobalUnlock (svrhndl);
|
||
|
|
// if (numvols == -1)
|
||
|
|
// {
|
||
|
|
// if (rpcerror)
|
||
|
|
// status = rpcerror;
|
||
|
|
// else
|
||
|
|
// status = FIO_RPC_ERROR;
|
||
|
|
// }
|
||
|
|
// else if (errcode != SUCCESS)
|
||
|
|
// status = FIO_GET_VOLNAMES_ERROR;
|
||
|
|
// else if (numvols == getnum)
|
||
|
|
// status = FIO_VOLLIST_FULLBUF;
|
||
|
|
//
|
||
|
|
// *count = numvols;
|
||
|
|
// }
|
||
|
|
// GlobalFree (svrhndl);
|
||
|
|
// }
|
||
|
|
// //UnlockData (0);
|
||
|
|
// 9504.11 jar this ain't in Norway I, so we stub it out man!
|
||
|
|
|
||
|
|
return (status);
|
||
|
|
}
|