dlls/kernelbase/main.c

   1 /*
   2  * Copyright 2016 Michael Müller
   3  * Copyright 2017 Andrey Gusev
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  18  */
  19
  20 #define COBJMACROS
  21
  22 #include "ntstatus.h"
  23 #define WIN32_NO_STATUS
  24 #include "windows.h"
  25 #include "appmodel.h"
  26 #include "shlwapi.h"
  27 #include "perflib.h"
  28
  29 #include "wine/debug.h"
  30 #include "wine/heap.h"
  31 #include "winternl.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(kernelbase);
  34
  35
  36 /*************************************************************
  37  *            DllMainCRTStartup
  38  */
  39 BOOL WINAPI DllMainCRTStartup( HANDLE inst, DWORD reason, LPVOID reserved )
  40 {
  41     return TRUE;
  42 }
  43
  44
  45 /***********************************************************************
  46  *          AppPolicyGetProcessTerminationMethod (KERNELBASE.@)
  47  */
  48 LONG WINAPI AppPolicyGetProcessTerminationMethod(HANDLE token, AppPolicyProcessTerminationMethod *policy)
  49 {
  50     FIXME("%p, %p\n", token, policy);
  51
  52     if(policy)
  53         *policy = AppPolicyProcessTerminationMethod_ExitProcess;
  54
  55     return ERROR_SUCCESS;
  56 }
  57
  58 /***********************************************************************
  59  *          AppPolicyGetThreadInitializationType (KERNELBASE.@)
  60  */
  61 LONG WINAPI AppPolicyGetThreadInitializationType(HANDLE token, AppPolicyThreadInitializationType *policy)
  62 {
  63     FIXME("%p, %p\n", token, policy);
  64
  65     if(policy)
  66         *policy = AppPolicyThreadInitializationType_None;
  67
  68     return ERROR_SUCCESS;
  69 }
  70
  71 /***********************************************************************
  72  *          AppPolicyGetShowDeveloperDiagnostic (KERNELBASE.@)
  73  */
  74 LONG WINAPI AppPolicyGetShowDeveloperDiagnostic(HANDLE token, AppPolicyShowDeveloperDiagnostic *policy)
  75 {
  76     FIXME("%p, %p\n", token, policy);
  77
  78     if(policy)
  79         *policy = AppPolicyShowDeveloperDiagnostic_ShowUI;
  80
  81     return ERROR_SUCCESS;
  82 }
  83
  84 /***********************************************************************
  85  *          AppPolicyGetWindowingModel (KERNELBASE.@)
  86  */
  87 LONG WINAPI AppPolicyGetWindowingModel(HANDLE token, AppPolicyWindowingModel *policy)
  88 {
  89     FIXME("%p, %p\n", token, policy);
  90
  91     if(policy)
  92         *policy = AppPolicyWindowingModel_ClassicDesktop;
  93
  94     return ERROR_SUCCESS;
  95 }
  96
  97 /***********************************************************************
  98  *           PerfCreateInstance   (KERNELBASE.@)
  99  */
 100 PPERF_COUNTERSET_INSTANCE WINAPI PerfCreateInstance(HANDLE handle, LPCGUID guid,
 101                                                     const WCHAR *name, ULONG id)
 102 {
 103     FIXME("%p %s %s %u: stub\n", handle, debugstr_guid(guid), debugstr_w(name), id);
 104     return NULL;
 105 }
 106
 107 /***********************************************************************
 108  *           PerfDeleteInstance   (KERNELBASE.@)
 109  */
 110 ULONG WINAPI PerfDeleteInstance(HANDLE provider, PPERF_COUNTERSET_INSTANCE block)
 111 {
 112     FIXME("%p %p: stub\n", provider, block);
 113     return ERROR_CALL_NOT_IMPLEMENTED;
 114 }
 115
 116 /***********************************************************************
 117  *           PerfSetCounterSetInfo   (KERNELBASE.@)
 118  */
 119 ULONG WINAPI PerfSetCounterSetInfo(HANDLE handle, PPERF_COUNTERSET_INFO template, ULONG size)
 120 {
 121     FIXME("%p %p %u: stub\n", handle, template, size);
 122     return ERROR_CALL_NOT_IMPLEMENTED;
 123 }
 124
 125 /***********************************************************************
 126  *           PerfSetCounterRefValue   (KERNELBASE.@)
 127  */
 128 ULONG WINAPI PerfSetCounterRefValue(HANDLE provider, PPERF_COUNTERSET_INSTANCE instance,
 129                                     ULONG counterid, void *address)
 130 {
 131     FIXME("%p %p %u %p: stub\n", provider, instance, counterid, address);
 132     return ERROR_CALL_NOT_IMPLEMENTED;
 133 }
 134
 135 /***********************************************************************
 136  *           PerfStartProvider   (KERNELBASE.@)
 137  */
 138 ULONG WINAPI PerfStartProvider(GUID *guid, PERFLIBREQUEST callback, HANDLE *provider)
 139 {
 140     FIXME("%s %p %p: stub\n", debugstr_guid(guid), callback, provider);
 141     return ERROR_CALL_NOT_IMPLEMENTED;
 142 }
 143
 144 /***********************************************************************
 145  *           PerfStartProviderEx   (KERNELBASE.@)
 146  */
 147 ULONG WINAPI PerfStartProviderEx(GUID *guid, PPERF_PROVIDER_CONTEXT context, HANDLE *provider)
 148 {
 149     FIXME("%s %p %p: stub\n", debugstr_guid(guid), context, provider);
 150     return ERROR_CALL_NOT_IMPLEMENTED;
 151 }
 152
 153 /***********************************************************************
 154  *           PerfStopProvider   (KERNELBASE.@)
 155  */
 156 ULONG WINAPI PerfStopProvider(HANDLE handle)
 157 {
 158     FIXME("%p: stub\n", handle);
 159     return ERROR_CALL_NOT_IMPLEMENTED;
 160 }
 161
 162 /***********************************************************************
 163  *           QuirkIsEnabled   (KERNELBASE.@)
 164  */
 165 BOOL WINAPI QuirkIsEnabled(void *arg)
 166 {
 167     FIXME("(%p): stub\n", arg);
 168     return FALSE;
 169 }
 170
 171 /***********************************************************************
 172  *          QuirkIsEnabled3 (KERNELBASE.@)
 173  */
 174 BOOL WINAPI QuirkIsEnabled3(void *unk1, void *unk2)
 175 {
 176     static int once;
 177
 178     if (!once++)
 179         FIXME("(%p, %p) stub!\n", unk1, unk2);
 180
 181     return FALSE;
 182 }
 183
 184 /***********************************************************************
 185  *           WaitOnAddress   (KERNELBASE.@)
 186  */
 187 BOOL WINAPI WaitOnAddress(volatile void *addr, void *cmp, SIZE_T size, DWORD timeout)
 188 {
 189     LARGE_INTEGER to;
 190     NTSTATUS status;
 191
 192     if (timeout != INFINITE)
 193     {
 194         to.QuadPart = -(LONGLONG)timeout * 10000;
 195         status = RtlWaitOnAddress((const void *)addr, cmp, size, &to);
 196     }
 197     else
 198         status = RtlWaitOnAddress((const void *)addr, cmp, size, NULL);
 199
 200     if (status != STATUS_SUCCESS)
 201     {
 202         SetLastError( RtlNtStatusToDosError(status) );
 203         return FALSE;
 204     }
 205
 206     return TRUE;
 207 }
 208
 209 HRESULT WINAPI QISearch(void *base, const QITAB *table, REFIID riid, void **obj)
 210 {
 211     const QITAB *ptr;
 212     IUnknown *unk;
 213
 214     TRACE("%p, %p, %s, %p\n", base, table, debugstr_guid(riid), obj);
 215
 216     if (!obj)
 217         return E_POINTER;
 218
 219     for (ptr = table; ptr->piid; ++ptr)
 220     {
 221         TRACE("trying (offset %d) %s\n", ptr->dwOffset, debugstr_guid(ptr->piid));
 222         if (IsEqualIID(riid, ptr->piid))
 223         {
 224             unk = (IUnknown *)((BYTE *)base + ptr->dwOffset);
 225             TRACE("matched, returning (%p)\n", unk);
 226             *obj = unk;
 227             IUnknown_AddRef(unk);
 228             return S_OK;
 229         }
 230     }
 231
 232     if (IsEqualIID(riid, &IID_IUnknown))
 233     {
 234         unk = (IUnknown *)((BYTE *)base + table->dwOffset);
 235         TRACE("returning first for IUnknown (%p)\n", unk);
 236         *obj = unk;
 237         IUnknown_AddRef(unk);
 238         return S_OK;
 239     }
 240
 241     WARN("Not found %s.\n", debugstr_guid(riid));
 242     *obj = NULL;
 243     return E_NOINTERFACE;
 244 }
 245
 246 HRESULT WINAPI GetAcceptLanguagesA(LPSTR langbuf, DWORD *buflen)
 247 {
 248     DWORD buflenW, convlen;
 249     WCHAR *langbufW;
 250     HRESULT hr;
 251
 252     TRACE("%p, %p, *%p: %d\n", langbuf, buflen, buflen, buflen ? *buflen : -1);
 253
 254     if (!langbuf || !buflen || !*buflen)
 255         return E_FAIL;
 256
 257     buflenW = *buflen;
 258     langbufW = heap_alloc(sizeof(WCHAR) * buflenW);
 259     hr = GetAcceptLanguagesW(langbufW, &buflenW);
 260
 261     if (hr == S_OK)
 262     {
 263         convlen = WideCharToMultiByte(CP_ACP, 0, langbufW, -1, langbuf, *buflen, NULL, NULL);
 264         convlen--;  /* do not count the terminating 0 */
 265     }
 266     else  /* copy partial string anyway */
 267     {
 268         convlen = WideCharToMultiByte(CP_ACP, 0, langbufW, *buflen, langbuf, *buflen, NULL, NULL);
 269         if (convlen < *buflen)
 270         {
 271             langbuf[convlen] = 0;
 272             convlen--;  /* do not count the terminating 0 */
 273         }
 274         else
 275         {
 276             convlen = *buflen;
 277         }
 278     }
 279     *buflen = buflenW ? convlen : 0;
 280
 281     heap_free(langbufW);
 282     return hr;
 283 }
 284
 285 static HRESULT lcid_to_rfc1766(LCID lcid, WCHAR *rfc1766, INT len)
 286 {
 287     WCHAR buffer[6 /* MAX_RFC1766_NAME */];
 288     INT n = GetLocaleInfoW(lcid, LOCALE_SISO639LANGNAME, buffer, ARRAY_SIZE(buffer));
 289     INT i;
 290
 291     if (n)
 292     {
 293         i = PRIMARYLANGID(lcid);
 294         if ((((i == LANG_ENGLISH) || (i == LANG_CHINESE) || (i == LANG_ARABIC)) &&
 295             (SUBLANGID(lcid) == SUBLANG_DEFAULT)) ||
 296             (SUBLANGID(lcid) > SUBLANG_DEFAULT)) {
 297
 298             buffer[n - 1] = '-';
 299             i = GetLocaleInfoW(lcid, LOCALE_SISO3166CTRYNAME, buffer + n, ARRAY_SIZE(buffer) - n);
 300             if (!i)
 301                 buffer[n - 1] = '\0';
 302         }
 303         else
 304             i = 0;
 305
 306         LCMapStringW(LOCALE_USER_DEFAULT, LCMAP_LOWERCASE, buffer, n + i, rfc1766, len);
 307         return ((n + i) > len) ? E_INVALIDARG : S_OK;
 308     }
 309     return E_FAIL;
 310 }
 311
 312 HRESULT WINAPI GetAcceptLanguagesW(WCHAR *langbuf, DWORD *buflen)
 313 {
 314     static const WCHAR keyW[] = {
 315         'S','o','f','t','w','a','r','e','\\',
 316         'M','i','c','r','o','s','o','f','t','\\',
 317         'I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r','\\',
 318         'I','n','t','e','r','n','a','t','i','o','n','a','l',0};
 319     static const WCHAR valueW[] = {'A','c','c','e','p','t','L','a','n','g','u','a','g','e',0};
 320     DWORD mystrlen, mytype;
 321     WCHAR *mystr;
 322     LCID mylcid;
 323     HKEY mykey;
 324     LONG lres;
 325     DWORD len;
 326
 327     TRACE("%p, %p, *%p: %d\n", langbuf, buflen, buflen, buflen ? *buflen : -1);
 328
 329     if (!langbuf || !buflen || !*buflen)
 330         return E_FAIL;
 331
 332     mystrlen = (*buflen > 20) ? *buflen : 20 ;
 333     len = mystrlen * sizeof(WCHAR);
 334     mystr = heap_alloc(len);
 335     mystr[0] = 0;
 336     RegOpenKeyExW(HKEY_CURRENT_USER, keyW, 0, KEY_QUERY_VALUE, &mykey);
 337     lres = RegQueryValueExW(mykey, valueW, 0, &mytype, (PBYTE)mystr, &len);
 338     RegCloseKey(mykey);
 339     len = lstrlenW(mystr);
 340
 341     if (!lres && (*buflen > len))
 342     {
 343         lstrcpyW(langbuf, mystr);
 344         *buflen = len;
 345         heap_free(mystr);
 346         return S_OK;
 347     }
 348
 349     /* Did not find a value in the registry or the user buffer is too small */
 350     mylcid = GetUserDefaultLCID();
 351     lcid_to_rfc1766(mylcid, mystr, mystrlen);
 352     len = lstrlenW(mystr);
 353
 354     memcpy(langbuf, mystr, min(*buflen, len + 1)*sizeof(WCHAR));
 355     heap_free(mystr);
 356
 357     if (*buflen > len)
 358     {
 359         *buflen = len;
 360         return S_OK;
 361     }
 362
 363     *buflen = 0;
 364     return E_NOT_SUFFICIENT_BUFFER;
 365 }