320 lines
9.6 KiB
C
320 lines
9.6 KiB
C
|
/****************************** Module Header ******************************\
|
||
|
|
* Module Name: Srvrmain.c Server Main module
|
||
|
|
*
|
||
|
|
* Purpose: Includes server intialization and termination code.
|
||
|
|
*
|
||
|
|
* Created: Oct 1990.
|
||
|
|
*
|
||
|
|
* Copyright (c) 1990, 1991 Microsoft Corporation
|
||
|
|
*
|
||
|
|
* History:
|
||
|
|
* Raor (../10/1990) Designed, coded
|
||
|
|
*
|
||
|
|
*
|
||
|
|
\***************************************************************************/
|
||
|
|
|
||
|
|
#include "cmacs.h"
|
||
|
|
#include "windows.h"
|
||
|
|
#include "ole.h"
|
||
|
|
#include "dde.h"
|
||
|
|
#include "srvr.h"
|
||
|
|
|
||
|
|
#ifndef WF_WLO
|
||
|
|
#define WF_WLO 0x8000
|
||
|
|
#endif
|
||
|
|
|
||
|
|
// ordinal number of new Win31 API IsTask
|
||
|
|
#define ORD_IsTask 320
|
||
|
|
|
||
|
|
// ordinal number of new Win31 API SetMetaFileBitsBetter
|
||
|
|
#define ORD_SetMetaFileBitsBetter 196
|
||
|
|
|
||
|
|
|
||
|
|
#ifdef FIREWALLS
|
||
|
|
short ole_flags;
|
||
|
|
char szDebugBuffer[80];
|
||
|
|
void SetOleFlags(void);
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
// public vars.
|
||
|
|
|
||
|
|
// atomes used in the systems
|
||
|
|
ATOM aStdExit; // "StdExit"
|
||
|
|
ATOM aStdCreate; // "StdNewDicument"
|
||
|
|
ATOM aStdOpen; // "StdOpenDocument"
|
||
|
|
ATOM aStdEdit; // "StdOpenDocument"
|
||
|
|
ATOM aStdCreateFromTemplate; // "StdNewFromTemplate"
|
||
|
|
ATOM aStdClose; // "StdCloseDocument"
|
||
|
|
ATOM aStdShowItem; // "StdShowItem"
|
||
|
|
ATOM aStdDoVerbItem; // "StddoVerbItem"
|
||
|
|
ATOM aSysTopic; // "System"
|
||
|
|
ATOM aOLE; // "OLE"
|
||
|
|
ATOM aStdDocName; // "StdDocumentName"
|
||
|
|
|
||
|
|
ATOM cfBinary; // "Binary format"
|
||
|
|
ATOM cfNative; // "NativeFormat"
|
||
|
|
ATOM cfLink; // "ObjectLink"
|
||
|
|
ATOM cfOwnerLink; // "Ownerlink"
|
||
|
|
|
||
|
|
ATOM aChange; // "Change"
|
||
|
|
ATOM aSave; // "Save"
|
||
|
|
ATOM aClose; // "Close"
|
||
|
|
ATOM aProtocols; // "Protocols"
|
||
|
|
ATOM aTopics; // "Topics"
|
||
|
|
ATOM aFormats; // "Formats"
|
||
|
|
ATOM aStatus; // "Status"
|
||
|
|
ATOM aEditItems; // "Edit items
|
||
|
|
ATOM aTrue; // "True"
|
||
|
|
ATOM aFalse; // "False"
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
// !!! free the proc instances.
|
||
|
|
FARPROC lpSendRenameMsg; // Call back enum props for rename
|
||
|
|
FARPROC lpSendDataMsg; // Call back enum props for data
|
||
|
|
FARPROC lpFindItemWnd; // Callback in enum props of
|
||
|
|
FARPROC lpItemCallBack; // CallBack for object
|
||
|
|
FARPROC lpTerminateClients; // Callback in Doc enum properties
|
||
|
|
FARPROC lpTerminateDocClients; // Callback in Doc enum properties
|
||
|
|
FARPROC lpDeleteClientInfo; // proc for deleteing each item client
|
||
|
|
FARPROC lpEnumForTerminate; // proc for terminating clients not in rename list
|
||
|
|
|
||
|
|
FARPROC lpfnSetMetaFileBitsBetter = NULL;
|
||
|
|
FARPROC lpfnIsTask = NULL;
|
||
|
|
|
||
|
|
HANDLE hdllInst;
|
||
|
|
BOOL bProtMode;
|
||
|
|
BOOL bWLO = FALSE;
|
||
|
|
BOOL bWin30 = FALSE;
|
||
|
|
|
||
|
|
VOID FAR PASCAL WEP (int);
|
||
|
|
#pragma alloc_text(WEP_TEXT, WEP)
|
||
|
|
|
||
|
|
int FAR PASCAL LibMain (hInst, wDataSeg, cbHeapSize, lpszCmdLine)
|
||
|
|
HANDLE hInst;
|
||
|
|
WORD wDataSeg;
|
||
|
|
WORD cbHeapSize;
|
||
|
|
LPSTR lpszCmdLine;
|
||
|
|
{
|
||
|
|
WNDCLASS wc;
|
||
|
|
|
||
|
|
Puts("LibMain");
|
||
|
|
|
||
|
|
#ifdef FIREWALLS
|
||
|
|
SetOleFlags();
|
||
|
|
#endif
|
||
|
|
|
||
|
|
hdllInst = hInst;
|
||
|
|
|
||
|
|
bProtMode = (BOOL) (GetWinFlags() & WF_PMODE & 0x0000FFFF);
|
||
|
|
bWLO = (BOOL) (GetWinFlags() & WF_WLO);
|
||
|
|
bWin30 = (!bWLO && ((WORD) GetVersion()) <= 0x0003);
|
||
|
|
|
||
|
|
// !!! Put all this stuff thru soemkind of table so that we can
|
||
|
|
// save code.
|
||
|
|
|
||
|
|
// register all the atoms.
|
||
|
|
aStdExit = GlobalAddAtom ((LPSTR)"StdExit");
|
||
|
|
aStdCreate = GlobalAddAtom ((LPSTR)"StdNewDocument");
|
||
|
|
aStdOpen = GlobalAddAtom ((LPSTR)"StdOpenDocument");
|
||
|
|
aStdEdit = GlobalAddAtom ((LPSTR)"StdEditDocument");
|
||
|
|
aStdCreateFromTemplate = GlobalAddAtom ((LPSTR)"StdNewfromTemplate");
|
||
|
|
|
||
|
|
aStdClose = GlobalAddAtom ((LPSTR)"StdCloseDocument");
|
||
|
|
aStdShowItem = GlobalAddAtom ((LPSTR)"StdShowItem");
|
||
|
|
aStdDoVerbItem = GlobalAddAtom ((LPSTR)"StdDoVerbItem");
|
||
|
|
aSysTopic = GlobalAddAtom ((LPSTR)"System");
|
||
|
|
aOLE = GlobalAddAtom ((LPSTR)"OLEsystem");
|
||
|
|
aStdDocName = GlobalAddAtom ((LPSTR)"StdDocumentName");
|
||
|
|
|
||
|
|
aProtocols = GlobalAddAtom ((LPSTR)"Protocols");
|
||
|
|
aTopics = GlobalAddAtom ((LPSTR)"Topics");
|
||
|
|
aFormats = GlobalAddAtom ((LPSTR)"Formats");
|
||
|
|
aStatus = GlobalAddAtom ((LPSTR)"Status");
|
||
|
|
aEditItems = GlobalAddAtom ((LPSTR)"EditEnvItems");
|
||
|
|
|
||
|
|
aTrue = GlobalAddAtom ((LPSTR)"True");
|
||
|
|
aFalse = GlobalAddAtom ((LPSTR)"False");
|
||
|
|
|
||
|
|
aChange = GlobalAddAtom ((LPSTR)"Change");
|
||
|
|
aSave = GlobalAddAtom ((LPSTR)"Save");
|
||
|
|
aClose = GlobalAddAtom ((LPSTR)"Close");
|
||
|
|
|
||
|
|
// create the proc instances for the required entry pts.
|
||
|
|
lpSendRenameMsg = MakeProcInstance (SendRenameMsg, hdllInst);
|
||
|
|
lpSendDataMsg = MakeProcInstance (SendDataMsg, hdllInst);
|
||
|
|
lpFindItemWnd = MakeProcInstance (FindItemWnd, hdllInst);
|
||
|
|
lpItemCallBack = MakeProcInstance (ItemCallBack, hdllInst);
|
||
|
|
lpTerminateClients = MakeProcInstance (TerminateClients, hdllInst);
|
||
|
|
lpTerminateDocClients = MakeProcInstance (TerminateDocClients, hdllInst);
|
||
|
|
lpDeleteClientInfo = MakeProcInstance (DeleteClientInfo, hdllInst);
|
||
|
|
lpEnumForTerminate = MakeProcInstance (EnumForTerminate , hdllInst);
|
||
|
|
|
||
|
|
// register the clipboard formats
|
||
|
|
cfNative = RegisterClipboardFormat("Native");
|
||
|
|
cfBinary = RegisterClipboardFormat("Binary");
|
||
|
|
cfLink = RegisterClipboardFormat("ObjectLink");
|
||
|
|
cfOwnerLink = RegisterClipboardFormat("OwnerLink");
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
wc.style = NULL;
|
||
|
|
wc.cbClsExtra = 0;
|
||
|
|
wc.cbWndExtra = sizeof(LONG) + //Ask for extra space for storing the
|
||
|
|
//ptr to srvr/doc/iteminfo.
|
||
|
|
sizeof (WORD) + // for LE chars
|
||
|
|
sizeof (WORD); // for keeping the hDLLInst.
|
||
|
|
|
||
|
|
wc.hInstance = hInst;
|
||
|
|
wc.hIcon = NULL;
|
||
|
|
wc.hCursor = NULL;
|
||
|
|
wc.hbrBackground= NULL;
|
||
|
|
wc.lpszMenuName = NULL;
|
||
|
|
|
||
|
|
|
||
|
|
// Srvr window class
|
||
|
|
wc.lpfnWndProc = SrvrWndProc;
|
||
|
|
wc.lpszClassName= SRVR_CLASS;
|
||
|
|
if (!RegisterClass(&wc))
|
||
|
|
return 0;
|
||
|
|
|
||
|
|
// document window class
|
||
|
|
wc.lpfnWndProc = DocWndProc;
|
||
|
|
wc.lpszClassName = DOC_CLASS;
|
||
|
|
|
||
|
|
if (!RegisterClass(&wc))
|
||
|
|
return 0;
|
||
|
|
|
||
|
|
// Item (object) window class
|
||
|
|
wc.lpfnWndProc = ItemWndProc;
|
||
|
|
wc.lpszClassName = ITEM_CLASS;
|
||
|
|
|
||
|
|
wc.cbWndExtra = sizeof(LONG); // for items do not need extra stuff.
|
||
|
|
if (!RegisterClass(&wc))
|
||
|
|
return 0;
|
||
|
|
|
||
|
|
|
||
|
|
if (!bWin30) {
|
||
|
|
HANDLE hModule;
|
||
|
|
|
||
|
|
if (hModule = GetModuleHandle ("GDI"))
|
||
|
|
lpfnSetMetaFileBitsBetter
|
||
|
|
= GetProcAddress (hModule,
|
||
|
|
(LPSTR) MAKELONG(ORD_SetMetaFileBitsBetter, 0));
|
||
|
|
|
||
|
|
if (hModule = GetModuleHandle ("KERNEL"))
|
||
|
|
lpfnIsTask
|
||
|
|
= GetProcAddress (hModule, (LPSTR) MAKELONG(ORD_IsTask, 0));
|
||
|
|
}
|
||
|
|
|
||
|
|
if (cbHeapSize != 0)
|
||
|
|
UnlockData(0);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
VOID FAR PASCAL WEP (nParameter)
|
||
|
|
int nParameter;
|
||
|
|
{
|
||
|
|
|
||
|
|
Puts("LibExit");
|
||
|
|
|
||
|
|
if (nParameter == WEP_SYSTEM_EXIT)
|
||
|
|
DEBUG_OUT ("---L&E DLL EXIT on system exit---",0)
|
||
|
|
|
||
|
|
else {
|
||
|
|
if (nParameter == WEP_FREE_DLL)
|
||
|
|
DEBUG_OUT ("---L&E DLL EXIT---",0)
|
||
|
|
|
||
|
|
else
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
// free the global atoms.
|
||
|
|
if (aStdExit)
|
||
|
|
GlobalDeleteAtom (aStdExit);
|
||
|
|
if (aStdCreate)
|
||
|
|
GlobalDeleteAtom (aStdCreate);
|
||
|
|
if (aStdOpen)
|
||
|
|
GlobalDeleteAtom (aStdOpen);
|
||
|
|
if (aStdEdit)
|
||
|
|
GlobalDeleteAtom (aStdEdit);
|
||
|
|
if (aStdCreateFromTemplate)
|
||
|
|
GlobalDeleteAtom (aStdCreateFromTemplate);
|
||
|
|
if (aStdClose)
|
||
|
|
GlobalDeleteAtom (aStdClose);
|
||
|
|
if (aStdShowItem)
|
||
|
|
GlobalDeleteAtom (aStdShowItem);
|
||
|
|
if (aStdDoVerbItem)
|
||
|
|
GlobalDeleteAtom (aStdDoVerbItem);
|
||
|
|
if (aSysTopic)
|
||
|
|
GlobalDeleteAtom (aSysTopic);
|
||
|
|
if (aOLE)
|
||
|
|
GlobalDeleteAtom (aOLE);
|
||
|
|
if (aStdDocName)
|
||
|
|
GlobalDeleteAtom (aStdDocName);
|
||
|
|
|
||
|
|
if (aProtocols)
|
||
|
|
GlobalDeleteAtom (aProtocols);
|
||
|
|
if (aTopics)
|
||
|
|
GlobalDeleteAtom (aTopics);
|
||
|
|
if (aFormats)
|
||
|
|
GlobalDeleteAtom (aFormats);
|
||
|
|
if (aStatus)
|
||
|
|
GlobalDeleteAtom (aStatus);
|
||
|
|
if (aEditItems)
|
||
|
|
GlobalDeleteAtom (aEditItems);
|
||
|
|
|
||
|
|
if (aTrue)
|
||
|
|
GlobalDeleteAtom (aTrue);
|
||
|
|
if (aFalse)
|
||
|
|
GlobalDeleteAtom (aFalse);
|
||
|
|
|
||
|
|
if (aChange)
|
||
|
|
GlobalDeleteAtom (aChange);
|
||
|
|
if (aSave)
|
||
|
|
GlobalDeleteAtom (aSave);
|
||
|
|
if (aClose)
|
||
|
|
GlobalDeleteAtom (aClose);
|
||
|
|
|
||
|
|
// !!! for some reason these FreeprocInstances are crashing the system.
|
||
|
|
#if 0
|
||
|
|
FreeProcInstance (lpSendRenameMsg);
|
||
|
|
FreeProcInstance (lpSendDataMsg);
|
||
|
|
FreeProcInstance (lpFindItemWnd);
|
||
|
|
FreeProcInstance (lpItemCallBack);
|
||
|
|
FreeProcInstance (lpTerminateClients);
|
||
|
|
FreeProcInstance (lpTerminateDocClients);
|
||
|
|
FreeProcInstance (lpDeleteClientInfo);
|
||
|
|
FreeProcInstance (EnumForTerminate);
|
||
|
|
#endif
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
#ifdef FIREWALLS
|
||
|
|
void SetOleFlags()
|
||
|
|
{
|
||
|
|
|
||
|
|
char buffer[80];
|
||
|
|
|
||
|
|
if(GetProfileString ("OleDll",
|
||
|
|
"Puts","", (LPSTR)buffer, 80))
|
||
|
|
ole_flags = DEBUG_PUTS;
|
||
|
|
else
|
||
|
|
ole_flags = 0;
|
||
|
|
|
||
|
|
|
||
|
|
if(GetProfileString ("OleDll",
|
||
|
|
"DEBUG_OUT","", (LPSTR)buffer, 80))
|
||
|
|
ole_flags |= DEBUG_DEBUG_OUT;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif
|