git.oblomov.eu Git - wine/blob - misc/main.c

   1 /*
   2  * Main function.
   3  *
   4  * Copyright 1994 Alexandre Julliard
   5  */
   6
   7 #include "config.h"
   8
   9 #ifndef X_DISPLAY_MISSING
  10 #include "x11drv.h"
  11 #else /* !defined(X_DISPLAY_MISSING) */
  12 #include "ttydrv.h"
  13 #endif /* !defined(X_DISPLAY_MISSING) */
  14
  15 #include <locale.h>
  16 #include <ctype.h>
  17 #include <stdlib.h>
  18 #include <string.h>
  19 #include <unistd.h>
  20 #ifdef MALLOC_DEBUGGING
  21 # include <malloc.h>
  22 #endif
  23
  24 #include "winbase.h"
  25 #include "winsock.h"
  26 #include "heap.h"
  27 #include "message.h"
  28 #include "msdos.h"
  29 #include "color.h"
  30 #include "options.h"
  31 #include "desktop.h"
  32 #include "builtin32.h"
  33 #include "debugtools.h"
  34 #include "debugdefs.h"
  35 #include "xmalloc.h"
  36 #include "module.h"
  37 #include "version.h"
  38 #include "winnls.h"
  39 #include "console.h"
  40 #include "monitor.h"
  41 #include "keyboard.h"
  42 #include "gdi.h"
  43 #include "user.h"
  44 #include "windef.h"
  45 #include "wingdi.h"
  46 #include "wine/winuser16.h"
  47 #include "tweak.h"
  48 #include "winerror.h"
  49
  50 /**********************************************************************/
  51
  52 USER_DRIVER *USER_Driver = NULL;
  53
  54 /* when adding new languages look at ole/ole2nls.c
  55  * for proper iso name and Windows code (add 0x0400
  56  * to the code listed there)
  57  */
  58 const WINE_LANGUAGE_DEF Languages[] =
  59 {
  60     {"En",0x0409},      /* LANG_En */
  61     {"Es",0x040A},      /* LANG_Es */
  62     {"De",0x0407},      /* LANG_De */
  63     {"No",0x0414},      /* LANG_No */
  64     {"Fr",0x040C},      /* LANG_Fr */
  65     {"Fi",0x040B},      /* LANG_Fi */
  66     {"Da",0x0406},      /* LANG_Da */
  67     {"Cs",0x0405},      /* LANG_Cs */
  68     {"Eo",0x048f},      /* LANG_Eo */
  69     {"It",0x0410},      /* LANG_It */
  70     {"Ko",0x0412},      /* LANG_Ko */
  71     {"Hu",0x040e},      /* LANG_Hu */
  72     {"Pl",0x0415},      /* LANG_Pl */
  73     {"Pt",0x0416},      /* LANG_Pt */
  74     {"Sk",0x041b},      /* LANG_Sk */
  75     {"Sv",0x041d},      /* LANG_Sv */
  76     {"Ca",0x0403},      /* LANG_Ca */
  77     {"Nl",0x0413},      /* LANG_Nl */
  78     {"Ru",0x0419},      /* LANG_Ru */
  79     {"Wa",0x0490},      /* LANG_Wa */
  80     {"Ga",0x043c},      /* LANG_Ga */
  81     {"Gd",0x083c},      /* LANG_Gd */
  82     {"Gv",0x0c3c},      /* LANG_Gv */
  83     {"Kw",0x0491},      /* LANG_Kw */
  84     {"Cy",0x0492},      /* LANG_Cy */
  85     {"Br",0x0493},      /* LANG_Br  */
  86     {"Ja",0x0411},      /* LANG_Ja */
  87     {NULL,0}
  88 };
  89
  90 WORD WINE_LanguageId = 0x409;   /* english as default */
  91
  92 struct options Options =
  93 {  /* default options */
  94     0,              /* argc */
  95     NULL,           /* argv */
  96     NULL,           /* desktopGeometry */
  97     NULL,           /* display */
  98     NULL,           /* dllFlags */
  99     FALSE,          /* synchronous */
 100     FALSE,          /* debug */
 101     FALSE,          /* failReadOnly */
 102     0,              /* language */
 103     FALSE,          /* Managed windows */
 104     NULL            /* Alternate config file name */
 105 };
 106
 107 const char *argv0;
 108
 109 /***********************************************************************
 110  *          MAIN_ParseDebugOptions
 111  *
 112  *  Turns specific debug messages on or off, according to "options".
 113  */
 114 void MAIN_ParseDebugOptions( const char *arg )
 115 {
 116   /* defined in relay32/relay386.c */
 117   extern char **debug_relay_includelist;
 118   extern char **debug_relay_excludelist;
 119   /* defined in relay32/snoop.c */
 120   extern char **debug_snoop_includelist;
 121   extern char **debug_snoop_excludelist;
 122
 123   int i;
 124   int l, cls, dotracerelay = TRACE_ON(relay);
 125
 126   char *options = strdup(arg);
 127
 128   l = strlen(options);
 129   if (l<2) goto error;
 130
 131   if (options[l-1]=='\n') options[l-1]='\0';
 132   do
 133   {
 134     if ((*options!='+')&&(*options!='-')){
 135       int j;
 136
 137       for(j=0; j<DEBUG_CLASS_COUNT; j++)
 138         if(!lstrncmpiA(options, debug_cl_name[j], strlen(debug_cl_name[j])))
 139           break;
 140       if(j==DEBUG_CLASS_COUNT)
 141         goto error;
 142       options += strlen(debug_cl_name[j]);
 143       if ((*options!='+')&&(*options!='-'))
 144         goto error;
 145       cls = j;
 146     }
 147     else
 148       cls = -1; /* all classes */
 149
 150     if (strchr(options,','))
 151       l=strchr(options,',')-options;
 152     else
 153       l=strlen(options);
 154
 155     if (!lstrncmpiA(options+1,"all",l-1))
 156       {
 157         int i, j;
 158         for (i=0; i<DEBUG_CHANNEL_COUNT; i++)
 159           for(j=0; j<DEBUG_CLASS_COUNT; j++)
 160             if(cls == -1 || cls == j)
 161                 __SET_DEBUGGING( j, debug_channels[i], (*options=='+') );
 162       }
 163     else if (!lstrncmpiA(options+1, "relay=", 6) ||
 164              !lstrncmpiA(options+1, "snoop=", 6))
 165       {
 166         int i, j;
 167         char *s, *s2, ***output, c;
 168
 169         for (i=0; i<DEBUG_CHANNEL_COUNT; i++)
 170           if (!strncasecmp( debug_channels[i] + 1, options + 1, 5))
 171           {
 172             for(j=0; j<DEBUG_CLASS_COUNT; j++)
 173               if(cls == -1 || cls == j)
 174                   __SET_DEBUGGING( j, debug_channels[i], 1 );
 175             break;
 176           }
 177         /* should never happen, maybe assert(i!=DEBUG_CHANNEL_COUNT)? */
 178         if (i==DEBUG_CHANNEL_COUNT)
 179           goto error;
 180         output = (*options == '+') ?
 181                         ((*(options+1) == 'r') ?
 182                                 &debug_relay_includelist :
 183                                 &debug_snoop_includelist) :
 184                         ((*(options+1) == 'r') ?
 185                                 &debug_relay_excludelist :
 186                                 &debug_snoop_excludelist);
 187         s = options + 7;
 188         /* if there are n ':', there are n+1 modules, and we need n+2 slots
 189          * last one being for the sentinel (NULL) */
 190         i = 2;
 191         while((s = strchr(s, ':'))) i++, s++;
 192         *output = malloc(sizeof(char **) * i);
 193         i = 0;
 194         s = options + 7;
 195         while((s2 = strchr(s, ':'))) {
 196           c = *s2;
 197           *s2 = '\0';
 198           *((*output)+i) = CharUpperA(strdup(s));
 199           *s2 = c;
 200           s = s2 + 1;
 201           i++;
 202         }
 203         c = *(options + l);
 204         *(options + l) = '\0';
 205         *((*output)+i) = CharUpperA(strdup(s));
 206         *(options + l) = c;
 207         *((*output)+i+1) = NULL;
 208       }
 209     else
 210       {
 211         int i, j;
 212         for (i=0; i<DEBUG_CHANNEL_COUNT; i++)
 213           if (!strncasecmp( debug_channels[i] + 1, options + 1, l - 1) && !debug_channels[i][l])
 214           {
 215             for(j=0; j<DEBUG_CLASS_COUNT; j++)
 216               if(cls == -1 || cls == j)
 217                   __SET_DEBUGGING( j, debug_channels[i], (*options=='+') );
 218             break;
 219           }
 220         if (i==DEBUG_CHANNEL_COUNT)
 221           goto error;
 222       }
 223     options+=l;
 224   }
 225   while((*options==',')&&(*(++options)));
 226
 227   /* special handling for relay debugging */
 228   if (dotracerelay != TRACE_ON(relay))
 229         BUILTIN32_SwitchRelayDebug( TRACE_ON(relay) );
 230
 231   if (!*options) return;
 232
 233  error:
 234   MESSAGE("%s: Syntax: -debugmsg [class]+xxx,...  or "
 235       "-debugmsg [class]-xxx,...\n",argv0);
 236   MESSAGE("Example: -debugmsg +all,warn-heap\n"
 237       "  turn on all messages except warning heap messages\n");
 238   MESSAGE("Special case: -debugmsg +relay=DLL:DLL.###:FuncName\n"
 239       "  turn on -debugmsg +relay only as specified\n"
 240       "Special case: -debugmsg -relay=DLL:DLL.###:FuncName\n"
 241       "  turn on -debugmsg +relay except as specified\n"
 242       "Also permitted, +snoop=..., -snoop=... as with relay.\n\n");
 243
 244   MESSAGE("Available message classes:\n");
 245   for(i=0;i<DEBUG_CLASS_COUNT;i++)
 246     MESSAGE( "%-9s", debug_cl_name[i]);
 247   MESSAGE("\n\n");
 248
 249   MESSAGE("Available message types:\n");
 250   MESSAGE("%-9s ","all");
 251   for(i=0;i<DEBUG_CHANNEL_COUNT;i++)
 252       MESSAGE("%-9s%c",debug_channels[i] + 1,
 253           (((i+2)%8==0)?'\n':' '));
 254   MESSAGE("\n\n");
 255   ExitProcess(1);
 256 }
 257
 258 /***********************************************************************
 259  *           MAIN_GetLanguageID
 260  *
 261  * INPUT:
 262  *      Lang: a string whose two first chars are the iso name of a language.
 263  *      Country: a string whose two first chars are the iso name of country
 264  *      Charset: a string defining the chossen charset encoding
 265  *      Dialect: a string defining a variation of the locale
 266  *
 267  *      all those values are from the standardized format of locale
 268  *      name in unix which is: Lang[_Country][.Charset][@Dialect]
 269  *
 270  * RETURNS:
 271  *      the numeric code of the language used by Windows (or 0x00)
 272  */
 273 int MAIN_GetLanguageID(LPCSTR Lang,LPCSTR Country,LPCSTR Charset,LPCSTR Dialect)
 274 {
 275     char lang[3]="??", country[3]={0,0,0};
 276     char *charset=NULL, *dialect=NULL;
 277     int i,j,ret=0;
 278
 279     if (Lang==NULL) return 0x00;
 280     if (Lang[0]) lang[0]=tolower(Lang[0]);
 281     if (Lang[1]) lang[1]=tolower(Lang[1]);
 282
 283     if (Country!=NULL) {
 284         if (Country[0]) country[0]=toupper(Country[0]);
 285         if (Country[1]) country[1]=toupper(Country[1]);
 286     }
 287
 288     if (Charset!=NULL) {
 289         j=strlen(Charset);
 290         charset=(char*)malloc(j+1);
 291         for (i=0;i<j;i++)
 292             charset[i]=toupper(Charset[i]);
 293         charset[i]='\0';
 294     }
 295
 296     if (Dialect!=NULL) {
 297         j=strlen(Dialect);
 298         dialect=(char*)malloc(j+1);
 299         for (i=0;i<j;i++)
 300             dialect[i]=tolower(Dialect[i]);
 301         dialect[i]='\0';
 302     } else {
 303         dialect = malloc(1);
 304         dialect[0] = '\0';
 305     }
 306
 307 #define LANG_ENTRY_BEGIN(x,y)   if(!strcmp(lang, x )) { \
 308                                     if (!country[0]) { \
 309                                         ret=LANG_##y ; \
 310                                         goto end_MAIN_GetLanguageID; \
 311                                     }
 312 #define LANG_SUB_ENTRY(x,y,z)       if (!strcmp(country, x )) \
 313                                         ret = MAKELANGID( LANG_##y , SUBLANG_##z ); \
 314                                         goto end_MAIN_GetLanguageID;
 315 #define LANG_DIALECT_ENTRY(x,y)     { ret = MAKELANGID(LANG_##x , SUBLANG_##y ); \
 316                                     goto end_MAIN_GetLanguageID; }
 317 #define LANG_ENTRY_END(x)           ret = MAKELANGID(LANG_##x , SUBLANG_DEFAULT); \
 318                                     goto end_MAIN_GetLanguageID; \
 319                                 }
 320
 321 /*x01*/ LANG_ENTRY_BEGIN( "ar", ARABIC )
 322         LANG_SUB_ENTRY( "SA", ARABIC, ARABIC)
 323         LANG_SUB_ENTRY( "IQ", ARABIC, ARABIC_IRAQ )
 324         LANG_SUB_ENTRY( "EG", ARABIC, ARABIC_EGYPT )
 325         LANG_SUB_ENTRY( "LY", ARABIC, ARABIC_LIBYA )
 326         LANG_SUB_ENTRY( "DZ", ARABIC, ARABIC_ALGERIA )
 327         LANG_SUB_ENTRY( "MA", ARABIC, ARABIC_MOROCCO )
 328         LANG_SUB_ENTRY( "TN", ARABIC, ARABIC_TUNISIA )
 329         LANG_SUB_ENTRY( "OM", ARABIC, ARABIC_OMAN )
 330         LANG_SUB_ENTRY( "YE", ARABIC, ARABIC_YEMEN )
 331         LANG_SUB_ENTRY( "SY", ARABIC, ARABIC_SYRIA )
 332         LANG_SUB_ENTRY( "JO", ARABIC, ARABIC_JORDAN )
 333         LANG_SUB_ENTRY( "LB", ARABIC, ARABIC_LEBANON )
 334         LANG_SUB_ENTRY( "KW", ARABIC, ARABIC_KUWAIT )
 335         LANG_SUB_ENTRY( "AE", ARABIC, ARABIC_UAE )
 336         LANG_SUB_ENTRY( "BH", ARABIC, ARABIC_BAHRAIN )
 337         LANG_SUB_ENTRY( "QA", ARABIC, ARABIC_QATAR )
 338         LANG_ENTRY_END( ARABIC )
 339 /*x02*/ LANG_ENTRY_BEGIN( "bu", BULGARIAN )
 340         LANG_ENTRY_END( BULGARIAN )
 341 /*x03*/ LANG_ENTRY_BEGIN( "ca", CATALAN )
 342         LANG_ENTRY_END( CATALAN )
 343 /*x04*/ LANG_ENTRY_BEGIN( "zh", CHINESE )
 344         LANG_SUB_ENTRY( "TW", CHINESE, CHINESE_TRADITIONAL )
 345         LANG_SUB_ENTRY( "CN", CHINESE, CHINESE_SIMPLIFIED )
 346         LANG_SUB_ENTRY( "HK", CHINESE, CHINESE_HONGKONG )
 347         LANG_SUB_ENTRY( "SG", CHINESE, CHINESE_SINGAPORE )
 348         LANG_SUB_ENTRY( "MO", CHINESE, CHINESE_MACAU )
 349         LANG_ENTRY_END( CHINESE )
 350 /*x05*/ LANG_ENTRY_BEGIN( "cs", CZECH )
 351         LANG_ENTRY_END( CZECH )
 352 /*x06*/ LANG_ENTRY_BEGIN( "da", DANISH )
 353         LANG_ENTRY_END( DANISH )
 354 /*x07*/ LANG_ENTRY_BEGIN( "de", GERMAN )
 355         LANG_SUB_ENTRY( "DE", GERMAN, GERMAN )
 356         LANG_SUB_ENTRY( "CH", GERMAN, GERMAN_SWISS )
 357         LANG_SUB_ENTRY( "AT", GERMAN, GERMAN_AUSTRIAN )
 358         LANG_SUB_ENTRY( "LU", GERMAN, GERMAN_LUXEMBOURG )
 359         LANG_SUB_ENTRY( "LI", GERMAN, GERMAN_LIECHTENSTEIN )
 360         LANG_ENTRY_END( GERMAN )
 361 /*x08*/ LANG_ENTRY_BEGIN( "el", GREEK )
 362         LANG_ENTRY_END( GREEK )
 363 /*x09*/ LANG_ENTRY_BEGIN( "en", ENGLISH )
 364         LANG_SUB_ENTRY( "US", ENGLISH, ENGLISH_US )
 365         LANG_SUB_ENTRY( "UK", ENGLISH, ENGLISH_UK )
 366         LANG_SUB_ENTRY( "AU", ENGLISH, ENGLISH_AUS )
 367         LANG_SUB_ENTRY( "CA", ENGLISH, ENGLISH_CAN )
 368         LANG_SUB_ENTRY( "NZ", ENGLISH, ENGLISH_NZ )
 369         LANG_SUB_ENTRY( "EI", ENGLISH, ENGLISH_EIRE )
 370         LANG_SUB_ENTRY( "ZA", ENGLISH, ENGLISH_SAFRICA )
 371         LANG_SUB_ENTRY( "JM", ENGLISH, ENGLISH_JAMAICA )
 372      /* LANG_SUB_ENTRY( "AG", ENGLISH, ENGLISH_CARIBBEAN ) */
 373         LANG_SUB_ENTRY( "BZ", ENGLISH, ENGLISH_BELIZE )
 374         LANG_SUB_ENTRY( "TT", ENGLISH, ENGLISH_TRINIDAD )
 375         LANG_SUB_ENTRY( "ZW", ENGLISH, ENGLISH_ZIMBABWE )
 376         LANG_SUB_ENTRY( "PH", ENGLISH, ENGLISH_PHILIPPINES )
 377         LANG_ENTRY_END( ENGLISH )
 378 /*x0a*/ LANG_ENTRY_BEGIN( "es", SPANISH )
 379         /* traditional sorting */
 380         if (!strcmp(dialect,"tradicional"))
 381                 LANG_DIALECT_ENTRY( SPANISH, SPANISH )
 382         LANG_SUB_ENTRY( "MX", SPANISH, SPANISH_MEXICAN )
 383         LANG_SUB_ENTRY( "ES", SPANISH, SPANISH_MODERN )
 384         LANG_SUB_ENTRY( "GT", SPANISH, SPANISH_GUATEMALA )
 385         LANG_SUB_ENTRY( "CR", SPANISH, SPANISH_COSTARICA )
 386         LANG_SUB_ENTRY( "PA", SPANISH, SPANISH_PANAMA )
 387         LANG_SUB_ENTRY( "DO", SPANISH, SPANISH_DOMINICAN )
 388         LANG_SUB_ENTRY( "VE", SPANISH, SPANISH_VENEZUELA )
 389         LANG_SUB_ENTRY( "CO", SPANISH, SPANISH_COLOMBIA )
 390         LANG_SUB_ENTRY( "PE", SPANISH, SPANISH_PERU )
 391         LANG_SUB_ENTRY( "AR", SPANISH, SPANISH_ARGENTINA )
 392         LANG_SUB_ENTRY( "EC", SPANISH, SPANISH_ECUADOR )
 393         LANG_SUB_ENTRY( "CL", SPANISH, SPANISH_CHILE )
 394         LANG_SUB_ENTRY( "UY", SPANISH, SPANISH_URUGUAY )
 395         LANG_SUB_ENTRY( "PY", SPANISH, SPANISH_PARAGUAY )
 396         LANG_SUB_ENTRY( "BO", SPANISH, SPANISH_BOLIVIA )
 397         LANG_SUB_ENTRY( "HN", SPANISH, SPANISH_HONDURAS )
 398         LANG_SUB_ENTRY( "NI", SPANISH, SPANISH_NICARAGUA )
 399         LANG_SUB_ENTRY( "PR", SPANISH, SPANISH_PUERTO_RICO )
 400         LANG_ENTRY_END( SPANISH )
 401 /*x0b*/ LANG_ENTRY_BEGIN( "fi", FINNISH )
 402         LANG_ENTRY_END( FINNISH )
 403 /*x0c*/ LANG_ENTRY_BEGIN( "fr", FRENCH )
 404         LANG_SUB_ENTRY( "FR", FRENCH, FRENCH )
 405         LANG_SUB_ENTRY( "BE", FRENCH, FRENCH_BELGIAN )
 406         LANG_SUB_ENTRY( "CA", FRENCH, FRENCH_CANADIAN )
 407         LANG_SUB_ENTRY( "CH", FRENCH, FRENCH_SWISS )
 408         LANG_SUB_ENTRY( "LU", FRENCH, FRENCH_LUXEMBOURG )
 409         LANG_SUB_ENTRY( "MC", FRENCH, FRENCH_MONACO )
 410         LANG_ENTRY_END( FRENCH )
 411 /*x0d*/ LANG_ENTRY_BEGIN( "iw", HEBREW )
 412         LANG_ENTRY_END( HEBREW )
 413 /*x0e*/ LANG_ENTRY_BEGIN( "hu", HUNGARIAN )
 414         LANG_ENTRY_END( HUNGARIAN )
 415 /*x0f*/ LANG_ENTRY_BEGIN( "ic", ICELANDIC )
 416         LANG_ENTRY_END( ICELANDIC )
 417 /*x10*/ LANG_ENTRY_BEGIN( "it", ITALIAN )
 418         LANG_SUB_ENTRY( "IT", ITALIAN, ITALIAN )
 419         LANG_SUB_ENTRY( "CH", ITALIAN, ITALIAN_SWISS )
 420         LANG_ENTRY_END( ITALIAN )
 421 /*x11*/ LANG_ENTRY_BEGIN( "ja", JAPANESE )
 422         LANG_ENTRY_END( JAPANESE )
 423 /*x12*/ LANG_ENTRY_BEGIN( "ko", KOREAN )
 424         /* JOHAB encoding */
 425         if (!strcmp(charset,"JOHAB"))
 426                 LANG_DIALECT_ENTRY( KOREAN, KOREAN_JOHAB )
 427         else
 428                 LANG_DIALECT_ENTRY( KOREAN, KOREAN )
 429         LANG_ENTRY_END( KOREAN )
 430 /*x13*/ LANG_ENTRY_BEGIN( "nl", DUTCH )
 431         LANG_SUB_ENTRY( "NL", DUTCH, DUTCH )
 432         LANG_SUB_ENTRY( "BE", DUTCH, DUTCH_BELGIAN )
 433         LANG_SUB_ENTRY( "SR", DUTCH, DUTCH_SURINAM )
 434         LANG_ENTRY_END( DUTCH )
 435 /*x14*/ LANG_ENTRY_BEGIN( "no", NORWEGIAN )
 436         /* nynorsk */
 437         if (!strcmp(dialect,"nynorsk"))
 438                 LANG_DIALECT_ENTRY( NORWEGIAN, NORWEGIAN_NYNORSK )
 439         else
 440                 LANG_DIALECT_ENTRY( NORWEGIAN, NORWEGIAN_BOKMAL )
 441         LANG_ENTRY_END( NORWEGIAN )
 442 /*x15*/ LANG_ENTRY_BEGIN( "pl", POLISH )
 443         LANG_ENTRY_END( POLISH )
 444 /*x16*/ LANG_ENTRY_BEGIN( "pt", PORTUGUESE )
 445         LANG_SUB_ENTRY( "BR", PORTUGUESE, PORTUGUESE_BRAZILIAN )
 446         LANG_SUB_ENTRY( "PT", PORTUGUESE, PORTUGUESE )
 447         LANG_ENTRY_END( PORTUGUESE )
 448 /*x17*/ LANG_ENTRY_BEGIN( "rm", RHAETO_ROMANCE )
 449         LANG_ENTRY_END( RHAETO_ROMANCE )
 450 /*x18*/ LANG_ENTRY_BEGIN( "ro", ROMANIAN )
 451         LANG_SUB_ENTRY( "RO", ROMANIAN, ROMANIAN )
 452         LANG_SUB_ENTRY( "MD", ROMANIAN, ROMANIAN_MOLDAVIA )
 453         LANG_ENTRY_END( ROMANIAN )
 454 /*x19*/ LANG_ENTRY_BEGIN( "ru", RUSSIAN )
 455         LANG_SUB_ENTRY( "RU", RUSSIAN, RUSSIAN )
 456         LANG_SUB_ENTRY( "MD", RUSSIAN, RUSSIAN_MOLDAVIA )
 457         LANG_ENTRY_END( RUSSIAN )
 458 /*x1a*/ if (!strcmp(lang,"sh") || !strcmp(lang,"hr") || !strcmp(lang,"sr")) {
 459             if (!country[0])
 460                 LANG_DIALECT_ENTRY( SERBO_CROATIAN, NEUTRAL)
 461             if (!strcmp(charset,"ISO-8859-5"))
 462                 LANG_DIALECT_ENTRY( SERBO_CROATIAN, SERBIAN )
 463             LANG_SUB_ENTRY( "HR", SERBO_CROATIAN, CROATIAN )
 464             if (!strcmp(country,"YU") && !strcmp(charset,"ISO-8859-2"))
 465                 LANG_DIALECT_ENTRY( SERBO_CROATIAN, SERBIAN_LATIN )
 466             LANG_SUB_ENTRY( "YU", SERBO_CROATIAN, SERBIAN )
 467             LANG_DIALECT_ENTRY( SERBO_CROATIAN, SERBIAN_LATIN )
 468         }
 469 /*x1b*/ LANG_ENTRY_BEGIN( "sk", SLOVAK )
 470         LANG_ENTRY_END( SLOVAK )
 471 /*x1c*/ LANG_ENTRY_BEGIN( "sq", ALBANIAN )
 472         LANG_ENTRY_END( ALBANIAN )
 473 /*x1d*/ LANG_ENTRY_BEGIN( "sv", SWEDISH )
 474         LANG_SUB_ENTRY( "SE", SWEDISH, SWEDISH )
 475         LANG_SUB_ENTRY( "FI", SWEDISH, SWEDISH_FINLAND )
 476         LANG_ENTRY_END( SWEDISH )
 477 /*x1e*/ LANG_ENTRY_BEGIN( "th", THAI )
 478         LANG_ENTRY_END( THAI )
 479 /*x1f*/ LANG_ENTRY_BEGIN( "tr", TURKISH )
 480         LANG_ENTRY_END( TURKISH )
 481 /*x20*/ LANG_ENTRY_BEGIN( "ur", URDU )
 482         LANG_ENTRY_END( URDU )
 483 /*x21*/ LANG_ENTRY_BEGIN( "in", INDONESIAN )
 484         LANG_ENTRY_END( INDONESIAN )
 485 /*x22*/ LANG_ENTRY_BEGIN( "uk", UKRAINIAN )
 486         LANG_ENTRY_END( UKRAINIAN )
 487 /*x23*/ LANG_ENTRY_BEGIN( "be", BYELORUSSIAN )
 488         LANG_ENTRY_END( BYELORUSSIAN )
 489 /*x24*/ LANG_ENTRY_BEGIN( "sl", SLOVENIAN )
 490         LANG_ENTRY_END( SLOVENIAN )
 491 /*x25*/ LANG_ENTRY_BEGIN( "et", ESTONIAN )
 492         LANG_ENTRY_END( ESTONIAN )
 493 /*x26*/ LANG_ENTRY_BEGIN( "lv", LATVIAN )
 494         LANG_ENTRY_END( LATVIAN )
 495 /*x27*/ LANG_ENTRY_BEGIN( "lt", LITHUANIAN )
 496         /* traditional sorting ? */
 497         if (!strcmp(dialect,"classic") || !strcmp(dialect,"traditional"))
 498                 LANG_DIALECT_ENTRY( LITHUANIAN, LITHUANIAN_CLASSIC )
 499         else
 500                 LANG_DIALECT_ENTRY( LITHUANIAN, LITHUANIAN )
 501         LANG_ENTRY_END( LITHUANIAN )
 502 /*x28*/ LANG_ENTRY_BEGIN( "mi", MAORI )
 503         LANG_ENTRY_END( MAORI )
 504 /*x29*/ LANG_ENTRY_BEGIN( "fa", FARSI )
 505         LANG_ENTRY_END( FARSI )
 506 /*x2a*/ LANG_ENTRY_BEGIN( "vi", VIETNAMESE )
 507         LANG_ENTRY_END( VIETNAMESE )
 508 /*x2b*/ LANG_ENTRY_BEGIN( "hy", ARMENIAN )
 509         LANG_ENTRY_END( ARMENIAN )
 510 /*x2c*/ LANG_ENTRY_BEGIN( "az", AZERI )
 511         /* Cyrillic */
 512         if (strstr(charset,"KOI8") || !strcmp(charset,"ISO-8859-5"))
 513                 LANG_DIALECT_ENTRY( AZERI, AZERI_CYRILLIC )
 514         else
 515                 LANG_DIALECT_ENTRY( AZERI, AZERI )
 516         LANG_ENTRY_END( AZERI )
 517 /*x2d*/ LANG_ENTRY_BEGIN( "eu", BASQUE )
 518         LANG_ENTRY_END( BASQUE )
 519 /*x2e*/ /*LANG_ENTRY_BEGIN( "??", SORBIAN )
 520         LANG_ENTRY_END( SORBIAN ) */
 521 /*x2f*/ LANG_ENTRY_BEGIN( "mk", MACEDONIAN )
 522         LANG_ENTRY_END( MACEDONIAN )
 523 /*x30*/ /*LANG_ENTRY_BEGIN( "??", SUTU )
 524         LANG_ENTRY_END( SUTU ) */
 525 /*x31*/ LANG_ENTRY_BEGIN( "ts", TSONGA )
 526         LANG_ENTRY_END( TSONGA )
 527 /*x32*/ /*LANG_ENTRY_BEGIN( "??", TSWANA )
 528         LANG_ENTRY_END( TSWANA ) */
 529 /*x33*/ /*LANG_ENTRY_BEGIN( "??", VENDA )
 530         LANG_ENTRY_END( VENDA ) */
 531 /*x34*/ LANG_ENTRY_BEGIN( "xh", XHOSA )
 532         LANG_ENTRY_END( XHOSA )
 533 /*x35*/ LANG_ENTRY_BEGIN( "zu", ZULU )
 534         LANG_ENTRY_END( ZULU )
 535 /*x36*/ LANG_ENTRY_BEGIN( "af", AFRIKAANS )
 536         LANG_ENTRY_END( AFRIKAANS )
 537 /*x37*/ LANG_ENTRY_BEGIN( "ka", GEORGIAN )
 538         LANG_ENTRY_END( GEORGIAN )
 539 /*x38*/ LANG_ENTRY_BEGIN( "fo", FAEROESE )
 540         LANG_ENTRY_END( FAEROESE )
 541 /*x39*/ LANG_ENTRY_BEGIN( "hi", HINDI )
 542         LANG_ENTRY_END( HINDI )
 543 /*x3a*/ LANG_ENTRY_BEGIN( "mt", MALTESE )
 544         LANG_ENTRY_END( MALTESE )
 545 /*x3b*/ /*LANG_ENTRY_BEGIN( "??", SAAMI )
 546         LANG_ENTRY_END( SAAMI ) */
 547 /*x3c*/ LANG_ENTRY_BEGIN( "ga", GAELIC )
 548         LANG_DIALECT_ENTRY( GAELIC, GAELIC )
 549         LANG_ENTRY_END( GAELIC )
 550 /*x3c*/ LANG_ENTRY_BEGIN( "gd", GAELIC )
 551         LANG_DIALECT_ENTRY( GAELIC, GAELIC_SCOTTISH )
 552         LANG_ENTRY_END( GAELIC )
 553 /* 0x3d */
 554 /*x3e*/ LANG_ENTRY_BEGIN( "ms", MALAY )
 555         LANG_SUB_ENTRY( "MY", MALAY, MALAY )
 556         LANG_SUB_ENTRY( "BN", MALAY, MALAY_BRUNEI_DARUSSALAM )
 557         LANG_ENTRY_END( MALAY )
 558 /*x3f*/ LANG_ENTRY_BEGIN( "kk", KAZAKH )
 559         LANG_ENTRY_END( KAZAKH )
 560 /* 0x40 */
 561 /*x41*/ LANG_ENTRY_BEGIN( "sw", SWAHILI )
 562         LANG_ENTRY_END( SWAHILI )
 563 /* 0x42 */
 564 /*x43*/ LANG_ENTRY_BEGIN( "uz", UZBEK )
 565         /* Cyrillic */
 566         if (strstr(charset,"KOI8") || !strcmp(charset,"ISO-8859-5"))
 567                 LANG_DIALECT_ENTRY( UZBEK, UZBEK_CYRILLIC )
 568         else
 569                 LANG_DIALECT_ENTRY( UZBEK, UZBEK )
 570         LANG_ENTRY_END( UZBEK )
 571 /*x44*/ LANG_ENTRY_BEGIN( "tt", TATAR )
 572         LANG_ENTRY_END( TATAR )
 573 /*x45*/ LANG_ENTRY_BEGIN( "bn", BENGALI )
 574         LANG_ENTRY_END( BENGALI )
 575 /*x46*/ LANG_ENTRY_BEGIN( "pa", PUNJABI )
 576         LANG_ENTRY_END( PUNJABI )
 577 /*x47*/ LANG_ENTRY_BEGIN( "gu", GUJARATI )
 578         LANG_ENTRY_END( GUJARATI )
 579 /*x48*/ LANG_ENTRY_BEGIN( "or", ORIYA )
 580         LANG_ENTRY_END( ORIYA )
 581 /*x49*/ LANG_ENTRY_BEGIN( "ta", TAMIL )
 582         LANG_ENTRY_END( TAMIL )
 583 /*x4a*/ LANG_ENTRY_BEGIN( "te", TELUGU )
 584         LANG_ENTRY_END( TELUGU )
 585 /*x4b*/ LANG_ENTRY_BEGIN( "kn", KANNADA )
 586         LANG_ENTRY_END( KANNADA )
 587 /*x4c*/ LANG_ENTRY_BEGIN( "ml", MALAYALAM )
 588         LANG_ENTRY_END( MALAYALAM )
 589 /*x4d*/ LANG_ENTRY_BEGIN( "as", ASSAMESE )
 590         LANG_ENTRY_END( ASSAMESE )
 591 /*x4e*/ LANG_ENTRY_BEGIN( "mr", MARATHI )
 592         LANG_ENTRY_END( MARATHI )
 593 /*x4f*/ LANG_ENTRY_BEGIN( "sa", SANSKRIT )
 594         LANG_ENTRY_END( SANSKRIT )
 595 /* 0x50 -> 0x56 */
 596 /*x57*/ /*LANG_ENTRY_BEGIN( "??", KONKANI )
 597         LANG_ENTRY_END( KONKANI ) */
 598 /* 0x58 -> ... */
 599         LANG_ENTRY_BEGIN( "eo", ESPERANTO ) /* not official */
 600         LANG_ENTRY_END( ESPERANTO )
 601         LANG_ENTRY_BEGIN( "wa", WALON ) /* not official */
 602         LANG_ENTRY_END( WALON )
 603
 604         ret = LANG_ENGLISH;
 605
 606 end_MAIN_GetLanguageID:
 607         if (Charset) free(charset);
 608         free(dialect);
 609
 610         return ret;
 611 }
 612
 613 /***********************************************************************
 614  *           MAIN_ParseLanguageOption
 615  *
 616  * Parse -language option.
 617  */
 618 void MAIN_ParseLanguageOption( const char *arg )
 619 {
 620     const WINE_LANGUAGE_DEF *p = Languages;
 621
 622     Options.language = LANG_Xx;  /* First (dummy) language */
 623     for (;p->name;p++)
 624     {
 625         if (!lstrcmpiA( p->name, arg ))
 626         {
 627             WINE_LanguageId = p->langid;
 628             return;
 629         }
 630         Options.language++;
 631     }
 632     MESSAGE( "Invalid language specified '%s'. Supported languages are: ", arg );
 633     for (p = Languages; p->name; p++) MESSAGE( "%s ", p->name );
 634     MESSAGE( "\n" );
 635     ExitProcess(1);
 636 }
 637
 638
 639 /***********************************************************************
 640  *           called_at_exit
 641  */
 642 static void called_at_exit(void)
 643 {
 644     if (GDI_Driver)
 645         GDI_Driver->pFinalize();
 646     if (USER_Driver)
 647         USER_Driver->pFinalize();
 648
 649     CONSOLE_Close();
 650 }
 651
 652 /***********************************************************************
 653  *           MAIN_WineInit
 654  *
 655  * Wine initialisation and command-line parsing
 656  */
 657 BOOL MAIN_WineInit( int *argc, char *argv[] )
 658 {
 659     struct timeval tv;
 660
 661 #ifdef MALLOC_DEBUGGING
 662     char *trace;
 663
 664     mcheck(NULL);
 665     if (!(trace = getenv("MALLOC_TRACE")))
 666     {
 667         MESSAGE( "MALLOC_TRACE not set. No trace generated\n" );
 668     }
 669     else
 670     {
 671         MESSAGE( "malloc trace goes to %s\n", trace );
 672         mtrace();
 673     }
 674 #endif
 675
 676     setbuf(stdout,NULL);
 677     setbuf(stderr,NULL);
 678
 679     setlocale(LC_CTYPE,"");
 680     gettimeofday( &tv, NULL);
 681     MSG_WineStartTicks = (tv.tv_sec * 1000) + (tv.tv_usec / 1000);
 682
 683     OPTIONS_ParseOptions( *argc, argv );
 684
 685 #ifndef X_DISPLAY_MISSING
 686     USER_Driver = &X11DRV_USER_Driver;
 687 #else /* !defined(X_DISPLAY_MISSING) */
 688     USER_Driver = &TTYDRV_USER_Driver;
 689 #endif /* !defined(X_DISPLAY_MISSING) */
 690
 691     USER_Driver->pInitialize();
 692
 693     MONITOR_Initialize(&MONITOR_PrimaryMonitor);
 694
 695     atexit(called_at_exit);
 696     return TRUE;
 697 }
 698
 699 /***********************************************************************
 700  *           MessageBeep16   (USER.104)
 701  */
 702 void WINAPI MessageBeep16( UINT16 i )
 703 {
 704     MessageBeep( i );
 705 }
 706
 707
 708 /***********************************************************************
 709  *           MessageBeep32   (USER32.390)
 710  */
 711 BOOL WINAPI MessageBeep( UINT i )
 712 {
 713     KEYBOARD_Beep();
 714     return TRUE;
 715 }
 716
 717
 718 /***********************************************************************
 719  *           Beep   (KERNEL32.11)
 720  */
 721 BOOL WINAPI Beep( DWORD dwFreq, DWORD dwDur )
 722 {
 723     /* dwFreq and dwDur are ignored by Win95 */
 724     KEYBOARD_Beep();
 725     return TRUE;
 726 }
 727
 728
 729 /***********************************************************************
 730  *      GetTimerResolution (USER.14)
 731  */
 732 LONG WINAPI GetTimerResolution16(void)
 733 {
 734         return (1000);
 735 }
 736
 737 /***********************************************************************
 738  *      SystemParametersInfo32A   (USER32.540)
 739  */
 740 BOOL WINAPI SystemParametersInfoA( UINT uAction, UINT uParam,
 741                                        LPVOID lpvParam, UINT fuWinIni )
 742 {
 743         int timeout;
 744
 745         switch (uAction) {
 746         case SPI_GETBEEP:
 747                 *(BOOL *) lpvParam = KEYBOARD_GetBeepActive();
 748                 break;
 749         case SPI_SETBEEP:
 750                KEYBOARD_SetBeepActive(uParam);
 751                break;
 752
 753         case SPI_GETBORDER:
 754                 *(INT *)lpvParam = GetSystemMetrics( SM_CXFRAME );
 755                 break;
 756
 757         case SPI_GETDRAGFULLWINDOWS:
 758                 *(BOOL *) lpvParam = FALSE;
 759                 break;
 760
 761         case SPI_SETDRAGFULLWINDOWS:
 762                 break;
 763
 764         case SPI_GETFASTTASKSWITCH:
 765                 if ( GetProfileIntA( "windows", "CoolSwitch", 1 ) == 1 )
 766                         *(BOOL *) lpvParam = TRUE;
 767                 else
 768                         *(BOOL *) lpvParam = FALSE;
 769                 break;
 770
 771         case SPI_GETGRIDGRANULARITY:
 772                 *(INT*)lpvParam=GetProfileIntA("desktop","GridGranularity",1);
 773                 break;
 774
 775         case SPI_GETICONTITLEWRAP:
 776                 *(BOOL*)lpvParam=GetProfileIntA("desktop","IconTitleWrap",TRUE);
 777                 break;
 778
 779         case SPI_GETKEYBOARDDELAY:
 780                 *(INT*)lpvParam=GetProfileIntA("keyboard","KeyboardDelay",1);
 781                 break;
 782
 783         case SPI_GETKEYBOARDSPEED:
 784                 *(DWORD*)lpvParam=GetProfileIntA("keyboard","KeyboardSpeed",30);
 785                 break;
 786
 787         case SPI_GETMENUDROPALIGNMENT:
 788                 *(BOOL*)lpvParam=GetSystemMetrics(SM_MENUDROPALIGNMENT); /* XXX check this */
 789                 break;
 790
 791         case SPI_GETSCREENSAVEACTIVE:
 792                if(MONITOR_GetScreenSaveActive(&MONITOR_PrimaryMonitor) ||
 793                   GetProfileIntA( "windows", "ScreenSaveActive", 1 ) == 1)
 794                         *(BOOL*)lpvParam = TRUE;
 795                 else
 796                         *(BOOL*)lpvParam = FALSE;
 797                 break;
 798
 799         case SPI_GETSCREENSAVETIMEOUT:
 800                 timeout = MONITOR_GetScreenSaveTimeout(&MONITOR_PrimaryMonitor);
 801                 if(!timeout)
 802                         timeout = GetProfileIntA( "windows", "ScreenSaveTimeout", 300 );
 803                 *(INT *) lpvParam = timeout * 1000;
 804                 break;
 805
 806         case SPI_ICONHORIZONTALSPACING:
 807                 /* FIXME Get/SetProfileInt */
 808                 if (lpvParam == NULL)
 809                         /*SetSystemMetrics( SM_CXICONSPACING, uParam )*/ ;
 810                 else
 811                         *(INT*)lpvParam=GetSystemMetrics(SM_CXICONSPACING);
 812                 break;
 813
 814         case SPI_ICONVERTICALSPACING:
 815                 /* FIXME Get/SetProfileInt */
 816                 if (lpvParam == NULL)
 817                         /*SetSystemMetrics( SM_CYICONSPACING, uParam )*/ ;
 818                 else
 819                         *(INT*)lpvParam=GetSystemMetrics(SM_CYICONSPACING);
 820                 break;
 821
 822         case SPI_GETICONTITLELOGFONT: {
 823                 LPLOGFONTA lpLogFont = (LPLOGFONTA)lpvParam;
 824
 825                 /* from now on we always have an alias for MS Sans Serif */
 826
 827                 GetProfileStringA("Desktop", "IconTitleFaceName", "MS Sans Serif",
 828                         lpLogFont->lfFaceName, LF_FACESIZE );
 829                 lpLogFont->lfHeight = -GetProfileIntA("Desktop","IconTitleSize", 13);
 830                 lpLogFont->lfWidth = 0;
 831                 lpLogFont->lfEscapement = lpLogFont->lfOrientation = 0;
 832                 lpLogFont->lfWeight = FW_NORMAL;
 833                 lpLogFont->lfItalic = FALSE;
 834                 lpLogFont->lfStrikeOut = FALSE;
 835                 lpLogFont->lfUnderline = FALSE;
 836                 lpLogFont->lfCharSet = ANSI_CHARSET;
 837                 lpLogFont->lfOutPrecision = OUT_DEFAULT_PRECIS;
 838                 lpLogFont->lfClipPrecision = CLIP_DEFAULT_PRECIS;
 839                 lpLogFont->lfPitchAndFamily = DEFAULT_PITCH | FF_SWISS;
 840                 break;
 841         }
 842
 843         case SPI_GETICONMETRICS: {
 844             LPICONMETRICSA lpIcon = lpvParam;
 845             if(!lpIcon || lpIcon->cbSize != sizeof(*lpIcon))
 846                 return FALSE;
 847             SystemParametersInfoA( SPI_ICONHORIZONTALSPACING, 0,
 848                                    &lpIcon->iHorzSpacing, FALSE );
 849             SystemParametersInfoA( SPI_ICONVERTICALSPACING, 0,
 850                                    &lpIcon->iVertSpacing, FALSE );
 851             SystemParametersInfoA( SPI_GETICONTITLEWRAP, 0,
 852                                    &lpIcon->iTitleWrap, FALSE );
 853             SystemParametersInfoA( SPI_GETICONTITLELOGFONT, 0,
 854                                    &lpIcon->lfFont, FALSE );
 855             break;
 856         }
 857         case SPI_GETWORKAREA:
 858                 SetRect( (RECT *)lpvParam, 0, 0,
 859                         GetSystemMetrics( SM_CXSCREEN ),
 860                         GetSystemMetrics( SM_CYSCREEN )
 861                 );
 862                 break;
 863         case SPI_GETNONCLIENTMETRICS:
 864
 865 #define lpnm ((LPNONCLIENTMETRICSA)lpvParam)
 866
 867                 if( lpnm->cbSize == sizeof(NONCLIENTMETRICSA) )
 868                 {
 869                     LPLOGFONTA lpLogFont = &(lpnm->lfMenuFont);
 870
 871                     /* clear the struct, so we have 'sane' members */
 872                     memset(
 873                         (char*)lpvParam+sizeof(lpnm->cbSize),
 874                         0,
 875                         lpnm->cbSize-sizeof(lpnm->cbSize)
 876                     );
 877
 878                     /* FIXME: initialize geometry entries */
 879                     /* FIXME: As these values are presumably in device units,
 880                      *  we should calculate the defaults based on the screen dpi
 881                      */
 882                     /* caption */
 883                     lpnm->iCaptionWidth = ((TWEAK_WineLook > WIN31_LOOK)  ? 32 : 20);
 884                     lpnm->iCaptionHeight = lpnm->iCaptionWidth;
 885                     lpnm->lfCaptionFont.lfWeight = FW_BOLD;
 886                     SystemParametersInfoA(SPI_GETICONTITLELOGFONT, 0, (LPVOID)&(lpnm->lfCaptionFont),0);
 887
 888                     /* small caption */
 889                     lpnm->iSmCaptionWidth = ((TWEAK_WineLook > WIN31_LOOK)  ? 32 : 17);
 890                     lpnm->iSmCaptionHeight = lpnm->iSmCaptionWidth;
 891                     SystemParametersInfoA(SPI_GETICONTITLELOGFONT, 0, (LPVOID)&(lpnm->lfSmCaptionFont),0);
 892
 893                     /* menus, FIXME: names of wine.conf entrys are bogus */
 894
 895                     lpnm->iMenuWidth = GetProfileIntA("Desktop","MenuWidth", 13);       /* size of the menu buttons*/
 896                     lpnm->iMenuHeight = GetProfileIntA("Desktop","MenuHeight",
 897                                                 (TWEAK_WineLook > WIN31_LOOK) ? 13 : 27);
 898
 899                     GetProfileStringA("Desktop", "MenuFont",
 900                         (TWEAK_WineLook > WIN31_LOOK) ? "MS Sans Serif": "System",
 901                         lpLogFont->lfFaceName, LF_FACESIZE );
 902
 903                     lpLogFont->lfHeight = -GetProfileIntA("Desktop","MenuFontSize", 13);
 904                     lpLogFont->lfWidth = 0;
 905                     lpLogFont->lfEscapement = lpLogFont->lfOrientation = 0;
 906                     lpLogFont->lfWeight = (TWEAK_WineLook > WIN31_LOOK) ? FW_NORMAL : FW_BOLD;
 907                     lpLogFont->lfItalic = FALSE;
 908                     lpLogFont->lfStrikeOut = FALSE;
 909                     lpLogFont->lfUnderline = FALSE;
 910                     lpLogFont->lfCharSet = ANSI_CHARSET;
 911                     lpLogFont->lfOutPrecision = OUT_DEFAULT_PRECIS;
 912                     lpLogFont->lfClipPrecision = CLIP_DEFAULT_PRECIS;
 913                     lpLogFont->lfPitchAndFamily = DEFAULT_PITCH | FF_SWISS;
 914
 915                     SystemParametersInfoA(SPI_GETICONTITLELOGFONT, 0,
 916                                                         (LPVOID)&(lpnm->lfStatusFont),0);
 917                     SystemParametersInfoA(SPI_GETICONTITLELOGFONT, 0,
 918                                                         (LPVOID)&(lpnm->lfMessageFont),0);
 919                 }
 920 #undef lpnm
 921                 break;
 922
 923         case SPI_GETANIMATION: {
 924                 LPANIMATIONINFO lpAnimInfo = (LPANIMATIONINFO)lpvParam;
 925
 926                 /* Tell it "disabled" */
 927                 lpAnimInfo->cbSize = sizeof(ANIMATIONINFO);
 928                 uParam = sizeof(ANIMATIONINFO);
 929                 lpAnimInfo->iMinAnimate = 0; /* Minimise and restore animation is disabled (nonzero == enabled) */
 930                 break;
 931         }
 932
 933         case SPI_SETANIMATION: {
 934                 LPANIMATIONINFO lpAnimInfo = (LPANIMATIONINFO)lpvParam;
 935
 936                 /* Do nothing */
 937                 WARN_(system)("SPI_SETANIMATION ignored.\n");
 938                 lpAnimInfo->cbSize = sizeof(ANIMATIONINFO);
 939                 uParam = sizeof(ANIMATIONINFO);
 940                 break;
 941         }
 942
 943         case SPI_GETHIGHCONTRAST:
 944         {
 945                 LPHIGHCONTRASTA lpHighContrastA = (LPHIGHCONTRASTA)lpvParam;
 946
 947                 FIXME_(system)("SPI_GETHIGHCONTRAST not fully implemented\n");
 948
 949                 if ( lpHighContrastA->cbSize == sizeof( HIGHCONTRASTA ) )
 950                 {
 951                         /* Indicate that there is no high contrast available */
 952                         lpHighContrastA->dwFlags = 0;
 953                         lpHighContrastA->lpszDefaultScheme = NULL;
 954                 }
 955                 else
 956                 {
 957                         return FALSE;
 958                 }
 959
 960                 break;
 961         }
 962
 963         default:
 964                 return SystemParametersInfo16(uAction,uParam,lpvParam,fuWinIni);
 965         }
 966         return TRUE;
 967 }
 968
 969
 970 /***********************************************************************
 971  *      SystemParametersInfo16   (USER.483)
 972  */
 973 BOOL16 WINAPI SystemParametersInfo16( UINT16 uAction, UINT16 uParam,
 974                                       LPVOID lpvParam, UINT16 fuWinIni )
 975 {
 976         int timeout;
 977         char buffer[256];
 978
 979         switch (uAction)
 980         {
 981                 case SPI_GETBEEP:
 982                         *(BOOL *) lpvParam = KEYBOARD_GetBeepActive();
 983                         break;
 984
 985                 case SPI_GETBORDER:
 986                         *(INT16 *)lpvParam = GetSystemMetrics16( SM_CXFRAME );
 987                         break;
 988
 989                 case SPI_GETFASTTASKSWITCH:
 990                     if ( GetProfileIntA( "windows", "CoolSwitch", 1 ) == 1 )
 991                           *(BOOL16 *) lpvParam = TRUE;
 992                         else
 993                           *(BOOL16 *) lpvParam = FALSE;
 994                         break;
 995
 996                 case SPI_GETGRIDGRANULARITY:
 997                     *(INT16 *) lpvParam = GetProfileIntA( "desktop",
 998                                                           "GridGranularity",
 999                                                           1 );
1000                     break;
1001
1002                 case SPI_GETICONTITLEWRAP:
1003                     *(BOOL16 *) lpvParam = GetProfileIntA( "desktop",
1004                                                            "IconTitleWrap",
1005                                                            TRUE );
1006                     break;
1007
1008                 case SPI_GETKEYBOARDDELAY:
1009                     *(INT16 *) lpvParam = GetProfileIntA( "keyboard",
1010                                                           "KeyboardDelay", 1 );
1011                     break;
1012
1013                 case SPI_GETKEYBOARDSPEED:
1014                     *(WORD *) lpvParam = GetProfileIntA( "keyboard",
1015                                                            "KeyboardSpeed",
1016                                                            30 );
1017                     break;
1018
1019                 case SPI_GETMENUDROPALIGNMENT:
1020                         *(BOOL16 *) lpvParam = GetSystemMetrics16( SM_MENUDROPALIGNMENT ); /* XXX check this */
1021                         break;
1022
1023                 case SPI_GETSCREENSAVEACTIVE:
1024                   if(MONITOR_GetScreenSaveActive(&MONITOR_PrimaryMonitor) ||
1025                      GetProfileIntA( "windows", "ScreenSaveActive", 1 ) == 1)
1026                         *(BOOL16 *) lpvParam = TRUE;
1027                     else
1028                         *(BOOL16 *) lpvParam = FALSE;
1029                     break;
1030
1031                 case SPI_GETSCREENSAVETIMEOUT:
1032                         timeout = MONITOR_GetScreenSaveTimeout(&MONITOR_PrimaryMonitor);
1033                         if(!timeout)
1034                             timeout = GetProfileIntA( "windows", "ScreenSaveTimeout", 300 );
1035                         *(INT16 *) lpvParam = timeout;
1036                         break;
1037
1038                 case SPI_ICONHORIZONTALSPACING:
1039                     /* FIXME Get/SetProfileInt */
1040                         if (lpvParam == NULL)
1041                             /*SetSystemMetrics( SM_CXICONSPACING, uParam )*/ ;
1042                         else
1043                             *(INT16 *)lpvParam = GetSystemMetrics16( SM_CXICONSPACING );
1044                         break;
1045
1046                 case SPI_ICONVERTICALSPACING:
1047                     /* FIXME Get/SetProfileInt */
1048                     if (lpvParam == NULL)
1049                         /*SetSystemMetrics( SM_CYICONSPACING, uParam )*/ ;
1050                     else
1051                         *(INT16 *)lpvParam = GetSystemMetrics16(SM_CYICONSPACING);
1052                     break;
1053
1054                 case SPI_SETBEEP:
1055                         KEYBOARD_SetBeepActive(uParam);
1056                         break;
1057
1058                 case SPI_SETSCREENSAVEACTIVE:
1059                         MONITOR_SetScreenSaveActive(&MONITOR_PrimaryMonitor, uParam);
1060                         break;
1061
1062                 case SPI_SETSCREENSAVETIMEOUT:
1063                         MONITOR_SetScreenSaveTimeout(&MONITOR_PrimaryMonitor, uParam);
1064                         break;
1065
1066                 case SPI_SETDESKWALLPAPER:
1067                         return (SetDeskWallPaper((LPSTR) lpvParam));
1068                         break;
1069
1070                 case SPI_SETDESKPATTERN:
1071                         if ((INT16)uParam == -1) {
1072                                 GetProfileStringA("Desktop", "Pattern",
1073                                                 "170 85 170 85 170 85 170 85",
1074                                                 buffer, sizeof(buffer) );
1075                                 return (DESKTOP_SetPattern((LPSTR) buffer));
1076                         } else
1077                                 return (DESKTOP_SetPattern((LPSTR) lpvParam));
1078                         break;
1079
1080                 case SPI_GETICONTITLELOGFONT:
1081                 {
1082                     LPLOGFONT16 lpLogFont = (LPLOGFONT16)lpvParam;
1083                     GetProfileStringA("Desktop", "IconTitleFaceName", "MS Sans Serif",
1084                                         lpLogFont->lfFaceName, LF_FACESIZE );
1085                     lpLogFont->lfHeight = -GetProfileIntA("Desktop","IconTitleSize", 13);
1086                     lpLogFont->lfWidth = 0;
1087                     lpLogFont->lfEscapement = lpLogFont->lfOrientation = 0;
1088                     lpLogFont->lfWeight = FW_NORMAL;
1089                     lpLogFont->lfItalic = FALSE;
1090                     lpLogFont->lfStrikeOut = FALSE;
1091                     lpLogFont->lfUnderline = FALSE;
1092                     lpLogFont->lfCharSet = ANSI_CHARSET;
1093                     lpLogFont->lfOutPrecision = OUT_DEFAULT_PRECIS;
1094                     lpLogFont->lfClipPrecision = CLIP_DEFAULT_PRECIS;
1095                     lpLogFont->lfPitchAndFamily = DEFAULT_PITCH | FF_SWISS;
1096                     break;
1097                 }
1098                 case SPI_GETNONCLIENTMETRICS:
1099
1100 #define lpnm ((LPNONCLIENTMETRICS16)lpvParam)
1101                     if( lpnm->cbSize == sizeof(NONCLIENTMETRICS16) )
1102                     {
1103                         /* clear the struct, so we have 'sane' members */
1104                         memset(
1105                             (char*)lpvParam+sizeof(lpnm->cbSize),
1106                             0,
1107                             lpnm->cbSize-sizeof(lpnm->cbSize)
1108                         );
1109                         /* FIXME: initialize geometry entries */
1110                         SystemParametersInfo16( SPI_GETICONTITLELOGFONT, 0,
1111                                                         (LPVOID)&(lpnm->lfCaptionFont),0);
1112                         lpnm->lfCaptionFont.lfWeight = FW_BOLD;
1113                         SystemParametersInfo16( SPI_GETICONTITLELOGFONT, 0,
1114                                                         (LPVOID)&(lpnm->lfSmCaptionFont),0);
1115                         SystemParametersInfo16( SPI_GETICONTITLELOGFONT, 0,
1116                                                         (LPVOID)&(lpnm->lfMenuFont),0);
1117                         SystemParametersInfo16( SPI_GETICONTITLELOGFONT, 0,
1118                                                         (LPVOID)&(lpnm->lfStatusFont),0);
1119                         SystemParametersInfo16( SPI_GETICONTITLELOGFONT, 0,
1120                                                         (LPVOID)&(lpnm->lfMessageFont),0);
1121                     }
1122                     else /* winfile 95 sets sbSize to 340 */
1123                         SystemParametersInfoA( uAction, uParam, lpvParam, fuWinIni );
1124 #undef lpnm
1125                     break;
1126
1127                 case SPI_LANGDRIVER:
1128                 case SPI_SETBORDER:
1129                 case SPI_SETDOUBLECLKHEIGHT:
1130                 case SPI_SETDOUBLECLICKTIME:
1131                 case SPI_SETDOUBLECLKWIDTH:
1132                 case SPI_SETFASTTASKSWITCH:
1133                 case SPI_SETKEYBOARDDELAY:
1134                 case SPI_SETKEYBOARDSPEED:
1135                         WARN_(system)("Option %d ignored.\n", uAction);
1136                         break;
1137
1138                 case SPI_GETWORKAREA:
1139                     SetRect16( (RECT16 *)lpvParam, 0, 0,
1140                                GetSystemMetrics16( SM_CXSCREEN ),
1141                                GetSystemMetrics16( SM_CYSCREEN ) );
1142                     break;
1143
1144                 default:
1145                         FIXME_(system)("Unknown option %d.\n", uAction);
1146                         SetLastError(ERROR_INVALID_SPI_VALUE);
1147                         return 0;
1148         }
1149         return 1;
1150 }
1151
1152 /***********************************************************************
1153  *      SystemParametersInfo32W   (USER32.541)
1154  */
1155 BOOL WINAPI SystemParametersInfoW( UINT uAction, UINT uParam,
1156                                        LPVOID lpvParam, UINT fuWinIni )
1157 {
1158     char buffer[256];
1159
1160     switch (uAction)
1161     {
1162     case SPI_SETDESKWALLPAPER:
1163         if (lpvParam)
1164         {
1165             lstrcpynWtoA(buffer,(LPWSTR)lpvParam,sizeof(buffer));
1166             return SetDeskWallPaper(buffer);
1167         }
1168         return SetDeskWallPaper(NULL);
1169
1170     case SPI_SETDESKPATTERN:
1171         if ((INT) uParam == -1)
1172         {
1173             GetProfileStringA("Desktop", "Pattern",
1174                                 "170 85 170 85 170 85 170 85",
1175                                 buffer, sizeof(buffer) );
1176             return (DESKTOP_SetPattern((LPSTR) buffer));
1177         }
1178         if (lpvParam)
1179         {
1180             lstrcpynWtoA(buffer,(LPWSTR)lpvParam,sizeof(buffer));
1181             return DESKTOP_SetPattern(buffer);
1182         }
1183         return DESKTOP_SetPattern(NULL);
1184
1185     case SPI_GETICONTITLELOGFONT:
1186         {
1187             LPLOGFONTW lpLogFont = (LPLOGFONTW)lpvParam;
1188
1189             GetProfileStringA("Desktop", "IconTitleFaceName", "MS Sans Serif",
1190                          buffer, sizeof(buffer) );
1191             lstrcpynAtoW(lpLogFont->lfFaceName, buffer, LF_FACESIZE);
1192             lpLogFont->lfHeight = 17;
1193             lpLogFont->lfWidth = 0;
1194             lpLogFont->lfEscapement = lpLogFont->lfOrientation = 0;
1195             lpLogFont->lfWeight = FW_NORMAL;
1196             lpLogFont->lfItalic = lpLogFont->lfStrikeOut = lpLogFont->lfUnderline = FALSE;
1197             lpLogFont->lfCharSet = ANSI_CHARSET;
1198             lpLogFont->lfOutPrecision = OUT_DEFAULT_PRECIS;
1199             lpLogFont->lfClipPrecision = CLIP_DEFAULT_PRECIS;
1200             lpLogFont->lfPitchAndFamily = DEFAULT_PITCH | FF_SWISS;
1201         }
1202         break;
1203         case SPI_GETICONMETRICS: {
1204             LPICONMETRICSW lpIcon = lpvParam;
1205             if(!lpIcon || lpIcon->cbSize != sizeof(*lpIcon))
1206                 return FALSE;
1207             SystemParametersInfoW( SPI_ICONHORIZONTALSPACING, 0,
1208                                    &lpIcon->iHorzSpacing, FALSE );
1209             SystemParametersInfoW( SPI_ICONVERTICALSPACING, 0,
1210                                    &lpIcon->iVertSpacing, FALSE );
1211             SystemParametersInfoW( SPI_GETICONTITLEWRAP, 0,
1212                                    &lpIcon->iTitleWrap, FALSE );
1213             SystemParametersInfoW( SPI_GETICONTITLELOGFONT, 0,
1214                                    &lpIcon->lfFont, FALSE );
1215             break;
1216         }
1217     case SPI_GETNONCLIENTMETRICS: {
1218         /* FIXME: implement correctly */
1219         LPNONCLIENTMETRICSW     lpnm=(LPNONCLIENTMETRICSW)lpvParam;
1220
1221         /* clear the struct, so we have 'sane' members */
1222         memset((char*)lpvParam+sizeof(lpnm->cbSize),
1223                 0,
1224                 lpnm->cbSize-sizeof(lpnm->cbSize)
1225         );
1226         SystemParametersInfoW(SPI_GETICONTITLELOGFONT,0,(LPVOID)&(lpnm->lfCaptionFont),0);
1227         lpnm->lfCaptionFont.lfWeight = FW_BOLD;
1228         SystemParametersInfoW(SPI_GETICONTITLELOGFONT,0,(LPVOID)&(lpnm->lfSmCaptionFont),0);
1229         SystemParametersInfoW(SPI_GETICONTITLELOGFONT,0,(LPVOID)&(lpnm->lfMenuFont),0);
1230         SystemParametersInfoW(SPI_GETICONTITLELOGFONT,0,(LPVOID)&(lpnm->lfStatusFont),0);
1231         SystemParametersInfoW(SPI_GETICONTITLELOGFONT,0,(LPVOID)&(lpnm->lfMessageFont),0);
1232         break;
1233     }
1234
1235     case SPI_GETHIGHCONTRAST:
1236     {
1237        LPHIGHCONTRASTW lpHighContrastW = (LPHIGHCONTRASTW)lpvParam;
1238
1239        FIXME_(system)("SPI_GETHIGHCONTRAST not fully implemented\n");
1240
1241        if ( lpHighContrastW->cbSize == sizeof( HIGHCONTRASTW ) )
1242        {
1243           /* Indicate that there is no high contrast available */
1244           lpHighContrastW->dwFlags = 0;
1245           lpHighContrastW->lpszDefaultScheme = NULL;
1246        }
1247        else
1248        {
1249           return FALSE;
1250        }
1251
1252        break;
1253     }
1254
1255     default:
1256         return SystemParametersInfoA(uAction,uParam,lpvParam,fuWinIni);
1257
1258     }
1259     return TRUE;
1260 }
1261
1262
1263 /***********************************************************************
1264 *       FileCDR (KERNEL.130)
1265 */
1266 FARPROC16 WINAPI FileCDR16(FARPROC16 x)
1267 {
1268         FIXME_(file)("(0x%8x): stub\n", (int) x);
1269         return (FARPROC16)TRUE;
1270 }