313 lines
11 KiB
C
313 lines
11 KiB
C
|
/****************************** Module Header ******************************\
|
||
|
|
* Module Name: srvr.h
|
||
|
|
*
|
||
|
|
* PURPOSE: Private definitions file for server code
|
||
|
|
*
|
||
|
|
* Created: 1990
|
||
|
|
*
|
||
|
|
* Copyright (c) 1990, 1991 Microsoft Corporation
|
||
|
|
*
|
||
|
|
* History:
|
||
|
|
* Raor (../../90,91) Original
|
||
|
|
* curts created portable version for WIN16/32
|
||
|
|
*
|
||
|
|
\***************************************************************************/
|
||
|
|
|
||
|
|
#include "port1632.h"
|
||
|
|
|
||
|
|
#define DEFSTD_ITEM_INDEX 0
|
||
|
|
#define STDTARGETDEVICE 1
|
||
|
|
#define STDDOCDIMENSIONS 2
|
||
|
|
#define STDCOLORSCHEME 3
|
||
|
|
#define STDHOSTNAMES 4
|
||
|
|
|
||
|
|
|
||
|
|
#define PROTOCOL_EDIT ((LPSTR)"StdFileEditing")
|
||
|
|
#define PROTOCOL_EXECUTE ((LPSTR)"StdExecute")
|
||
|
|
|
||
|
|
#define SRVR_CLASS ((LPSTR)"SrvrWndClass")
|
||
|
|
#define DOC_CLASS ((LPSTR)"DocWndClass")
|
||
|
|
#define ITEM_CLASS ((LPSTR)"ItemWndClass")
|
||
|
|
|
||
|
|
|
||
|
|
#define ISATOM(a) ((a >= 0xC000) && (a <= 0xFFFF))
|
||
|
|
|
||
|
|
#define MAX_STR 124
|
||
|
|
|
||
|
|
#define WW_LPTR 0 // ptr tosrvr/doc/item
|
||
|
|
#define WW_HANDLE WW_LPTR + sizeof(PVOID) // instance handle
|
||
|
|
#define WW_LE WW_HANDLE + sizeof(PVOID) // signature
|
||
|
|
|
||
|
|
#define WC_LE 0x4c45 // LE chars
|
||
|
|
|
||
|
|
// If we running under WLO, the HIGHWORD of version number will be >= 0x0A00
|
||
|
|
#define VER_WLO 0x0A00
|
||
|
|
|
||
|
|
extern WORD CheckPointer (LPVOID, int);
|
||
|
|
|
||
|
|
#define READ_ACCESS 0
|
||
|
|
#define WRITE_ACCESS 1
|
||
|
|
|
||
|
|
#define PROBE_READ(lp){\
|
||
|
|
if (!CheckPointer((LPVOID)(lp), READ_ACCESS))\
|
||
|
|
return OLE_ERROR_ADDRESS; \
|
||
|
|
}
|
||
|
|
|
||
|
|
#define PROBE_WRITE(lp){\
|
||
|
|
if (!CheckPointer((LPVOID)(lp), WRITE_ACCESS))\
|
||
|
|
return OLE_ERROR_ADDRESS; \
|
||
|
|
}
|
||
|
|
|
||
|
|
#define OLE_COMMAND 1
|
||
|
|
#define NON_OLE_COMMAND 2
|
||
|
|
|
||
|
|
|
||
|
|
#define WT_SRVR 0 // server window
|
||
|
|
#define WT_DOC 1 // document window
|
||
|
|
|
||
|
|
#define PROBE_BLOCK(lpsrvr) { \
|
||
|
|
if (lpsrvr->bBlock) \
|
||
|
|
return OLE_ERROR_SERVER_BLOCKED; \
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
#define SET_MSG_STATUS(retval, status) { \
|
||
|
|
if (retval == OLE_OK) \
|
||
|
|
status |= 0x8000; \
|
||
|
|
if (retval == OLE_BUSY) \
|
||
|
|
status |= 0x4000; \
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
typedef LHSERVER LHSRVR;
|
||
|
|
typedef LHSERVERDOC LHDOC;
|
||
|
|
|
||
|
|
typedef struct _QUE { // nodes in Block/Unblock queue
|
||
|
|
HWND hwnd; //***
|
||
|
|
unsigned msg; // window
|
||
|
|
WPARAM wParam; // procedure parameters
|
||
|
|
LPARAM lParam; //***
|
||
|
|
HANDLE hqNext; // handle to next node
|
||
|
|
int wType; // WT_SRVR || WT_DOC
|
||
|
|
} QUE;
|
||
|
|
|
||
|
|
typedef QUE NEAR * PQUE;
|
||
|
|
typedef QUE FAR * LPQUE;
|
||
|
|
|
||
|
|
|
||
|
|
typedef struct _SRVR { /*srvr*/ // private data
|
||
|
|
LPOLESERVER lpolesrvr; // corresponding server
|
||
|
|
char sig[2]; // signature "SR"
|
||
|
|
HANDLE hsrvr; // global handle
|
||
|
|
ATOM aClass; // class atom
|
||
|
|
ATOM aExe;
|
||
|
|
HWND hwnd; // corresponding window
|
||
|
|
BOOL bTerminate; // Set if we are terminating.
|
||
|
|
int termNo; // termination count
|
||
|
|
BOOL relLock; // ok to release the server.
|
||
|
|
BOOL bnoRelease; // Block release. call
|
||
|
|
OLE_SERVER_USE useFlags; // instance usage flags
|
||
|
|
int cClients; // no of clients;
|
||
|
|
BOOL bBlock; // blocked if TRUE
|
||
|
|
BOOL bBlockedMsg; // msg from block queue if TRUE
|
||
|
|
HANDLE hqHead; // Head and tail of the blocked
|
||
|
|
HANDLE hqTail; // messages queue.
|
||
|
|
|
||
|
|
HANDLE hqPostHead; // Head and tail of the blocked post msg
|
||
|
|
HANDLE hqPostTail; // .
|
||
|
|
BOOL fAckExit;
|
||
|
|
HWND hwndExit;
|
||
|
|
HANDLE hDataExit;
|
||
|
|
} SRVR;
|
||
|
|
|
||
|
|
typedef SRVR FAR *LPSRVR;
|
||
|
|
|
||
|
|
|
||
|
|
LRESULT FAR PASCAL DocWndProc (HWND, UINT, WPARAM, LPARAM);
|
||
|
|
LRESULT FAR PASCAL ItemWndProc (HWND, UINT, WPARAM, LPARAM);
|
||
|
|
LRESULT FAR PASCAL SrvrWndProc (HWND, UINT, WPARAM, LPARAM);
|
||
|
|
BOOL FAR PASCAL TerminateClients (HWND, LPSTR, HANDLE);
|
||
|
|
void SendMsgToChildren (HWND, UINT, WPARAM, LPARAM);
|
||
|
|
|
||
|
|
|
||
|
|
OLESTATUS INTERNAL RequestDataStd (LPARAM, HANDLE FAR *);
|
||
|
|
BOOL INTERNAL ValidateSrvrClass (LPCSTR, ATOM FAR *);
|
||
|
|
ATOM INTERNAL GetExeAtom (LPSTR);
|
||
|
|
BOOL INTERNAL AddClient (HWND, HANDLE, HANDLE);
|
||
|
|
BOOL INTERNAL DeleteClient (HWND, HANDLE);
|
||
|
|
HANDLE INTERNAL FindClient (HWND, HANDLE);
|
||
|
|
BOOL INTERNAL MakeSrvrStr(LPSTR, int, LPSTR, HANDLE);
|
||
|
|
int INTERNAL RevokeAllDocs (LPSRVR);
|
||
|
|
int INTERNAL ReleaseSrvr (LPSRVR);
|
||
|
|
void INTERNAL WaitForTerminate (LPSRVR);
|
||
|
|
OLESTATUS INTERNAL SrvrExecute (HWND, HANDLE, HWND);
|
||
|
|
BOOL INTERNAL HandleInitMsg (LPSRVR, LPARAM);
|
||
|
|
BOOL INTERNAL QueryRelease (LPSRVR);
|
||
|
|
BOOL INTERNAL IsSingleServerInstance (void);
|
||
|
|
|
||
|
|
|
||
|
|
// doc stuff
|
||
|
|
typedef struct _DOC { /*doc*/ // private data
|
||
|
|
LPOLESERVERDOC lpoledoc; // corresponding oledoc
|
||
|
|
char sig[2]; // signature "SD"
|
||
|
|
HANDLE hdoc; // global handle
|
||
|
|
ATOM aDoc;
|
||
|
|
HWND hwnd;
|
||
|
|
BOOL bTerminate;
|
||
|
|
int termNo;
|
||
|
|
int cClients; // no of clients;
|
||
|
|
BOOL fEmbed; // TRUE if embedded document
|
||
|
|
BOOL fAckClose;
|
||
|
|
HWND hwndClose;
|
||
|
|
HANDLE hDataClose;
|
||
|
|
} DOC;
|
||
|
|
|
||
|
|
typedef DOC FAR *LPDOC;
|
||
|
|
|
||
|
|
|
||
|
|
LPDOC INTERNAL FindDoc (LPSRVR, LPSTR);
|
||
|
|
int INTERNAL ReleaseDoc (LPDOC);
|
||
|
|
OLESTATUS INTERNAL DocExecute (HWND, HANDLE, HWND);
|
||
|
|
BOOL FAR PASCAL TerminateDocClients (HWND, LPSTR, HANDLE);
|
||
|
|
int INTERNAL DocShowItem (LPDOC, LPSTR, BOOL);
|
||
|
|
int INTERNAL DocDoVerbItem (LPDOC, LPSTR, UINT, BOOL, BOOL);
|
||
|
|
|
||
|
|
|
||
|
|
// client struct definitions.
|
||
|
|
|
||
|
|
typedef struct _CLIENT { /*doc*/ // private data
|
||
|
|
OLECLIENT oleClient; // oleclient structure
|
||
|
|
LPOLEOBJECT lpoleobject; // corresponding oledoc
|
||
|
|
HANDLE hclient; // global handle
|
||
|
|
ATOM aItem; // item atom or index for some std items
|
||
|
|
HWND hwnd; // item window
|
||
|
|
HANDLE hdevInfo; // latest printer dev info sent
|
||
|
|
} CLIENT;
|
||
|
|
|
||
|
|
typedef CLIENT FAR *LPCLIENT;
|
||
|
|
|
||
|
|
typedef struct _CLINFO { /*clInfo*/ // client transaction info
|
||
|
|
HWND hwnd; // client window handle
|
||
|
|
BOOL bnative; // doe sthis client require native
|
||
|
|
OLECLIPFORMAT format; // dusplay format
|
||
|
|
int options; // transaction advise time otipns
|
||
|
|
BOOL bdata; // need wdat with advise?
|
||
|
|
HANDLE hdevInfo; // device info handle
|
||
|
|
BOOL bnewDevInfo; // new device info
|
||
|
|
} CLINFO;
|
||
|
|
|
||
|
|
typedef CLINFO *PCLINFO;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
BOOL FAR PASCAL FindItemWnd (HWND, LONG);
|
||
|
|
BOOL FAR PASCAL SendRenameMsg (HWND, LPSTR, HANDLE);
|
||
|
|
BOOL FAR PASCAL EnumForTerminate (HWND, LPSTR, HANDLE);
|
||
|
|
BOOL FAR PASCAL SendDataMsg(HWND, LPSTR, HANDLE);
|
||
|
|
BOOL FAR PASCAL DeleteClientInfo (HWND, LPSTR, HANDLE);
|
||
|
|
int FAR PASCAL ItemCallBack (LPOLECLIENT, OLE_NOTIFICATION, LPOLEOBJECT);
|
||
|
|
|
||
|
|
int INTERNAL RegisterItem (LHDOC, LPSTR, LPCLIENT FAR *, BOOL);
|
||
|
|
int INTERNAL FindItem (LPDOC, LPSTR, LPCLIENT FAR *);
|
||
|
|
HWND INTERNAL SearchItem (LPDOC, LPSTR);
|
||
|
|
void INTERNAL DeleteFromItemsList (HWND, HWND);
|
||
|
|
void INTERNAL DeleteAllItems (HWND);
|
||
|
|
OLESTATUS INTERNAL PokeData (LPDOC, HWND, LPARAM);
|
||
|
|
HANDLE INTERNAL MakeItemData (DDEPOKE FAR *, HANDLE, OLECLIPFORMAT);
|
||
|
|
OLESTATUS INTERNAL AdviseData (LPDOC, HWND, LPARAM, BOOL FAR *);
|
||
|
|
OLESTATUS INTERNAL AdviseStdItems (LPDOC, HWND, LPARAM, BOOL FAR *);
|
||
|
|
OLESTATUS INTERNAL UnAdviseData (LPDOC, HWND, LPARAM);
|
||
|
|
OLESTATUS INTERNAL RequestData (LPDOC, HWND, LPARAM, HANDLE FAR *);
|
||
|
|
BOOL INTERNAL MakeDDEData (HANDLE, OLECLIPFORMAT, LPHANDLE, BOOL);
|
||
|
|
HANDLE INTERNAL MakeGlobal (LPCSTR);
|
||
|
|
OLESTATUS INTERNAL ScanItemOptions (LPSTR, int far *);
|
||
|
|
OLESTATUS INTERNAL PokeStdItems (LPDOC, HWND, HANDLE, int);
|
||
|
|
int INTERNAL GetStdItemIndex (ATOM);
|
||
|
|
BOOL INTERNAL IsAdviseStdItems (ATOM);
|
||
|
|
int INTERNAL SetStdInfo (LPDOC, HWND, LPSTR, HANDLE);
|
||
|
|
void INTERNAL SendDevInfo (LPCLIENT, LPSTR);
|
||
|
|
BOOL INTERNAL IsFormatAvailable (LPCLIENT, OLECLIPFORMAT);
|
||
|
|
OLESTATUS INTERNAL RevokeObject (LPOLECLIENT, BOOL);
|
||
|
|
|
||
|
|
|
||
|
|
BOOL INTERNAL AddMessage (HWND, UINT, WPARAM, LPARAM, int);
|
||
|
|
|
||
|
|
#define ITEM_FIND 1 // find the item
|
||
|
|
#define ITEM_DELETECLIENT 2 // delete the client from item clients
|
||
|
|
#define ITEM_DELETE 3 // delete th item window itself
|
||
|
|
#define ITEM_SAVED 4 // item saved
|
||
|
|
|
||
|
|
// host names data structcure
|
||
|
|
typedef struct _HOSTNAMES {
|
||
|
|
WORD clientNameOffset;
|
||
|
|
WORD documentNameOffset;
|
||
|
|
BYTE data[];
|
||
|
|
} HOSTNAMES;
|
||
|
|
|
||
|
|
typedef HOSTNAMES FAR * LPHOSTNAMES;
|
||
|
|
|
||
|
|
|
||
|
|
// routines in UTILS.C
|
||
|
|
|
||
|
|
void INTERNAL MapToHexStr (LPSTR, HANDLE);
|
||
|
|
void INTERNAL UtilMemCpy (LPSTR, LPCSTR, DWORD);
|
||
|
|
HANDLE INTERNAL DuplicateData (HANDLE);
|
||
|
|
LPSTR INTERNAL ScanArg(LPSTR);
|
||
|
|
LPSTR INTERNAL ScanBoolArg (LPSTR, BOOL FAR *);
|
||
|
|
WORD INTERNAL ScanCommand(LPSTR, UINT, LPSTR FAR *, ATOM FAR *);
|
||
|
|
LPSTR INTERNAL ScanLastBoolArg (LPSTR);
|
||
|
|
LPSTR INTERNAL ScanNumArg (LPSTR, LPINT);
|
||
|
|
ATOM INTERNAL MakeDataAtom (ATOM, int);
|
||
|
|
ATOM INTERNAL DuplicateAtom (ATOM);
|
||
|
|
WORD INTERNAL StrToInt (LPSTR);
|
||
|
|
BOOL INTERNAL CheckServer (LPSRVR);
|
||
|
|
BOOL INTERNAL CheckServerDoc (LPDOC);
|
||
|
|
BOOL INTERNAL PostMessageToClientWithBlock (HWND, UINT, WPARAM, LPARAM);
|
||
|
|
BOOL INTERNAL PostMessageToClient (HWND, UINT, WPARAM, LPARAM);
|
||
|
|
BOOL INTERNAL IsWindowValid (HWND);
|
||
|
|
BOOL INTERNAL IsOleCommand (ATOM, UINT);
|
||
|
|
BOOL INTERNAL UtilQueryProtocol (ATOM, LPSTR);
|
||
|
|
|
||
|
|
|
||
|
|
// routines for queueing messages and posting them
|
||
|
|
BOOL INTERNAL UnblockPostMsgs(HWND, BOOL);
|
||
|
|
BOOL INTERNAL BlockPostMsg (HWND, UINT, WPARAM, LPARAM);
|
||
|
|
BOOL INTERNAL IsBlockQueueEmpty (HWND);
|
||
|
|
|
||
|
|
// routine in GIVE2GDI.ASM
|
||
|
|
HANDLE FAR PASCAL GiveToGDI (HANDLE);
|
||
|
|
|
||
|
|
|
||
|
|
// routine in item.c
|
||
|
|
HBITMAP INTERNAL DuplicateBitmap (HBITMAP);
|
||
|
|
HANDLE INTERNAL DuplicateMetaFile (HANDLE);
|
||
|
|
|
||
|
|
// routines in doc.c
|
||
|
|
void INTERNAL FreePokeData (HANDLE);
|
||
|
|
BOOL INTERNAL FreeGDIdata (HANDLE, OLECLIPFORMAT);
|
||
|
|
|
||
|
|
// props stuff
|
||
|
|
#ifdef WIN16
|
||
|
|
|
||
|
|
#define MAKE_DDE_LPARAM(x,y,z) MAKELONG(y,z)
|
||
|
|
|
||
|
|
//#define ENUMPROPS EnumProps
|
||
|
|
//#define REMOVEPROP RemoveProp
|
||
|
|
//#define GETPROP GetProp
|
||
|
|
//#define SETPROP SetProp
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef WIN32
|
||
|
|
|
||
|
|
#define MAKE_DDE_LPARAM(x,y,z) PackDDElParam((UINT)x,(UINT_PTR)y,(UINT_PTR)z)
|
||
|
|
|
||
|
|
//#define ENUMPROPS OleEnumProps
|
||
|
|
//#define REMOVEPROP OleRemoveProp
|
||
|
|
//#define GETPROP OleGetProp
|
||
|
|
//#define SETPROP OleSetProp
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|