ole.c

来自「开放源码的编译器open watcom 1.6.0版的源代码」· C语言 代码 · 共 1,211 行 · 第 1/3 页

} /* __OleQueryReleaseMethod */

/*
 * __OleQueryReleaseStatus - cover function for olecli function OleQueryReleaseStatus
 */
OLESTATUS FAR PASCAL __OleQueryReleaseStatus( LPOLEOBJECT lpobject )
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleQueryReleaseStatus == NULL ) {
        olecliOleQueryReleaseStatus = Backpatch_olecli( "OleQueryReleaseStatus" );
        if( olecliOleQueryReleaseStatus == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleQueryReleaseStatus( lpobject );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleQueryReleaseStatus */

/*
 * __OleQuerySize - cover function for olecli function OleQuerySize
 */
OLESTATUS FAR PASCAL __OleQuerySize(LPOLEOBJECT lpobject, DWORD FAR*size)
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleQuerySize == NULL ) {
        olecliOleQuerySize = Backpatch_olecli( "OleQuerySize" );
        if( olecliOleQuerySize == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleQuerySize( lpobject, size );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleQuerySize */

/*
 * __OleQueryType - cover function for olecli function OleQueryType
 */
OLESTATUS FAR PASCAL __OleQueryType( LPOLEOBJECT lpobject, LONG FAR*type )
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleQueryType == NULL ) {
        olecliOleQueryType = Backpatch_olecli( "OleQueryType" );
        if( olecliOleQueryType == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleQueryType( lpobject, type );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleQueryType */

/*
 * __OleReconnect - cover function for olecli function OleReconnect
 */
OLESTATUS FAR PASCAL __OleReconnect( LPOLEOBJECT lpobject )
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleReconnect == NULL ) {
        olecliOleReconnect = Backpatch_olecli( "OleReconnect" );
        if( olecliOleReconnect == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleReconnect( lpobject );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleReconnect */

/*
 * __OleRelease - cover function for olecli function OleRelease
 */
OLESTATUS FAR PASCAL __OleRelease( LPOLEOBJECT lpobject )
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleRelease == NULL ) {
        olecliOleRelease = Backpatch_olecli( "OleRelease" );
        if( olecliOleRelease == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleRelease( lpobject );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleRelease */

/*
 * __OleRename - cover function for olecli function OleRename
 */
OLESTATUS FAR PASCAL __OleRename( LPOLEOBJECT lpobject, LPCSTR newname )
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleRename == NULL ) {
        olecliOleRename = Backpatch_olecli( "OleRename" );
        if( olecliOleRename == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleRename( lpobject, newname );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleRename */

/*
 * __OleRequestData - cover function for olecli function OleRequestData
 */
OLESTATUS FAR PASCAL __OleRequestData( LPOLEOBJECT lpobject , OLECLIPFORMAT cfmt)
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleRequestData == NULL ) {
        olecliOleRequestData = Backpatch_olecli( "OleRequestData" );
        if( olecliOleRequestData == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleRequestData( lpobject, cfmt );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleRequestData */

/*
 * __OleSaveToStream - cover function for olecli function OleSaveToStream
 */
OLESTATUS FAR PASCAL __OleSaveToStream( LPOLEOBJECT lpobject, LPOLESTREAM lpstream)
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;
    LPOLESTREAMVTBL     olpstbl;

    if( olecliOleSaveToStream == NULL ) {
        olecliOleSaveToStream = Backpatch_olecli( "OleSaveToStream" );
        if( olecliOleSaveToStream == NULL ) return( 0 );
    }

    aliasOleStream( lpstream, &olpstbl );
    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleSaveToStream( lpobject, lpstream );
    releaseAliasOleObject( lpobject, olpvtbl );
    releaseAliasOleStream( lpstream, olpstbl );

    return( rc );

} /* __OleSaveToStream */

/*
 * __OleSetBounds - cover function for olecli function OleSetBounds
 */
OLESTATUS FAR PASCAL __OleSetBounds(LPOLEOBJECT lpobject, const RECT FAR*bound)
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleSetBounds == NULL ) {
        olecliOleSetBounds = Backpatch_olecli( "OleSetBounds" );
        if( olecliOleSetBounds == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleSetBounds( lpobject, bound );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleSetBounds */

/*
 * __OleSetColorScheme - cover function for olecli function OleSetColorScheme
 */
OLESTATUS FAR PASCAL __OleSetColorScheme(LPOLEOBJECT lpobject,
                                        const LOGPALETTE FAR*pal )
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleSetColorScheme == NULL ) {
        olecliOleSetColorScheme = Backpatch_olecli( "OleSetColorScheme" );
        if( olecliOleSetColorScheme == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleSetColorScheme( lpobject, pal);
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleSetColorScheme */

/*
 * __OleSetData - cover function for olecli function OleSetData
 */
OLESTATUS FAR PASCAL __OleSetData( LPOLEOBJECT lpobject, OLECLIPFORMAT cfmt,
                                        HANDLE hdata )
{
    OLESTATUS   rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleSetData == NULL ) {
        olecliOleSetData = Backpatch_olecli( "OleSetData" );
        if( olecliOleSetData == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleSetData( lpobject, cfmt, hdata );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleSetData */

/*
 * __OleSetHostNames - cover function for olecli function OleSetHostNames
 */
OLESTATUS FAR PASCAL __OleSetHostNames(LPOLEOBJECT lpobject, LPCSTR client,
                                LPCSTR clientobj )
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleSetHostNames == NULL ) {
        olecliOleSetHostNames = Backpatch_olecli( "OleSetHostNames" );
        if( olecliOleSetHostNames == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleSetHostNames( lpobject, client, clientobj );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleSetHostNames */

/*
 * __OleSetLinkUpdateOptions - cover function for olecli function OleSetLinkUpdateOptions
 */
OLESTATUS FAR PASCAL __OleSetLinkUpdateOptions( LPOLEOBJECT lpobject,
                                        OLEOPT_UPDATE updateopt)
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleSetLinkUpdateOptions == NULL ) {
        olecliOleSetLinkUpdateOptions = Backpatch_olecli( "OleSetLinkUpdateOptions" );
        if( olecliOleSetLinkUpdateOptions == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleSetLinkUpdateOptions( lpobject, updateopt );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleSetLinkUpdateOptions */

/*
 * __OleSetTargetDevice - cover function for olecli function OleSetTargetDevice
 */
OLESTATUS FAR PASCAL __OleSetTargetDevice( LPOLEOBJECT lpobject, HGLOBAL hotd )
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleSetTargetDevice == NULL ) {
        olecliOleSetTargetDevice = Backpatch_olecli( "OleSetTargetDevice" );
        if( olecliOleSetTargetDevice == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleSetTargetDevice( lpobject, hotd );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleSetTargetDevice */

/*
 * __OleUpdate - cover function for olecli function OleUpdate
 */
OLESTATUS FAR PASCAL __OleUpdate( LPOLEOBJECT lpobject )
{
    OLESTATUS           rc;
    LPOLEOBJECTVTBL     olpvtbl;

    if( olecliOleUpdate == NULL ) {
        olecliOleUpdate = Backpatch_olecli( "OleUpdate" );
        if( olecliOleUpdate == NULL ) return( 0 );
    }

    aliasOleObject( lpobject, &olpvtbl );
    rc = olecliOleUpdate( lpobject );
    releaseAliasOleObject( lpobject, olpvtbl );

    return( rc );

} /* __OleUpdate */

/*
 * __OleRegisterServer - cover function for olesvr function OleRegisterServer
 */
OLESTATUS FAR PASCAL __OleRegisterServer( LPCSTR class, LPOLESERVER lpserver,
                        LHSERVER FAR*handle, HINSTANCE inst, OLE_SERVER_USE suse)
{
    OLESTATUS           rc;
    LPOLESERVERVTBL     nlpvtbl;
    LPOLESERVER         new;

    if( olesvrOleRegisterServer == NULL ) {
        olesvrOleRegisterServer = Backpatch_olesvr( "OleRegisterServer" );
        if( olesvrOleRegisterServer == NULL ) return( 0 );
    }

    new = _fmalloc( sizeof( OLESERVER ) );
    new->lpvtbl = _fmalloc( sizeof( OLESERVERVTBL ) );

    nlpvtbl = lpserver->lpvtbl;
    GetAlias( &nlpvtbl );
    _fmemcpy( new->lpvtbl, nlpvtbl, sizeof( OLESERVERVTBL ) );
    ReleaseAlias( lpserver->lpvtbl, nlpvtbl );

    rc = olesvrOleRegisterServer( class, new, handle, inst, suse );

    return( rc );

} /* __OleRegisterServer */

/*
 * __OleRegisterServerDoc - cover function for olesvr function OleRegisterServerDoc
 */
OLESTATUS FAR PASCAL __OleRegisterServerDoc(LHSERVER hsrvr, LPCSTR docname,
                        LPOLESERVERDOC lpdoc, LHSERVERDOC FAR* lphdoc)
{
    OLESTATUS           rc;
    LPOLESERVERDOCVTBL  nlpvtbl;
    LPOLESERVERDOC      new;

    if( olesvrOleRegisterServerDoc == NULL ) {
        olesvrOleRegisterServerDoc = Backpatch_olesvr( "OleRegisterServerDoc" );
        if( olesvrOleRegisterServerDoc == NULL ) return( 0 );
    }

    new = _fmalloc( sizeof( OLESERVERDOC ) );
    new->lpvtbl = _fmalloc( sizeof( OLESERVERDOCVTBL ) );

    nlpvtbl = lpdoc->lpvtbl;
    GetAlias( &nlpvtbl );
    _fmemcpy( new->lpvtbl, nlpvtbl, sizeof( OLESERVERDOCVTBL ) );
    ReleaseAlias( lpdoc->lpvtbl, nlpvtbl );

    rc = olesvrOleRegisterServerDoc( hsrvr, docname, new, lphdoc );

    return( rc );

} /* __OleRegisterServerDoc */

/*
 * __OleRevokeObject - cover function for olesvr function OleRevokeObject
 */
OLESTATUS FAR PASCAL __OleRevokeObject( LPOLECLIENT lpclient )
{
    OLESTATUS           rc;
    LPOLECLIENTVTBL     olpvtblc;

    if( olesvrOleRevokeObject == NULL ) {
        olesvrOleRevokeObject = Backpatch_olesvr( "OleRevokeObject" );
        if( olesvrOleRevokeObject == NULL ) return( 0 );
    }

    aliasOleClient( lpclient, &olpvtblc );
    rc = olesvrOleRevokeObject( lpclient );
    releaseAliasOleClient( lpclient, olpvtblc );

    return( rc );

} /* __OleRevokeObject */