/* * Main function. * * Copyright 1994 Alexandre Julliard */ static char Copyright[] = "Copyright Alexandre Julliard, 1994"; #include #include #include #include #include #include #include #include #include #include "msdos.h" #include "windows.h" #include "options.h" #include "prototypes.h" #include "texts.h" #define DEBUG_DEFINE_VARIABLES #include "stddebug.h" #include "debug.h" #define WINE_CLASS "Wine" /* Class name for resources */ typedef struct tagENVENTRY { LPSTR Name; LPSTR Value; WORD wSize; struct tagENVENTRY *Prev; struct tagENVENTRY *Next; } ENVENTRY; typedef ENVENTRY *LPENVENTRY; LPENVENTRY lpEnvList = NULL; Display *display; Screen *screen; Window rootWindow; int screenWidth = 0, screenHeight = 0; /* Desktop window dimensions */ int screenDepth = 0; /* Screen depth to use */ int desktopX = 0, desktopY = 0; /* Desktop window position (if any) */ extern ButtonTexts ButtonText; struct options Options = { /* default options */ NULL, /* spyFilename */ NULL, /* desktopGeometry */ NULL, /* programName */ FALSE, /* usePrivateMap */ FALSE, /* synchronous */ FALSE, /* backing store */ SW_SHOWNORMAL, /* cmdShow */ FALSE }; static XrmOptionDescRec optionsTable[] = { { "-backingstore", ".backingstore", XrmoptionNoArg, (caddr_t)"on" }, { "-desktop", ".desktop", XrmoptionSepArg, (caddr_t)NULL }, { "-depth", ".depth", XrmoptionSepArg, (caddr_t)NULL }, { "-display", ".display", XrmoptionSepArg, (caddr_t)NULL }, { "-iconic", ".iconic", XrmoptionNoArg, (caddr_t)"on" }, { "-name", ".name", XrmoptionSepArg, (caddr_t)NULL }, { "-privatemap", ".privatemap", XrmoptionNoArg, (caddr_t)"on" }, { "-synchronous", ".synchronous", XrmoptionNoArg, (caddr_t)"on" }, { "-spy", ".spy", XrmoptionSepArg, (caddr_t)NULL }, { "-debug", ".debug", XrmoptionNoArg, (caddr_t)"on" }, { "-relaydbg", ".relaydbg", XrmoptionNoArg, (caddr_t)"on" }, { "-debugmsg", ".debugmsg", XrmoptionSepArg, (caddr_t)NULL } }; #define NB_OPTIONS (sizeof(optionsTable) / sizeof(optionsTable[0])) #define USAGE \ "Usage: %s [options] program_name [arguments]\n" \ "\n" \ "Options:\n" \ " -depth n Change the depth to use for multiple-depth screens\n" \ " -desktop geom Use a desktop window of the given geometry\n" \ " -display name Use the specified display\n" \ " -iconic Start as an icon\n" \ " -debug Enter debugger before starting application\n" \ " -name name Set the application name\n" \ " -privatemap Use a private color map\n" \ " -synchronous Turn on synchronous display mode\n" \ " -backingstore Turn on backing store\n" \ " -spy file Turn on message spying to the specified file\n" \ " -relaydbg Display call relay information\n" \ " -debugmsg name Turn debugging-messages on or off\n" /*********************************************************************** * MAIN_Usage */ static void MAIN_Usage( char *name ) { fprintf( stderr, USAGE, name ); exit(1); } /*********************************************************************** * MAIN_GetProgramName * * Get the program name. The name is specified by (in order of precedence): * - the option '-name'. * - the environment variable 'WINE_NAME'. * - the last component of argv[0]. */ static char *MAIN_GetProgramName( int argc, char *argv[] ) { int i; char *p; for (i = 1; i < argc-1; i++) if (!strcmp( argv[i], "-name" )) return argv[i+1]; if ((p = getenv( "WINE_NAME" )) != NULL) return p; if ((p = strrchr( argv[0], '/' )) != NULL) return p+1; return argv[0]; } /*********************************************************************** * MAIN_GetResource * * Fetch the value of resource 'name' using the correct instance name. * 'name' must begin with '.' or '*' */ static int MAIN_GetResource( XrmDatabase db, char *name, XrmValue *value ) { char *buff_instance, *buff_class; char *dummy; int retval; buff_instance = (char *)malloc(strlen(Options.programName)+strlen(name)+1); buff_class = (char *)malloc( strlen(WINE_CLASS) + strlen(name) + 1 ); strcpy( buff_instance, Options.programName ); strcat( buff_instance, name ); strcpy( buff_class, WINE_CLASS ); strcat( buff_class, name ); retval = XrmGetResource( db, buff_instance, buff_class, &dummy, value ); free( buff_instance ); free( buff_class ); return retval; } /*********************************************************************** * MAIN_GetButtonText * * Fetch the value of resource 'name' using the correct instance name. * 'name' must begin with '.' or '*' * * The address of the string got from the XResoure is stored in Button.Label. * The corresponding hotkey is taken from this string. */ static void MAIN_GetButtonText( XrmDatabase db, char *name, ButtonDesc *Button) { XrmValue value; char Hotkey; char *i; if (MAIN_GetResource( db, name, &value)) { Button->Label = value.addr; i = strchr(Button->Label,'&'); if ( i == NULL ) Button->Hotkey = '\0'; else if ( i++ == '\0' ) Button->Hotkey = '\0'; else Button->Hotkey = *i; } Button->Hotkey = toupper(Button->Hotkey); } /*********************************************************************** * MAIN_GetAllButtonTexts * * Read all Button-labels from X11-resources if they exist. */ static void MAIN_GetAllButtonTexts(XrmDatabase db) { MAIN_GetButtonText(db, ".YesLabel", &ButtonText.Yes); MAIN_GetButtonText(db, ".NoLabel", &ButtonText.No); MAIN_GetButtonText(db, ".OkLabel", &ButtonText.Ok); MAIN_GetButtonText(db, ".CancelLabel", &ButtonText.Cancel); MAIN_GetButtonText(db, ".AbortLabel", &ButtonText.Abort); MAIN_GetButtonText(db, ".RetryLabel", &ButtonText.Retry); MAIN_GetButtonText(db, ".IgnoreLabel", &ButtonText.Ignore); MAIN_GetButtonText(db, ".CancelLabel", &ButtonText.Cancel); } /*********************************************************************** * ParseDebugOptions * * Turns specific debug messages on or off, according to "options". * Returns TRUE if parsing was successfull */ #ifdef DEBUG_RUNTIME BOOL ParseDebugOptions(char *options) { int l; if (strlen(options)<3) return FALSE; do { if ((*options!='+')&&(*options!='-')) return FALSE; if (strchr(options,',')) l=strchr(options,',')-options; else l=strlen(options); if (!strncasecmp(options+1,"all",l-1)) { int i; for (i=0;i= depth_count) { fprintf( stderr, "%s: Depth %d not supported on this screen.\n", Options.programName, screenDepth ); exit(1); } } else screenDepth = DefaultDepthOfScreen( screen ); if (Options.synchronous) XSynchronize( display, True ); if (Options.desktopGeometry) MAIN_CreateDesktop( argc, argv ); else rootWindow = DefaultRootWindow( display ); MAIN_SaveSetup(); DOS_InitFS(); Comm_Init(); Font_Init(); #ifndef WINELIB INT21_Init(); #endif #ifndef sparc atexit(called_at_exit); #else on_exit (called_at_exit, 0); #endif ret_val = _WinMain( argc, argv ); return ret_val; } /*********************************************************************** * MessageBeep (USER.104) */ void MessageBeep(WORD i) { XBell(display, 100); } /*********************************************************************** * GetVersion (KERNEL.3) */ LONG GetVersion(void) { return( 0x03300a03 ); /* dos 3.30 & win 3.10 */ } /*********************************************************************** * GetWinFlags (KERNEL.132) */ LONG GetWinFlags(void) { return (WF_STANDARD | WF_CPU286 | WF_PMODE | WF_80x87); } /*********************************************************************** * SetEnvironment (GDI.132) */ int SetEnvironment(LPSTR lpPortName, LPSTR lpEnviron, WORD nCount) { LPENVENTRY lpNewEnv; LPENVENTRY lpEnv = lpEnvList; printf("SetEnvironnement('%s', '%s', %d) !\n", lpPortName, lpEnviron, nCount); if (lpPortName == NULL) return -1; while (lpEnv != NULL) { if (lpEnv->Name != NULL && strcmp(lpEnv->Name, lpPortName) == 0) { if (nCount == 0 || lpEnviron == NULL) { if (lpEnv->Prev != NULL) lpEnv->Prev->Next = lpEnv->Next; if (lpEnv->Next != NULL) lpEnv->Next->Prev = lpEnv->Prev; free(lpEnv->Value); free(lpEnv->Name); free(lpEnv); printf("SetEnvironnement() // entry deleted !\n"); return -1; } free(lpEnv->Value); lpEnv->Value = malloc(nCount); if (lpNewEnv->Value == NULL) { printf("SetEnvironment() // Error allocating entry value !\n"); return 0; } memcpy(lpEnv->Value, lpEnviron, nCount); lpEnv->wSize = nCount; printf("SetEnvironnement() // entry modified !\n"); return nCount; } if (lpEnv->Next == NULL) break; lpEnv = lpEnv->Next; } if (nCount == 0 || lpEnviron == NULL) return -1; printf("SetEnvironnement() // new entry !\n"); lpNewEnv = malloc(sizeof(ENVENTRY)); if (lpNewEnv == NULL) { printf("SetEnvironment() // Error allocating new entry !\n"); return 0; } if (lpEnvList == NULL) { lpEnvList = lpNewEnv; lpNewEnv->Prev = NULL; } else { lpEnv->Next = lpNewEnv; lpNewEnv->Prev = lpEnv; } lpNewEnv->Next = NULL; lpNewEnv->Name = malloc(strlen(lpPortName) + 1); if (lpNewEnv->Name == NULL) { printf("SetEnvironment() // Error allocating entry name !\n"); return 0; } strcpy(lpNewEnv->Name, lpPortName); lpNewEnv->Value = malloc(nCount); if (lpNewEnv->Value == NULL) { printf("SetEnvironment() // Error allocating entry value !\n"); return 0; } memcpy(lpNewEnv->Value, lpEnviron, nCount); lpNewEnv->wSize = nCount; return nCount; } /*********************************************************************** * GetEnvironment (GDI.134) */ int GetEnvironment(LPSTR lpPortName, LPSTR lpEnviron, WORD nMaxSiz) { WORD nCount; LPENVENTRY lpEnv = lpEnvList; printf("GetEnvironnement('%s', '%s', %d) !\n", lpPortName, lpEnviron, nMaxSiz); while (lpEnv != NULL) { if (lpEnv->Name != NULL && strcmp(lpEnv->Name, lpPortName) == 0) { nCount = min(nMaxSiz, lpEnv->wSize); memcpy(lpEnviron, lpEnv->Value, nCount); printf("GetEnvironnement() // found '%s' !\n", lpEnviron); return nCount; } lpEnv = lpEnv->Next; } printf("GetEnvironnement() // not found !\n"); return 0; } /*********************************************************************** * GetTimerResolution (USER.14) */ LONG GetTimerResolution(void) { return (1000); } /*********************************************************************** * SystemParametersInfo (USER.483) */ BOOL SystemParametersInfo (UINT uAction, UINT uParam, void FAR *lpvParam, UINT fuWinIni) { int timeout, temp; char buffer[256]; XKeyboardState keyboard_state; XKeyboardControl keyboard_value; fprintf(stderr, "SystemParametersInfo: action %d, param %x, flag %x\n", uAction, uParam, fuWinIni); switch (uAction) { case SPI_GETBEEP: XGetKeyboardControl(display, &keyboard_state); if (keyboard_state.bell_percent == 0) *(BOOL *) lpvParam = FALSE; else *(BOOL *) lpvParam = TRUE; break; case SPI_GETBORDER: *(INT *) lpvParam = 1; break; case SPI_GETFASTTASKSWITCH: *(BOOL *) lpvParam = FALSE; break; case SPI_GETGRIDGRANULARITY: *(INT *) lpvParam = 1; break; case SPI_GETICONTITLEWRAP: *(BOOL *) lpvParam = FALSE; break; case SPI_GETKEYBOARDDELAY: *(INT *) lpvParam = 1; break; case SPI_GETKEYBOARDSPEED: *(WORD *) lpvParam = 30; break; case SPI_GETMENUDROPALIGNMENT: *(BOOL *) lpvParam = FALSE; break; case SPI_GETSCREENSAVEACTIVE: *(BOOL *) lpvParam = FALSE; break; case SPI_GETSCREENSAVETIMEOUT: XGetScreenSaver(display, &timeout, &temp,&temp,&temp); *(INT *) lpvParam = timeout * 1000; break; case SPI_ICONHORIZONTALSPACING: if (lpvParam == NULL) fprintf(stderr, "SystemParametersInfo: Horizontal icon spacing set to %d\n.", uParam); else *(INT *) lpvParam = 50; break; case SPI_ICONVERTICALSPACING: if (lpvParam == NULL) fprintf(stderr, "SystemParametersInfo: Vertical icon spacing set to %d\n.", uParam); else *(INT *) lpvParam = 50; break; case SPI_SETBEEP: if (uParam == TRUE) keyboard_value.bell_percent = -1; else keyboard_value.bell_percent = 0; XChangeKeyboardControl(display, KBBellPercent, &keyboard_value); break; case SPI_SETSCREENSAVEACTIVE: if (uParam == TRUE) XActivateScreenSaver(display); else XResetScreenSaver(display); break; case SPI_SETSCREENSAVETIMEOUT: XSetScreenSaver(display, uParam, 60, DefaultBlanking, DefaultExposures); break; case SPI_SETDESKWALLPAPER: return (SetDeskWallPaper((LPSTR) lpvParam)); break; case SPI_SETDESKPATTERN: if ((INT) uParam == -1) { GetProfileString("Desktop", "Pattern", "170 85 170 85 170 85 170 85", buffer, sizeof(buffer) ); return (DESKTOP_SetPattern((LPSTR) buffer)); } else return (DESKTOP_SetPattern((LPSTR) lpvParam)); break; case SPI_LANGDRIVER: case SPI_SETBORDER: case SPI_SETDOUBLECLKHEIGHT: case SPI_SETDOUBLECLICKTIME: case SPI_SETDOUBLECLKWIDTH: case SPI_SETFASTTASKSWITCH: case SPI_SETKEYBOARDDELAY: case SPI_SETKEYBOARDSPEED: fprintf(stderr, "SystemParametersInfo: option %d ignored.\n", uParam); break; default: fprintf(stderr, "SystemParametersInfo: unknown option %d.\n", uParam); break; } return 1; } /*********************************************************************** * HMEMCPY (KERNEL.348) */ void hmemcpy(void FAR *hpvDest, const void FAR *hpvSource, long cbCopy) { memcpy(hpvDest, hpvSource, cbCopy); } /*********************************************************************** * COPY (GDI.250) */ void Copy(LPVOID lpSource, LPVOID lpDest, WORD nBytes) { memcpy(lpDest, lpSource, nBytes); } /*********************************************************************** * SWAPMOUSEBUTTON (USER.186) */ BOOL SwapMouseButton(BOOL fSwap) { return 0; /* don't swap */ } /*********************************************************************** * ISROMMODULE (KERNEL.323) */ BOOL IsRomModule(HANDLE x) { /* I don't know the prototype, I assume that it returns true if the dll is located in rom */ return FALSE; } /*********************************************************************** * FileCDR (KERNEL.130) */ void FileCDR(FARPROC x) { printf("FileCDR(%8x)\n", (int) x); }