Ignore:
Timestamp:
Sep 5, 2001, 3:19:02 PM (24 years ago)
Author:
bird
Message:

Added $Id:$ keyword.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/oleaut32/oleaut.c

    r6311 r6648  
     1/* $Id: oleaut.c,v 1.2 2001-09-05 13:19:00 bird Exp $ */
    12/*
    2  *      OLEAUT32
     3 *  OLEAUT32
    34 *
    45 */
    … …  
    1718DEFAULT_DEBUG_CHANNEL(ole);
    1819
    19 static WCHAR    _delimiter[2] = {'!',0}; /* default delimiter apparently */
    20 static WCHAR    *pdelimiter = &_delimiter[0];
     20static WCHAR    _delimiter[2] = {'!',0}; /* default delimiter apparently */
     21static WCHAR    *pdelimiter = &_delimiter[0];
    2122
    2223/***********************************************************************
    23  *              RegisterActiveObject (OLEAUT32.33)
     24 *      RegisterActiveObject (OLEAUT32.33)
    2425 */
    2526HRESULT WINAPI RegisterActiveObject(
    26         LPUNKNOWN punk,REFCLSID rcid,DWORD dwFlags,LPDWORD pdwRegister
     27    LPUNKNOWN punk,REFCLSID rcid,DWORD dwFlags,LPDWORD pdwRegister
    2728) {
    28         WCHAR                   guidbuf[80];
    29         HRESULT                 ret;
    30         LPRUNNINGOBJECTTABLE    runobtable;
    31         LPMONIKER               moniker;
     29    WCHAR           guidbuf[80];
     30    HRESULT         ret;
     31    LPRUNNINGOBJECTTABLE    runobtable;
     32    LPMONIKER       moniker;
    3233
    33         StringFromGUID2(rcid,guidbuf,39);
     34    StringFromGUID2(rcid,guidbuf,39);
    3435#ifdef __WIN32OS2__
    3536        dprintf(("RegisterActiveObject %x %ls (%x) %x %x", punk, guidbuf, rcid, dwFlags, pdwRegister));
    3637#endif
    37         ret = CreateItemMoniker(pdelimiter,guidbuf,&moniker);
    38         if (FAILED(ret))
    39                 return ret;
    40         ret = GetRunningObjectTable(0,&runobtable);
    41         if (FAILED(ret)) {
    42                 IMoniker_Release(moniker);
    43                 return ret;
    44         }
    45         ret = IRunningObjectTable_Register(runobtable,dwFlags,punk,moniker,pdwRegister);
    46         IRunningObjectTable_Release(runobtable);
    47         IMoniker_Release(moniker);
    48         return ret;
     38    ret = CreateItemMoniker(pdelimiter,guidbuf,&moniker);
     39    if (FAILED(ret))
     40        return ret;
     41    ret = GetRunningObjectTable(0,&runobtable);
     42    if (FAILED(ret)) {
     43        IMoniker_Release(moniker);
     44        return ret;
     45    }
     46    ret = IRunningObjectTable_Register(runobtable,dwFlags,punk,moniker,pdwRegister);
     47    IRunningObjectTable_Release(runobtable);
     48    IMoniker_Release(moniker);
     49    return ret;
    4950}
    5051
    5152/***********************************************************************
    52  *              RevokeActiveObject (OLEAUT32.34)
     53 *      RevokeActiveObject (OLEAUT32.34)
    5354 */
    5455HRESULT WINAPI RevokeActiveObject(DWORD xregister,LPVOID reserved)
    5556{
    56         LPRUNNINGOBJECTTABLE    runobtable;
    57         HRESULT                 ret;
     57    LPRUNNINGOBJECTTABLE    runobtable;
     58    HRESULT         ret;
    5859
    5960#ifdef __WIN32OS2__
    … …  
    6162#endif
    6263
    63         ret = GetRunningObjectTable(0,&runobtable);
    64         if (FAILED(ret)) return ret;
    65         ret = IRunningObjectTable_Revoke(runobtable,xregister);
    66         if (SUCCEEDED(ret)) ret = S_OK;
    67         IRunningObjectTable_Release(runobtable);
    68         return ret;
     64    ret = GetRunningObjectTable(0,&runobtable);
     65    if (FAILED(ret)) return ret;
     66    ret = IRunningObjectTable_Revoke(runobtable,xregister);
     67    if (SUCCEEDED(ret)) ret = S_OK;
     68    IRunningObjectTable_Release(runobtable);
     69    return ret;
    6970}
    7071
    7172/***********************************************************************
    72  *              GetActiveObject (OLEAUT32.35)
     73 *      GetActiveObject (OLEAUT32.35)
    7374 */
    7475HRESULT WINAPI GetActiveObject(REFCLSID rcid,LPVOID preserved,LPUNKNOWN *ppunk)
    7576{
    76         WCHAR                   guidbuf[80];
    77         HRESULT                 ret;
    78         LPRUNNINGOBJECTTABLE    runobtable;
    79         LPMONIKER               moniker;
     77    WCHAR           guidbuf[80];
     78    HRESULT         ret;
     79    LPRUNNINGOBJECTTABLE    runobtable;
     80    LPMONIKER       moniker;
    8081
    81         StringFromGUID2(rcid,guidbuf,39);
     82    StringFromGUID2(rcid,guidbuf,39);
    8283#ifdef __WIN32OS2__
    8384        dprintf(("GetActiveObject %ls (%x) %x %x", guidbuf, rcid, preserved, ppunk));
    8485#endif
    85         ret = CreateItemMoniker(pdelimiter,guidbuf,&moniker);
    86         if (FAILED(ret))
    87                 return ret;
    88         ret = GetRunningObjectTable(0,&runobtable);
    89         if (FAILED(ret)) {
    90                 IMoniker_Release(moniker);
    91                 return ret;
    92         }
    93         ret = IRunningObjectTable_GetObject(runobtable,moniker,ppunk);
    94         IRunningObjectTable_Release(runobtable);
    95         IMoniker_Release(moniker);
    96         return ret;
     86    ret = CreateItemMoniker(pdelimiter,guidbuf,&moniker);
     87    if (FAILED(ret))
     88        return ret;
     89    ret = GetRunningObjectTable(0,&runobtable);
     90    if (FAILED(ret)) {
     91        IMoniker_Release(moniker);
     92        return ret;
     93    }
     94    ret = IRunningObjectTable_GetObject(runobtable,moniker,ppunk);
     95    IRunningObjectTable_Release(runobtable);
     96    IMoniker_Release(moniker);
     97    return ret;
    9798}
    9899
    … …  
    101102 *
    102103 * known OLEAUT32.DLL versions:
    103  * OLE 2.1  NT                          1993-95 10     3023
    104  * OLE 2.1                                      10     3027
    105  * OLE 2.20 W95/NT                      1993-96 20     4112
    106  * OLE 2.20 W95/NT                      1993-96 20     4118
    107  * OLE 2.20 W95/NT                      1993-96 20     4122
    108  * OLE 2.30 W95/NT                      1993-98 30     4265
    109  * OLE 2.40 NT??                        1993-98 40     4267
    110  * OLE 2.40 W98 SE orig. file           1993-98 40     4275
     104 * OLE 2.1  NT              1993-95 10     3023
     105 * OLE 2.1                  10     3027
     106 * OLE 2.20 W95/NT          1993-96 20     4112
     107 * OLE 2.20 W95/NT          1993-96 20     4118
     108 * OLE 2.20 W95/NT          1993-96 20     4122
     109 * OLE 2.30 W95/NT          1993-98 30     4265
     110 * OLE 2.40 NT??            1993-98 40     4267
     111 * OLE 2.40 W98 SE orig. file       1993-98 40     4275
    111112 */
    112113UINT WINAPI OaBuildVersion()
    … …  
    120121    {
    121122    case 0x80000a03:  /* WIN31 */
    122                 return MAKELONG(4049, 20); /* from Win32s 1.1e */
     123        return MAKELONG(4049, 20); /* from Win32s 1.1e */
    123124    case 0x80000004:  /* WIN95 */
    124                 return MAKELONG(4265, 30);
     125        return MAKELONG(4265, 30);
    125126    case 0x80000a04:  /* WIN98 */
    126                 return MAKELONG(4275, 40); /* value of W98 SE; orig. W98 AFAIK has 4265, 30 just as W95 */
     127        return MAKELONG(4275, 40); /* value of W98 SE; orig. W98 AFAIK has 4265, 30 just as W95 */
    127128    case 0x00003303:  /* NT351 */
    128                 return MAKELONG(4265, 30); /* value borrowed from Win95 */
     129        return MAKELONG(4265, 30); /* value borrowed from Win95 */
    129130    case 0x00000004:  /* NT40 */
    130131#ifdef __WIN32OS2__
    131132                return 0x2810b5; //returned by NT4, SP6
    132133#else
    133                 return MAKELONG(4122, 20); /* ouch ! Quite old, I guess */
     134        return MAKELONG(4122, 20); /* ouch ! Quite old, I guess */
    134135#endif
    135136    default:
    136                 ERR("Version value not known yet. Please investigate it !\n");
    137                 return 0x0;
     137        ERR("Version value not known yet. Please investigate it !\n");
     138        return 0x0;
    138139    }
    139140}
    … …  
    141142#ifndef __WIN32OS2__
    142143/***********************************************************************
    143  *              DllRegisterServer
     144 *      DllRegisterServer
    144145 */
    145 HRESULT WINAPI OLEAUT32_DllRegisterServer() { 
     146HRESULT WINAPI OLEAUT32_DllRegisterServer() {
    146147    FIXME("stub!\n");
    147148    return S_OK;
    … …  
    149150
    150151/***********************************************************************
    151  *              DllUnregisterServer
     152 *      DllUnregisterServer
    152153 */
    153154HRESULT WINAPI OLEAUT32_DllUnregisterServer() {
Note: See TracChangeset for help on using the changeset viewer.