windows-nt/Source/XPSP1/NT/ds/nw/convert/logview/fvfile.c

232 lines
8.3 KiB
C
Raw Permalink Normal View History

2020-09-26 03:20:57 -05:00
/*
+-------------------------------------------------------------------------+
| MDI Text File Viewer - File IO Routines |
+-------------------------------------------------------------------------+
| (c) Copyright 1994 |
| Microsoft Corp. |
| All rights reserved |
| |
| Program : [mpfile.c] |
| Programmer : Arthur Hanson |
| Original Program Date : [Jul 27, 1993 |
| Last Update : [Jul 30, 1993] Time : 18:30 |
| |
| Version: 0.10 |
| |
| Description: |
| |
| History: |
| arth Jul 27, 1993 0.10 Original Version. |
| |
+-------------------------------------------------------------------------+
*/
#include "LogView.h"
#include <fcntl.h>
#include <SYS\types.h>
#include <SYS\stat.h>
#include <io.h>
#include <string.h>
VOID APIENTRY GetFileName(HWND hwnd, PSTR);
OFSTRUCT of;
/*+-------------------------------------------------------------------------+
| AlreadyOpen() |
| |
| Checks to see if a file is already opened. Returns a handle to |
| the file's window if it is opened, otherwise NULL. |
| |
+-------------------------------------------------------------------------+*/
HWND AlreadyOpen(CHAR *szFile) {
INT iDiff;
HWND hwndCheck;
CHAR szChild[64];
LPSTR lpChild, lpFile;
HFILE wFileTemp;
// Open the file with the OF_PARSE flag to obtain the fully qualified
// pathname in the OFSTRUCT structure.
wFileTemp = OpenFile((LPSTR)szFile, (LPOFSTRUCT)&of, OF_PARSE);
if (! wFileTemp)
return(NULL);
_lclose(wFileTemp);
// Check each MDI child window in LogView
for ( hwndCheck = GetWindow(hwndMDIClient, GW_CHILD);
hwndCheck;
hwndCheck = GetWindow(hwndCheck, GW_HWNDNEXT) ) {
// Initialization for comparison
lpChild = szChild;
lpFile = (LPSTR)AnsiUpper((LPSTR) of.szPathName);
iDiff = 0;
// Skip icon title windows
if (GetWindow(hwndCheck, GW_OWNER))
continue;
// Get current child window's name
GetWindowText(hwndCheck, lpChild, 64);
// Compare window name with given name
while ((*lpChild) && (*lpFile) && (!iDiff)) {
if (*lpChild++ != *lpFile++)
iDiff = 1;
}
// If the two names matched, the file is already open - return handle to matching
// child window.
if (!iDiff)
return(hwndCheck);
}
// No match found -- file is not open -- return NULL handle
return(NULL);
} // AlreadyOpen
/*+-------------------------------------------------------------------------+
| AddFile() |
| |
| Create a new MDI Window, and loads specified file into Window. |
| |
+-------------------------------------------------------------------------+*/
HWND APIENTRY AddFile(CHAR * pName) {
HWND hwnd;
CHAR sz[160];
MDICREATESTRUCT mcs;
if (!pName) {
// The pName parameter is NULL -- load the "Untitled" string from STRINGTABLE
// and set the title field of the MDI CreateStruct.
LoadString (hInst, IDS_UNTITLED, sz, sizeof(sz));
mcs.szTitle = (LPSTR)sz;
}
else
// Title the window with the fully qualified pathname obtained by calling
// OpenFile() with the OF_PARSE flag (in function AlreadyOpen(), which is called
// before AddFile().
mcs.szTitle = pName;
mcs.szClass = szChild;
mcs.hOwner = hInst;
// Use the default size for the window
mcs.x = mcs.cx = CW_USEDEFAULT;
mcs.y = mcs.cy = CW_USEDEFAULT;
// Set the style DWORD of the window to default
mcs.style = 0L;
// tell the MDI Client to create the child
hwnd = (HWND)SendMessage (hwndMDIClient,
WM_MDICREATE,
0,
(LONG_PTR)(LPMDICREATESTRUCT)&mcs);
// Did we get a file? Read it into the window
if (pName){
if (!LoadFile(hwnd, pName)){
// File couldn't be loaded -- close window
SendMessage(hwndMDIClient, WM_MDIDESTROY, (DWORD_PTR) hwnd, 0L);
}
}
return hwnd;
} // AddFile
/*+-------------------------------------------------------------------------+
| LoadFile() |
| |
| Loads file into specified MDI window's edit control. |
| |
+-------------------------------------------------------------------------+*/
INT APIENTRY LoadFile ( HWND hwnd, CHAR * pName) {
LONG wLength;
HANDLE hT;
LPSTR lpB;
HWND hwndEdit;
HFILE fh;
OFSTRUCT of;
hwndEdit = (HWND)GetWindowLong (hwnd, GWL_HWNDEDIT);
// The file has a title, so reset the UNTITLED flag.
SetWindowWord(hwnd, GWW_UNTITLED, FALSE);
fh = OpenFile(pName, &of, OF_READ); // JAP was 0, which is OF_READ)
// Make sure file has been opened correctly
if ( fh < 0 )
goto error;
// Find the length of the file
wLength = (DWORD)_llseek(fh, 0L, 2);
_llseek(fh, 0L, 0);
// Attempt to reallocate the edit control's buffer to the file size
hT = (HANDLE)SendMessage (hwndEdit, EM_GETHANDLE, 0, 0L);
if (LocalReAlloc(hT, wLength+1, LHND) == NULL) {
// Couldn't reallocate to new size -- error
_lclose(fh);
goto error;
}
// read the file into the buffer
if (wLength != (LONG)_lread(fh, (lpB = (LPSTR)LocalLock (hT)), (UINT)wLength))
MPError (hwnd, MB_OK|MB_ICONHAND, IDS_CANTREAD, (LPSTR)pName);
// Zero terminate the edit buffer
lpB[wLength] = 0;
LocalUnlock (hT);
SendMessage (hwndEdit, EM_SETHANDLE, (UINT_PTR)hT, 0L);
_lclose(fh);
return TRUE;
error:
// Report the error and quit
MPError(hwnd, MB_OK | MB_ICONHAND, IDS_CANTOPEN, (LPSTR)pName);
return FALSE;
} // LoadFile
/*+-------------------------------------------------------------------------+
| MyReadFile() |
| |
| Asks user for a filename. |
| |
+-------------------------------------------------------------------------+*/
VOID APIENTRY MyReadFile(HWND hwnd) {
CHAR szFile[128];
HWND hwndFile;
GetFileName (hwnd, szFile);
// If the result is not the empty string -- take appropriate action
if (*szFile) {
// Is file already open??
if (hwndFile = AlreadyOpen(szFile)) {
// Yes -- bring the file's window to the top
BringWindowToTop(hwndFile);
}
else {
// No -- make a new window and load file into it
AddFile(szFile);
}
}
UNREFERENCED_PARAMETER(hwnd);
} // MyReadFile