vbscript: Fixed locale-related test failures.
[wine/multimedia.git] / dlls / w32skrnl / w32skernel.c
blob761d3539652c055dcb0fc668888c7e9919697a1d
1 /*
2 * W32SKRNL
3 * DLL for Win32s
5 * Copyright (c) 1997 Andreas Mohr
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include <stdarg.h>
23 #include <string.h>
25 #include "windef.h"
26 #include "winbase.h"
27 #include "wine/winbase16.h"
29 /***********************************************************************
30 * _kGetWin32sDirectory@0 (W32SKRNL.14)
32 LPSTR WINAPI GetWin32sDirectory(void)
34 static const char win32s[] = "\\win32s";
36 int len = GetSystemDirectoryA( NULL, 0 );
37 LPSTR text = HeapAlloc( GetProcessHeap(), 0, len + sizeof(win32s) - 1 );
38 GetSystemDirectoryA( text, len );
39 strcat( text, win32s );
40 return text;
43 /***********************************************************************
44 * GetCurrentTask32 (W32SKRNL.3)
46 HTASK16 WINAPI GetCurrentTask32(void)
48 return GetCurrentTask();