Ignore:
Timestamp:
Sep 15, 2001, 11:32:00 AM (24 years ago)
Author:
sandervl
Message:

restored old version + wine update

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/oleaut32/oleaut.c

    r6689 r6711  
    11/*
    2  *  OLEAUT32
     2 *      OLEAUT32
    33 *
    44 */
    … …  
    1717DEFAULT_DEBUG_CHANNEL(ole);
    1818
    19 static WCHAR    _delimiter[2] = {'!',0}; /* default delimiter apparently */
    20 static WCHAR    *pdelimiter = &_delimiter[0];
     19static WCHAR    _delimiter[2] = {'!',0}; /* default delimiter apparently */
     20static WCHAR    *pdelimiter = &_delimiter[0];
    2121
    2222/***********************************************************************
    23  *      RegisterActiveObject (OLEAUT32.33)
     23 *              RegisterActiveObject (OLEAUT32.33)
    2424 */
    2525HRESULT WINAPI RegisterActiveObject(
    26     LPUNKNOWN punk,REFCLSID rcid,DWORD dwFlags,LPDWORD pdwRegister
     26        LPUNKNOWN punk,REFCLSID rcid,DWORD dwFlags,LPDWORD pdwRegister
    2727) {
    28     WCHAR           guidbuf[80];
    29     HRESULT         ret;
    30     LPRUNNINGOBJECTTABLE    runobtable;
    31     LPMONIKER       moniker;
     28        WCHAR                   guidbuf[80];
     29        HRESULT                 ret;
     30        LPRUNNINGOBJECTTABLE    runobtable;
     31        LPMONIKER               moniker;
    3232
    33     StringFromGUID2(rcid,guidbuf,39);
     33        StringFromGUID2(rcid,guidbuf,39);
    3434#ifdef __WIN32OS2__
    3535        dprintf(("RegisterActiveObject %x %ls (%x) %x %x", punk, guidbuf, rcid, dwFlags, pdwRegister));
    3636#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;
     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;
    4949}
    5050
    5151/***********************************************************************
    52  *      RevokeActiveObject (OLEAUT32.34)
     52 *              RevokeActiveObject (OLEAUT32.34)
    5353 */
    5454HRESULT WINAPI RevokeActiveObject(DWORD xregister,LPVOID reserved)
    5555{
    56     LPRUNNINGOBJECTTABLE    runobtable;
    57     HRESULT         ret;
     56        LPRUNNINGOBJECTTABLE    runobtable;
     57        HRESULT                 ret;
    5858
    5959#ifdef __WIN32OS2__
    … …  
    6161#endif
    6262
    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;
     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;
    6969}
    7070
    7171/***********************************************************************
    72  *      GetActiveObject (OLEAUT32.35)
     72 *              GetActiveObject (OLEAUT32.35)
    7373 */
    7474HRESULT WINAPI GetActiveObject(REFCLSID rcid,LPVOID preserved,LPUNKNOWN *ppunk)
    7575{
    76     WCHAR           guidbuf[80];
    77     HRESULT         ret;
    78     LPRUNNINGOBJECTTABLE    runobtable;
    79     LPMONIKER       moniker;
     76        WCHAR                   guidbuf[80];
     77        HRESULT                 ret;
     78        LPRUNNINGOBJECTTABLE    runobtable;
     79        LPMONIKER               moniker;
    8080
    81     StringFromGUID2(rcid,guidbuf,39);
     81        StringFromGUID2(rcid,guidbuf,39);
    8282#ifdef __WIN32OS2__
    8383        dprintf(("GetActiveObject %ls (%x) %x %x", guidbuf, rcid, preserved, ppunk));
    8484#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;
     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;
    9797}
    9898
    … …  
    101101 *
    102102 * 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
     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
    111111 */
    112112UINT WINAPI OaBuildVersion()
    … …  
    120120    {
    121121    case 0x80000a03:  /* WIN31 */
    122         return MAKELONG(4049, 20); /* from Win32s 1.1e */
     122                return MAKELONG(4049, 20); /* from Win32s 1.1e */
    123123    case 0x80000004:  /* WIN95 */
    124         return MAKELONG(4265, 30);
     124                return MAKELONG(4265, 30);
    125125    case 0x80000a04:  /* WIN98 */
    126         return MAKELONG(4275, 40); /* value of W98 SE; orig. W98 AFAIK has 4265, 30 just as W95 */
     126                return MAKELONG(4275, 40); /* value of W98 SE; orig. W98 AFAIK has 4265, 30 just as W95 */
    127127    case 0x00003303:  /* NT351 */
    128         return MAKELONG(4265, 30); /* value borrowed from Win95 */
     128                return MAKELONG(4265, 30); /* value borrowed from Win95 */
    129129    case 0x00000004:  /* NT40 */
    130130#ifdef __WIN32OS2__
    131131                return 0x2810b5; //returned by NT4, SP6
    132132#else
    133         return MAKELONG(4122, 20); /* ouch ! Quite old, I guess */
     133                return MAKELONG(4122, 20); /* ouch ! Quite old, I guess */
    134134#endif
    135135    default:
    136         ERR("Version value not known yet. Please investigate it !\n");
    137         return 0x0;
     136                ERR("Version value not known yet. Please investigate it !\n");
     137                return 0x0;
    138138    }
    139139}
    … …  
    141141#ifndef __WIN32OS2__
    142142/***********************************************************************
    143  *      DllRegisterServer
     143 *              DllRegisterServer
    144144 */
    145 HRESULT WINAPI OLEAUT32_DllRegisterServer() {
     145HRESULT WINAPI OLEAUT32_DllRegisterServer() { 
    146146    FIXME("stub!\n");
    147147    return S_OK;
    … …  
    149149
    150150/***********************************************************************
    151  *      DllUnregisterServer
     151 *              DllUnregisterServer
    152152 */
    153153HRESULT WINAPI OLEAUT32_DllUnregisterServer() {
Note: See TracChangeset for help on using the changeset viewer.