/*
 * OLEVTBL.C
 *
 * Creates or frees the procedure instances for the server, document,
 * and object VTBLs.  There are two functions for each table:  one
 * to initialize the table, the other to free the instances in the table.
 *
 * Copyright(c) Microsoft Corp. 1992-1994 All Rights Reserved
 * Win32 version, January 1994
 */


#ifdef MAKEOLESERVER


#include <windows.h>
#include <ole.h>
#include "cosmo.h"
#include "oleglobl.h"

#ifdef MSC
/*
 * This disables Microsoft VC++ 1.x warnings we get from assigning
 * functions with our app-specific prototypes to the fixed prototypes
 * in the VTBL structures.  The functionality of this application was
 * verified before adding this pragma.
 */
#pragma warning(disable:4028)
#ifndef WIN32
#pragma warning(disable:4113)
#endif
#endif


/*
 * FOLEVtblInitServer
 *
 * Purpose:
 *  Creates procedure instances for all the OLE methods required
 *  by the server library for standard server methods.
 *
 * Parameters:
 *  hInst           HINSTANCE of the application instance.
 *  pvt             LPOLESERVERVTBL to the VTBL to initialize.
 *
 * Return Value:
 *  None
 *
 * Customization:
 *  None required.
 */

BOOL WINAPI FOLEVtblInitServer(HINSTANCE hInst, LPOLESERVERVTBL pvt)
    {
    BOOL        fRet=TRUE;

   #ifdef WIN32
    pvt->Create            =ServerCreate;
    pvt->CreateFromTemplate=ServerCreateFromTemplate;
    pvt->Edit              =ServerEdit;
    pvt->Execute           =ServerExecute;
    pvt->Exit              =ServerExit;
    pvt->Open              =ServerOpen;
    pvt->Release           =ServerRelease;
   #else
    pvt->Create            =(LPVOID)MakeProcInstance(ServerCreate,             hInst);
    pvt->CreateFromTemplate=(LPVOID)MakeProcInstance(ServerCreateFromTemplate, hInst);
    pvt->Edit              =(LPVOID)MakeProcInstance(ServerEdit,               hInst);
    pvt->Execute           =(LPVOID)MakeProcInstance(ServerExecute,            hInst);
    pvt->Exit              =(LPVOID)MakeProcInstance(ServerExit,               hInst);
    pvt->Open              =(LPVOID)MakeProcInstance(ServerOpen,               hInst);
    pvt->Release           =(LPVOID)MakeProcInstance(ServerRelease,            hInst);

    fRet =(NULL!=pvt->Create);
    fRet&=(NULL!=pvt->CreateFromTemplate);
    fRet&=(NULL!=pvt->Edit);
    fRet&=(NULL!=pvt->Execute);
    fRet&=(NULL!=pvt->Exit);
    fRet&=(NULL!=pvt->Open);
    fRet&=(NULL!=pvt->Release);
   #endif

    return fRet;
    }


/*
 * OLEVtblFreeServer
 *
 * Purpose:
 *  Frees all procedure instances in the server VTBL.
 *
 * Parameters:
 *  pvt             LPOLESERVERVTBL to the VTBL to free.
 *
 * Return Value:
 *  none
 *
 * Customization:
 *  None required.
 */

void WINAPI OLEVtblFreeServer(LPOLESERVERVTBL pvt)
    {
   #ifndef WIN32
    FreeProcInstance(pvt->Create);
    FreeProcInstance(pvt->CreateFromTemplate);
    FreeProcInstance(pvt->Edit);
    FreeProcInstance(pvt->Exit);
    FreeProcInstance(pvt->Open);
    FreeProcInstance(pvt->Release);
   #endif

    return;
    }





/*
 * FOLEVtblInitDocument
 *
 * Purpose:
 *  Creates procedure instances for all the OLE methods required
 *  for document methods.
 *
 * Parameters:
 *  hInst           HINSTANCE of the application instance.
 *  pvt             LPOLESERVERDOCVTBL to the VTBL to initialize.
 * 
 * Return Value:
 *  None
 *
 * Customization:
 *  None required.
 */

BOOL WINAPI FOLEVtblInitDocument(HINSTANCE hInst, LPOLESERVERDOCVTBL pvt)
    {
    BOOL        fRet=TRUE;

   #ifdef WIN32
    pvt->Close           =DocClose;
    pvt->GetObject       =DocGetObject;
    pvt->Execute         =DocExecute;
    pvt->Release         =DocRelease;
    pvt->Save            =DocSave;
    pvt->SetColorScheme  =DocSetColorScheme;
    pvt->SetDocDimensions=DocSetDocDimensions;
    pvt->SetHostNames    =DocSetHostNames;
   #else
    pvt->Close           =(LPVOID)MakeProcInstance(DocClose,            hInst);
    pvt->GetObject       =(LPVOID)MakeProcInstance(DocGetObject,        hInst);
    pvt->Execute         =(LPVOID)MakeProcInstance(DocExecute,          hInst);
    pvt->Release         =(LPVOID)MakeProcInstance(DocRelease,          hInst);
    pvt->Save            =(LPVOID)MakeProcInstance(DocSave,             hInst);
    pvt->SetColorScheme  =(LPVOID)MakeProcInstance(DocSetColorScheme,   hInst);
    pvt->SetDocDimensions=(LPVOID)MakeProcInstance(DocSetDocDimensions, hInst);
    pvt->SetHostNames    =(LPVOID)MakeProcInstance(DocSetHostNames,     hInst);

    fRet =(NULL!=pvt->Close);
    fRet&=(NULL!=pvt->GetObject);
    fRet&=(NULL!=pvt->Execute);
    fRet&=(NULL!=pvt->Release);
    fRet&=(NULL!=pvt->Save);
    fRet&=(NULL!=pvt->SetColorScheme);
    fRet&=(NULL!=pvt->SetDocDimensions);
    fRet&=(NULL!=pvt->SetHostNames);
   #endif

    return fRet;
    }




