|
|
/****************************** Module Header ******************************\
* Module Name: Srvrmain.c Server Main module** Purpose: Includes server intialization and termination code.** Created: Oct 1990.** Copyright (c) 1990 - 1992 Microsoft Corporation** History:* Raor (../10/1990) Designed, coded* curts created portable version for WIN16/32*\***************************************************************************/
#include "windows.h"
#include "ole.h"
#include "dde.h"
#include "cmacs.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;
VOID FAR PASCAL WEP(int);
#ifdef WIN16
BOOL bProtMode;BOOL bWLO = FALSE;BOOL bWin30 = FALSE;#pragma alloc_text(WEP_TEXT, WEP)
//DLL entry:
int FAR PASCAL LibMain ( HANDLE hInst, WORD wDataSeg, WORD cbHeapSize, LPSTR lpszCmdLine#endif
#ifdef WIN32 //WIN32
BOOL LibMain( HANDLE hInst, ULONG Reason, PCONTEXT Context#endif
){ WNDCLASS wc;
Puts("LibMain");
#ifdef WIN32
UNREFERENCED_PARAMETER(Context); if (Reason == DLL_PROCESS_DETACH) { WEP(0); return TRUE; } else if (Reason != DLL_PROCESS_ATTACH) return TRUE;#endif
#ifdef FIREWALLS
SetOleFlags();#endif
hdllInst = hInst;
#ifdef WIN16
bProtMode = (BOOL) (GetWinFlags() & WF_PMODE & 0x0000FFFF); bWLO = (BOOL) (GetWinFlags() & WF_WLO); bWin30 = (!bWLO && ((WORD) GetVersion()) <= 0x0003);#endif
// !!! 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 = (FARPROC)MakeProcInstance (SendRenameMsg, hdllInst); lpSendDataMsg = (FARPROC)MakeProcInstance (SendDataMsg, hdllInst); lpFindItemWnd = (FARPROC)MakeProcInstance (FindItemWnd, hdllInst); lpItemCallBack = (FARPROC)MakeProcInstance (ItemCallBack, hdllInst); lpTerminateClients = (FARPROC)MakeProcInstance (TerminateClients, hdllInst); lpTerminateDocClients = (FARPROC)MakeProcInstance (TerminateDocClients, hdllInst); lpDeleteClientInfo = (FARPROC)MakeProcInstance (DeleteClientInfo, hdllInst); lpEnumForTerminate = (FARPROC)MakeProcInstance (EnumForTerminate , hdllInst);
// register the clipboard formats
cfNative = (OLECLIPFORMAT)RegisterClipboardFormat("Native"); cfBinary = (OLECLIPFORMAT)RegisterClipboardFormat("Binary"); cfLink = (OLECLIPFORMAT)RegisterClipboardFormat("ObjectLink"); cfOwnerLink = (OLECLIPFORMAT)RegisterClipboardFormat("OwnerLink");
wc.style = 0; wc.cbClsExtra = 0; wc.cbWndExtra = sizeof(LONG_PTR) + //Ask for extra space for storing the
//ptr to srvr/doc/iteminfo.
sizeof (WORD) + // for LE chars
sizeof (UINT_PTR); // 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_PTR); // for items do not need extra stuff.
if (!RegisterClass(&wc)) return 0;
#ifdef WIN16
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);#endif
return 1;}
VOID APIENTRY WEP (int nParameter){
Puts("LibExit");
#ifdef WIN16
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; }#endif
#ifdef WIN32
UNREFERENCED_PARAMETER(nParameter); DEBUG_OUT ("---L&E DLL EXIT---",0)#endif
// 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
|
