office-gobmx/desktop/os2/source/applauncher/launcher.cxx
Kurt Zenker f0ed8716b3 CWS-TOOLING: integrate CWS os2port06dev300
2009-09-05 22:49:00 +0200 ydario  r275858 : #i99588# applied os2port06 diff to DEV300 tree.
2009-09-10 22:44:47 +00:00

122 lines
4.2 KiB
C++

/*************************************************************************
*
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* Copyright 2008 by Sun Microsystems, Inc.
*
* OpenOffice.org - a multi-platform office productivity suite
*
* This file is part of OpenOffice.org.
*
* OpenOffice.org is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License version 3
* only, as published by the Free Software Foundation.
*
* OpenOffice.org is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License version 3 for more details
* (a copy is included in the LICENSE file that accompanied this code).
*
* You should have received a copy of the GNU Lesser General Public License
* version 3 along with OpenOffice.org. If not, see
* <http://www.openoffice.org/license.html>
* for a copy of the LGPLv3 License.
*
************************************************************************/
#include "launcher.hxx"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <malloc.h>
#include <process.h>
int main( int argc, char* argv[])
{
PPIB pib;
APIRET rc;
RESULTCODES result = {0};
char szFail[ _MAX_PATH];
HAB hab = WinInitialize( 0);
HMQ hmq = WinCreateMsgQueue( hab, 0);
ERRORID erridErrorCode = 0;
erridErrorCode = WinGetLastError(hab);
// Calculate application name
CHAR szLibpath[_MAX_PATH*2];
CHAR szApplicationName[_MAX_PATH];
CHAR szDrive[_MAX_PATH];
CHAR szDir[_MAX_PATH];
CHAR szFileName[_MAX_PATH];
CHAR szExt[_MAX_PATH];
// get executable fullpath
DosGetInfoBlocks(NULL, &pib);
DosQueryModuleName(pib->pib_hmte, sizeof(szApplicationName), szApplicationName);
// adjust libpath
_splitpath( szApplicationName, szDrive, szDir, szFileName, szExt );
char* basedir = strstr( szDir, "\\PROGRAM\\");
if (basedir) *basedir = 0;
sprintf( szLibpath, "\"%s%s\\URE\\BIN\";\"%s%s\\BASIS\\PROGRAM\";%BeginLIBPATH%",
szDrive, szDir, szDrive, szDir);
DosSetExtLIBPATH( (PCSZ)szLibpath, BEGIN_LIBPATH);
// make sure we load DLL from our path only, so multiple instances/versions
// can be loaded.
#if 0
// YD this feature is not compatible with innowin b20,
// java cannot load with this flag enabled
DosSetExtLIBPATH( (PCSZ)"T", LIBPATHSTRICT);
#endif
// adjust exe name
_splitpath( szApplicationName, szDrive, szDir, szFileName, szExt );
_makepath( szApplicationName, szDrive, szDir, OFFICE_IMAGE_NAME, (".bin") );
// copy command line parameters
int i, len;
len = strlen(szApplicationName) + 1 + strlen( APPLICATION_SWITCH) + 1 + 1;
for( i=1; i<argc; i++)
len += strlen( argv[i]) + 1;
char* pszCommandLine, *pszArgs;
pszCommandLine = (char*) calloc( 1, len);
strcpy( pszCommandLine, szApplicationName);
pszArgs = pszCommandLine + strlen(szApplicationName) + 1;
strcat( pszArgs, APPLICATION_SWITCH);
strcat( pszArgs, " ");
for( i=1; i<argc; i++) {
// add quotes if argument has spaces!
if (strchr( argv[i], ' '))
strcat( pszArgs, "\"");
strcat( pszArgs, argv[i]);
if (strchr( argv[i], ' '))
strcat( pszArgs, "\"");
strcat( pszArgs, " ");
}
pszArgs[ strlen( pszArgs) + 0] = 0;
// execute
rc = DosExecPgm(szFail, sizeof(szFail),
EXEC_SYNC, (PCSZ)pszCommandLine, (PCSZ)NULL, &result,
(PCSZ)szApplicationName);
if (rc) {
char szMessage[ _MAX_PATH*2];
sprintf( szMessage, "Execution failed! Contact technical support.\n\nReturn code: %d\nFailing module:%s\n", rc, szFail);
rc = WinMessageBox( HWND_DESKTOP, HWND_DESKTOP,
(PSZ)szMessage,
(PSZ)"Unable to start OpenOffice.org!",
0, MB_ERROR | MB_OK);
WinDestroyMsgQueue( hmq);
WinTerminate( hab);
exit(1);
}
WinDestroyMsgQueue( hmq);
WinTerminate( hab);
exit( result.codeResult);
}