You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
958 lines
40 KiB
958 lines
40 KiB
/****************************** Module Header ******************************\
|
|
* Module Name: dll.h
|
|
*
|
|
* PURPOSE: Private definitions file for ole.c
|
|
*
|
|
* Created: 1990
|
|
*
|
|
* Copyright (c) 1990, 1991 Microsoft Corporation
|
|
*
|
|
* History:
|
|
* Raor, Srinik (../../90,91) Original
|
|
*
|
|
\***************************************************************************/
|
|
|
|
#define OLE_INTERNAL
|
|
|
|
#include "cmacs.h"
|
|
#include "ole.h"
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Defines, Object methods table and Structures. //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
#ifndef HUGE
|
|
#define HUGE huge
|
|
#endif
|
|
|
|
// Different OS version numbers. One of these values will be in the HIWORD
|
|
// of the OLE version field
|
|
|
|
#define OS_WIN16 0x0000
|
|
#define OS_MAC 0x0001
|
|
#define OS_WIN32 0x0002
|
|
|
|
|
|
// Characteristics Type Field
|
|
#define CT_NULL 0L
|
|
#define CT_LINK 1L
|
|
#define CT_EMBEDDED 2L
|
|
#define CT_STATIC 3L
|
|
#define CT_OLDLINK 4L
|
|
#define CT_PICTURE 5L
|
|
|
|
#define OLE_NO 0 // for boolean query functions
|
|
#define OLE_YES 1 // for boolean query functions
|
|
|
|
#define MAX_STR 256
|
|
#define MAX_NET_NAME MAX_STR
|
|
#define INVALID_INDEX -1
|
|
#define MAX_ATOM 256
|
|
|
|
#define NUM_RENDER 3
|
|
|
|
#define PROTOCOL_EDIT ((LPSTR)"StdFileEditing")
|
|
#define PROTOCOL_STATIC ((LPSTR)"Static")
|
|
#define PROTOCOL_EXECUTE ((LPSTR)"StdExecute")
|
|
|
|
#define READ_ACCESS 0
|
|
#define WRITE_ACCESS 1
|
|
|
|
#define POPUP_NETDLG 1
|
|
|
|
extern WORD CheckPointer (LPVOID, int);
|
|
WORD FARINTERNAL FarCheckPointer (LPVOID, int);
|
|
|
|
#define PROBE_OLDLINK(lpobj){\
|
|
if (lpobj->bOldLink)\
|
|
return OLE_ERROR_OBJECT;\
|
|
}
|
|
|
|
|
|
#define PROBE_READ(lp){\
|
|
if (!CheckPointer(lp, READ_ACCESS))\
|
|
return OLE_ERROR_ADDRESS; \
|
|
}
|
|
|
|
#define PROBE_WRITE(lp){\
|
|
if (!CheckPointer(lp, WRITE_ACCESS))\
|
|
return OLE_ERROR_ADDRESS; \
|
|
}
|
|
|
|
|
|
#define FARPROBE_READ(lp){\
|
|
if (!FarCheckPointer(lp, READ_ACCESS))\
|
|
return OLE_ERROR_ADDRESS; \
|
|
}
|
|
|
|
#define FARPROBE_WRITE(lp){\
|
|
if (!FarCheckPointer(lp, WRITE_ACCESS))\
|
|
return OLE_ERROR_ADDRESS; \
|
|
}
|
|
|
|
#define PROBE_MODE(bProtMode) {\
|
|
if (!bProtMode) \
|
|
return OLE_ERROR_PROTECT_ONLY; \
|
|
}
|
|
|
|
extern OLECLIPFORMAT cfBinary;
|
|
extern OLECLIPFORMAT cfOwnerLink;
|
|
extern OLECLIPFORMAT cfObjectLink;
|
|
extern OLECLIPFORMAT cfLink;
|
|
extern OLECLIPFORMAT cfNative;
|
|
|
|
extern ATOM aStdHostNames;
|
|
extern ATOM aStdTargetDevice ;
|
|
extern ATOM aStdDocDimensions;
|
|
extern ATOM aStdDocName;
|
|
extern ATOM aStdColorScheme;
|
|
extern ATOM aNullArg;
|
|
extern ATOM aSave;
|
|
extern ATOM aChange;
|
|
extern ATOM aClose;
|
|
extern ATOM aPackage;
|
|
|
|
extern HANDLE hInstDLL;
|
|
extern DWORD dwVerToFile;
|
|
extern DWORD dwVerFromFile;
|
|
extern WORD wWinVer;
|
|
extern BOOL bProtMode;
|
|
|
|
// Used by QuerySize() API;
|
|
extern DWORD dwObjSize;
|
|
|
|
extern OLESTREAM dllStream;
|
|
extern BOOL bWLO;
|
|
|
|
////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Note: Whenever this table is changed, then we need to update the
|
|
// method table in ole.h. Otherwise we are in trouble.
|
|
//
|
|
////////////////////////////////////////////////////////////////////////////
|
|
|
|
typedef struct _OLEOBJECTVTBL{
|
|
LPVOID (FAR PASCAL *QueryProtocol) (LPVOID, LPSTR);
|
|
OLESTATUS (FAR PASCAL *Release) (LPVOID);
|
|
OLESTATUS (FAR PASCAL *Show) (LPVOID, BOOL);
|
|
OLESTATUS (FAR PASCAL *DoVerb) (LPVOID, WORD, BOOL, BOOL);
|
|
OLESTATUS (FAR PASCAL *GetData) (LPVOID, OLECLIPFORMAT, LPHANDLE);
|
|
OLESTATUS (FAR PASCAL *SetData) (LPVOID, OLECLIPFORMAT, HANDLE);
|
|
OLESTATUS (FAR PASCAL *SetTargetDevice) (LPVOID, HANDLE);
|
|
OLESTATUS (FAR PASCAL *SetBounds) (LPVOID, LPRECT);
|
|
OLECLIPFORMAT (FAR PASCAL *EnumFormats) (LPVOID, OLECLIPFORMAT);
|
|
|
|
OLESTATUS (FAR PASCAL *SetColorScheme) (LPVOID, LPLOGPALETTE);
|
|
OLESTATUS (FAR PASCAL *Delete) (LPVOID);
|
|
OLESTATUS (FAR PASCAL *SetHostNames) (LPVOID, LPSTR, LPSTR);
|
|
|
|
OLESTATUS (FAR PASCAL *SaveToStream) (LPVOID, LPOLESTREAM);
|
|
OLESTATUS (FAR PASCAL *Clone) (LPVOID, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPVOID);
|
|
OLESTATUS (FAR PASCAL *CopyFromLink) (LPVOID, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPVOID);
|
|
OLESTATUS (FAR PASCAL *Equal) (LPVOID, LPVOID);
|
|
OLESTATUS (FAR PASCAL *CopyToClipboard) (LPVOID);
|
|
OLESTATUS (FAR PASCAL *Draw) (LPVOID, HDC, LPRECT, LPRECT, HDC);
|
|
OLESTATUS (FAR PASCAL *Activate) (LPVOID, WORD, BOOL, BOOL, HWND, LPRECT);
|
|
OLESTATUS (FAR PASCAL *Execute) (LPVOID, HANDLE, WORD);
|
|
OLESTATUS (FAR PASCAL *Close) (LPVOID);
|
|
OLESTATUS (FAR PASCAL *Update) (LPVOID);
|
|
OLESTATUS (FAR PASCAL *Reconnect) (LPVOID);
|
|
|
|
OLESTATUS (FAR PASCAL *ObjectConvert) (LPVOID, LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *);
|
|
|
|
OLESTATUS (FAR PASCAL *GetLinkUpdateOptions) (LPVOID, OLEOPT_UPDATE FAR *);
|
|
OLESTATUS (FAR PASCAL *SetLinkUpdateOptions) (LPVOID, OLEOPT_UPDATE);
|
|
OLESTATUS (FAR PASCAL *Rename) (LPVOID, LPSTR);
|
|
OLESTATUS (FAR PASCAL *QueryName) (LPVOID, LPSTR, WORD FAR *);
|
|
OLESTATUS (FAR PASCAL *QueryType) (LPVOID, LPLONG);
|
|
OLESTATUS (FAR PASCAL *QueryBounds) (LPVOID, LPRECT);
|
|
OLESTATUS (FAR PASCAL *QuerySize) (LPVOID, DWORD FAR *);
|
|
OLESTATUS (FAR PASCAL *QueryOpen) (LPVOID);
|
|
OLESTATUS (FAR PASCAL *QueryOutOfDate) (LPVOID);
|
|
|
|
OLESTATUS (FAR PASCAL *QueryReleaseStatus) (LPVOID);
|
|
OLESTATUS (FAR PASCAL *QueryReleaseError) (LPVOID);
|
|
OLE_RELEASE_METHOD (FAR PASCAL *QueryReleaseMethod) (LPVOID);
|
|
|
|
OLESTATUS (FAR PASCAL *RequestData) (LPVOID, OLECLIPFORMAT);
|
|
OLESTATUS (FAR PASCAL *ObjectLong) (LPVOID, WORD, LPLONG);
|
|
OLESTATUS (FAR PASCAL *ChangeData) (LPVOID, HANDLE, LPOLECLIENT, BOOL);
|
|
|
|
} OLEOBJECTVTBL;
|
|
|
|
typedef OLEOBJECTVTBL FAR *LPOLEOBJECTVTBL;
|
|
|
|
|
|
typedef struct _OLEOBJECT { /*object */
|
|
LPOLEOBJECTVTBL lpvtbl;
|
|
char objId[2];
|
|
HOBJECT hobj;
|
|
LPOLECLIENT lpclient;
|
|
LONG ctype;
|
|
LONG cx;
|
|
LONG cy;
|
|
LONG mm;
|
|
int iTable; // Index into the dll table
|
|
ATOM aObjName; //** Client
|
|
LHCLIENTDOC lhclientdoc; // Document
|
|
LPOLEOBJECT lpPrevObj; // related
|
|
LPOLEOBJECT lpNextObj; //** fileds
|
|
LPOLEOBJECT lpParent; // NULL for LE or Static objects.
|
|
} OBJECT;
|
|
|
|
|
|
|
|
typedef struct _CF_NAME_ATOM {
|
|
char * cfName;
|
|
ATOM cfAtom;
|
|
} CF_NAME_ATOM;
|
|
|
|
extern CF_NAME_ATOM cfNameAtom[];
|
|
|
|
|
|
typedef struct _METADC {
|
|
int xMwo;
|
|
int yMwo;
|
|
int xMwe;
|
|
int yMwe;
|
|
int xre;
|
|
int yre;
|
|
struct _METADC * pNext;
|
|
} METADC, *PMETADC;
|
|
|
|
typedef struct _METAINFO {
|
|
METADC headDc;
|
|
int xwo;
|
|
int ywo;
|
|
int xwe;
|
|
int ywe;
|
|
int xro;
|
|
int yro;
|
|
} METAINFO, *PMETAINFO;
|
|
|
|
typedef struct OBJECT_MF { /* object_mf */
|
|
OBJECT head;
|
|
DWORD sizeBytes;
|
|
METAFILEPICT mfp;
|
|
HANDLE hmfp;
|
|
BOOL fMetaDC;
|
|
OLESTATUS error;
|
|
int nRecord;
|
|
PMETAINFO pMetaInfo;
|
|
PMETADC pCurMdc;
|
|
} OBJECT_MF;
|
|
|
|
typedef OBJECT_MF FAR * LPOBJECT_MF;
|
|
|
|
|
|
|
|
typedef struct
|
|
{
|
|
OBJECT head;
|
|
DWORD sizeBytes;
|
|
int xSize; // width in pixels
|
|
int ySize; // height in pixels
|
|
HBITMAP hBitmap;
|
|
} OBJECT_BM;
|
|
|
|
typedef OBJECT_BM FAR * LPOBJECT_BM;
|
|
|
|
|
|
|
|
typedef struct _OBJECT_DIB {
|
|
OBJECT head;
|
|
DWORD sizeBytes;
|
|
int xSize;
|
|
int ySize;
|
|
HANDLE hDIB;
|
|
} OBJECT_DIB;
|
|
|
|
typedef OBJECT_DIB FAR * LPOBJECT_DIB;
|
|
|
|
|
|
|
|
typedef struct
|
|
{
|
|
OBJECT head;
|
|
OLECLIPFORMAT cfFormat;
|
|
ATOM aClass;
|
|
DWORD sizeBytes;
|
|
HANDLE hData;
|
|
} OBJECT_GEN;
|
|
|
|
typedef OBJECT_GEN FAR * LPOBJECT_GEN;
|
|
|
|
|
|
|
|
typedef struct _RENDER_ENTRY { /* dll_entry */
|
|
LPSTR lpClass;
|
|
ATOM aClass;
|
|
OLESTATUS (FARINTERNAL *Load) (LPOLESTREAM, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG);
|
|
} RENDER_ENTRY;
|
|
|
|
|
|
typedef struct _DLL_ENTRY {
|
|
ATOM aDll; /* global atom for dll name with full path */
|
|
HANDLE hDll; /* handle to the dll module */
|
|
int cObj; /* count of objects, unload dll when this is 0 */
|
|
OLESTATUS (FAR PASCAL *Load) (LPOLESTREAM, LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG, ATOM, OLECLIPFORMAT);
|
|
|
|
OLESTATUS (FAR PASCAL *Clip) (LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, LONG);
|
|
|
|
OLESTATUS (FAR PASCAL *Link) (LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS (FAR PASCAL *CreateFromTemplate) (LPSTR, LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS (FAR PASCAL *Create) (LPSTR, LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS (FAR PASCAL *CreateFromFile) (LPSTR, LPOLECLIENT, LPSTR, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS (FAR PASCAL *CreateLinkFromFile) (LPSTR, LPOLECLIENT, LPSTR, LPSTR, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
OLESTATUS (FAR PASCAL *CreateInvisible) (LPSTR, LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, BOOL);
|
|
|
|
} DLL_ENTRY;
|
|
|
|
|
|
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in OLE.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
BOOL INTERNAL CheckObject(LPOLEOBJECT);
|
|
BOOL FARINTERNAL FarCheckObject(LPOLEOBJECT);
|
|
OLESTATUS INTERNAL LeQueryCreateFromClip (LPSTR, OLEOPT_RENDER, OLECLIPFORMAT, LONG);
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in DEFCREAT.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
OLESTATUS FAR PASCAL DefLoadFromStream (LPOLESTREAM, LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG, ATOM, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL DefCreateFromClip (LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, LONG);
|
|
|
|
OLESTATUS FAR PASCAL DefCreateLinkFromClip (LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL DefCreateFromTemplate (LPSTR, LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL DefCreate (LPSTR, LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL DefCreateFromFile (LPSTR, LPOLECLIENT, LPSTR, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL DefCreateLinkFromFile (LPSTR, LPOLECLIENT, LPSTR, LPSTR, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL DefCreateInvisible (LPSTR, LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, BOOL);
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in PBHANDLR.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
OLESTATUS FAR PASCAL PbLoadFromStream (LPOLESTREAM, LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG, ATOM, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL PbCreateFromClip (LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, LONG);
|
|
|
|
OLESTATUS FAR PASCAL PbCreateLinkFromClip (LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL PbCreateFromTemplate (LPSTR, LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL PbCreate (LPSTR, LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL PbCreateFromFile (LPSTR, LPOLECLIENT, LPSTR, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL PbCreateLinkFromFile (LPSTR, LPOLECLIENT, LPSTR, LPSTR, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FAR PASCAL PbCreateInvisible (LPSTR, LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, BOOL);
|
|
|
|
|
|
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Defines common for le.c, ledde.c, dde.c, doc.c //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
// Constants for chekcing whether the instance is SrvrDLL instance.
|
|
|
|
#define WW_LPTR 0 // ptr tosrvr/doc/item
|
|
#define WW_LE 4 // signature
|
|
#define WW_HANDLE 6 // instance handle
|
|
|
|
#define WC_LE 0x4c45 // LE chars
|
|
|
|
|
|
// command flags
|
|
#define ACT_SHOW 0x0001 // show the window
|
|
#define ACT_ACTIVATE 0x0002 // activate
|
|
#define ACT_DOVERB 0x0004 // Run the item
|
|
#define ACT_ADVISE 0x0008 // advise for data
|
|
#define ACT_REQUEST 0x0010 // request for data
|
|
#define ACT_CLOSE 0x0020 // request for advise only on close
|
|
#define ACT_UNLAUNCH 0x0040 // unload the server after all the
|
|
#define ACT_TERMSRVR 0x0080 // terminate server
|
|
#define ACT_TERMDOC 0x0100 // terminate document
|
|
|
|
#define ACT_NATIVE 0x0200 // only for LNKed objects, if we
|
|
// need native data.
|
|
|
|
#define ACT_MINIMIZE 0x0400 // launch the app minimized
|
|
|
|
#define ACT_NOLAUNCH 0x0800 // don't launch the server
|
|
|
|
|
|
#define LN_TEMPLATE 0x0000 // create from template
|
|
#define LN_NEW 0x1000 // create new
|
|
#define LN_EMBACT 0x2000 // activate emb
|
|
#define LN_LNKACT 0x3000 // activate link
|
|
#define LN_MASK 0xf000 // launch mask
|
|
#define LN_SHIFT 12 // shift count for LN_MASK
|
|
|
|
typedef struct _EDIT_DDE { /* edit_dde */
|
|
HANDLE hInst;
|
|
int extraTerm;
|
|
HWND hClient;
|
|
HWND hServer;
|
|
BOOL bTerminating;
|
|
BOOL bAbort;
|
|
BOOL bCallLater; // used in request cases. if this is FALSE
|
|
// then OLE_CHANGED is sent to client
|
|
int awaitAck;
|
|
HANDLE hopt; // Memory block I may have to free
|
|
int nAdviseClose; // count of outstanding advises on closes
|
|
int nAdviseSave; // count of outstanding advises on save
|
|
HANDLE hData; // Poked data/ temp for holding the
|
|
// handle in DDE messages
|
|
|
|
// busy parameters
|
|
LONG lParam; // lparam value in case we need to
|
|
// repost the message
|
|
WORD msg; // busy repost message
|
|
|
|
WORD wTimer; // timer id.
|
|
} EDIT_DDE;
|
|
|
|
typedef EDIT_DDE NEAR *PEDIT_DDE;
|
|
typedef EDIT_DDE FAR *LPEDIT_DDE;
|
|
|
|
typedef struct _OBJECT_LE { /* object_le */
|
|
OBJECT head;
|
|
ATOM app;
|
|
ATOM topic;
|
|
ATOM item;
|
|
ATOM aServer;
|
|
BOOL bOldLink; // whether a linked object for old link
|
|
BOOL bOleServer; // server which supports the verbs
|
|
WORD verb; // verb nuymber;
|
|
WORD fCmd; // Command flags;
|
|
OLEOPT_UPDATE optUpdate;
|
|
OLEOPT_UPDATE optNew; // new update options
|
|
LPSTR lptemplate; // ptr to the template string, if
|
|
// create from template
|
|
|
|
ATOM aNetName; // network name on which the doc is
|
|
char cDrive; // local drive for that network
|
|
DWORD dwNetInfo; // LOW WORD = Net type
|
|
// HIGH WORD = Driver version
|
|
|
|
LPOLEOBJECT lpobjPict;
|
|
|
|
LONG lAppData; // apps data
|
|
LONG lHandlerData; // handler data
|
|
|
|
HANDLE hnative;
|
|
HANDLE hLink;
|
|
HANDLE hhostNames; // host name block
|
|
HANDLE htargetDevice; // target device info
|
|
HANDLE hdocDimensions; // document dimensions
|
|
HANDLE hextraData; // reqestdata handle
|
|
WORD cfExtra; // extra format data
|
|
HANDLE hlogpal; // logiccal palette
|
|
|
|
|
|
WORD oldasyncCmd; // previous asynchronous command
|
|
WORD asyncCmd; // asynchronous command
|
|
BOOL endAsync; // true if we need to send END_RELEASE.
|
|
BOOL bAsync; // true if async command on.
|
|
WORD mainRtn; // main async routine
|
|
WORD subRtn; // step within the main async routine
|
|
WORD mainErr; // failure error
|
|
WORD subErr; // step error
|
|
WORD errHint; // ;error hint
|
|
|
|
BOOL bSvrClosing; // TRUE - server in the process of
|
|
// closing down
|
|
BOOL bUnlaunchLater; // Call EmbLnkDelete from EndAsyncCmd
|
|
// if this flag is TRUE
|
|
|
|
HANDLE hSysEdit; // handle to system edit.
|
|
PEDIT_DDE pSysEdit; // near ptr to system edit.
|
|
HANDLE hDocEdit; // handle to doc level channel
|
|
PEDIT_DDE pDocEdit; // near ptr to the doc level channel
|
|
|
|
} OBJECT_LE;
|
|
typedef OBJECT_LE FAR * LPOBJECT_LE;
|
|
|
|
|
|
typedef struct _CLIENTDOC { /* object_le */
|
|
char docId[2];
|
|
LPOLEOBJECT lpHeadObj;
|
|
LPOLEOBJECT lpTailObj;
|
|
ATOM aClass;
|
|
ATOM aDoc;
|
|
HANDLE hdoc;
|
|
struct _CLIENTDOC FAR * lpPrevDoc;
|
|
struct _CLIENTDOC FAR * lpNextDoc;
|
|
} CLIENTDOC;
|
|
typedef CLIENTDOC FAR * LPCLIENTDOC;
|
|
|
|
|
|
typedef struct _HOSTNAMES {
|
|
WORD clientNameOffset;
|
|
WORD documentNameOffset;
|
|
BYTE data[];
|
|
} HOSTNAMES;
|
|
|
|
typedef HOSTNAMES FAR * LPHOSTNAMES;
|
|
|
|
typedef struct _BOUNDSRECT {
|
|
WORD defaultWidth;
|
|
WORD defaultHeight;
|
|
WORD maxWidth;
|
|
WORD maxHeight;
|
|
} BOUNDSRECT;
|
|
|
|
typedef BOUNDSRECT FAR *LPBOUNDSRECT;
|
|
|
|
|
|
// AwaitAck values
|
|
#define AA_REQUEST 1
|
|
#define AA_ADVISE 2
|
|
#define AA_POKE 3
|
|
#define AA_EXECUTE 4
|
|
#define AA_UNADVISE 5
|
|
#define AA_INITIATE 6
|
|
|
|
// Bits for Positive WM_DDE_ACK
|
|
#define POSITIVE_ACK 0x8000
|
|
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in LE.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
LPVOID FARINTERNAL LeQueryProtocol (LPOBJECT_LE, LPSTR);
|
|
OLESTATUS FARINTERNAL LeRelease (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeClone (LPOBJECT_LE, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOBJECT_LE FAR *);
|
|
OLESTATUS FARINTERNAL LeCopyFromLink (LPOBJECT_LE, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOBJECT_LE FAR *);
|
|
OLESTATUS FARINTERNAL LeEqual (LPOBJECT_LE, LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeCopy (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeQueryBounds (LPOBJECT_LE, LPRECT);
|
|
OLESTATUS FARINTERNAL LeDraw (LPOBJECT_LE, HDC, LPRECT, LPRECT, HDC);
|
|
OLECLIPFORMAT FARINTERNAL LeEnumFormat (LPOBJECT_LE, OLECLIPFORMAT);
|
|
OLESTATUS FARINTERNAL LeGetData (LPOBJECT_LE, OLECLIPFORMAT, HANDLE FAR *);
|
|
OLESTATUS FARINTERNAL LeRequestData (LPOBJECT_LE, OLECLIPFORMAT);
|
|
OLESTATUS FARINTERNAL LeQueryOutOfDate (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeObjectConvert (LPOBJECT_LE, LPSTR, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *);
|
|
OLESTATUS FARINTERNAL LeChangeData (LPOBJECT_LE, HANDLE, LPOLECLIENT, BOOL);
|
|
LPOBJECT_LE FARINTERNAL LeCreateBlank(LHCLIENTDOC, LPSTR, LONG);
|
|
void FARINTERNAL SetExtents (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeSaveToStream (LPOBJECT_LE, LPOLESTREAM);
|
|
OLESTATUS FARINTERNAL LeLoadFromStream (LPOLESTREAM, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG, ATOM, OLECLIPFORMAT);
|
|
OLESTATUS INTERNAL LeStreamRead (LPOLESTREAM, LPOBJECT_LE);
|
|
OLESTATUS INTERNAL LeStreamWrite (LPOLESTREAM, LPOBJECT_LE);
|
|
int FARINTERNAL ContextCallBack (LPVOID, OLE_NOTIFICATION);
|
|
void INTERNAL DeleteObjectAtoms (LPOBJECT_LE);
|
|
void FARINTERNAL DeleteExtraData (LPOBJECT_LE);
|
|
|
|
OLESTATUS FARINTERNAL LeGetUpdateOptions (LPOBJECT_LE, OLEOPT_UPDATE FAR *);
|
|
OLESTATUS FARINTERNAL LnkPaste (LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, OLECLIPFORMAT);
|
|
OLESTATUS FARINTERNAL EmbPaste (LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
BOOL INTERNAL SetLink (LPOBJECT_LE, HANDLE, LPSTR FAR *);
|
|
HANDLE INTERNAL GetLink (LPOBJECT_LE);
|
|
void FARINTERNAL SetEmbeddedTopic (LPOBJECT_LE);
|
|
|
|
OLESTATUS FAR PASCAL LeQueryReleaseStatus (LPOBJECT_LE);
|
|
OLESTATUS FAR PASCAL LeQueryReleaseError (LPOBJECT_LE);
|
|
OLE_RELEASE_METHOD FAR PASCAL LeQueryReleaseMethod (LPOBJECT_LE);
|
|
|
|
OLESTATUS FARINTERNAL LeQueryType (LPOBJECT_LE, LPLONG);
|
|
OLESTATUS FARINTERNAL LeObjectLong (LPOBJECT_LE, WORD, LPLONG);
|
|
|
|
|
|
void SetNetDrive (LPOBJECT_LE);
|
|
|
|
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in LEDDE.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
OLESTATUS FARINTERNAL LeDoVerb (LPOBJECT_LE, WORD, BOOL, BOOL);
|
|
OLESTATUS FARINTERNAL LeShow (LPOBJECT_LE, BOOL);
|
|
OLESTATUS FARINTERNAL LeQueryOpen (LPOBJECT_LE);
|
|
BOOL INTERNAL QueryOpen (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeActivate (LPOBJECT_LE, WORD, BOOL, BOOL, HWND, LPRECT);
|
|
OLESTATUS FARINTERNAL LeUpdate (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL EmbOpen (LPOBJECT_LE, BOOL, BOOL, HWND, LPRECT);
|
|
OLESTATUS FARINTERNAL EmbUpdate (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL EmbOpenUpdate (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LnkOpen (LPOBJECT_LE, BOOL, BOOL, HWND, LPRECT);
|
|
OLESTATUS FARINTERNAL LnkUpdate (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LnkOpenUpdate (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeClose (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeReconnect (LPOBJECT_LE);
|
|
OLESTATUS INTERNAL PokeNativeData (LPOBJECT_LE);
|
|
BOOL INTERNAL PostMessageToServer (PEDIT_DDE, WORD, LONG);
|
|
|
|
OLESTATUS FARINTERNAL LeCreateFromTemplate (LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FARINTERNAL LeCreate (LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FARINTERNAL LeCreateInvisible (LPOLECLIENT, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, BOOL);
|
|
|
|
OLESTATUS FARINTERNAL CreateFromClassOrTemplate (LPOLECLIENT, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, WORD, LPSTR, LHCLIENTDOC, LPSTR);
|
|
|
|
OLESTATUS FARINTERNAL CreateEmbLnkFromFile (LPOLECLIENT, LPSTR, LPSTR, LPSTR, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, LONG);
|
|
|
|
OLESTATUS FARINTERNAL LeSetUpdateOptions (LPOBJECT_LE, OLEOPT_UPDATE);
|
|
|
|
void INTERNAL AdvisePict (LPOBJECT_LE, ATOM);
|
|
void INTERNAL UnAdvisePict (LPOBJECT_LE);
|
|
int INTERNAL GetPictType (LPOBJECT_LE);
|
|
void INTERNAL AdviseOn (LPOBJECT_LE, int, ATOM);
|
|
void INTERNAL UnAdviseOn (LPOBJECT_LE, int);
|
|
void INTERNAL RequestOn (LPOBJECT_LE, int);
|
|
void INTERNAL RequestPict (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeSetHostNames (LPOBJECT_LE, LPSTR, LPSTR);
|
|
OLESTATUS INTERNAL PokeHostNames (LPOBJECT_LE);
|
|
OLESTATUS INTERNAL SetHostNamesHandle (LPOBJECT_LE, LPSTR, LPSTR);
|
|
void INTERNAL FreePokeData (LPOBJECT_LE, PEDIT_DDE);
|
|
OLESTATUS INTERNAL SendPokeData (LPOBJECT_LE, ATOM, HANDLE, OLECLIPFORMAT);
|
|
OLESTATUS FARINTERNAL LeSetTargetDevice (LPOBJECT_LE, HANDLE);
|
|
OLESTATUS INTERNAL PokeTargetDeviceInfo (LPOBJECT_LE);
|
|
OLESTATUS INTERNAL PokeDocDimensions (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeSetBounds (LPOBJECT_LE, LPRECT);
|
|
OLESTATUS FARINTERNAL LeSetData (LPOBJECT_LE, OLECLIPFORMAT, HANDLE);
|
|
BOOL INTERNAL SendSrvrMainCmd (LPOBJECT_LE, LPSTR);
|
|
ATOM INTERNAL ExtendAtom (LPOBJECT_LE, ATOM);
|
|
BOOL INTERNAL CreatePictObject (LHCLIENTDOC, LPSTR, LPOBJECT_LE, OLEOPT_RENDER, OLECLIPFORMAT, LPSTR);
|
|
BOOL INTERNAL IsSrvrDLLwnd (HWND, HANDLE);
|
|
OLESTATUS INTERNAL ChangeDocAndItem (LPOBJECT_LE, HANDLE);
|
|
BOOL QueryUnlaunch (LPOBJECT_LE);
|
|
BOOL QueryClose (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL LeSetColorScheme (LPOBJECT_LE, LPLOGPALETTE);
|
|
OLESTATUS INTERNAL PokeColorScheme (LPOBJECT_LE);
|
|
OLESTATUS FARINTERNAL ProbeAsync (LPOBJECT_LE);
|
|
BOOL INTERNAL IsServerValid (LPOBJECT_LE);
|
|
BOOL INTERNAL IsWindowValid (HWND);
|
|
OLESTATUS FARINTERNAL LeExecute (LPOBJECT_LE, HANDLE, WORD);
|
|
void INTERNAL FreeGDIdata (HANDLE, OLECLIPFORMAT);
|
|
BOOL INTERNAL CanPutHandleInPokeBlock (LPOBJECT_LE, OLECLIPFORMAT);
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in DDE.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
long FARINTERNAL DocWndProc(HWND, unsigned, WORD, LONG );
|
|
long FARINTERNAL SrvrWndProc(HWND, unsigned, WORD, LONG );
|
|
BOOL INTERNAL CheckAtomValid (ATOM);
|
|
void INTERNAL HandleAckInitMsg (PEDIT_DDE, HWND);
|
|
BOOL INTERNAL HandleAck (LPOBJECT_LE, PEDIT_DDE, DWORD);
|
|
void INTERNAL HandleDataMsg (LPOBJECT_LE, HANDLE, ATOM);
|
|
void INTERNAL HandleTermMsg (LPOBJECT_LE, PEDIT_DDE, HWND, BOOL);
|
|
void INTERNAL HandleTimerMsg (LPOBJECT_LE, PEDIT_DDE);
|
|
void INTERNAL SetData (LPOBJECT_LE, HANDLE, int);
|
|
BOOL INTERNAL DeleteBusyData (LPOBJECT_LE, PEDIT_DDE);
|
|
void INTERNAL DeleteAbortData (LPOBJECT_LE, PEDIT_DDE);
|
|
|
|
BOOL INTERNAL WaitDDE (HWND, BOOL);
|
|
BOOL INTERNAL WaitDDEAck (PEDIT_DDE);
|
|
|
|
BOOL INTERNAL InitSrvrConv (LPOBJECT_LE, HANDLE);
|
|
void INTERNAL TermSrvrConv (LPOBJECT_LE);
|
|
void INTERNAL DeleteSrvrEdit (LPOBJECT_LE);
|
|
BOOL INTERNAL SrvrExecute (LPOBJECT_LE, HANDLE);
|
|
void INTERNAL SendStdExit (LPOBJECT_LE);
|
|
void INTERNAL SendStdClose (LPOBJECT_LE);
|
|
void INTERNAL SendStdExit (LPOBJECT_LE);
|
|
|
|
BOOL FARINTERNAL InitDocConv (LPOBJECT_LE, BOOL);
|
|
BOOL INTERNAL DocExecute (LPOBJECT_LE, HANDLE);
|
|
void INTERNAL TermDocConv (LPOBJECT_LE);
|
|
void INTERNAL DeleteDocEdit (LPOBJECT_LE);
|
|
|
|
HANDLE INTERNAL LeLaunchApp (LPOBJECT_LE);
|
|
HANDLE INTERNAL LoadApp (LPSTR, WORD);
|
|
|
|
int INTERNAL ScanItemOptions (ATOM, int FAR *);
|
|
void INTERNAL ChangeDocName (LPOBJECT_LE, LPSTR);
|
|
BOOL INTERNAL CanCallback (LPOBJECT_LE, int);
|
|
|
|
void FARINTERNAL CallEmbLnkDelete (LPOBJECT_LE);
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Picture Object routines used by routines in other modules //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
LPOBJECT_BM FARINTERNAL BmCreateBlank (LHCLIENTDOC, LPSTR, LONG);
|
|
OLESTATUS FARINTERNAL BmLoadFromStream (LPOLESTREAM, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG);
|
|
OLESTATUS FARINTERNAL BmPaste (LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG);
|
|
|
|
|
|
LPOBJECT_DIB FARINTERNAL DibCreateBlank (LHCLIENTDOC, LPSTR, LONG);
|
|
LPOBJECT_DIB FARINTERNAL DibCreateObject (HANDLE, LPOLECLIENT, BOOL, LHCLIENTDOC, LPSTR, LONG);
|
|
OLESTATUS FARINTERNAL DibLoadFromStream (LPOLESTREAM, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG);
|
|
OLESTATUS FARINTERNAL DibPaste (LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG);
|
|
|
|
|
|
LPOBJECT_MF FARINTERNAL MfCreateBlank (LHCLIENTDOC, LPSTR, LONG);
|
|
LPOBJECT_MF FARINTERNAL MfCreateObject (HANDLE, LPOLECLIENT, BOOL, LHCLIENTDOC, LPSTR, LONG);
|
|
|
|
OLESTATUS FARINTERNAL MfLoadFromStream (LPOLESTREAM, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG);
|
|
OLESTATUS FARINTERNAL MfPaste (LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG);
|
|
|
|
|
|
LPOBJECT_GEN FARINTERNAL GenCreateBlank (LHCLIENTDOC, LPSTR, LONG, ATOM);
|
|
OLESTATUS FARINTERNAL GenLoadFromStream (LPOLESTREAM, LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LONG, ATOM, OLECLIPFORMAT);
|
|
OLESTATUS FARINTERNAL GenPaste (LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, LPSTR, OLECLIPFORMAT, LONG);
|
|
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in MAIN.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
void FARINTERNAL UnloadDll (void);
|
|
int FARINTERNAL LoadDll (LPSTR);
|
|
void FARINTERNAL DecreaseHandlerObjCount (int);
|
|
|
|
void FARINTERNAL RemoveLinkStringFromTopic (LPOBJECT_LE);
|
|
|
|
OLESTATUS FARINTERNAL CreatePictFromClip (LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, LPSTR, LONG);
|
|
|
|
OLESTATUS FARINTERNAL CreatePackageFromClip (LPOLECLIENT, LHCLIENTDOC, LPSTR, LPOLEOBJECT FAR *, OLEOPT_RENDER, OLECLIPFORMAT, LONG);
|
|
|
|
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in UTILS.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
BOOL PutStrWithLen (LPOLESTREAM, LPSTR);
|
|
BOOL GetStrWithLen (LPOLESTREAM, LPSTR);
|
|
ATOM GetAtomFromStream (LPOLESTREAM);
|
|
BOOL PutAtomIntoStream (LPOLESTREAM, ATOM);
|
|
BOOL GetBytes (LPOLESTREAM, LPSTR, LONG);
|
|
BOOL PutBytes (LPOLESTREAM, LPSTR, LONG);
|
|
BOOL QueryApp (LPSTR, LPSTR, LPSTR);
|
|
HANDLE MapStrToH (LPSTR);
|
|
void UtilMemClr (PSTR, WORD);
|
|
BOOL QueryHandler (WORD);
|
|
|
|
OLESTATUS INTERNAL FileExists (LPOBJECT_LE);
|
|
ATOM FARINTERNAL GetAppAtom (LPSTR);
|
|
HANDLE FARINTERNAL DuplicateGlobal (HANDLE, WORD);
|
|
HANDLE FARINTERNAL CopyData (LPSTR, DWORD);
|
|
ATOM FARINTERNAL DuplicateAtom (ATOM);
|
|
BOOL FARINTERNAL UtilQueryProtocol (LPOBJECT_LE, LPSTR);
|
|
BOOL FARINTERNAL CmpGlobals (HANDLE, HANDLE);
|
|
void FARINTERNAL ConvertToHimetric(LPPOINT);
|
|
BOOL FARINTERNAL QueryVerb (LPOBJECT_LE, WORD, LPSTR, LONG);
|
|
BOOL FARINTERNAL MapExtToClass (LPSTR, LPSTR, int);
|
|
int FARINTERNAL GlobalGetAtomLen (ATOM);
|
|
void FARINTERNAL UtilMemCpy (LPSTR, LPSTR, DWORD);
|
|
BOOL FARINTERNAL UtilMemCmp (LPSTR, LPSTR, DWORD);
|
|
BOOL FARINTERNAL IsObjectBlank (LPOBJECT_LE);
|
|
|
|
OLESTATUS FARINTERNAL ObjQueryName (LPOLEOBJECT, LPSTR, WORD FAR *);
|
|
OLESTATUS FARINTERNAL ObjRename (LPOLEOBJECT, LPSTR);
|
|
void INTERNAL SetExeAtom (LPOBJECT_LE);
|
|
|
|
|
|
// !!!make a routine and let the macro call the routine
|
|
// definitions related to the asynchronous operations.
|
|
#define WAIT_FOR_ASYNC_MSG(lpobj) { \
|
|
lpobj->subRtn++; \
|
|
if (lpobj->bAsync){ \
|
|
lpobj->endAsync = TRUE; \
|
|
return OLE_WAIT_FOR_RELEASE; \
|
|
} \
|
|
}
|
|
|
|
#define STEP_NOP(lpobj) lpobj->subRtn++;
|
|
|
|
// !!! Assumes all the creates are in order
|
|
#define PROBE_CREATE_ASYNC(lpobj) \
|
|
if (lpobj->asyncCmd >= OLE_CREATE && \
|
|
lpobj->asyncCmd <= OLE_CREATEINVISIBLE) {\
|
|
if(ProbeAsync(lpobj) == OLE_BUSY)\
|
|
return OLE_BUSY;\
|
|
}
|
|
|
|
#define PROBE_OBJECT_BLANK(lpobj) \
|
|
if (lpobj->asyncCmd >= OLE_CREATE && \
|
|
lpobj->asyncCmd <= OLE_CREATEFROMFILE) { \
|
|
if ((ProbeAsync(lpobj) == OLE_BUSY) && IsObjectBlank(lpobj)) \
|
|
return OLE_ERROR_BLANK;\
|
|
}
|
|
|
|
#define PROBE_ASYNC(lpobj)\
|
|
if(ProbeAsync(lpobj) == OLE_BUSY)\
|
|
return OLE_BUSY;
|
|
|
|
#define IS_SVRCLOSING(lpobj)\
|
|
((lpobj->bUnlaunchLater || lpobj->bSvrClosing) ? TRUE : FALSE)
|
|
|
|
#define PROBE_SVRCLOSING(lpobj)\
|
|
if (IS_SVRCLOSING(lpobj)) \
|
|
return OLE_ERROR_NOT_OPEN; \
|
|
|
|
|
|
#define CLEAR_STEP_ERROR(lpobj) lpobj->subErr = OLE_OK;
|
|
|
|
|
|
#define SKIP_TO(a, b) if (a) goto b;
|
|
#define RESETERR(lpobj) lpobj->mainErr = OLE_OK
|
|
#define SETSTEP(lpobj, no) lpobj->subRtn = no
|
|
#define SETERRHINT(lpobj, no) lpobj->errHint = no
|
|
#define CLEARASYNCCMD(lpobj) lpobj->asyncCmd = OLE_NONE
|
|
|
|
// routines.
|
|
BOOL ProcessErr (LPOBJECT_LE);
|
|
void InitAsyncCmd (LPOBJECT_LE, WORD, WORD);
|
|
void NextAsyncCmd (LPOBJECT_LE, WORD);
|
|
void ScheduleAsyncCmd (LPOBJECT_LE);
|
|
OLESTATUS EndAsyncCmd (LPOBJECT_LE);
|
|
OLESTATUS DocShow (LPOBJECT_LE);
|
|
OLESTATUS DocRun (LPOBJECT_LE);
|
|
void SendStdShow (LPOBJECT_LE);
|
|
OLESTATUS EmbLnkClose (LPOBJECT_LE);
|
|
OLESTATUS LnkSetUpdateOptions (LPOBJECT_LE);
|
|
OLESTATUS EmbSrvrUnlaunch (LPOBJECT_LE);
|
|
OLESTATUS LnkChangeLnk (LPOBJECT_LE);
|
|
OLESTATUS RequestData (LPOBJECT_LE, OLECLIPFORMAT);
|
|
|
|
OLESTATUS FARINTERNAL EmbLnkDelete(LPOBJECT_LE);
|
|
|
|
void FARINTERNAL FarInitAsyncCmd(LPOBJECT_LE, WORD, WORD);
|
|
|
|
// async command routines.
|
|
#define EMBLNKDELETE 1
|
|
#define LNKOPENUPDATE 2
|
|
#define DOCSHOW 3
|
|
#define EMBOPENUPDATE 4
|
|
#define EMBLNKCLOSE 5
|
|
#define LNKSETUPDATEOPTIONS 6
|
|
#define LNKCHANGELNK 7
|
|
#define REQUESTDATA 8
|
|
#define DOCRUN 9
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in DOC.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
BOOL FARINTERNAL CheckClientDoc (LPCLIENTDOC);
|
|
void FARINTERNAL DocAddObject (LPCLIENTDOC, LPOLEOBJECT, LPSTR);
|
|
void FARINTERNAL DocDeleteObject (LPOLEOBJECT);
|
|
LPOLEOBJECT INTERNAL DocGetNextObject (LPCLIENTDOC, LPOLEOBJECT);
|
|
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in NET.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
#define IDD_DRIVE 500
|
|
#define IDD_PASSWORD 501
|
|
#define IDD_PATH 502
|
|
|
|
#define IDS_NETERR 600
|
|
#define IDS_NETCONERRMSG 601
|
|
#define IDS_FILENOTFOUNDMSG 602
|
|
#define IDS_BADPATHMSG 603
|
|
|
|
OLESTATUS FARINTERNAL SetNetName (LPOBJECT_LE);
|
|
BOOL FARINTERNAL SetNextNetDrive (LPOBJECT_LE, int FAR *, LPSTR);
|
|
OLESTATUS FARINTERNAL CheckNetDrive (LPOBJECT_LE, BOOL);
|
|
OLESTATUS INTERNAL FixNet (LPOBJECT_LE, LPSTR, BOOL);
|
|
OLESTATUS INTERNAL ConnectNet (LPOBJECT_LE, LPSTR);
|
|
BOOL FARINTERNAL ChangeTopic (LPOBJECT_LE);
|
|
VOID INTERNAL FillDrives (HWND);
|
|
int FAR PASCAL ConnectDlgProc(HWND, WORD, WORD, DWORD);
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in OLE.ASM //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
WORD GetGDIds (DWORD);
|
|
WORD IsMetaDC (HDC, WORD);
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in ERROR.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
OLESTATUS FARINTERNAL ObjQueryType (LPOLEOBJECT, LPLONG);
|
|
OLESTATUS FARINTERNAL ObjQuerySize (LPOLEOBJECT, DWORD FAR *);
|
|
DWORD PASCAL FAR DllPut (LPOLESTREAM, LPSTR, DWORD);
|
|
HANDLE FARINTERNAL DuplicateGDIdata (HANDLE, OLECLIPFORMAT);
|
|
|
|
|
|
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// Routines in BM.C //
|
|
// //
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
HBITMAP FARINTERNAL BmDuplicate (HBITMAP, DWORD FAR *, LPBITMAP);
|