/*
 * OLEVtblFreeDocument
 *
 * Purpose:
 *  Frees all procedure instances in the document VTBL.
 *
 * Parameters:
 *  pvt             LPOLESERVERDOCVTBL to the VTBL to free.
 *
 * Return Value:
 *  none
 *
 * Customization:
 *  None required.
 */

void WINAPI OLEVtblFreeDocument(LPOLESERVERDOCVTBL pvt)
    {
   #ifndef WIN32
    FreeProcInstance(pvt->Close);
    FreeProcInstance(pvt->GetObject);
    FreeProcInstance(pvt->Release);
    FreeProcInstance(pvt->Save);
    FreeProcInstance(pvt->SetColorScheme);
    FreeProcInstance(pvt->SetDocDimensions);
    FreeProcInstance(pvt->SetHostNames);
   #endif

    return;
    }





/*
 * FOLEVtblInitObject
 *
 * Purpose:
 *  Creates procedure instances for all the OLE methods required
 *  for object methods.
 *
 * Parameters:
 *  hInst           HINSTANCE of the application instance.
 *  pvt             LPOLEOBJECTVTBL to free.
 * 
 * Return Value:
 *  None
 *
 * Customization:
 *  Your application might not use global variables for srvrvtbl,
 *  docvtbl, and objvtbl.
 */

BOOL WINAPI FOLEVtblInitObject(HINSTANCE hInst, LPOLEOBJECTVTBL pvt)
    {
    BOOL        fRet=TRUE;

    /*
     * Local variables are used here just to make this one assignment
     * more readable since it requires some typecasting to compile clean
     * at warning level 3.
     */
   #ifdef WIN32
    pvt->QueryProtocol  =ObjQueryProtocol;
    pvt->DoVerb         =ObjDoVerb;
    pvt->EnumFormats    =ObjEnumFormats;
    pvt->GetData        =ObjGetData;
    pvt->Release        =ObjRelease;
    pvt->SetBounds      =ObjSetBounds;
    pvt->SetColorScheme =ObjSetColorScheme;
    pvt->SetData        =ObjSetData;
    pvt->SetTargetDevice=ObjSetTargetDevice;
    pvt->Show           =ObjShow;
   #else
    pvt->QueryProtocol  =(LPVOID)MakeProcInstance((FARPROC)ObjQueryProtocol, hInst);;
    pvt->DoVerb         =(LPVOID)MakeProcInstance(ObjDoVerb, hInst);
    pvt->EnumFormats    =(LPVOID)MakeProcInstance(ObjEnumFormats, hInst);
    pvt->GetData        =(LPVOID)MakeProcInstance(ObjGetData, hInst);
    pvt->Release        =(LPVOID)MakeProcInstance(ObjRelease, hInst);
    pvt->SetBounds      =(LPVOID)MakeProcInstance(ObjSetBounds, hInst);
    pvt->SetColorScheme =(LPVOID)MakeProcInstance(ObjSetColorScheme, hInst);
    pvt->SetData        =(LPVOID)MakeProcInstance(ObjSetData, hInst);
    pvt->SetTargetDevice=(LPVOID)MakeProcInstance(ObjSetTargetDevice, hInst);
    pvt->Show           =(LPVOID)MakeProcInstance(ObjShow, hInst);

    fRet =(NULL!=pvt->QueryProtocol);
    fRet&=(NULL!=pvt->DoVerb);
    fRet&=(NULL!=pvt->EnumFormats);
    fRet&=(NULL!=pvt->GetData);
    fRet&=(NULL!=pvt->Release);
    fRet&=(NULL!=pvt->SetBounds);
    fRet =(NULL!=pvt->SetColorScheme);
    fRet&=(NULL!=pvt->SetData);
    fRet&=(NULL!=pvt->SetTargetDevice);
    fRet&=(NULL!=pvt->Show);
   #endif

    return fRet;    //TRUE by default in Win32
    }





/*
 * OLEVtblFreeObject
 *
 * Purpose:
 *  Frees all procedure instances in the object VTBL.
 *
 * Parameters:
 *  pvt             LPOLEOBJECTVTBL to the VTBL to free.
 *
 * Return Value:
 *  none
 *
 * Customization:
 *  None required.
 */

void WINAPI OLEVtblFreeObject(LPOLEOBJECTVTBL pvt)
    {
   #ifndef WIN32
    FreeProcInstance(pvt->DoVerb);
    FreeProcInstance(pvt->EnumFormats);
    FreeProcInstance(pvt->GetData);
    FreeProcInstance((FARPROC)pvt->QueryProtocol);
    FreeProcInstance(pvt->Release);
    FreeProcInstance(pvt->SetBounds);
    FreeProcInstance(pvt->SetColorScheme);
    FreeProcInstance(pvt->SetData);
    FreeProcInstance(pvt->SetTargetDevice);
    FreeProcInstance(pvt->Show);
   #endif

    return;
    }



#endif //MAKEOLESERVER