mirror of
git://source.winehq.org/git/wine.git
synced 2024-11-05 18:01:34 +00:00
767e6f6f9d
Sat Aug 8 19:11:46 1998 Marcus Meissner <marcus@jet.franken.de>
* [*/*]
Added some missing WINAPI and some missing prototypes for
functions.
* [controls/static.c]
Got rid of the MODULE32_LookupHMODULE error showing up for every
message box.
* [windows/winproc.c]
WM_NOTIFY 16->32 mapping (AOL Instant Messenger or however it is called).
* [misc/winsock.c]
hostent/servent/protoent should not use the same static buffers.
(has broken nt3.15 finger.exe which does hp=gethostbyname(), then
getservbyname("finger","tcp") and the references hp->h_addr_list[0]).
Sat Aug 8 13:21:24 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/server.h] [tools/make_requests] [server/request.c]
[server/trace.c]
Automated part of the client/server request code generation.
Added tracing of client/server communication.
* [scheduler/*.c] [server/process.c]
Added support for server-side handles.
* [scheduler/thread.c]
Added DLL_THREAD_ATTACH/DETACH notifications.
* [configure.in]
Added check for -lsocket.
* [windows/winproc.c]
Return the thunk address in WINPROC_GetProc if the function types
don't match.
Sat Aug 8 02:44:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [windows/winproc.c][windows/win.c][windows/message.c]
Documentation for CallWindowProc, SetWindowLong, DispatchMessage,
WaitMessage, GetMessage, and PeekMessage.
Sat Aug 8 01:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [controls/commctrl.c][controls/widgets.c][include/builtin32.h]
[include/commctrl.h][relay32/builtin32.c][relay32/comctl32.spec]
[tools/build.c] [relay32/shell32.spec]
Added the functionality of the LibMain function. The common
controls are properly initialized now.
* [controls/treeview.c][memory/atom.c][scheduler/thread.c][windows/class.c]
[windows/msgbox.c][windows/win.c]
Put TRACE in, put SetLastError() in.
* [include/interfaces.h]
Added IClassFactory::LockServer.
* [include/ole2.h]
Added struct for LPOLEMENUGROUPWIDTHS32, HOLEMENU32.
* [include/shell.h][include/shlobj.h][misc/shell.c][ole/folders.c]
Reorganized and many structs and classes (IShellBrowser,IShellView)
added. shell32.dll should work in many cases now.
Started SHGetFileInfoA implementeation, rewrote SHGetPathFromIDList32A.
New Shell32LibMain started ShellIconCache Implementation.
* [misc/shellord.c]
Rewrote ILCombine, ILGetSize
New stubs SHFind_InitMenuPopup, FileMenu_Create, ShellExecuteEx,
SHSetInstanceExplorer, SHGetInstanceExplorer, SHFreeUnusedLibraries.
* [include/winerror.h]
Class and window related error codes added.
* [memory/heap.c]
Changed lstrlen32A to strlen to get rid of milions of TRACE lines.
* [misc/ddeml.c]
First lines for DdeCreateStringHandle32A / DdeFreeStringHandle32.
* [misc/network.c][relay32/mpr.spec]
Fixed some bugs, changed ordinals.
* [windows/class.c]
Workarounds for incorrect hInstance handling. Fixes parts of
MSWord95/Excel95 and Money95.
Thu Aug 6 21:05:35 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [windows/nonclient.c][misc/tweak.c][include/tweak.h]
[documentation/win95look]
Removed some tweak variables. They are no longer needed.
* [files/dos_fs.c]
Added check for null pointer in DOSFS_GetDevice().
* [controls/tooltips.c][include/commctrl.h]
Improved tooltips.
* [controls/status.c][include/commctrl.h]
Cleaned up code and added tooltip support.
* [controls/toolbar.c][include/commctrl.h]
Added tooltip support.
* [documentation/common_controls]
Updated.
Thu Aug 6 00:05:22 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [include/ver.h] [misc/ver.c]
Write VIF_BUFFTOOSMALL, not VIF_BUFTOSMALL.
* [debugger/hash.c] [debugger/stabs.c]
Make debug output more friendly for posting.
* [files/file.c]
Partial implementation of OF_SHARE_EXCLUSIVE.
Needed for Quicklogic/QuickChip (InstallShield).
* [files/profile.c]
When a cached-only entry is found, return it.
* [graphics/x11drv/xfont.c]
Accept a space as delimiter for a fontname and inhibit overrun
(Make xplasim.ex from the Phillips Coolrunner CPLD suite proceed).
* [miscemu/main.c]
Delay setting IF1632_CallLargeStack after loading the executables.
Stops fpgaexp.exe from the Viewlogic FPGA suite from crashing when
showing the Blinker error Message Box.
* [misc/network.c]
Make WNetGetConnection16 recognise a CDROM as a local drive.
* [multimedia/mmsystem.c]
Preliminary check for MCI_ALL_DEVICE_ID in MCI_Close by a FIXME.
Tue Aug 4 21:15:23 1998 James Juran <jrj120@psu.edu>
* [ole/ole2nls.c]
Fixed bug in CompareString32A. strcmp() doesn't necessarily
return -1, 0, or 1, which the previous code depended on.
Changed name of is_punctuation to OLE2NLS_isPunctuation.
Made NORM_IGNOREWIDTH not print a FIXME message in
LCMapString32A.
Other debugging messages, documentation, and code cleanups.
* [objects/font.c] [relay32/gdi32.spec] [include/winerror.h]
Added stub for GetFontData32, and added GDI_ERROR constant
to winerror.h.
Tue Aug 4 07:44:43 1998 Ove Kaaven <ovek@arcticnet.no>
* [multimedia/mmio.c]
Implemented mmioSetBuffer, mmioAdvance, mmioAscend, and
mmioCreateChunk to the best of my knowledge. But watch out,
there's bound to be bugs in there...
* [include/mmsystem.h] [multimedia/mmsystem.c]
Hacked in support for 32-bit multimedia function callbacks.
* [AUTHORS] [misc/shell.c]
Selfishly credited my authorship. Hopefully I'm excused.
* [include/dosexe.h] [include/module.h] [loader/dos/*]
[loader/module.c] [loader/task.c] [Makefile.in]
[configure.in] [Makefile.in]
Added DOS EXE (MZ) loader and virtual machine. Task
structure integration thanks to Ulrich Weigand.
* [files/dos_fs.c]
Work around a null pointer dereference if ioctlGetDeviceInfo-ing
a FILE_DupUnixHandle'd file (i.e. GetStdHandle'd).
* [include/miscemu.h] [include/winnt.h] [loader/main.c]
[memory/global.c] [msdos/dpmi.c] [msdos/dosmem.c]
Added support for DOS memory images, and added
DOSMEM_ResizeBlock() and DOSMEM_Available().
* [msdos/int21.c]
Added support for the DOS virtual machine, tweaked handle
assignment to avoid stdio clashes, forced INT21_FindNext to exit
wildcardless searches after finding one entry, added AH=7, 8, 9,
C, 48, 49, 4A, and 7160 CL=1 (Get Short Filename), and made the
long filename calls only respond if running with with -winver
win95.
* [objects/cursoricon.c]
DestroyCursor32 and DestroyIcon32 should now free the objects
(hopefully) correctly.
Sun Aug 2 21:42:09 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [include/psdrv.h]
Added PPD file parsing - at the moment it reads a file called
default.ppd from the directory in which you start Wine. Page sizes
other than A4 should now work (landscape may not). All fonts that are
present on your printer (according to the PPD) should be available,
providing you have the AFM files. Fonts should now be the correct size.
Graphics is still basically lines only. See graphics/psdrv/README .
* [misc/printdrv.c]
Yet more Drv[Get/Set]PrinterData fixes.
Fri Jul 31 21:33:22 1998 Per Lindström <pelinstr@algonet.se>
* [relay32/crtdll.spec] [misc/crtdll.c]
Added stub for freopen, _findfirst, _findnext, _fstat and _read.
* [files/directory.c]
Modified warning message.
Wed Jul 29 11:25:28 1998 Luiz Otavio L. Zorzella <zorzella@nr.conexware.com>
* [objects/font.c]
Added stub for GetFontData.
* [multimedia/msvideo.c]
Created this file to hold the msvideo.dll calls (and maybe also
msvfw32.dll).
* [objects/cursoricon.c]
Added search in Global Heap for cursor when trying to destroy it
with DestroyCursor16. This test should be done in many (all?)
other functions that use FreeResource.
* [controls/treeview.c] [include/commctrl.h]
Minor correction in name and addition of many placeholders for TVM
messages in TREEVIEW_WindowProc.
* [msdos/dpmi.c]
Fixed a bug in DPMI_xrealloc where in a copy of a memory region
"A" of size "a" to a region "B" of size "b", "b" bytes were being
copied, instead of "a", as the new version does. This both
increases speed, as well as avoids segfaults.
2718 lines
74 KiB
C
2718 lines
74 KiB
C
/*
|
||
* OLE2NLS library
|
||
*
|
||
* Copyright 1995 Martin von Loewis
|
||
* Copyright 1998 David Lee Lambert
|
||
*/
|
||
|
||
#include <string.h>
|
||
#include <ctype.h>
|
||
#include <stdlib.h>
|
||
#include "windows.h"
|
||
#include "heap.h"
|
||
#include "ole.h"
|
||
#include "options.h"
|
||
#include "winnls.h"
|
||
#include "winreg.h"
|
||
#include "winerror.h"
|
||
#include "debug.h"
|
||
|
||
/* Locale name to id map. used by EnumSystemLocales, GetLocalInfoA
|
||
* MUST contain all #defines from winnls.h
|
||
* last entry has NULL name, 0 id.
|
||
*/
|
||
#define LOCALE_ENTRY(x) {#x,LOCALE_##x}
|
||
static struct tagLOCALE_NAME2ID {
|
||
char *name;
|
||
DWORD id;
|
||
} locale_name2id[]= {
|
||
LOCALE_ENTRY(ILANGUAGE),
|
||
LOCALE_ENTRY(SLANGUAGE),
|
||
LOCALE_ENTRY(SENGLANGUAGE),
|
||
LOCALE_ENTRY(SABBREVLANGNAME),
|
||
LOCALE_ENTRY(SNATIVELANGNAME),
|
||
LOCALE_ENTRY(ICOUNTRY),
|
||
LOCALE_ENTRY(SCOUNTRY),
|
||
LOCALE_ENTRY(SENGCOUNTRY),
|
||
LOCALE_ENTRY(SABBREVCTRYNAME),
|
||
LOCALE_ENTRY(SNATIVECTRYNAME),
|
||
LOCALE_ENTRY(IDEFAULTLANGUAGE),
|
||
LOCALE_ENTRY(IDEFAULTCOUNTRY),
|
||
LOCALE_ENTRY(IDEFAULTCODEPAGE),
|
||
LOCALE_ENTRY(IDEFAULTANSICODEPAGE),
|
||
LOCALE_ENTRY(SLIST),
|
||
LOCALE_ENTRY(IMEASURE),
|
||
LOCALE_ENTRY(SDECIMAL),
|
||
LOCALE_ENTRY(STHOUSAND),
|
||
LOCALE_ENTRY(SGROUPING),
|
||
LOCALE_ENTRY(IDIGITS),
|
||
LOCALE_ENTRY(ILZERO),
|
||
LOCALE_ENTRY(INEGNUMBER),
|
||
LOCALE_ENTRY(SNATIVEDIGITS),
|
||
LOCALE_ENTRY(SCURRENCY),
|
||
LOCALE_ENTRY(SINTLSYMBOL),
|
||
LOCALE_ENTRY(SMONDECIMALSEP),
|
||
LOCALE_ENTRY(SMONTHOUSANDSEP),
|
||
LOCALE_ENTRY(SMONGROUPING),
|
||
LOCALE_ENTRY(ICURRDIGITS),
|
||
LOCALE_ENTRY(IINTLCURRDIGITS),
|
||
LOCALE_ENTRY(ICURRENCY),
|
||
LOCALE_ENTRY(INEGCURR),
|
||
LOCALE_ENTRY(SDATE),
|
||
LOCALE_ENTRY(STIME),
|
||
LOCALE_ENTRY(SSHORTDATE),
|
||
LOCALE_ENTRY(SLONGDATE),
|
||
LOCALE_ENTRY(STIMEFORMAT),
|
||
LOCALE_ENTRY(IDATE),
|
||
LOCALE_ENTRY(ILDATE),
|
||
LOCALE_ENTRY(ITIME),
|
||
LOCALE_ENTRY(ITIMEMARKPOSN),
|
||
LOCALE_ENTRY(ICENTURY),
|
||
LOCALE_ENTRY(ITLZERO),
|
||
LOCALE_ENTRY(IDAYLZERO),
|
||
LOCALE_ENTRY(IMONLZERO),
|
||
LOCALE_ENTRY(S1159),
|
||
LOCALE_ENTRY(S2359),
|
||
LOCALE_ENTRY(ICALENDARTYPE),
|
||
LOCALE_ENTRY(IOPTIONALCALENDAR),
|
||
LOCALE_ENTRY(IFIRSTDAYOFWEEK),
|
||
LOCALE_ENTRY(IFIRSTWEEKOFYEAR),
|
||
LOCALE_ENTRY(SDAYNAME1),
|
||
LOCALE_ENTRY(SDAYNAME2),
|
||
LOCALE_ENTRY(SDAYNAME3),
|
||
LOCALE_ENTRY(SDAYNAME4),
|
||
LOCALE_ENTRY(SDAYNAME5),
|
||
LOCALE_ENTRY(SDAYNAME6),
|
||
LOCALE_ENTRY(SDAYNAME7),
|
||
LOCALE_ENTRY(SABBREVDAYNAME1),
|
||
LOCALE_ENTRY(SABBREVDAYNAME2),
|
||
LOCALE_ENTRY(SABBREVDAYNAME3),
|
||
LOCALE_ENTRY(SABBREVDAYNAME4),
|
||
LOCALE_ENTRY(SABBREVDAYNAME5),
|
||
LOCALE_ENTRY(SABBREVDAYNAME6),
|
||
LOCALE_ENTRY(SABBREVDAYNAME7),
|
||
LOCALE_ENTRY(SMONTHNAME1),
|
||
LOCALE_ENTRY(SMONTHNAME2),
|
||
LOCALE_ENTRY(SMONTHNAME3),
|
||
LOCALE_ENTRY(SMONTHNAME4),
|
||
LOCALE_ENTRY(SMONTHNAME5),
|
||
LOCALE_ENTRY(SMONTHNAME6),
|
||
LOCALE_ENTRY(SMONTHNAME7),
|
||
LOCALE_ENTRY(SMONTHNAME8),
|
||
LOCALE_ENTRY(SMONTHNAME9),
|
||
LOCALE_ENTRY(SMONTHNAME10),
|
||
LOCALE_ENTRY(SMONTHNAME11),
|
||
LOCALE_ENTRY(SMONTHNAME12),
|
||
LOCALE_ENTRY(SMONTHNAME13),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME1),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME2),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME3),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME4),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME5),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME6),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME7),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME8),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME9),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME10),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME11),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME12),
|
||
LOCALE_ENTRY(SABBREVMONTHNAME13),
|
||
LOCALE_ENTRY(SPOSITIVESIGN),
|
||
LOCALE_ENTRY(SNEGATIVESIGN),
|
||
LOCALE_ENTRY(IPOSSIGNPOSN),
|
||
LOCALE_ENTRY(INEGSIGNPOSN),
|
||
LOCALE_ENTRY(IPOSSYMPRECEDES),
|
||
LOCALE_ENTRY(IPOSSEPBYSPACE),
|
||
LOCALE_ENTRY(INEGSYMPRECEDES),
|
||
LOCALE_ENTRY(INEGSEPBYSPACE),
|
||
/* LOCALE_ENTRY(FONTSIGNATURE),*/
|
||
{NULL,0},
|
||
};
|
||
|
||
const struct map_lcid2str {
|
||
LCID langid;
|
||
const char *langname;
|
||
} languages[]={
|
||
{0x0401,"Arabisch"},
|
||
{0x0402,"Bulgarisch"},
|
||
{0x0403,"Katalanisch"},
|
||
{0x0404,"Traditionales Chinesisch"},
|
||
{0x0405,"Tschecisch"},
|
||
{0x0406,"D<EFBFBD>nisch"},
|
||
{0x0407,"Deutsch"},
|
||
{0x0408,"Griechisch"},
|
||
{0x0409,"Amerikanisches Englisch"},
|
||
{0x040A,"Kastilisches Spanisch"},
|
||
{0x040B,"Finnisch"},
|
||
{0x040C,"Franzvsisch"},
|
||
{0x040D,"Hebrdisch"},
|
||
{0x040E,"Ungarisch"},
|
||
{0x040F,"Isldndisch"},
|
||
{0x0410,"Italienisch"},
|
||
{0x0411,"Japanisch"},
|
||
{0x0412,"Koreanisch"},
|
||
{0x0413,"Niederldndisch"},
|
||
{0x0414,"Norwegisch-Bokmal"},
|
||
{0x0415,"Polnisch"},
|
||
{0x0416,"Brasilianisches Portugiesisch"},
|
||
{0x0417,"Rdtoromanisch"},
|
||
{0x0418,"Rumdnisch"},
|
||
{0x0419,"Russisch"},
|
||
{0x041A,"Kroatoserbisch (lateinisch)"},
|
||
{0x041B,"Slowenisch"},
|
||
{0x041C,"Albanisch"},
|
||
{0x041D,"Schwedisch"},
|
||
{0x041E,"Thai"},
|
||
{0x041F,"T|rkisch"},
|
||
{0x0420,"Urdu"},
|
||
{0x0421,"Bahasa"},
|
||
{0x0804,"Vereinfachtes Chinesisch"},
|
||
{0x0807,"Schweizerdeutsch"},
|
||
{0x0809,"Britisches Englisch"},
|
||
{0x080A,"Mexikanisches Spanisch"},
|
||
{0x080C,"Belgisches Franzvsisch"},
|
||
{0x0810,"Schweizerisches Italienisch"},
|
||
{0x0813,"Belgisches Niederldndisch"},
|
||
{0x0814,"Norgwegisch-Nynorsk"},
|
||
{0x0816,"Portugiesisch"},
|
||
{0x081A,"Serbokratisch (kyrillisch)"},
|
||
{0x0C1C,"Kanadisches Franzvsisch"},
|
||
{0x100C,"Schweizerisches Franzvsisch"},
|
||
{0x0000,"Unbekannt"},
|
||
};
|
||
|
||
/***********************************************************************
|
||
* GetUserDefaultLCID (OLE2NLS.1)
|
||
*/
|
||
LCID WINAPI GetUserDefaultLCID()
|
||
{
|
||
/* Default sorting, neutral sublanguage */
|
||
switch(Options.language)
|
||
{
|
||
/* case LANG_Bu: return 0x02; */ /* Bulgarian */
|
||
/* case LANG_Ch: return 0x04; */ /* Chinese */
|
||
case LANG_Cz: return 0x05; /* Czech */
|
||
case LANG_Da: return 0x06; /* Danish */
|
||
case LANG_De: return 0x07; /* German */
|
||
/* case LANG_Gr: return 0x08; */ /* Greek */
|
||
case LANG_En: return 0x09; /* English */
|
||
case LANG_Es: return 0x0a; /* Spanish */
|
||
case LANG_Fi: return 0x0b; /* Finnish */
|
||
case LANG_Fr: return 0x0c; /* French */
|
||
case LANG_Hu: return 0x0e; /* Hungarian */
|
||
/* case LANG_Ic: return 0x0f; */ /* Icelandic */
|
||
case LANG_It: return 0x10; /* Italian */
|
||
/* case LANG_Jp: return 0x11; */ /* Japanese */
|
||
case LANG_Ko: return 0x12; /* Korean */
|
||
/* case LANG_Du: return 0x13; */ /* Dutch */
|
||
case LANG_No: return 0x14; /* Norwegian */
|
||
case LANG_Pl: return 0x15; /* Polish */
|
||
case LANG_Po: return 0x16; /* Portuguese */
|
||
/* case LANG_Ro: return 0x18; */ /* Romanian */
|
||
/* case LANG_Ru: return 0x19; */ /* Russian */
|
||
/* case LANG_Cr: return 0x1a; */ /* Croatian */
|
||
/* case LANG_Sl: return 0x1b; */ /* Slovak */
|
||
case LANG_Sw: return 0x1d; /* Swedish */
|
||
/* case LANG_Tu: return 0x1f; */ /* Turkish */
|
||
/* case LANG_Sv: return 0x24; */ /* Slovenian */
|
||
case LANG_Eo: return 0x25; /* Esperanto (not official) */
|
||
case LANG_Ca: return 0x26; /* Catalan */
|
||
|
||
default:
|
||
return 0x00; /* Neutral language */
|
||
}
|
||
}
|
||
|
||
/***********************************************************************
|
||
* GetSystemDefaultLCID (OLE2NLS.2)
|
||
*/
|
||
LCID WINAPI GetSystemDefaultLCID()
|
||
{
|
||
return GetUserDefaultLCID();
|
||
}
|
||
|
||
/***********************************************************************
|
||
* GetUserDefaultLangID (OLE2NLS.3)
|
||
*/
|
||
LANGID WINAPI GetUserDefaultLangID()
|
||
{
|
||
return (WORD)GetUserDefaultLCID();
|
||
}
|
||
|
||
/***********************************************************************
|
||
* GetSystemDefaultLangID (OLE2NLS.4)
|
||
*/
|
||
LANGID WINAPI GetSystemDefaultLangID()
|
||
{
|
||
return GetUserDefaultLangID();
|
||
}
|
||
|
||
/***********************************************************************
|
||
* GetLocaleInfoA (OLE2NLS.5)
|
||
* Is the last parameter really WORD for Win16?
|
||
*/
|
||
INT16 WINAPI GetLocaleInfo16(LCID lcid,LCTYPE LCType,LPSTR buf,INT16 len)
|
||
{
|
||
return GetLocaleInfo32A(lcid,LCType,buf,len);
|
||
}
|
||
|
||
INT32 WINAPI GetLocaleInfo32A(LCID lcid,LCTYPE LCType,LPSTR buf,INT32 len)
|
||
{
|
||
char *retString;
|
||
int found,i;
|
||
|
||
TRACE(ole,"(%8lX,%8lX,%p,%4X)\n",
|
||
lcid,LCType,buf,len);
|
||
|
||
LCType &= ~(LOCALE_NOUSEROVERRIDE|LOCALE_USE_CP_ACP);
|
||
|
||
/* As an option, we could obtain the value from win.ini.
|
||
This would not match the Wine compile-time option.
|
||
Also, not all identifiers are available from win.ini */
|
||
retString=0;
|
||
/* If we are through all of this, retLen should not be zero anymore.
|
||
If it is, the value is not supported */
|
||
i=0;
|
||
while (locale_name2id[i].name!=NULL) {
|
||
if (LCType == locale_name2id[i].id) {
|
||
retString = locale_name2id[i].name;
|
||
break;
|
||
}
|
||
i++;
|
||
}
|
||
if (!retString) {
|
||
WARN(ole,"Unkown LC type %lX\n",LCType);
|
||
return 0;
|
||
}
|
||
|
||
#define LOCVAL(type,value) case type:retString=value;break;
|
||
|
||
/* Now, the language specific definitions. They don't have to be
|
||
complete */
|
||
found=1;
|
||
switch(Options.language)
|
||
{
|
||
case LANG_De:
|
||
switch (LCType) {
|
||
#include "nls/deu.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(De) */
|
||
|
||
case LANG_Da:
|
||
switch (LCType) {
|
||
#include "nls/dnk.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(Da) */
|
||
|
||
case LANG_En:
|
||
switch (LCType) {
|
||
#include "nls/enu.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(En) */
|
||
|
||
case LANG_Eo:
|
||
switch (LCType) {
|
||
#include "nls/esperanto.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(Eo) */
|
||
|
||
case LANG_Fi:
|
||
switch (LCType) {
|
||
#include "nls/fin.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(Fi) */
|
||
|
||
case LANG_It:
|
||
switch (LCType) {
|
||
#include "nls/ita.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(It) */
|
||
|
||
case 0x0809:
|
||
switch (LCType) {
|
||
#include "nls/eng.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(0x0809) (U.K. English) */
|
||
|
||
case LANG_Ko: /* string using codepage 949 */
|
||
switch (LCType) {
|
||
#include "nls/kor.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(Ko) */
|
||
|
||
case LANG_Hu:
|
||
switch (LCType) {
|
||
#include "nls/hun.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(En) */
|
||
|
||
case LANG_Pl:
|
||
switch (LCType) {
|
||
#include "nls/plk.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(Pl) */
|
||
|
||
case LANG_Po:
|
||
switch (LCType) {
|
||
#include "nls/ptb.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(Po) */
|
||
|
||
case LANG_Sw:
|
||
switch (LCType) {
|
||
#include "nls/sve.nls"
|
||
default: found=0;break;
|
||
}
|
||
break; /* LANG(Sw) */
|
||
|
||
/*Insert other languages here*/
|
||
|
||
default:
|
||
found=0;
|
||
break;
|
||
} /* switch */
|
||
|
||
if(!found) {
|
||
ERR(ole,"'%s' not supported for your language.\n",
|
||
retString);
|
||
retString = "<WINE-NLS-unknown>";
|
||
/*return 0;*/
|
||
}
|
||
if (buf)
|
||
lstrcpyn32A(buf,retString,len);
|
||
return strlen(retString)+1;
|
||
}
|
||
|
||
/***********************************************************************
|
||
* GetLocaleInfo32W (KERNEL32.230)
|
||
* Is the last parameter really WORD for Win16?
|
||
*/
|
||
INT32 WINAPI GetLocaleInfo32W(LCID lcid,LCTYPE LCType,LPWSTR wbuf,INT32 len)
|
||
{
|
||
LPSTR abuf = (LPSTR)HeapAlloc(GetProcessHeap(),0,len);
|
||
|
||
INT32 n = GetLocaleInfo32A(lcid, LCType, abuf, len);
|
||
if (wbuf)
|
||
lstrcpynAtoW(wbuf,abuf,len);
|
||
HeapFree(GetProcessHeap(),0,abuf);
|
||
return n;
|
||
}
|
||
|
||
/***********************************************************************
|
||
* SetLocaleInfoA [KERNEL32.499]
|
||
*/
|
||
BOOL16 WINAPI SetLocaleInfoA(DWORD lcid, DWORD lctype, LPCSTR data)
|
||
{
|
||
FIXME(ole,"(%ld,%ld,%s): stub\n",lcid,lctype,data);
|
||
return TRUE;
|
||
}
|
||
|
||
/***********************************************************************
|
||
* IsValidLocale [KERNEL32.361]
|
||
*/
|
||
BOOL32 WINAPI IsValidLocale(LCID lcid,DWORD flags)
|
||
{
|
||
/* we support ANY language. Well, at least say that...*/
|
||
return TRUE;
|
||
}
|
||
|
||
/***********************************************************************
|
||
* EnumSystemLocales32W [KERNEL32.93]
|
||
*/
|
||
BOOL32 WINAPI EnumSystemLocales32W( LOCALE_ENUMPROC32W lpfnLocaleEnum,
|
||
DWORD flags )
|
||
{
|
||
int i;
|
||
BOOL32 ret;
|
||
WCHAR buffer[200];
|
||
HKEY xhkey;
|
||
|
||
TRACE(win32,"(%p,%08lx)\n",lpfnLocaleEnum,flags );
|
||
/* see if we can reuse the Win95 registry entries.... */
|
||
if (ERROR_SUCCESS==RegOpenKey32A(HKEY_LOCAL_MACHINE,"\\System\\CurrentControlSet\\control\\Nls\\Locale\\",&xhkey)) {
|
||
i=0;
|
||
while (1) {
|
||
if (ERROR_SUCCESS!=RegEnumKey32W(xhkey,i,buffer,sizeof(buffer)))
|
||
break;
|
||
if (!lpfnLocaleEnum(buffer))
|
||
break;
|
||
i++;
|
||
}
|
||
RegCloseKey(xhkey);
|
||
return TRUE;
|
||
}
|
||
|
||
i=0;
|
||
while (languages[i].langname!=NULL)
|
||
{
|
||
LPWSTR cp;
|
||
char xbuffer[10];
|
||
|
||
sprintf(xbuffer,"%08lx",(DWORD)languages[i].langid);
|
||
|
||
cp = HEAP_strdupAtoW( GetProcessHeap(), 0, xbuffer );
|
||
ret = lpfnLocaleEnum(cp);
|
||
HeapFree( GetProcessHeap(), 0, cp );
|
||
if (!ret) break;
|
||
i++;
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
/***********************************************************************
|
||
* EnumSystemLocales32A [KERNEL32.92]
|
||
*/
|
||
BOOL32 WINAPI EnumSystemLocales32A(LOCALE_ENUMPROC32A lpfnLocaleEnum,
|
||
DWORD flags)
|
||
{
|
||
int i;
|
||
CHAR buffer[200];
|
||
HKEY xhkey;
|
||
|
||
TRACE(win32,"(%p,%08lx)\n",
|
||
lpfnLocaleEnum,flags
|
||
);
|
||
if (ERROR_SUCCESS==RegOpenKey32A(HKEY_LOCAL_MACHINE,"\\System\\CurrentControlSet\\control\\Nls\\Locale\\",&xhkey)) {
|
||
i=0;
|
||
while (1) {
|
||
if (ERROR_SUCCESS!=RegEnumKey32A(xhkey,i,buffer,sizeof(buffer)))
|
||
break;
|
||
if (!lpfnLocaleEnum(buffer))
|
||
break;
|
||
i++;
|
||
}
|
||
RegCloseKey(xhkey);
|
||
return TRUE;
|
||
}
|
||
i=0;
|
||
while (languages[i].langname!=NULL) {
|
||
sprintf(buffer,"%08lx",(DWORD)languages[i].langid);
|
||
if (!lpfnLocaleEnum(buffer))
|
||
break;
|
||
i++;
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
static const unsigned char CT_CType2_LUT[] = {
|
||
C2_NOTAPPLICABLE, /* - 0 */
|
||
C2_NOTAPPLICABLE, /* - 1 */
|
||
C2_NOTAPPLICABLE, /* - 2 */
|
||
C2_NOTAPPLICABLE, /* - 3 */
|
||
C2_NOTAPPLICABLE, /* - 4 */
|
||
C2_NOTAPPLICABLE, /* - 5 */
|
||
C2_NOTAPPLICABLE, /* - 6 */
|
||
C2_NOTAPPLICABLE, /* - 7 */
|
||
C2_NOTAPPLICABLE, /* - 8 */
|
||
C2_SEGMENTSEPARATOR, /* - 9 */
|
||
C2_NOTAPPLICABLE, /* - 10 */
|
||
C2_NOTAPPLICABLE, /* - 11 */
|
||
C2_NOTAPPLICABLE, /* - 12 */
|
||
C2_NOTAPPLICABLE, /* - 13 */
|
||
C2_NOTAPPLICABLE, /* - 14 */
|
||
C2_NOTAPPLICABLE, /* - 15 */
|
||
C2_NOTAPPLICABLE, /* - 16 */
|
||
C2_NOTAPPLICABLE, /* - 17 */
|
||
C2_NOTAPPLICABLE, /* - 18 */
|
||
C2_NOTAPPLICABLE, /* - 19 */
|
||
C2_NOTAPPLICABLE, /* - 20 */
|
||
C2_NOTAPPLICABLE, /* - 21 */
|
||
C2_NOTAPPLICABLE, /* - 22 */
|
||
C2_NOTAPPLICABLE, /* - 23 */
|
||
C2_NOTAPPLICABLE, /* - 24 */
|
||
C2_NOTAPPLICABLE, /* - 25 */
|
||
C2_NOTAPPLICABLE, /* - 26 */
|
||
C2_NOTAPPLICABLE, /* - 27 */
|
||
C2_NOTAPPLICABLE, /* - 28 */
|
||
C2_NOTAPPLICABLE, /* - 29 */
|
||
C2_NOTAPPLICABLE, /* - 30 */
|
||
C2_NOTAPPLICABLE, /* - 31 */
|
||
C2_WHITESPACE, /* - 32 */
|
||
C2_OTHERNEUTRAL, /* ! - 33 */
|
||
C2_OTHERNEUTRAL, /* " - 34 */ /* " */
|
||
C2_EUROPETERMINATOR, /* # - 35 */
|
||
C2_EUROPETERMINATOR, /* $ - 36 */
|
||
C2_EUROPETERMINATOR, /* % - 37 */
|
||
C2_LEFTTORIGHT, /* & - 38 */
|
||
C2_OTHERNEUTRAL, /* ' - 39 */
|
||
C2_OTHERNEUTRAL, /* ( - 40 */
|
||
C2_OTHERNEUTRAL, /* ) - 41 */
|
||
C2_OTHERNEUTRAL, /* * - 42 */
|
||
C2_EUROPETERMINATOR, /* + - 43 */
|
||
C2_COMMONSEPARATOR, /* , - 44 */
|
||
C2_EUROPETERMINATOR, /* - - 45 */
|
||
C2_EUROPESEPARATOR, /* . - 46 */
|
||
C2_EUROPESEPARATOR, /* / - 47 */
|
||
C2_EUROPENUMBER, /* 0 - 48 */
|
||
C2_EUROPENUMBER, /* 1 - 49 */
|
||
C2_EUROPENUMBER, /* 2 - 50 */
|
||
C2_EUROPENUMBER, /* 3 - 51 */
|
||
C2_EUROPENUMBER, /* 4 - 52 */
|
||
C2_EUROPENUMBER, /* 5 - 53 */
|
||
C2_EUROPENUMBER, /* 6 - 54 */
|
||
C2_EUROPENUMBER, /* 7 - 55 */
|
||
C2_EUROPENUMBER, /* 8 - 56 */
|
||
C2_EUROPENUMBER, /* 9 - 57 */
|
||
C2_COMMONSEPARATOR, /* : - 58 */
|
||
C2_OTHERNEUTRAL, /* ; - 59 */
|
||
C2_OTHERNEUTRAL, /* < - 60 */
|
||
C2_OTHERNEUTRAL, /* = - 61 */
|
||
C2_OTHERNEUTRAL, /* > - 62 */
|
||
C2_OTHERNEUTRAL, /* ? - 63 */
|
||
C2_LEFTTORIGHT, /* @ - 64 */
|
||
C2_LEFTTORIGHT, /* A - 65 */
|
||
C2_LEFTTORIGHT, /* B - 66 */
|
||
C2_LEFTTORIGHT, /* C - 67 */
|
||
C2_LEFTTORIGHT, /* D - 68 */
|
||
C2_LEFTTORIGHT, /* E - 69 */
|
||
C2_LEFTTORIGHT, /* F - 70 */
|
||
C2_LEFTTORIGHT, /* G - 71 */
|
||
C2_LEFTTORIGHT, /* H - 72 */
|
||
C2_LEFTTORIGHT, /* I - 73 */
|
||
C2_LEFTTORIGHT, /* J - 74 */
|
||
C2_LEFTTORIGHT, /* K - 75 */
|
||
C2_LEFTTORIGHT, /* L - 76 */
|
||
C2_LEFTTORIGHT, /* M - 77 */
|
||
C2_LEFTTORIGHT, /* N - 78 */
|
||
C2_LEFTTORIGHT, /* O - 79 */
|
||
C2_LEFTTORIGHT, /* P - 80 */
|
||
C2_LEFTTORIGHT, /* Q - 81 */
|
||
C2_LEFTTORIGHT, /* R - 82 */
|
||
C2_LEFTTORIGHT, /* S - 83 */
|
||
C2_LEFTTORIGHT, /* T - 84 */
|
||
C2_LEFTTORIGHT, /* U - 85 */
|
||
C2_LEFTTORIGHT, /* V - 86 */
|
||
C2_LEFTTORIGHT, /* W - 87 */
|
||
C2_LEFTTORIGHT, /* X - 88 */
|
||
C2_LEFTTORIGHT, /* Y - 89 */
|
||
C2_LEFTTORIGHT, /* Z - 90 */
|
||
C2_OTHERNEUTRAL, /* [ - 91 */
|
||
C2_OTHERNEUTRAL, /* \ - 92 */
|
||
C2_OTHERNEUTRAL, /* ] - 93 */
|
||
C2_OTHERNEUTRAL, /* ^ - 94 */
|
||
C2_OTHERNEUTRAL, /* _ - 95 */
|
||
C2_OTHERNEUTRAL, /* ` - 96 */
|
||
C2_LEFTTORIGHT, /* a - 97 */
|
||
C2_LEFTTORIGHT, /* b - 98 */
|
||
C2_LEFTTORIGHT, /* c - 99 */
|
||
C2_LEFTTORIGHT, /* d - 100 */
|
||
C2_LEFTTORIGHT, /* e - 101 */
|
||
C2_LEFTTORIGHT, /* f - 102 */
|
||
C2_LEFTTORIGHT, /* g - 103 */
|
||
C2_LEFTTORIGHT, /* h - 104 */
|
||
C2_LEFTTORIGHT, /* i - 105 */
|
||
C2_LEFTTORIGHT, /* j - 106 */
|
||
C2_LEFTTORIGHT, /* k - 107 */
|
||
C2_LEFTTORIGHT, /* l - 108 */
|
||
C2_LEFTTORIGHT, /* m - 109 */
|
||
C2_LEFTTORIGHT, /* n - 110 */
|
||
C2_LEFTTORIGHT, /* o - 111 */
|
||
C2_LEFTTORIGHT, /* p - 112 */
|
||
C2_LEFTTORIGHT, /* q - 113 */
|
||
C2_LEFTTORIGHT, /* r - 114 */
|
||
C2_LEFTTORIGHT, /* s - 115 */
|
||
C2_LEFTTORIGHT, /* t - 116 */
|
||
C2_LEFTTORIGHT, /* u - 117 */
|
||
C2_LEFTTORIGHT, /* v - 118 */
|
||
C2_LEFTTORIGHT, /* w - 119 */
|
||
C2_LEFTTORIGHT, /* x - 120 */
|
||
C2_LEFTTORIGHT, /* y - 121 */
|
||
C2_LEFTTORIGHT, /* z - 122 */
|
||
C2_OTHERNEUTRAL, /* { - 123 */
|
||
C2_OTHERNEUTRAL, /* | - 124 */
|
||
C2_OTHERNEUTRAL, /* } - 125 */
|
||
C2_OTHERNEUTRAL, /* ~ - 126 */
|
||
C2_NOTAPPLICABLE, /* - 127 */
|
||
C2_NOTAPPLICABLE, /* <20> - 128 */
|
||
C2_NOTAPPLICABLE, /* <20> - 129 */
|
||
C2_OTHERNEUTRAL, /* <20> - 130 */
|
||
C2_LEFTTORIGHT, /* <20> - 131 */
|
||
C2_OTHERNEUTRAL, /* <20> - 132 */
|
||
C2_OTHERNEUTRAL, /* <20> - 133 */
|
||
C2_OTHERNEUTRAL, /* <20> - 134 */
|
||
C2_OTHERNEUTRAL, /* <20> - 135 */
|
||
C2_LEFTTORIGHT, /* <20> - 136 */
|
||
C2_EUROPETERMINATOR, /* <20> - 137 */
|
||
C2_LEFTTORIGHT, /* <20> - 138 */
|
||
C2_OTHERNEUTRAL, /* <20> - 139 */
|
||
C2_LEFTTORIGHT, /* <20> - 140 */
|
||
C2_NOTAPPLICABLE, /* <20> - 141 */
|
||
C2_NOTAPPLICABLE, /* <20> - 142 */
|
||
C2_NOTAPPLICABLE, /* <20> - 143 */
|
||
C2_NOTAPPLICABLE, /* <20> - 144 */
|
||
C2_OTHERNEUTRAL, /* <20> - 145 */
|
||
C2_OTHERNEUTRAL, /* <20> - 146 */
|
||
C2_OTHERNEUTRAL, /* <20> - 147 */
|
||
C2_OTHERNEUTRAL, /* <20> - 148 */
|
||
C2_OTHERNEUTRAL, /* <20> - 149 */
|
||
C2_OTHERNEUTRAL, /* <20> - 150 */
|
||
C2_OTHERNEUTRAL, /* <20> - 151 */
|
||
C2_LEFTTORIGHT, /* <20> - 152 */
|
||
C2_OTHERNEUTRAL, /* <20> - 153 */
|
||
C2_LEFTTORIGHT, /* <20> - 154 */
|
||
C2_OTHERNEUTRAL, /* <20> - 155 */
|
||
C2_LEFTTORIGHT, /* <20> - 156 */
|
||
C2_NOTAPPLICABLE, /* <20> - 157 */
|
||
C2_NOTAPPLICABLE, /* <20> - 158 */
|
||
C2_LEFTTORIGHT, /* <20> - 159 */
|
||
C2_WHITESPACE, /* <20> - 160 */
|
||
C2_OTHERNEUTRAL, /* <20> - 161 */
|
||
C2_EUROPETERMINATOR, /* <20> - 162 */
|
||
C2_EUROPETERMINATOR, /* <20> - 163 */
|
||
C2_EUROPETERMINATOR, /* <20> - 164 */
|
||
C2_EUROPETERMINATOR, /* <20> - 165 */
|
||
C2_OTHERNEUTRAL, /* <20> - 166 */
|
||
C2_OTHERNEUTRAL, /* <20> - 167 */
|
||
C2_OTHERNEUTRAL, /* <20> - 168 */
|
||
C2_OTHERNEUTRAL, /* <20> - 169 */
|
||
C2_OTHERNEUTRAL, /* <20> - 170 */
|
||
C2_OTHERNEUTRAL, /* <20> - 171 */
|
||
C2_OTHERNEUTRAL, /* <20> - 172 */
|
||
C2_OTHERNEUTRAL, /* <20> - 173 */
|
||
C2_OTHERNEUTRAL, /* <20> - 174 */
|
||
C2_OTHERNEUTRAL, /* <20> - 175 */
|
||
C2_EUROPETERMINATOR, /* <20> - 176 */
|
||
C2_EUROPETERMINATOR, /* <20> - 177 */
|
||
C2_EUROPENUMBER, /* <20> - 178 */
|
||
C2_EUROPENUMBER, /* <20> - 179 */
|
||
C2_OTHERNEUTRAL, /* <20> - 180 */
|
||
C2_OTHERNEUTRAL, /* <20> - 181 */
|
||
C2_OTHERNEUTRAL, /* <20> - 182 */
|
||
C2_OTHERNEUTRAL, /* <20> - 183 */
|
||
C2_OTHERNEUTRAL, /* <20> - 184 */
|
||
C2_EUROPENUMBER, /* <20> - 185 */
|
||
C2_OTHERNEUTRAL, /* <20> - 186 */
|
||
C2_OTHERNEUTRAL, /* <20> - 187 */
|
||
C2_OTHERNEUTRAL, /* <20> - 188 */
|
||
C2_OTHERNEUTRAL, /* <20> - 189 */
|
||
C2_OTHERNEUTRAL, /* <20> - 190 */
|
||
C2_OTHERNEUTRAL, /* <20> - 191 */
|
||
C2_LEFTTORIGHT, /* <20> - 192 */
|
||
C2_LEFTTORIGHT, /* <20> - 193 */
|
||
C2_LEFTTORIGHT, /* <20> - 194 */
|
||
C2_LEFTTORIGHT, /* <20> - 195 */
|
||
C2_LEFTTORIGHT, /* <20> - 196 */
|
||
C2_LEFTTORIGHT, /* <20> - 197 */
|
||
C2_LEFTTORIGHT, /* <20> - 198 */
|
||
C2_LEFTTORIGHT, /* <20> - 199 */
|
||
C2_LEFTTORIGHT, /* <20> - 200 */
|
||
C2_LEFTTORIGHT, /* <20> - 201 */
|
||
C2_LEFTTORIGHT, /* <20> - 202 */
|
||
C2_LEFTTORIGHT, /* <20> - 203 */
|
||
C2_LEFTTORIGHT, /* <20> - 204 */
|
||
C2_LEFTTORIGHT, /* <20> - 205 */
|
||
C2_LEFTTORIGHT, /* <20> - 206 */
|
||
C2_LEFTTORIGHT, /* <20> - 207 */
|
||
C2_LEFTTORIGHT, /* <20> - 208 */
|
||
C2_LEFTTORIGHT, /* <20> - 209 */
|
||
C2_LEFTTORIGHT, /* <20> - 210 */
|
||
C2_LEFTTORIGHT, /* <20> - 211 */
|
||
C2_LEFTTORIGHT, /* <20> - 212 */
|
||
C2_LEFTTORIGHT, /* <20> - 213 */
|
||
C2_LEFTTORIGHT, /* <20> - 214 */
|
||
C2_OTHERNEUTRAL, /* <20> - 215 */
|
||
C2_LEFTTORIGHT, /* <20> - 216 */
|
||
C2_LEFTTORIGHT, /* <20> - 217 */
|
||
C2_LEFTTORIGHT, /* <20> - 218 */
|
||
C2_LEFTTORIGHT, /* <20> - 219 */
|
||
C2_LEFTTORIGHT, /* <20> - 220 */
|
||
C2_LEFTTORIGHT, /* <20> - 221 */
|
||
C2_LEFTTORIGHT, /* <20> - 222 */
|
||
C2_LEFTTORIGHT, /* <20> - 223 */
|
||
C2_LEFTTORIGHT, /* <20> - 224 */
|
||
C2_LEFTTORIGHT, /* <20> - 225 */
|
||
C2_LEFTTORIGHT, /* <20> - 226 */
|
||
C2_LEFTTORIGHT, /* <20> - 227 */
|
||
C2_LEFTTORIGHT, /* <20> - 228 */
|
||
C2_LEFTTORIGHT, /* <20> - 229 */
|
||
C2_LEFTTORIGHT, /* <20> - 230 */
|
||
C2_LEFTTORIGHT, /* <20> - 231 */
|
||
C2_LEFTTORIGHT, /* <20> - 232 */
|
||
C2_LEFTTORIGHT, /* <20> - 233 */
|
||
C2_LEFTTORIGHT, /* <20> - 234 */
|
||
C2_LEFTTORIGHT, /* <20> - 235 */
|
||
C2_LEFTTORIGHT, /* <20> - 236 */
|
||
C2_LEFTTORIGHT, /* <20> - 237 */
|
||
C2_LEFTTORIGHT, /* <20> - 238 */
|
||
C2_LEFTTORIGHT, /* <20> - 239 */
|
||
C2_LEFTTORIGHT, /* <20> - 240 */
|
||
C2_LEFTTORIGHT, /* <20> - 241 */
|
||
C2_LEFTTORIGHT, /* <20> - 242 */
|
||
C2_LEFTTORIGHT, /* <20> - 243 */
|
||
C2_LEFTTORIGHT, /* <20> - 244 */
|
||
C2_LEFTTORIGHT, /* <20> - 245 */
|
||
C2_LEFTTORIGHT, /* <20> - 246 */
|
||
C2_OTHERNEUTRAL, /* <20> - 247 */
|
||
C2_LEFTTORIGHT, /* <20> - 248 */
|
||
C2_LEFTTORIGHT, /* <20> - 249 */
|
||
C2_LEFTTORIGHT, /* <20> - 250 */
|
||
C2_LEFTTORIGHT, /* <20> - 251 */
|
||
C2_LEFTTORIGHT, /* <20> - 252 */
|
||
C2_LEFTTORIGHT, /* <20> - 253 */
|
||
C2_LEFTTORIGHT, /* <20> - 254 */
|
||
C2_LEFTTORIGHT /* <20> - 255 */
|
||
};
|
||
|
||
static const WORD CT_CType3_LUT[] = {
|
||
0x0000, /* - 0 */
|
||
0x0000, /* - 1 */
|
||
0x0000, /* - 2 */
|
||
0x0000, /* - 3 */
|
||
0x0000, /* - 4 */
|
||
0x0000, /* - 5 */
|
||
0x0000, /* - 6 */
|
||
0x0000, /* - 7 */
|
||
0x0000, /* - 8 */
|
||
0x0008, /* - 9 */
|
||
0x0008, /* - 10 */
|
||
0x0008, /* - 11 */
|
||
0x0008, /* - 12 */
|
||
0x0008, /* - 13 */
|
||
0x0000, /* - 14 */
|
||
0x0000, /* - 15 */
|
||
0x0000, /* - 16 */
|
||
0x0000, /* - 17 */
|
||
0x0000, /* - 18 */
|
||
0x0000, /* - 19 */
|
||
0x0000, /* - 20 */
|
||
0x0000, /* - 21 */
|
||
0x0000, /* - 22 */
|
||
0x0000, /* - 23 */
|
||
0x0000, /* - 24 */
|
||
0x0000, /* - 25 */
|
||
0x0000, /* - 26 */
|
||
0x0000, /* - 27 */
|
||
0x0000, /* - 28 */
|
||
0x0000, /* - 29 */
|
||
0x0000, /* - 30 */
|
||
0x0000, /* - 31 */
|
||
0x0048, /* - 32 */
|
||
0x0048, /* ! - 33 */
|
||
0x0448, /* " - 34 */ /* " */
|
||
0x0048, /* # - 35 */
|
||
0x0448, /* $ - 36 */
|
||
0x0048, /* % - 37 */
|
||
0x0048, /* & - 38 */
|
||
0x0440, /* ' - 39 */
|
||
0x0048, /* ( - 40 */
|
||
0x0048, /* ) - 41 */
|
||
0x0048, /* * - 42 */
|
||
0x0048, /* + - 43 */
|
||
0x0048, /* , - 44 */
|
||
0x0440, /* - - 45 */
|
||
0x0048, /* . - 46 */
|
||
0x0448, /* / - 47 */
|
||
0x0040, /* 0 - 48 */
|
||
0x0040, /* 1 - 49 */
|
||
0x0040, /* 2 - 50 */
|
||
0x0040, /* 3 - 51 */
|
||
0x0040, /* 4 - 52 */
|
||
0x0040, /* 5 - 53 */
|
||
0x0040, /* 6 - 54 */
|
||
0x0040, /* 7 - 55 */
|
||
0x0040, /* 8 - 56 */
|
||
0x0040, /* 9 - 57 */
|
||
0x0048, /* : - 58 */
|
||
0x0048, /* ; - 59 */
|
||
0x0048, /* < - 60 */
|
||
0x0448, /* = - 61 */
|
||
0x0048, /* > - 62 */
|
||
0x0048, /* ? - 63 */
|
||
0x0448, /* @ - 64 */
|
||
0x8040, /* A - 65 */
|
||
0x8040, /* B - 66 */
|
||
0x8040, /* C - 67 */
|
||
0x8040, /* D - 68 */
|
||
0x8040, /* E - 69 */
|
||
0x8040, /* F - 70 */
|
||
0x8040, /* G - 71 */
|
||
0x8040, /* H - 72 */
|
||
0x8040, /* I - 73 */
|
||
0x8040, /* J - 74 */
|
||
0x8040, /* K - 75 */
|
||
0x8040, /* L - 76 */
|
||
0x8040, /* M - 77 */
|
||
0x8040, /* N - 78 */
|
||
0x8040, /* O - 79 */
|
||
0x8040, /* P - 80 */
|
||
0x8040, /* Q - 81 */
|
||
0x8040, /* R - 82 */
|
||
0x8040, /* S - 83 */
|
||
0x8040, /* T - 84 */
|
||
0x8040, /* U - 85 */
|
||
0x8040, /* V - 86 */
|
||
0x8040, /* W - 87 */
|
||
0x8040, /* X - 88 */
|
||
0x8040, /* Y - 89 */
|
||
0x8040, /* Z - 90 */
|
||
0x0048, /* [ - 91 */
|
||
0x0448, /* \ - 92 */
|
||
0x0048, /* ] - 93 */
|
||
0x0448, /* ^ - 94 */
|
||
0x0448, /* _ - 95 */
|
||
0x0448, /* ` - 96 */
|
||
0x8040, /* a - 97 */
|
||
0x8040, /* b - 98 */
|
||
0x8040, /* c - 99 */
|
||
0x8040, /* d - 100 */
|
||
0x8040, /* e - 101 */
|
||
0x8040, /* f - 102 */
|
||
0x8040, /* g - 103 */
|
||
0x8040, /* h - 104 */
|
||
0x8040, /* i - 105 */
|
||
0x8040, /* j - 106 */
|
||
0x8040, /* k - 107 */
|
||
0x8040, /* l - 108 */
|
||
0x8040, /* m - 109 */
|
||
0x8040, /* n - 110 */
|
||
0x8040, /* o - 111 */
|
||
0x8040, /* p - 112 */
|
||
0x8040, /* q - 113 */
|
||
0x8040, /* r - 114 */
|
||
0x8040, /* s - 115 */
|
||
0x8040, /* t - 116 */
|
||
0x8040, /* u - 117 */
|
||
0x8040, /* v - 118 */
|
||
0x8040, /* w - 119 */
|
||
0x8040, /* x - 120 */
|
||
0x8040, /* y - 121 */
|
||
0x8040, /* z - 122 */
|
||
0x0048, /* { - 123 */
|
||
0x0048, /* | - 124 */
|
||
0x0048, /* } - 125 */
|
||
0x0448, /* ~ - 126 */
|
||
0x0000, /* - 127 */
|
||
0x0000, /* <20> - 128 */
|
||
0x0000, /* <20> - 129 */
|
||
0x0008, /* <20> - 130 */
|
||
0x8000, /* <20> - 131 */
|
||
0x0008, /* <20> - 132 */
|
||
0x0008, /* <20> - 133 */
|
||
0x0008, /* <20> - 134 */
|
||
0x0008, /* <20> - 135 */
|
||
0x0001, /* <20> - 136 */
|
||
0x0008, /* <20> - 137 */
|
||
0x8003, /* <20> - 138 */
|
||
0x0008, /* <20> - 139 */
|
||
0x8000, /* <20> - 140 */
|
||
0x0000, /* <20> - 141 */
|
||
0x0000, /* <20> - 142 */
|
||
0x0000, /* <20> - 143 */
|
||
0x0000, /* <20> - 144 */
|
||
0x0088, /* <20> - 145 */
|
||
0x0088, /* <20> - 146 */
|
||
0x0088, /* <20> - 147 */
|
||
0x0088, /* <20> - 148 */
|
||
0x0008, /* <20> - 149 */
|
||
0x0400, /* <20> - 150 */
|
||
0x0400, /* <20> - 151 */
|
||
0x0408, /* <20> - 152 */
|
||
0x0000, /* <20> - 153 */
|
||
0x8003, /* <20> - 154 */
|
||
0x0008, /* <20> - 155 */
|
||
0x8000, /* <20> - 156 */
|
||
0x0000, /* <20> - 157 */
|
||
0x0000, /* <20> - 158 */
|
||
0x8003, /* <20> - 159 */
|
||
0x0008, /* <20> - 160 */
|
||
0x0008, /* <20> - 161 */
|
||
0x0048, /* <20> - 162 */
|
||
0x0048, /* <20> - 163 */
|
||
0x0008, /* <20> - 164 */
|
||
0x0048, /* <20> - 165 */
|
||
0x0048, /* <20> - 166 */
|
||
0x0008, /* <20> - 167 */
|
||
0x0408, /* <20> - 168 */
|
||
0x0008, /* <20> - 169 */
|
||
0x0400, /* <20> - 170 */
|
||
0x0008, /* <20> - 171 */
|
||
0x0048, /* <20> - 172 */
|
||
0x0408, /* <20> - 173 */
|
||
0x0008, /* <20> - 174 */
|
||
0x0448, /* <20> - 175 */
|
||
0x0008, /* <20> - 176 */
|
||
0x0008, /* <20> - 177 */
|
||
0x0000, /* <20> - 178 */
|
||
0x0000, /* <20> - 179 */
|
||
0x0408, /* <20> - 180 */
|
||
0x0008, /* <20> - 181 */
|
||
0x0008, /* <20> - 182 */
|
||
0x0008, /* <20> - 183 */
|
||
0x0408, /* <20> - 184 */
|
||
0x0000, /* <20> - 185 */
|
||
0x0400, /* <20> - 186 */
|
||
0x0008, /* <20> - 187 */
|
||
0x0000, /* <20> - 188 */
|
||
0x0000, /* <20> - 189 */
|
||
0x0000, /* <20> - 190 */
|
||
0x0008, /* <20> - 191 */
|
||
0x8003, /* <20> - 192 */
|
||
0x8003, /* <20> - 193 */
|
||
0x8003, /* <20> - 194 */
|
||
0x8003, /* <20> - 195 */
|
||
0x8003, /* <20> - 196 */
|
||
0x8003, /* <20> - 197 */
|
||
0x8000, /* <20> - 198 */
|
||
0x8003, /* <20> - 199 */
|
||
0x8003, /* <20> - 200 */
|
||
0x8003, /* <20> - 201 */
|
||
0x8003, /* <20> - 202 */
|
||
0x8003, /* <20> - 203 */
|
||
0x8003, /* <20> - 204 */
|
||
0x8003, /* <20> - 205 */
|
||
0x8003, /* <20> - 206 */
|
||
0x8003, /* <20> - 207 */
|
||
0x8000, /* <20> - 208 */
|
||
0x8003, /* <20> - 209 */
|
||
0x8003, /* <20> - 210 */
|
||
0x8003, /* <20> - 211 */
|
||
0x8003, /* <20> - 212 */
|
||
0x8003, /* <20> - 213 */
|
||
0x8003, /* <20> - 214 */
|
||
0x0008, /* <20> - 215 */
|
||
0x8003, /* <20> - 216 */
|
||
0x8003, /* <20> - 217 */
|
||
0x8003, /* <20> - 218 */
|
||
0x8003, /* <20> - 219 */
|
||
0x8003, /* <20> - 220 */
|
||
0x8003, /* <20> - 221 */
|
||
0x8000, /* <20> - 222 */
|
||
0x8000, /* <20> - 223 */
|
||
0x8003, /* <20> - 224 */
|
||
0x8003, /* <20> - 225 */
|
||
0x8003, /* <20> - 226 */
|
||
0x8003, /* <20> - 227 */
|
||
0x8003, /* <20> - 228 */
|
||
0x8003, /* <20> - 229 */
|
||
0x8000, /* <20> - 230 */
|
||
0x8003, /* <20> - 231 */
|
||
0x8003, /* <20> - 232 */
|
||
0x8003, /* <20> - 233 */
|
||
0x8003, /* <20> - 234 */
|
||
0x8003, /* <20> - 235 */
|
||
0x8003, /* <20> - 236 */
|
||
0x8003, /* <20> - 237 */
|
||
0x8003, /* <20> - 238 */
|
||
0x8003, /* <20> - 239 */
|
||
0x8000, /* <20> - 240 */
|
||
0x8003, /* <20> - 241 */
|
||
0x8003, /* <20> - 242 */
|
||
0x8003, /* <20> - 243 */
|
||
0x8003, /* <20> - 244 */
|
||
0x8003, /* <20> - 245 */
|
||
0x8003, /* <20> - 246 */
|
||
0x0008, /* <20> - 247 */
|
||
0x8003, /* <20> - 248 */
|
||
0x8003, /* <20> - 249 */
|
||
0x8003, /* <20> - 250 */
|
||
0x8003, /* <20> - 251 */
|
||
0x8003, /* <20> - 252 */
|
||
0x8003, /* <20> - 253 */
|
||
0x8000, /* <20> - 254 */
|
||
0x8003 /* <20> - 255 */
|
||
};
|
||
|
||
/***********************************************************************
|
||
* GetStringTypeA [OLE2NLS.7]
|
||
*/
|
||
BOOL16 WINAPI GetStringType16(LCID locale,DWORD dwInfoType,LPCSTR src,
|
||
INT16 cchSrc,LPWORD chartype)
|
||
{
|
||
return GetStringTypeEx32A(locale,dwInfoType,src,cchSrc,chartype);
|
||
}
|
||
/***********************************************************************
|
||
* GetStringTypeA [KERNEL32.277]
|
||
*/
|
||
BOOL32 WINAPI GetStringType32A(LCID locale,DWORD dwInfoType,LPCSTR src,
|
||
INT32 cchSrc,LPWORD chartype)
|
||
{
|
||
return GetStringTypeEx32A(locale,dwInfoType,src,cchSrc,chartype);
|
||
}
|
||
|
||
/***********************************************************************
|
||
* GetStringTypeExA [KERNEL32.276]
|
||
*
|
||
* FIXME: Ignores the locale.
|
||
*/
|
||
BOOL32 WINAPI GetStringTypeEx32A(LCID locale,DWORD dwInfoType,LPCSTR src,
|
||
INT32 cchSrc,LPWORD chartype)
|
||
{
|
||
int i;
|
||
|
||
if ((src==NULL) || (chartype==NULL) || (src==(LPSTR)chartype))
|
||
{
|
||
SetLastError(ERROR_INVALID_PARAMETER);
|
||
return FALSE;
|
||
}
|
||
|
||
if (cchSrc==-1)
|
||
cchSrc=lstrlen32A(src)+1;
|
||
|
||
switch (dwInfoType) {
|
||
case CT_CTYPE1:
|
||
for (i=0;i<cchSrc;i++)
|
||
{
|
||
chartype[i] = 0;
|
||
if (isdigit(src[i])) chartype[i]|=C1_DIGIT;
|
||
if (isalpha(src[i])) chartype[i]|=C1_ALPHA;
|
||
if (islower(src[i])) chartype[i]|=C1_LOWER;
|
||
if (isupper(src[i])) chartype[i]|=C1_UPPER;
|
||
if (isspace(src[i])) chartype[i]|=C1_SPACE;
|
||
if (ispunct(src[i])) chartype[i]|=C1_PUNCT;
|
||
if (iscntrl(src[i])) chartype[i]|=C1_CNTRL;
|
||
/* FIXME: isblank() is a GNU extension */
|
||
/* if (isblank(src[i])) chartype[i]|=C1_BLANK; */
|
||
if ((src[i] == ' ') || (src[i] == '\t')) chartype[i]|=C1_BLANK;
|
||
/* C1_XDIGIT */
|
||
}
|
||
return TRUE;
|
||
|
||
case CT_CTYPE2:
|
||
for (i=0;i<cchSrc;i++)
|
||
{
|
||
chartype[i]=(WORD)CT_CType2_LUT[i];
|
||
}
|
||
return TRUE;
|
||
|
||
case CT_CTYPE3:
|
||
for (i=0;i<cchSrc;i++)
|
||
{
|
||
chartype[i]=CT_CType3_LUT[i];
|
||
}
|
||
return TRUE;
|
||
|
||
default:
|
||
ERR(ole,"Unknown dwInfoType:%ld\n",dwInfoType);
|
||
return FALSE;
|
||
}
|
||
}
|
||
|
||
/*********************************************************************
|
||
* GetStringTypeW [KERNEL32.279]
|
||
*
|
||
* NOTES
|
||
* Yes, this is missing LCID locale. MS fault.
|
||
*/
|
||
BOOL32 WINAPI GetStringType32W(DWORD dwInfoType,LPCWSTR src,INT32 cchSrc,
|
||
LPWORD chartype)
|
||
{
|
||
return GetStringTypeEx32W(0/*defaultlocale*/,dwInfoType,src,cchSrc,chartype);
|
||
}
|
||
|
||
/*********************************************************************
|
||
* GetStringTypeW [KERNEL32.278]
|
||
* FIXME: unicode chars are assumed chars
|
||
*/
|
||
BOOL32 WINAPI GetStringTypeEx32W(LCID locale,DWORD dwInfoType,LPCWSTR src,
|
||
INT32 cchSrc,LPWORD chartype)
|
||
{
|
||
int i;
|
||
|
||
|
||
if (cchSrc==-1)
|
||
cchSrc=lstrlen32W(src)+1;
|
||
|
||
switch (dwInfoType) {
|
||
case CT_CTYPE2:
|
||
FIXME(ole,"CT_CTYPE2 not supported.\n");
|
||
return FALSE;
|
||
case CT_CTYPE3:
|
||
FIXME(ole,"CT_CTYPE3 not supported.\n");
|
||
return FALSE;
|
||
default:break;
|
||
}
|
||
for (i=0;i<cchSrc;i++) {
|
||
chartype[i] = 0;
|
||
if (isdigit(src[i])) chartype[i]|=C1_DIGIT;
|
||
if (isalpha(src[i])) chartype[i]|=C1_ALPHA;
|
||
if (islower(src[i])) chartype[i]|=C1_LOWER;
|
||
if (isupper(src[i])) chartype[i]|=C1_UPPER;
|
||
if (isspace(src[i])) chartype[i]|=C1_SPACE;
|
||
if (ispunct(src[i])) chartype[i]|=C1_PUNCT;
|
||
if (iscntrl(src[i])) chartype[i]|=C1_CNTRL;
|
||
/* FIXME: isblank() is a GNU extension */
|
||
/* if (isblank(src[i])) chartype[i]|=C1_BLANK; */
|
||
if ((src[i] == ' ') || (src[i] == '\t')) chartype[i]|=C1_BLANK;
|
||
/* C1_XDIGIT */
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
/*****************************************************************
|
||
* VerLanguageName16 [VER.10]
|
||
*/
|
||
DWORD WINAPI VerLanguageName16(UINT16 langid,LPSTR langname,UINT16 langnamelen)
|
||
{
|
||
int i;
|
||
DWORD result;
|
||
char buffer[80];
|
||
|
||
TRACE(ver,"(%d,%p,%d)\n",langid,langname,langnamelen);
|
||
/* First, check \System\CurrentControlSet\control\Nls\Locale\<langid>
|
||
* from the registry.
|
||
*/
|
||
sprintf(buffer,
|
||
"\\System\\CurrentControlSet\\control\\Nls\\Locale\\%08x",
|
||
langid);
|
||
result = RegQueryValue16(HKEY_LOCAL_MACHINE, buffer, langname,
|
||
(LPDWORD)&langnamelen);
|
||
if (result == ERROR_SUCCESS) {
|
||
langname[langnamelen-1]='\0';
|
||
return langnamelen;
|
||
}
|
||
/* if that fails, use the internal table */
|
||
for (i=0;languages[i].langid!=0;i++)
|
||
if (langid==languages[i].langid)
|
||
break;
|
||
strncpy(langname,languages[i].langname,langnamelen);
|
||
langname[langnamelen-1]='\0';
|
||
return strlen(languages[i].langname);
|
||
}
|
||
|
||
/*****************************************************************
|
||
* VerLanguageName32A [VERSION.9]
|
||
*/
|
||
DWORD WINAPI VerLanguageName32A(UINT32 langid,LPSTR langname,
|
||
UINT32 langnamelen)
|
||
{
|
||
return VerLanguageName16(langid,langname,langnamelen);
|
||
}
|
||
|
||
/*****************************************************************
|
||
* VerLanguageName32W [VERSION.10]
|
||
*/
|
||
DWORD WINAPI VerLanguageName32W(UINT32 langid,LPWSTR langname,
|
||
UINT32 langnamelen)
|
||
{
|
||
int i;
|
||
LPWSTR keyname;
|
||
DWORD result;
|
||
char buffer[80];
|
||
|
||
/* First, check \System\CurrentControlSet\control\Nls\Locale\<langid>
|
||
* from the registry.
|
||
*/
|
||
sprintf(buffer,
|
||
"\\System\\CurrentControlSet\\control\\Nls\\Locale\\%08x",
|
||
langid);
|
||
keyname = HEAP_strdupAtoW( GetProcessHeap(), 0, buffer );
|
||
result = RegQueryValue32W(HKEY_LOCAL_MACHINE, keyname, langname,
|
||
(LPDWORD)&langnamelen);
|
||
HeapFree( GetProcessHeap(), 0, keyname );
|
||
if (result != ERROR_SUCCESS) {
|
||
/* if that fails, use the internal table */
|
||
for (i=0;languages[i].langid!=0;i++)
|
||
if (langid==languages[i].langid)
|
||
break;
|
||
lstrcpyAtoW( langname, languages[i].langname );
|
||
langnamelen = strlen(languages[i].langname);
|
||
/* same as strlenW(langname); */
|
||
}
|
||
return langnamelen;
|
||
}
|
||
|
||
static const unsigned char LCM_Unicode_LUT[] = {
|
||
6 , 3, /* - 1 */
|
||
6 , 4, /* - 2 */
|
||
6 , 5, /* - 3 */
|
||
6 , 6, /* - 4 */
|
||
6 , 7, /* - 5 */
|
||
6 , 8, /* - 6 */
|
||
6 , 9, /* - 7 */
|
||
6 , 10, /* - 8 */
|
||
7 , 5, /* - 9 */
|
||
7 , 6, /* - 10 */
|
||
7 , 7, /* - 11 */
|
||
7 , 8, /* - 12 */
|
||
7 , 9, /* - 13 */
|
||
6 , 11, /* - 14 */
|
||
6 , 12, /* - 15 */
|
||
6 , 13, /* - 16 */
|
||
6 , 14, /* - 17 */
|
||
6 , 15, /* - 18 */
|
||
6 , 16, /* - 19 */
|
||
6 , 17, /* - 20 */
|
||
6 , 18, /* - 21 */
|
||
6 , 19, /* - 22 */
|
||
6 , 20, /* - 23 */
|
||
6 , 21, /* - 24 */
|
||
6 , 22, /* - 25 */
|
||
6 , 23, /* - 26 */
|
||
6 , 24, /* - 27 */
|
||
6 , 25, /* - 28 */
|
||
6 , 26, /* - 29 */
|
||
6 , 27, /* - 30 */
|
||
6 , 28, /* - 31 */
|
||
7 , 2, /* - 32 */
|
||
7 , 28, /* ! - 33 */
|
||
7 , 29, /* " - 34 */ /* " */
|
||
7 , 31, /* # - 35 */
|
||
7 , 33, /* $ - 36 */
|
||
7 , 35, /* % - 37 */
|
||
7 , 37, /* & - 38 */
|
||
6 , 128, /* ' - 39 */
|
||
7 , 39, /* ( - 40 */
|
||
7 , 42, /* ) - 41 */
|
||
7 , 45, /* * - 42 */
|
||
8 , 3, /* + - 43 */
|
||
7 , 47, /* , - 44 */
|
||
6 , 130, /* - - 45 */
|
||
7 , 51, /* . - 46 */
|
||
7 , 53, /* / - 47 */
|
||
12 , 3, /* 0 - 48 */
|
||
12 , 33, /* 1 - 49 */
|
||
12 , 51, /* 2 - 50 */
|
||
12 , 70, /* 3 - 51 */
|
||
12 , 88, /* 4 - 52 */
|
||
12 , 106, /* 5 - 53 */
|
||
12 , 125, /* 6 - 54 */
|
||
12 , 144, /* 7 - 55 */
|
||
12 , 162, /* 8 - 56 */
|
||
12 , 180, /* 9 - 57 */
|
||
7 , 55, /* : - 58 */
|
||
7 , 58, /* ; - 59 */
|
||
8 , 14, /* < - 60 */
|
||
8 , 18, /* = - 61 */
|
||
8 , 20, /* > - 62 */
|
||
7 , 60, /* ? - 63 */
|
||
7 , 62, /* @ - 64 */
|
||
14 , 2, /* A - 65 */
|
||
14 , 9, /* B - 66 */
|
||
14 , 10, /* C - 67 */
|
||
14 , 26, /* D - 68 */
|
||
14 , 33, /* E - 69 */
|
||
14 , 35, /* F - 70 */
|
||
14 , 37, /* G - 71 */
|
||
14 , 44, /* H - 72 */
|
||
14 , 50, /* I - 73 */
|
||
14 , 53, /* J - 74 */
|
||
14 , 54, /* K - 75 */
|
||
14 , 72, /* L - 76 */
|
||
14 , 81, /* M - 77 */
|
||
14 , 112, /* N - 78 */
|
||
14 , 124, /* O - 79 */
|
||
14 , 126, /* P - 80 */
|
||
14 , 137, /* Q - 81 */
|
||
14 , 138, /* R - 82 */
|
||
14 , 145, /* S - 83 */
|
||
14 , 153, /* T - 84 */
|
||
14 , 159, /* U - 85 */
|
||
14 , 162, /* V - 86 */
|
||
14 , 164, /* W - 87 */
|
||
14 , 166, /* X - 88 */
|
||
14 , 167, /* Y - 89 */
|
||
14 , 169, /* Z - 90 */
|
||
7 , 63, /* [ - 91 */
|
||
7 , 65, /* \ - 92 */
|
||
7 , 66, /* ] - 93 */
|
||
7 , 67, /* ^ - 94 */
|
||
7 , 68, /* _ - 95 */
|
||
7 , 72, /* ` - 96 */
|
||
14 , 2, /* a - 97 */
|
||
14 , 9, /* b - 98 */
|
||
14 , 10, /* c - 99 */
|
||
14 , 26, /* d - 100 */
|
||
14 , 33, /* e - 101 */
|
||
14 , 35, /* f - 102 */
|
||
14 , 37, /* g - 103 */
|
||
14 , 44, /* h - 104 */
|
||
14 , 50, /* i - 105 */
|
||
14 , 53, /* j - 106 */
|
||
14 , 54, /* k - 107 */
|
||
14 , 72, /* l - 108 */
|
||
14 , 81, /* m - 109 */
|
||
14 , 112, /* n - 110 */
|
||
14 , 124, /* o - 111 */
|
||
14 , 126, /* p - 112 */
|
||
14 , 137, /* q - 113 */
|
||
14 , 138, /* r - 114 */
|
||
14 , 145, /* s - 115 */
|
||
14 , 153, /* t - 116 */
|
||
14 , 159, /* u - 117 */
|
||
14 , 162, /* v - 118 */
|
||
14 , 164, /* w - 119 */
|
||
14 , 166, /* x - 120 */
|
||
14 , 167, /* y - 121 */
|
||
14 , 169, /* z - 122 */
|
||
7 , 74, /* { - 123 */
|
||
7 , 76, /* | - 124 */
|
||
7 , 78, /* } - 125 */
|
||
7 , 80, /* ~ - 126 */
|
||
6 , 29, /* - 127 */
|
||
6 , 30, /* <20> - 128 */
|
||
6 , 31, /* <20> - 129 */
|
||
7 , 123, /* <20> - 130 */
|
||
14 , 35, /* <20> - 131 */
|
||
7 , 127, /* <20> - 132 */
|
||
10 , 21, /* <20> - 133 */
|
||
10 , 15, /* <20> - 134 */
|
||
10 , 16, /* <20> - 135 */
|
||
7 , 67, /* <20> - 136 */
|
||
10 , 22, /* <20> - 137 */
|
||
14 , 145, /* <20> - 138 */
|
||
7 , 136, /* <20> - 139 */
|
||
14 + 16 , 124, /* <20> - 140 */
|
||
6 , 43, /* <20> - 141 */
|
||
6 , 44, /* <20> - 142 */
|
||
6 , 45, /* <20> - 143 */
|
||
6 , 46, /* <20> - 144 */
|
||
7 , 121, /* <20> - 145 */
|
||
7 , 122, /* <20> - 146 */
|
||
7 , 125, /* <20> - 147 */
|
||
7 , 126, /* <20> - 148 */
|
||
10 , 17, /* <20> - 149 */
|
||
6 , 137, /* <20> - 150 */
|
||
6 , 139, /* <20> - 151 */
|
||
7 , 93, /* <20> - 152 */
|
||
14 , 156, /* <20> - 153 */
|
||
14 , 145, /* <20> - 154 */
|
||
7 , 137, /* <20> - 155 */
|
||
14 + 16 , 124, /* <20> - 156 */
|
||
6 , 59, /* <20> - 157 */
|
||
6 , 60, /* <20> - 158 */
|
||
14 , 167, /* <20> - 159 */
|
||
7 , 4, /* <20> - 160 */
|
||
7 , 81, /* <20> - 161 */
|
||
10 , 2, /* <20> - 162 */
|
||
10 , 3, /* <20> - 163 */
|
||
10 , 4, /* <20> - 164 */
|
||
10 , 5, /* <20> - 165 */
|
||
7 , 82, /* <20> - 166 */
|
||
10 , 6, /* <20> - 167 */
|
||
7 , 83, /* <20> - 168 */
|
||
10 , 7, /* <20> - 169 */
|
||
14 , 2, /* <20> - 170 */
|
||
8 , 24, /* <20> - 171 */
|
||
10 , 8, /* <20> - 172 */
|
||
6 , 131, /* <20> - 173 */
|
||
10 , 9, /* <20> - 174 */
|
||
7 , 84, /* <20> - 175 */
|
||
10 , 10, /* <20> - 176 */
|
||
8 , 23, /* <20> - 177 */
|
||
12 , 51, /* <20> - 178 */
|
||
12 , 70, /* <20> - 179 */
|
||
7 , 85, /* <20> - 180 */
|
||
10 , 11, /* <20> - 181 */
|
||
10 , 12, /* <20> - 182 */
|
||
10 , 13, /* <20> - 183 */
|
||
7 , 86, /* <20> - 184 */
|
||
12 , 33, /* <20> - 185 */
|
||
14 , 124, /* <20> - 186 */
|
||
8 , 26, /* <20> - 187 */
|
||
12 , 21, /* <20> - 188 */
|
||
12 , 25, /* <20> - 189 */
|
||
12 , 29, /* <20> - 190 */
|
||
7 , 87, /* <20> - 191 */
|
||
14 , 2, /* <20> - 192 */
|
||
14 , 2, /* <20> - 193 */
|
||
14 , 2, /* <20> - 194 */
|
||
14 , 2, /* <20> - 195 */
|
||
14 , 2, /* <20> - 196 */
|
||
14 , 2, /* <20> - 197 */
|
||
14 + 16 , 2, /* <20> - 198 */
|
||
14 , 10, /* <20> - 199 */
|
||
14 , 33, /* <20> - 200 */
|
||
14 , 33, /* <20> - 201 */
|
||
14 , 33, /* <20> - 202 */
|
||
14 , 33, /* <20> - 203 */
|
||
14 , 50, /* <20> - 204 */
|
||
14 , 50, /* <20> - 205 */
|
||
14 , 50, /* <20> - 206 */
|
||
14 , 50, /* <20> - 207 */
|
||
14 , 26, /* <20> - 208 */
|
||
14 , 112, /* <20> - 209 */
|
||
14 , 124, /* <20> - 210 */
|
||
14 , 124, /* <20> - 211 */
|
||
14 , 124, /* <20> - 212 */
|
||
14 , 124, /* <20> - 213 */
|
||
14 , 124, /* <20> - 214 */
|
||
8 , 28, /* <20> - 215 */
|
||
14 , 124, /* <20> - 216 */
|
||
14 , 159, /* <20> - 217 */
|
||
14 , 159, /* <20> - 218 */
|
||
14 , 159, /* <20> - 219 */
|
||
14 , 159, /* <20> - 220 */
|
||
14 , 167, /* <20> - 221 */
|
||
14 + 32 , 153, /* <20> - 222 */
|
||
14 + 48 , 145, /* <20> - 223 */
|
||
14 , 2, /* <20> - 224 */
|
||
14 , 2, /* <20> - 225 */
|
||
14 , 2, /* <20> - 226 */
|
||
14 , 2, /* <20> - 227 */
|
||
14 , 2, /* <20> - 228 */
|
||
14 , 2, /* <20> - 229 */
|
||
14 + 16 , 2, /* <20> - 230 */
|
||
14 , 10, /* <20> - 231 */
|
||
14 , 33, /* <20> - 232 */
|
||
14 , 33, /* <20> - 233 */
|
||
14 , 33, /* <20> - 234 */
|
||
14 , 33, /* <20> - 235 */
|
||
14 , 50, /* <20> - 236 */
|
||
14 , 50, /* <20> - 237 */
|
||
14 , 50, /* <20> - 238 */
|
||
14 , 50, /* <20> - 239 */
|
||
14 , 26, /* <20> - 240 */
|
||
14 , 112, /* <20> - 241 */
|
||
14 , 124, /* <20> - 242 */
|
||
14 , 124, /* <20> - 243 */
|
||
14 , 124, /* <20> - 244 */
|
||
14 , 124, /* <20> - 245 */
|
||
14 , 124, /* <20> - 246 */
|
||
8 , 29, /* <20> - 247 */
|
||
14 , 124, /* <20> - 248 */
|
||
14 , 159, /* <20> - 249 */
|
||
14 , 159, /* <20> - 250 */
|
||
14 , 159, /* <20> - 251 */
|
||
14 , 159, /* <20> - 252 */
|
||
14 , 167, /* <20> - 253 */
|
||
14 + 32 , 153, /* <20> - 254 */
|
||
14 , 167 /* <20> - 255 */ };
|
||
|
||
static const unsigned char LCM_Unicode_LUT_2[] = { 33, 44, 145 };
|
||
|
||
#define LCM_Diacritic_Start 131
|
||
|
||
static const unsigned char LCM_Diacritic_LUT[] = {
|
||
123, /* <20> - 131 */
|
||
2, /* <20> - 132 */
|
||
2, /* <20> - 133 */
|
||
2, /* <20> - 134 */
|
||
2, /* <20> - 135 */
|
||
3, /* <20> - 136 */
|
||
2, /* <20> - 137 */
|
||
20, /* <20> - 138 */
|
||
2, /* <20> - 139 */
|
||
2, /* <20> - 140 */
|
||
2, /* <20> - 141 */
|
||
2, /* <20> - 142 */
|
||
2, /* <20> - 143 */
|
||
2, /* <20> - 144 */
|
||
2, /* <20> - 145 */
|
||
2, /* <20> - 146 */
|
||
2, /* <20> - 147 */
|
||
2, /* <20> - 148 */
|
||
2, /* <20> - 149 */
|
||
2, /* <20> - 150 */
|
||
2, /* <20> - 151 */
|
||
2, /* <20> - 152 */
|
||
2, /* <20> - 153 */
|
||
20, /* <20> - 154 */
|
||
2, /* <20> - 155 */
|
||
2, /* <20> - 156 */
|
||
2, /* <20> - 157 */
|
||
2, /* <20> - 158 */
|
||
19, /* <20> - 159 */
|
||
2, /* <20> - 160 */
|
||
2, /* <20> - 161 */
|
||
2, /* <20> - 162 */
|
||
2, /* <20> - 163 */
|
||
2, /* <20> - 164 */
|
||
2, /* <20> - 165 */
|
||
2, /* <20> - 166 */
|
||
2, /* <20> - 167 */
|
||
2, /* <20> - 168 */
|
||
2, /* <20> - 169 */
|
||
3, /* <20> - 170 */
|
||
2, /* <20> - 171 */
|
||
2, /* <20> - 172 */
|
||
2, /* <20> - 173 */
|
||
2, /* <20> - 174 */
|
||
2, /* <20> - 175 */
|
||
2, /* <20> - 176 */
|
||
2, /* <20> - 177 */
|
||
2, /* <20> - 178 */
|
||
2, /* <20> - 179 */
|
||
2, /* <20> - 180 */
|
||
2, /* <20> - 181 */
|
||
2, /* <20> - 182 */
|
||
2, /* <20> - 183 */
|
||
2, /* <20> - 184 */
|
||
2, /* <20> - 185 */
|
||
3, /* <20> - 186 */
|
||
2, /* <20> - 187 */
|
||
2, /* <20> - 188 */
|
||
2, /* <20> - 189 */
|
||
2, /* <20> - 190 */
|
||
2, /* <20> - 191 */
|
||
15, /* <20> - 192 */
|
||
14, /* <20> - 193 */
|
||
18, /* <20> - 194 */
|
||
25, /* <20> - 195 */
|
||
19, /* <20> - 196 */
|
||
26, /* <20> - 197 */
|
||
2, /* <20> - 198 */
|
||
28, /* <20> - 199 */
|
||
15, /* <20> - 200 */
|
||
14, /* <20> - 201 */
|
||
18, /* <20> - 202 */
|
||
19, /* <20> - 203 */
|
||
15, /* <20> - 204 */
|
||
14, /* <20> - 205 */
|
||
18, /* <20> - 206 */
|
||
19, /* <20> - 207 */
|
||
104, /* <20> - 208 */
|
||
25, /* <20> - 209 */
|
||
15, /* <20> - 210 */
|
||
14, /* <20> - 211 */
|
||
18, /* <20> - 212 */
|
||
25, /* <20> - 213 */
|
||
19, /* <20> - 214 */
|
||
2, /* <20> - 215 */
|
||
33, /* <20> - 216 */
|
||
15, /* <20> - 217 */
|
||
14, /* <20> - 218 */
|
||
18, /* <20> - 219 */
|
||
19, /* <20> - 220 */
|
||
14, /* <20> - 221 */
|
||
2, /* <20> - 222 */
|
||
2, /* <20> - 223 */
|
||
15, /* <20> - 224 */
|
||
14, /* <20> - 225 */
|
||
18, /* <20> - 226 */
|
||
25, /* <20> - 227 */
|
||
19, /* <20> - 228 */
|
||
26, /* <20> - 229 */
|
||
2, /* <20> - 230 */
|
||
28, /* <20> - 231 */
|
||
15, /* <20> - 232 */
|
||
14, /* <20> - 233 */
|
||
18, /* <20> - 234 */
|
||
19, /* <20> - 235 */
|
||
15, /* <20> - 236 */
|
||
14, /* <20> - 237 */
|
||
18, /* <20> - 238 */
|
||
19, /* <20> - 239 */
|
||
104, /* <20> - 240 */
|
||
25, /* <20> - 241 */
|
||
15, /* <20> - 242 */
|
||
14, /* <20> - 243 */
|
||
18, /* <20> - 244 */
|
||
25, /* <20> - 245 */
|
||
19, /* <20> - 246 */
|
||
2, /* <20> - 247 */
|
||
33, /* <20> - 248 */
|
||
15, /* <20> - 249 */
|
||
14, /* <20> - 250 */
|
||
18, /* <20> - 251 */
|
||
19, /* <20> - 252 */
|
||
14, /* <20> - 253 */
|
||
2, /* <20> - 254 */
|
||
19, /* <20> - 255 */
|
||
} ;
|
||
|
||
static int OLE2NLS_isPunctuation(unsigned char c)
|
||
{
|
||
/* "punctuation character" in this context is a character which is
|
||
considered "less important" during word sort comparison.
|
||
See LCMapString implementation for the precise definition
|
||
of "less important". */
|
||
|
||
return (LCM_Unicode_LUT[-2+2*c]==6);
|
||
}
|
||
|
||
static int identity(int c)
|
||
{
|
||
return c;
|
||
}
|
||
|
||
/*************************************************************************
|
||
* LCMapString32A [KERNEL32.492]
|
||
*
|
||
* Convert a string, or generate a sort key from it.
|
||
*
|
||
* If (mapflags & LCMAP_SORTKEY), the function will generate
|
||
* a sort key for the source string. Else, it will convert it
|
||
* accordingly to the flags LCMAP_UPPERCASE, LCMAP_LOWERCASE,...
|
||
*
|
||
* RETURNS
|
||
* Error : 0.
|
||
* Success : length of the result string.
|
||
*
|
||
* NOTES
|
||
* If called with scrlen = -1, the function will compute the length
|
||
* of the 0-terminated string strsrc by itself.
|
||
*
|
||
* If called with dstlen = 0, returns the buffer length that
|
||
* would be required.
|
||
*
|
||
* NORM_IGNOREWIDTH means to compare ASCII and Unicode characters
|
||
* as if they are equal. Since Wine separates ASCII and Unicode into
|
||
* separate functions, we shouldn't have to do anything for this flag.
|
||
* I added it to the list of flags that don't need a fixme message
|
||
* to make MS Word 95 not print several thousand fixme messages for
|
||
* this function.
|
||
*/
|
||
INT32 WINAPI LCMapString32A(
|
||
LCID lcid /* locale identifier created with MAKELCID;
|
||
LOCALE_SYSTEM_DEFAULT and LOCALE_USER_DEFAULT are
|
||
predefined values. */,
|
||
DWORD mapflags /* flags */,
|
||
LPCSTR srcstr /* source buffer */,
|
||
INT32 srclen /* source length */,
|
||
LPSTR dststr /* destination buffer */,
|
||
INT32 dstlen /* destination buffer length */)
|
||
{
|
||
int i;
|
||
|
||
TRACE(string,"(0x%04lx,0x%08lx,%s,%d,%p,%d)\n",
|
||
lcid,mapflags,srcstr,srclen,dststr,dstlen);
|
||
|
||
if ( ((dstlen!=0) && (dststr==NULL)) || (srcstr==NULL) )
|
||
{
|
||
ERR(ole, "(src=%s,dest=%s): Invalid NULL string\n", srcstr, dststr);
|
||
SetLastError(ERROR_INVALID_PARAMETER);
|
||
return 0;
|
||
}
|
||
if (srclen == -1)
|
||
srclen = lstrlen32A(srcstr) + 1 ; /* (include final '\0') */
|
||
|
||
if (mapflags & ~ ( LCMAP_UPPERCASE | LCMAP_LOWERCASE | LCMAP_SORTKEY |
|
||
NORM_IGNORECASE | NORM_IGNORENONSPACE | SORT_STRINGSORT |
|
||
NORM_IGNOREWIDTH) )
|
||
{
|
||
FIXME(string,"(0x%04lx,0x%08lx,%p,%d,%p,%d): "
|
||
"unimplemented flags: 0x%08lx\n",
|
||
lcid,mapflags,srcstr,srclen,dststr,dstlen,mapflags);
|
||
}
|
||
|
||
if ( !(mapflags & LCMAP_SORTKEY) )
|
||
{
|
||
int (*f)(int)=identity;
|
||
|
||
if (dstlen==0)
|
||
return srclen; /* dstlen=0 means "do nothing but return required length" */
|
||
if (dstlen<srclen)
|
||
srclen=dstlen; /* No, this case is not an error under Windows 95.
|
||
And no '\0' gets written. */
|
||
if (mapflags & LCMAP_UPPERCASE)
|
||
f = toupper;
|
||
else if (mapflags & LCMAP_LOWERCASE)
|
||
f = tolower;
|
||
for (i=0; i < srclen; i++)
|
||
dststr[i] = (CHAR) f(srcstr[i]);
|
||
return srclen;
|
||
}
|
||
|
||
/* else ... (mapflags & LCMAP_SORTKEY) */
|
||
{
|
||
int unicode_len=0;
|
||
int case_len=0;
|
||
int diacritic_len=0;
|
||
int delayed_punctuation_len=0;
|
||
char *case_component;
|
||
char *diacritic_component;
|
||
char *delayed_punctuation_component;
|
||
int room,count;
|
||
int flag_stringsort = mapflags & SORT_STRINGSORT;
|
||
|
||
/* compute how much room we will need */
|
||
for (i=0;i<srclen;i++)
|
||
{
|
||
int ofs;
|
||
unsigned char source_char = srcstr[i];
|
||
if (source_char!='\0')
|
||
{
|
||
if (flag_stringsort || !OLE2NLS_isPunctuation(source_char))
|
||
{
|
||
unicode_len++;
|
||
if ( LCM_Unicode_LUT[-2+2*source_char] & ~15 )
|
||
unicode_len++; /* double letter */
|
||
}
|
||
else
|
||
{
|
||
delayed_punctuation_len++;
|
||
}
|
||
}
|
||
|
||
if (isupper(source_char))
|
||
case_len=unicode_len;
|
||
|
||
ofs = source_char - LCM_Diacritic_Start;
|
||
if ((ofs>=0) && (LCM_Diacritic_LUT[ofs]!=2))
|
||
diacritic_len=unicode_len;
|
||
}
|
||
|
||
if (mapflags & NORM_IGNORECASE)
|
||
case_len=0;
|
||
if (mapflags & NORM_IGNORENONSPACE)
|
||
diacritic_len=0;
|
||
|
||
room = 2 * unicode_len /* "unicode" component */
|
||
+ diacritic_len /* "diacritic" component */
|
||
+ case_len /* "case" component */
|
||
+ 4 * delayed_punctuation_len /* punctuation in word sort mode */
|
||
+ 4 /* four '\1' separators */
|
||
+ 1 ; /* terminal '\0' */
|
||
if (dstlen==0)
|
||
return room;
|
||
else if (dstlen<room)
|
||
{
|
||
SetLastError(ERROR_INSUFFICIENT_BUFFER);
|
||
return 0;
|
||
}
|
||
|
||
/*FIXME the Pointercheck should not be nessesary */
|
||
if (IsBadWritePtr32 (dststr,room))
|
||
{ ERR (string,"bad destination buffer (dststr) : %p,%d\n",dststr,dstlen);
|
||
SetLastError(ERROR_INSUFFICIENT_BUFFER);
|
||
return 0;
|
||
}
|
||
|
||
/* locate each component, write separators */
|
||
diacritic_component = dststr + 2*unicode_len ;
|
||
*diacritic_component++ = '\1';
|
||
case_component = diacritic_component + diacritic_len ;
|
||
*case_component++ = '\1';
|
||
delayed_punctuation_component = case_component + case_len ;
|
||
*delayed_punctuation_component++ = '\1';
|
||
*delayed_punctuation_component++ = '\1';
|
||
|
||
/* read source string char by char, write
|
||
corresponding weight in each component. */
|
||
for (i=0,count=0;i<srclen;i++)
|
||
{
|
||
unsigned char source_char=srcstr[i];
|
||
if (source_char!='\0')
|
||
{
|
||
int type,longcode;
|
||
type = LCM_Unicode_LUT[-2+2*source_char];
|
||
longcode = type >> 4;
|
||
type &= 15;
|
||
if (!flag_stringsort && OLE2NLS_isPunctuation(source_char))
|
||
{
|
||
UINT16 encrypted_location = (1<<15) + 7 + 4*count;
|
||
*delayed_punctuation_component++ = (unsigned char) (encrypted_location>>8);
|
||
*delayed_punctuation_component++ = (unsigned char) (encrypted_location&255);
|
||
/* big-endian is used here because it lets string comparison be
|
||
compatible with numerical comparison */
|
||
|
||
*delayed_punctuation_component++ = type;
|
||
*delayed_punctuation_component++ = LCM_Unicode_LUT[-1+2*source_char];
|
||
/* assumption : a punctuation character is never a
|
||
double or accented letter */
|
||
}
|
||
else
|
||
{
|
||
dststr[2*count] = type;
|
||
dststr[2*count+1] = LCM_Unicode_LUT[-1+2*source_char];
|
||
if (longcode)
|
||
{
|
||
if (count<case_len)
|
||
case_component[count] = ( isupper(source_char) ? 18 : 2 ) ;
|
||
if (count<diacritic_len)
|
||
diacritic_component[count] = 2; /* assumption: a double letter
|
||
is never accented */
|
||
count++;
|
||
|
||
dststr[2*count] = type;
|
||
dststr[2*count+1] = *(LCM_Unicode_LUT_2 - 1 + longcode);
|
||
/* 16 in the first column of LCM_Unicode_LUT --> longcode = 1
|
||
32 in the first column of LCM_Unicode_LUT --> longcode = 2
|
||
48 in the first column of LCM_Unicode_LUT --> longcode = 3 */
|
||
}
|
||
|
||
if (count<case_len)
|
||
case_component[count] = ( isupper(source_char) ? 18 : 2 ) ;
|
||
if (count<diacritic_len)
|
||
{
|
||
int ofs = source_char - LCM_Diacritic_Start;
|
||
diacritic_component[count] = (ofs>=0 ? LCM_Diacritic_LUT[ofs] : 2);
|
||
}
|
||
count++;
|
||
}
|
||
}
|
||
}
|
||
dststr[room-1] = '\0';
|
||
return room;
|
||
}
|
||
}
|
||
|
||
/*************************************************************************
|
||
* LCMapString32W [KERNEL32.493]
|
||
*
|
||
* Convert a string, or generate a sort key from it.
|
||
*
|
||
* NOTE
|
||
*
|
||
* See LCMapString32A for documentation
|
||
*/
|
||
INT32 WINAPI LCMapString32W(
|
||
LCID lcid,DWORD mapflags,LPCWSTR srcstr,INT32 srclen,LPWSTR dststr,
|
||
INT32 dstlen)
|
||
{
|
||
int i;
|
||
|
||
TRACE(string,"(0x%04lx,0x%08lx,%p,%d,%p,%d)\n",
|
||
lcid,mapflags,srcstr,srclen,dststr,dstlen);
|
||
|
||
if ( ((dstlen!=0) && (dststr==NULL)) || (srcstr==NULL) )
|
||
{
|
||
ERR(ole, "(src=%p,dst=%p): Invalid NULL string\n", srcstr, dststr);
|
||
SetLastError(ERROR_INVALID_PARAMETER);
|
||
return 0;
|
||
}
|
||
if (srclen==-1)
|
||
srclen = lstrlen32W(srcstr)+1;
|
||
if (mapflags & LCMAP_SORTKEY)
|
||
{
|
||
FIXME(string,"(0x%04lx,0x%08lx,%p,%d,%p,%d): "
|
||
"unimplemented flags: 0x%08lx\n",
|
||
lcid,mapflags,srcstr,srclen,dststr,dstlen,mapflags);
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
int (*f)(int)=identity;
|
||
|
||
if (dstlen==0)
|
||
return srclen;
|
||
if (dstlen<srclen)
|
||
return 0;
|
||
if (mapflags & LCMAP_UPPERCASE)
|
||
f = toupper;
|
||
else if (mapflags & LCMAP_LOWERCASE)
|
||
f = tolower;
|
||
for (i=0; i < srclen; i++)
|
||
dststr[i] = (WCHAR) f(srcstr[i]);
|
||
return srclen;
|
||
}
|
||
}
|
||
|
||
/***********************************************************************
|
||
* CompareString16 (OLE2NLS.8)
|
||
*/
|
||
UINT16 WINAPI CompareString16(DWORD lcid,DWORD fdwStyle,
|
||
LPCSTR s1,DWORD l1,LPCSTR s2,DWORD l2)
|
||
{
|
||
return (UINT16)CompareString32A(lcid,fdwStyle,s1,l1,s2,l2);
|
||
}
|
||
|
||
/***********************************************************************
|
||
* CompareString32A [KERNEL32.29] Compares two strings using locale
|
||
*
|
||
* RETURNS
|
||
*
|
||
* success: CSTR_LESS_THAN, CSTR_EQUAL, CSTR_GREATER_THAN
|
||
* failure: 0
|
||
*
|
||
* NOTES
|
||
*
|
||
* Defaults to a word sort, but uses a string sort if
|
||
* SORT_STRINGSORT is set.
|
||
* Calls SetLastError for ERROR_INVALID_FLAGS, ERROR_INVALID_PARAMETER.
|
||
*
|
||
* BUGS
|
||
*
|
||
* This implementation ignores the locale
|
||
*
|
||
* FIXME
|
||
*
|
||
* Quite inefficient.
|
||
*/
|
||
UINT32 WINAPI CompareString32A(
|
||
DWORD lcid, /* locale ID */
|
||
DWORD fdwStyle, /* comparison-style options */
|
||
LPCSTR s1, /* first string */
|
||
DWORD l1, /* length of first string */
|
||
LPCSTR s2, /* second string */
|
||
DWORD l2) /* length of second string */
|
||
{
|
||
int mapstring_flags;
|
||
int len1,len2;
|
||
int result;
|
||
LPSTR sk1,sk2;
|
||
TRACE(ole,"%s and %s\n",
|
||
debugstr_a (s1), debugstr_a (s2));
|
||
|
||
if ( (s1==NULL) || (s2==NULL) )
|
||
{
|
||
ERR(ole, "(s1=%s,s2=%s): Invalid NULL string\n", s1, s2);
|
||
SetLastError(ERROR_INVALID_PARAMETER);
|
||
return 0;
|
||
}
|
||
|
||
if(fdwStyle & NORM_IGNORESYMBOLS)
|
||
FIXME(ole, "IGNORESYMBOLS not supported\n");
|
||
|
||
mapstring_flags = LCMAP_SORTKEY | fdwStyle ;
|
||
len1 = LCMapString32A(lcid,mapstring_flags,s1,l1,NULL,0);
|
||
len2 = LCMapString32A(lcid,mapstring_flags,s2,l2,NULL,0);
|
||
|
||
if ((len1==0)||(len2==0))
|
||
return 0; /* something wrong happened */
|
||
|
||
sk1 = (LPSTR)HeapAlloc(GetProcessHeap(),0,len1);
|
||
sk2 = (LPSTR)HeapAlloc(GetProcessHeap(),0,len2);
|
||
if ( (!LCMapString32A(lcid,mapstring_flags,s1,l1,sk1,len1))
|
||
|| (!LCMapString32A(lcid,mapstring_flags,s2,l2,sk2,len2)) )
|
||
{
|
||
ERR(ole,"Bug in LCmapString32A.\n");
|
||
result = 0;
|
||
}
|
||
else
|
||
{
|
||
/* strcmp doesn't necessarily return -1, 0, or 1 */
|
||
result = strcmp(sk1,sk2);
|
||
}
|
||
HeapFree(GetProcessHeap(),0,sk1);
|
||
HeapFree(GetProcessHeap(),0,sk2);
|
||
|
||
if (result < 0)
|
||
return 1;
|
||
if (result == 0)
|
||
return 2;
|
||
|
||
/* must be greater, if we reach this point */
|
||
return 3;
|
||
}
|
||
|
||
/***********************************************************************
|
||
* CompareString32W (KERNEL32.30)
|
||
* This implementation ignores the locale
|
||
* FIXME : Does only string sort. Should
|
||
* be reimplemented the same way as CompareString32A.
|
||
*/
|
||
UINT32 WINAPI CompareString32W(DWORD lcid, DWORD fdwStyle,
|
||
LPCWSTR s1, DWORD l1, LPCWSTR s2,DWORD l2)
|
||
{
|
||
int len,ret;
|
||
if(fdwStyle & NORM_IGNORENONSPACE)
|
||
FIXME(ole,"IGNORENONSPACE not supprted\n");
|
||
if(fdwStyle & NORM_IGNORESYMBOLS)
|
||
FIXME(ole,"IGNORESYMBOLS not supported\n");
|
||
|
||
/* Is strcmp defaulting to string sort or to word sort?? */
|
||
/* FIXME: Handle NORM_STRINGSORT */
|
||
l1 = (l1==-1)?lstrlen32W(s1):l1;
|
||
l2 = (l2==-1)?lstrlen32W(s2):l2;
|
||
len = l1<l2 ? l1:l2;
|
||
ret = (fdwStyle & NORM_IGNORECASE) ?
|
||
lstrncmpi32W(s1,s2,len) : lstrncmp32W(s1,s2,len);
|
||
/* not equal, return 1 or 3 */
|
||
if(ret!=0) return ret+2;
|
||
/* same len, return 2 */
|
||
if(l1==l2) return 2;
|
||
/* the longer one is lexically greater */
|
||
return (l1<l2)? 1 : 3;
|
||
}
|
||
|
||
/*****************************************************************
|
||
*
|
||
* OLE_GetFormatA() [internal]
|
||
|
||
|
||
This function implements stuff for GetDateFormat() and
|
||
GetTimeFormat().
|
||
|
||
d single-digit (no leading zero) day (of month)
|
||
dd two-digit day (of month)
|
||
ddd short day-of-week name
|
||
dddd long day-of-week name
|
||
M single-digit month
|
||
MM two-digit month
|
||
MMM short month name
|
||
MMMM full month name
|
||
y two-digit year, no leading 0
|
||
yy two-digit year
|
||
yyyy four-digit year
|
||
gg era string
|
||
h hours with no leading zero (12-hour)
|
||
hh hours with full two digits
|
||
H hours with no leading zero (24-hour)
|
||
HH hours with full two digits
|
||
m minutes with no leading zero
|
||
mm minutes with full two digits
|
||
s seconds with no leading zero
|
||
ss seconds with full two digits
|
||
t time marker (A or P)
|
||
tt time marker (AM, PM)
|
||
'' used to quote literal characters
|
||
'' (within a quoted string) indicates a literal '
|
||
|
||
These functions REQUIRE valid locale, date, and format.
|
||
|
||
*/
|
||
|
||
INT32 WINAPI OLE_GetFormatA(LCID locale,
|
||
DWORD flags,
|
||
LPSYSTEMTIME xtime,
|
||
LPCSTR format,
|
||
LPSTR date, INT32 datelen)
|
||
{
|
||
INT32 inpos, outpos;
|
||
int count, type, inquote, Overflow;
|
||
char buf[40];
|
||
int buflen;
|
||
|
||
const char * _dgfmt[] = { "%d", "%02d" };
|
||
const char ** dgfmt = _dgfmt - 1;
|
||
|
||
/* report, for debugging */
|
||
TRACE(ole, "func(%8lx,%8lx, time(d=%d,h=%d,m=%d,s=%d), fmt:\'%s\' (at %p), %p (%9s), len=%d)\n", locale, flags,
|
||
xtime->wDay, xtime->wHour, xtime->wMinute, xtime->wSecond,
|
||
format, format, date, date, datelen);
|
||
|
||
/* initalize state variables and output buffer */
|
||
inpos = outpos = 0;
|
||
count = 0; inquote = 0; Overflow = 0;
|
||
type = '\0';
|
||
date[0] = buf[0] = '\0';
|
||
|
||
for (inpos = 0;; inpos++) {
|
||
/* TRACE(ole, "STATE inpos=%2d outpos=%2d count=%d inquote=%d type=%c buf,date = %c,%c\n", inpos, outpos, count, inquote, type, buf[inpos], date[outpos]); */
|
||
if (inquote) {
|
||
if (format[inpos] == '\'') {
|
||
if (format[inpos+1] == '\'') {
|
||
inpos += 1;
|
||
date[outpos++] = '\'';
|
||
} else {
|
||
inquote = 0;
|
||
continue; /* we did nothing to the output */
|
||
}
|
||
} else if (format[inpos] == '\0') {
|
||
date[outpos++] = '\0';
|
||
if (outpos > datelen) Overflow = 1;
|
||
break;
|
||
} else {
|
||
date[outpos++] = format[inpos];
|
||
if (outpos > datelen) {
|
||
Overflow = 1;
|
||
date[outpos-1] = '\0'; /* this is the last place where
|
||
it's safe to write */
|
||
break;
|
||
}
|
||
}
|
||
} else if ( (count && (format[inpos] != type))
|
||
|| count == 4
|
||
|| (count == 2 && strchr("ghHmst", type)) )
|
||
{
|
||
if (type == 'd') {
|
||
if (count == 4) {
|
||
GetLocaleInfo32A(locale,
|
||
LOCALE_SDAYNAME1
|
||
+ xtime->wDayOfWeek - 1,
|
||
buf, sizeof(buf));
|
||
} else if (count == 3) {
|
||
GetLocaleInfo32A(locale,
|
||
LOCALE_SABBREVDAYNAME1
|
||
+ xtime->wDayOfWeek - 1,
|
||
buf, sizeof(buf));
|
||
} else {
|
||
sprintf(buf, dgfmt[count], xtime->wDay);
|
||
}
|
||
} else if (type == 'M') {
|
||
if (count == 3) {
|
||
GetLocaleInfo32A(locale,
|
||
LOCALE_SABBREVMONTHNAME1
|
||
+ xtime->wMonth - 1,
|
||
buf, sizeof(buf));
|
||
} else if (count == 4) {
|
||
GetLocaleInfo32A(locale,
|
||
LOCALE_SMONTHNAME1
|
||
+ xtime->wMonth - 1,
|
||
buf, sizeof(buf));
|
||
} else {
|
||
sprintf(buf, dgfmt[count], xtime->wMonth);
|
||
}
|
||
} else if (type == 'y') {
|
||
if (count == 4) {
|
||
sprintf(buf, "%d", xtime->wYear);
|
||
} else if (count == 3) {
|
||
strcpy(buf, "yyy");
|
||
WARN(ole,
|
||
"unknown format,\
|
||
c=%c, n=%d\n", type, count);
|
||
} else {
|
||
sprintf(buf, dgfmt[count], xtime->wYear % 100);
|
||
}
|
||
} else if (type == 'g') {
|
||
if (count == 2) {
|
||
FIXME(ole, "LOCALE_ICALENDARTYPE unimp.\n");
|
||
strcpy(buf, "AD");
|
||
} else {
|
||
strcpy(buf, "g");
|
||
WARN(ole,
|
||
"unknown format, \
|
||
c=%c, n=%d\n", type, count);
|
||
}
|
||
} else if (type == 'h') {
|
||
/* gives us hours 1:00 -- 12:00 */
|
||
sprintf(buf, dgfmt[count], (xtime->wHour-1)%12 +1);
|
||
} else if (type == 'H') {
|
||
/* 24-hour time */
|
||
sprintf(buf, dgfmt[count], xtime->wHour);
|
||
} else if (type == 'm') {
|
||
sprintf(buf, dgfmt[count], xtime->wMinute);
|
||
} else if (type == 's') {
|
||
sprintf(buf, dgfmt[count], xtime->wSecond);
|
||
} else if (type == 't') {
|
||
if (count == 1) {
|
||
sprintf(buf, "%c", (xtime->wHour < 12) ? 'A' : 'P');
|
||
} else if (count == 2) {
|
||
/* sprintf(buf, "%s", (xtime->wHour < 12) ? "AM" : "PM"); */
|
||
GetLocaleInfo32A(locale,
|
||
(xtime->wHour<12)
|
||
? LOCALE_S1159 : LOCALE_S2359,
|
||
buf, sizeof(buf));
|
||
}
|
||
};
|
||
|
||
/* we need to check the next char in the format string
|
||
again, no matter what happened */
|
||
inpos--;
|
||
|
||
/* add the contents of buf to the output */
|
||
buflen = strlen(buf);
|
||
if (outpos + buflen < datelen) {
|
||
date[outpos] = '\0'; /* for strcat to hook onto */
|
||
strcat(date, buf);
|
||
outpos += buflen;
|
||
} else {
|
||
date[outpos] = '\0';
|
||
strncat(date, buf, datelen - outpos);
|
||
date[datelen - 1] = '\0';
|
||
SetLastError(ERROR_INSUFFICIENT_BUFFER);
|
||
WARN(ole, "insufficient buffer\n");
|
||
return 0;
|
||
}
|
||
|
||
/* reset the variables we used to keep track of this item */
|
||
count = 0;
|
||
type = '\0';
|
||
} else if (format[inpos] == '\0') {
|
||
/* we can't check for this at the loop-head, because
|
||
that breaks the printing of the last format-item */
|
||
date[outpos] = '\0';
|
||
break;
|
||
} else if (count) {
|
||
/* continuing a code for an item */
|
||
count +=1;
|
||
continue;
|
||
} else if (strchr("hHmstyMdg", format[inpos])) {
|
||
type = format[inpos];
|
||
count = 1;
|
||
continue;
|
||
} else if (format[inpos] == '\'') {
|
||
inquote = 1;
|
||
continue;
|
||
} else {
|
||
date[outpos++] = format[inpos];
|
||
}
|
||
/* now deal with a possible buffer overflow */
|
||
if (outpos >= datelen) {
|
||
date[datelen - 1] = '\0';
|
||
SetLastError(ERROR_INSUFFICIENT_BUFFER);
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
if (Overflow) {
|
||
SetLastError(ERROR_INSUFFICIENT_BUFFER);
|
||
};
|
||
|
||
/* finish it off with a string terminator */
|
||
outpos++;
|
||
/* sanity check */
|
||
if (outpos > datelen-1) outpos = datelen-1;
|
||
date[outpos] = '\0';
|
||
|
||
TRACE(ole, "OLE_GetFormatA returns string '%s', len %d\n",
|
||
date, outpos);
|
||
return outpos;
|
||
}
|
||
|
||
/**************************************************************
|
||
* OLE_GetFormatW [internal]
|
||
*/
|
||
INT32 WINAPI OLE_GetFormatW(LCID locale, DWORD flags,
|
||
LPSYSTEMTIME xtime,
|
||
LPCWSTR format,
|
||
LPWSTR output, INT32 outlen)
|
||
{
|
||
INT32 inpos, outpos;
|
||
int count, type=0, inquote;
|
||
int Overflow; /* loop check */
|
||
int usedate, usetime;
|
||
WCHAR buf[40];
|
||
int buflen=0;
|
||
char abuf[40];
|
||
WCHAR arg0[] = {0}, arg1[] = {'%','d',0};
|
||
WCHAR arg2[] = {'%','0','2','d',0};
|
||
WCHAR *argarr[] = {arg0, arg1, arg2};
|
||
int datevars=0, timevars=0;
|
||
|
||
/* make a debug report */
|
||
lstrcpynWtoA(abuf, format, sizeof(format));
|
||
TRACE(ole, "args: %8lx, %8lx, time(d=%d,h=%d,m=%d,s=%d), fmt:\'%s\' (at %p), %p with max len %d\n",
|
||
locale, flags,
|
||
xtime->wDay, xtime->wHour, xtime->wMinute, xtime->wSecond,
|
||
abuf, format, output, outlen);
|
||
|
||
|
||
/* initialize state variables */
|
||
inpos = outpos = 0;
|
||
count = 0;
|
||
inquote = Overflow = 0;
|
||
/* this is really just a sanity check */
|
||
output[0] = buf[0] = 0;
|
||
abuf[0] = '\0';
|
||
/* for compatibility with official Windows behavior */
|
||
usedate = flags & DATE_DATEVARSONLY;
|
||
usetime = flags & TIME_TIMEVARSONLY;
|
||
|
||
/* this loop is the core of the function */
|
||
for (inpos = 0; /* we have several break points */ ; inpos++) {
|
||
if (inquote) {
|
||
if (format[inpos] == (WCHAR) '\'') {
|
||
if (format[inpos+1] == '\'') {
|
||
inpos++;
|
||
output[outpos++] = '\'';
|
||
} else {
|
||
inquote = 0;
|
||
continue;
|
||
}
|
||
} else if (format[inpos] == 0) {
|
||
output[outpos++] = 0;
|
||
if (outpos > outlen) Overflow = 1;
|
||
break; /* normal exit (within a quote) */
|
||
} else {
|
||
output[outpos++] = format[inpos]; /* copy input */
|
||
if (outpos > outlen) {
|
||
Overflow = 1;
|
||
output[outpos-1] = 0;
|
||
break;
|
||
}
|
||
}
|
||
} else if ( (count && (format[inpos] != type))
|
||
|| ( (count==4 && type =='y') ||
|
||
(count==4 && type =='M') ||
|
||
(count==4 && type =='d') ||
|
||
(count==2 && type =='g') ||
|
||
(count==2 && type =='h') ||
|
||
(count==2 && type =='H') ||
|
||
(count==2 && type =='m') ||
|
||
(count==2 && type =='s') ||
|
||
(count==2 && type =='t') ) ) {
|
||
if (type == 'd') {
|
||
if (count == 3) {
|
||
GetLocaleInfo32W(locale,
|
||
LOCALE_SDAYNAME1 + xtime->wDayOfWeek -1,
|
||
buf, sizeof(buf)/sizeof(WCHAR) );
|
||
} else if (count == 3) {
|
||
GetLocaleInfo32W(locale,
|
||
LOCALE_SABBREVDAYNAME1 +
|
||
xtime->wDayOfWeek -1,
|
||
buf, sizeof(buf)/sizeof(WCHAR) );
|
||
} else {
|
||
wsnprintf32W(buf, 5, argarr[count], xtime->wDay );
|
||
};
|
||
} else if (type == 'M') {
|
||
if (count == 4) {
|
||
GetLocaleInfo32W(locale, LOCALE_SMONTHNAME1 +
|
||
xtime->wMonth -1, buf,
|
||
sizeof(buf)/sizeof(WCHAR) );
|
||
} else if (count == 3) {
|
||
GetLocaleInfo32W(locale, LOCALE_SABBREVMONTHNAME1 +
|
||
xtime->wMonth -1, buf,
|
||
sizeof(buf)/sizeof(WCHAR) );
|
||
} else {
|
||
wsnprintf32W(buf, 5, argarr[count], xtime->wMonth);
|
||
}
|
||
} else if (type == 'y') {
|
||
if (count == 4) {
|
||
wsnprintf32W(buf, 6, argarr[1] /* "%d" */,
|
||
xtime->wYear);
|
||
} else if (count == 3) {
|
||
lstrcpynAtoW(buf, "yyy", 5);
|
||
} else {
|
||
wsnprintf32W(buf, 6, argarr[count],
|
||
xtime->wYear % 100);
|
||
}
|
||
} else if (type == 'g') {
|
||
if (count == 2) {
|
||
FIXME(ole, "LOCALE_ICALENDARTYPE unimplemented\n");
|
||
lstrcpynAtoW(buf, "AD", 5);
|
||
} else {
|
||
/* Win API sez we copy it verbatim */
|
||
lstrcpynAtoW(buf, "g", 5);
|
||
}
|
||
} else if (type == 'h') {
|
||
/* hours 1:00-12:00 --- is this right? */
|
||
wsnprintf32W(buf, 5, argarr[count],
|
||
(xtime->wHour-1)%12 +1);
|
||
} else if (type == 'H') {
|
||
wsnprintf32W(buf, 5, argarr[count],
|
||
xtime->wHour);
|
||
} else if (type == 'm') {
|
||
wsnprintf32W(buf, 5, argarr[count],
|
||
xtime->wMinute);
|
||
} else if (type == 's') {
|
||
wsnprintf32W(buf, 5, argarr[count],
|
||
xtime->wSecond);
|
||
} else if (type == 't') {
|
||
GetLocaleInfo32W(locale, (xtime->wHour < 12) ?
|
||
LOCALE_S1159 : LOCALE_S2359,
|
||
buf, sizeof(buf) );
|
||
if (count == 1) {
|
||
buf[1] = 0;
|
||
}
|
||
}
|
||
|
||
/* no matter what happened, we need to check this next
|
||
character the next time we loop through */
|
||
inpos--;
|
||
|
||
/* cat buf onto the output */
|
||
outlen = lstrlen32W(buf);
|
||
if (outpos + buflen < outlen) {
|
||
output[outpos] = 0; /* a "hook" for strcat */
|
||
lstrcat32W(output, buf);
|
||
outpos += buflen;
|
||
} else {
|
||
output[outpos] = 0;
|
||
lstrcatn32W(output, buf, outlen - outpos);
|
||
output[outlen - 1] = 0;
|
||
Overflow = 1;
|
||
break; /* Abnormal exit */
|
||
}
|
||
|
||
/* reset the variables we used this time */
|
||
count = 0;
|
||
type = '\0';
|
||
} else if (format[inpos] == 0) {
|
||
/* we can't check for this at the beginning, because that
|
||
would keep us from printing a format spec that ended the
|
||
string */
|
||
output[outpos] = 0;
|
||
break; /* NORMAL EXIT */
|
||
} else if (count) {
|
||
/* how we keep track of the middle of a format spec */
|
||
count++;
|
||
continue;
|
||
} else if ( (datevars && (format[inpos]=='d' ||
|
||
format[inpos]=='M' ||
|
||
format[inpos]=='y' ||
|
||
format[inpos]=='g') ) ||
|
||
(timevars && (format[inpos]=='H' ||
|
||
format[inpos]=='h' ||
|
||
format[inpos]=='m' ||
|
||
format[inpos]=='s' ||
|
||
format[inpos]=='t') ) ) {
|
||
type = format[inpos];
|
||
count = 1;
|
||
continue;
|
||
} else if (format[inpos] == '\'') {
|
||
inquote = 1;
|
||
continue;
|
||
} else {
|
||
/* unquoted literals */
|
||
output[outpos++] = format[inpos];
|
||
}
|
||
}
|
||
|
||
if (Overflow) {
|
||
SetLastError(ERROR_INSUFFICIENT_BUFFER);
|
||
WARN(ole, " buffer overflow\n");
|
||
};
|
||
|
||
/* final string terminator and sanity check */
|
||
outpos++;
|
||
if (outpos > outlen-1) outpos = outlen-1;
|
||
output[outpos] = '0';
|
||
|
||
lstrcpynWtoA(abuf, output, sizeof(abuf) );
|
||
TRACE(ole, " returning string \'%s\'\n", abuf);
|
||
|
||
return (!Overflow) ? outlen : 0;
|
||
|
||
}
|
||
|
||
|
||
/*****************************************************************
|
||
* GetDateFormat32A() [KERNEL32.310] Makes an ASCII string of the date
|
||
*
|
||
* This function uses format to format the date, or, if format
|
||
* is NULL, uses the default for the locale. format is a string
|
||
* of literal fields and characters as follows:
|
||
*
|
||
* - d single-digit (no leading zero) day (of month)
|
||
* - dd two-digit day (of month)
|
||
* - ddd short day-of-week name
|
||
* - dddd long day-of-week name
|
||
* - M single-digit month
|
||
* - MM two-digit month
|
||
* - MMM short month name
|
||
* - MMMM full month name
|
||
* - y two-digit year, no leading 0
|
||
* - yy two-digit year
|
||
* - yyyy four-digit year
|
||
* - gg era string
|
||
*
|
||
*/
|
||
|
||
INT32 WINAPI GetDateFormat32A(LCID locale,DWORD flags,
|
||
LPSYSTEMTIME xtime,
|
||
LPCSTR format, LPSTR date,INT32 datelen)
|
||
{
|
||
|
||
char format_buf[40];
|
||
LPCSTR thisformat;
|
||
SYSTEMTIME t;
|
||
LPSYSTEMTIME thistime;
|
||
LCID thislocale;
|
||
|
||
INT32 ret;
|
||
|
||
TRACE(ole,"(0x%04lx,0x%08lx,%p,%s,%p,%d)\n",
|
||
locale,flags,xtime,format,date,datelen);
|
||
|
||
if (!locale) {
|
||
locale = LOCALE_SYSTEM_DEFAULT;
|
||
};
|
||
|
||
if (locale == LOCALE_SYSTEM_DEFAULT) {
|
||
thislocale = GetSystemDefaultLCID();
|
||
} else if (locale == LOCALE_USER_DEFAULT) {
|
||
thislocale = GetUserDefaultLCID();
|
||
} else {
|
||
thislocale = locale;
|
||
};
|
||
|
||
if (xtime == NULL) {
|
||
GetSystemTime(&t);
|
||
thistime = &t;
|
||
} else {
|
||
thistime = xtime;
|
||
};
|
||
|
||
if (format == NULL) {
|
||
GetLocaleInfo32A(thislocale, ((flags&DATE_LONGDATE)
|
||
? LOCALE_SLONGDATE
|
||
: LOCALE_SSHORTDATE),
|
||
format_buf, sizeof(format_buf));
|
||
thisformat = format_buf;
|
||
} else {
|
||
thisformat = format;
|
||
};
|
||
|
||
|
||
ret = OLE_GetFormatA(thislocale, flags, thistime, thisformat,
|
||
date, datelen);
|
||
|
||
|
||
TRACE(ole,
|
||
"GetDateFormat32A() returning %d, with data=%s\n",
|
||
ret, date);
|
||
return ret;
|
||
}
|
||
|
||
/* ****************************************************************
|
||
* GetDateFormat32W() [KERNEL32.311] Makes a Unicode string of the date
|
||
*
|
||
* Acts the same as GetDateFormat32A(), except that it's Unicode.
|
||
* Accepts & returns sizes as counts of Unicode characters.
|
||
*
|
||
*/
|
||
INT32 WINAPI GetDateFormat32W(LCID locale,DWORD flags,
|
||
LPSYSTEMTIME xtime,
|
||
LPCWSTR format,
|
||
LPWSTR date, INT32 datelen)
|
||
{
|
||
short datearr[] = {'1','9','9','4','-','1','-','1',0};
|
||
|
||
FIXME(ole, "STUB (should call OLE_GetFormatW)\n");
|
||
lstrcpyn32W(date, datearr, datelen);
|
||
return ( datelen < 9) ? datelen : 9;
|
||
|
||
|
||
}
|
||
|
||
|
||
/**************************************************************************
|
||
* GetNumberFormat32A (KERNEL32.355)
|
||
* NOTE: type of lpFormat should be CONST NUMBERFORMAT
|
||
*/
|
||
INT32 WINAPI GetNumberFormat32A(LCID locale, DWORD dwflags,
|
||
LPCSTR lpvalue, char *lpFormat,
|
||
LPSTR lpNumberStr, int cchNumber)
|
||
{
|
||
int n;
|
||
|
||
FIXME(file,"%s: stub, no reformating done\n",lpvalue);
|
||
|
||
n = strlen(lpvalue);
|
||
if (cchNumber) {
|
||
strncpy(lpNumberStr,lpvalue,cchNumber);
|
||
if (cchNumber <= n) {
|
||
lpNumberStr[cchNumber-1] = 0;
|
||
n = cchNumber-1;
|
||
}
|
||
}
|
||
return n;
|
||
}
|
||
|
||
|
||
|
||
/*****************************************************************
|
||
*
|
||
* GetTimeFormat32A() [KERNEL32.422] Makes an ASCII string of the time
|
||
*
|
||
* Formats date according to format, or locale default if format is
|
||
* NULL. The format consists of literal characters and fields as follows:
|
||
*
|
||
* h hours with no leading zero (12-hour)
|
||
* hh hours with full two digits
|
||
* H hours with no leading zero (24-hour)
|
||
* HH hours with full two digits
|
||
* m minutes with no leading zero
|
||
* mm minutes with full two digits
|
||
* s seconds with no leading zero
|
||
* ss seconds with full two digits
|
||
* t time marker (A or P)
|
||
* tt time marker (AM, PM)
|
||
*
|
||
*/
|
||
|
||
INT32 WINAPI
|
||
GetTimeFormat32A(LCID locale, /* in */
|
||
DWORD flags, /* in */
|
||
LPSYSTEMTIME xtime, /* in */
|
||
LPCSTR format, /* in */
|
||
LPSTR timestr, /* out */
|
||
INT32 timelen /* in */)
|
||
{ char format_buf[40];
|
||
LPCSTR thisformat;
|
||
SYSTEMTIME t;
|
||
LPSYSTEMTIME thistime;
|
||
LCID thislocale=0;
|
||
DWORD thisflags=LOCALE_STIMEFORMAT; /* standart timeformat */;
|
||
|
||
TRACE(ole,"GetTimeFormat(0x%04lx,0x%08lx,%p,%s,%p,%d)\n",locale,flags,xtime,format,timestr,timelen);
|
||
if (!locale)
|
||
{ locale = LOCALE_SYSTEM_DEFAULT;
|
||
}
|
||
|
||
if (locale == LOCALE_SYSTEM_DEFAULT)
|
||
{ thislocale = GetSystemDefaultLCID();
|
||
}
|
||
else if (locale == LOCALE_USER_DEFAULT)
|
||
{ thislocale = GetUserDefaultLCID();
|
||
}
|
||
else
|
||
{ thislocale = locale;
|
||
}
|
||
if (format == NULL)
|
||
{ if (flags&LOCALE_NOUSEROVERRIDE) /*use system default*/
|
||
{ thislocale = GetSystemDefaultLCID();
|
||
}
|
||
switch (flags)
|
||
{ case TIME_NOSECONDS:
|
||
FIXME(ole,"TIME_NOSECONDS not yet implemented");
|
||
break;
|
||
case TIME_NOMINUTESORSECONDS:
|
||
FIXME(ole,"TIME_NOMINUTESORSECONDS not yet implemented");
|
||
break;
|
||
}
|
||
GetLocaleInfo32A(thislocale, thisflags, format_buf,sizeof(format_buf));
|
||
thisformat = format_buf;
|
||
}
|
||
else
|
||
{ thisformat = format;
|
||
}
|
||
|
||
if (!locale)
|
||
{ locale = GetSystemDefaultLCID();
|
||
}
|
||
if (xtime == NULL) /* NULL means use the current local time*/
|
||
{ GetSystemTime(&t);
|
||
thistime = &t;
|
||
}
|
||
else
|
||
{ thistime = xtime;
|
||
}
|
||
return OLE_GetFormatA(thislocale, thisflags, thistime, thisformat,timestr, timelen);
|
||
}
|
||
|
||
|
||
/* ****************************************************************
|
||
* GetTimeFormat32W() [KERNEL32.423] Makes a Unicode string of the time
|
||
*
|
||
*
|
||
*/
|
||
|
||
INT32 WINAPI
|
||
GetTimeFormat32W(LCID locale,DWORD flags,
|
||
LPSYSTEMTIME xtime,
|
||
LPCWSTR format,
|
||
LPWSTR timestr,INT32 timelen)
|
||
{
|
||
char debugbuf[40];
|
||
WCHAR buf[20];
|
||
LPCWSTR realformat=0;
|
||
SYSTEMTIME t;
|
||
LPSYSTEMTIME realtime;
|
||
WCHAR * fmt_buf = NULL;
|
||
int fmt_buf_size = 0; /* units of WCHARs */
|
||
INT32 retval;
|
||
|
||
lstrcpynWtoA(debugbuf, format, (sizeof(buf))/2);
|
||
TRACE(ole, "GetTimeFormatW len %d flags 0x%lX format >%s<\n",
|
||
timelen, flags, debugbuf);
|
||
|
||
/* Enforce the Windows behavior */
|
||
flags |= ~LOCALE_TIMEDATEBOTH;
|
||
flags |= TIME_TIMEVARSONLY;
|
||
|
||
/* take care of the format or locale not being given */
|
||
if (format) {
|
||
realformat = format;
|
||
} else if (locale) {
|
||
/* allocate memory */
|
||
retval = ERROR_INSUFFICIENT_BUFFER;
|
||
fmt_buf = malloc((fmt_buf_size+=7) * sizeof(WCHAR));
|
||
if (!fmt_buf)
|
||
goto out_nomem;
|
||
|
||
while(!GetLocaleInfo32W(locale, LOCALE_STIMEFORMAT,
|
||
fmt_buf, fmt_buf_size)) {
|
||
retval = ERROR_OUTOFMEMORY;
|
||
fmt_buf = realloc(fmt_buf,
|
||
(fmt_buf_size += 10) * sizeof(WCHAR));
|
||
if (!fmt_buf)
|
||
goto out_nomem;
|
||
}
|
||
realformat = fmt_buf;
|
||
} else {
|
||
FIXME(ole, "caller gave no locale, no format; what should we do?\n");
|
||
SetLastError(ERROR_BAD_FORMAT);
|
||
}
|
||
if (!locale)
|
||
locale = GetSystemDefaultLCID();
|
||
|
||
realtime = xtime;
|
||
if (!realtime) {
|
||
realtime = &t;
|
||
GetSystemTime(realtime);
|
||
}
|
||
|
||
retval = OLE_GetFormatW(locale, flags, realtime, realformat, timestr, timelen);
|
||
if (fmt_buf)
|
||
free(fmt_buf);
|
||
return retval;
|
||
|
||
out_nomem:
|
||
SetLastError(retval);
|
||
WARN(ole, "could not allocate %d chars of memory\n", fmt_buf_size);
|
||
return 0;
|
||
}
|