odk/source/unoapploader/unx/unoapploader.c

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <stdlib.h>
  21 #include <unistd.h>
  22 #include <stdio.h>
  23 #include <string.h>
  24 #include <sys/stat.h>
  25
  26 #ifdef LINUX
  27 #define __USE_GNU
  28 #endif
  29 #include <dlfcn.h>
  30
  31 #include "cppuhelper/findsofficepath.h"
  32 #include "rtl/string.h"
  33 #include "sal/types.h"
  34
  35 char const* getPath();
  36 char* createCommandName( char* argv0 );
  37
  38 const int SEPARATOR = '/';
  39 const char* PATHSEPARATOR = ":";
  40
  41
  42 /*
  43  * The main function implements a loader for applications which use UNO.
  44  *
  45  * <p>This code runs on the Unix/Linux platforms only.</p>
  46  *
  47  * <p>The main function detects a UNO installation on the system and adds the
  48  * relevant directories of the installation to the LD_LIBRARY_PATH environment
  49  * variable. After that, the application process is loaded and started, whereby
  50  * the new process inherits the environment of the calling process, including
  51  * the modified LD_LIBRARY_PATH environment variable. The application's
  52  * executable name must be the same as the name of this executable, prefixed
  53  * by '_'.</p>
  54  * <p>On MACOSX DYLD_LIBRARY_PATH is used instead of LD_LIBRARY_PATH!<p>
  55  *
  56  * <p>A UNO installation can be specified by the user by setting the UNO_PATH
  57  * environment variable to the program directory of the UNO installation.
  58  * If no installation is specified by the user, the default installation on
  59  * the system will be taken. The default installation is found from the
  60  * PATH environment variable. This requires that the 'soffice' executable or
  61  * a symbolic link is in one of the directories listed in the PATH environment
  62  * variable.</p>
  63  */
  64 int main( int argc, char *argv[] )
  65 {
  66     char const* path;
  67     char* cmdname;
  68
  69     (void) argc; /* avoid warning about unused parameter */
  70
  71     /* get the path of the UNO installation */
  72     path = getPath();
  73
  74     if ( path != NULL )
  75     {
  76 #if defined(MACOSX)
  77         static const char* ENVVARNAME = "DYLD_LIBRARY_PATH";
  78 #elif defined(AIX)
  79         static const char* ENVVARNAME = "LIBPATH";
  80 #else
  81         static const char* ENVVARNAME = "LD_LIBRARY_PATH";
  82 #endif
  83         char * libpath;
  84         int freeLibpath;
  85
  86         char* value;
  87         char* envstr;
  88         int size;
  89
  90         size_t pathlen = strlen(path);
  91         struct stat stats;
  92         int ret;
  93
  94         static char const unoinfoSuffix[] = "/unoinfo";
  95         char * unoinfo = malloc(
  96             pathlen + RTL_CONSTASCII_LENGTH(unoinfoSuffix) + 1);
  97             /*TODO: overflow */
  98         if (unoinfo == NULL) {
  99             fprintf(stderr, "Error: out of memory!\n");
 100             exit(EXIT_FAILURE);
 101         }
 102         strcpy(unoinfo, path);
 103         strcpy(
 104             unoinfo + pathlen,
 105             unoinfoSuffix + (pathlen == 0 || path[pathlen - 1] != '/' ? 0 : 1));
 106         ret = lstat(unoinfo, &stats);
 107         free(unoinfo);
 108
 109         if (ret == 0) {
 110             char * cmd = malloc(
 111                 2 * pathlen + RTL_CONSTASCII_LENGTH("/unoinfo c++") + 1);
 112                 /*TODO: overflow */
 113             char const * p;
 114             char * q;
 115             FILE * f;
 116             size_t n = 1000;
 117             size_t old = 0;
 118             if (cmd == NULL) {
 119                 fprintf(stderr, "Error: out of memory!\n");
 120                 exit(EXIT_FAILURE);
 121             }
 122             p = path;
 123             q = cmd;
 124             while (*p != '\0') {
 125                 *q++ = '\\';
 126                 *q++ = *p++;
 127             }
 128             if (p == path || p[-1] != '/') {
 129                 *q++ = '/';
 130             }
 131             strcpy(q, "unoinfo c++");
 132             f = popen(cmd, "r");
 133             free(cmd);
 134             if (f == NULL)
 135             {
 136                 fprintf(stderr, "Error: calling unoinfo failed!\n");
 137                 exit(EXIT_FAILURE);
 138             }
 139             libpath = NULL;
 140             for (;;) {
 141                 size_t m;
 142                 libpath = realloc(libpath, n);
 143                 if (libpath == NULL) {
 144                     fprintf(
 145                         stderr,
 146                         "Error: out of memory reading unoinfo output!\n");
 147                     exit(EXIT_FAILURE);
 148                 }
 149                 m = fread(libpath + old, 1, n - old - 1, f);
 150                 if (m != n - old - 1) {
 151                     if (ferror(f)) {
 152                         fprintf(stderr, "Error: cannot read unoinfo output!\n");
 153                         exit(EXIT_FAILURE);
 154                     }
 155                     libpath[old + m] = '\0';
 156                     break;
 157                 }
 158                 if (n >= SAL_MAX_SIZE / 2) {
 159                     fprintf(
 160                         stderr,
 161                         "Error: out of memory reading unoinfo output!\n");
 162                     exit(EXIT_FAILURE);
 163                 }
 164                 old = n - 1;
 165                 n *= 2;
 166             }
 167             if (pclose(f) != 0) {
 168                 fprintf(stderr, "Error: executing unoinfo failed!\n");
 169                 exit(EXIT_FAILURE);
 170             }
 171             freeLibpath = 1;
 172         }
 173         else
 174         {
 175             /* Assume an old OOo 2.x installation without unoinfo: */
 176             libpath = (char *) path;
 177             freeLibpath = 0;
 178         }
 179
 180         value = getenv( ENVVARNAME );
 181
 182         size = strlen( ENVVARNAME ) + strlen( "=" ) + strlen( libpath ) + 1;
 183         if ( value != NULL )
 184             size += strlen( PATHSEPARATOR ) + strlen( value );
 185         envstr = (char*) malloc( size );
 186         strcpy( envstr, ENVVARNAME );
 187         strcat( envstr, "=" );
 188         strcat( envstr, libpath );
 189         if ( freeLibpath != 0 )
 190         {
 191             free( libpath );
 192         }
 193         if ( value != NULL )
 194         {
 195             strcat( envstr, PATHSEPARATOR );
 196             strcat( envstr, value );
 197         }
 198         putenv( envstr );
 199     }
 200     else
 201     {
 202         fprintf( stderr, "Warning: no UNO installation found!\n" );
 203         fflush( stderr );
 204     }
 205
 206     /* set the executable name for the application process */
 207     cmdname = createCommandName( argv[0] );
 208     argv[0] = cmdname;
 209
 210     /*
 211      * create the application process;
 212      * if successful, execvp doesn't return to the calling process
 213      */
 214     execvp( cmdname, argv );
 215     fprintf( stderr, "Error: execvp failed!\n" );
 216     fflush( stderr );
 217
 218     return 0;
 219 }
 220
 221 /*
 222  * Gets the path of a UNO installation.
 223  *
 224  * @return the installation path or NULL, if no installation was specified or
 225  *         found, or if an error occurred
 226  */
 227 char const* getPath()
 228 {
 229     char const* path = cppuhelper_detail_findSofficePath();
 230
 231     if ( path == NULL )
 232     {
 233         fprintf( stderr, "Warning: getting path from PATH environment "
 234                  "variable failed!\n" );
 235         fflush( stderr );
 236     }
 237
 238     return path;
 239 }
 240
 241 /*
 242  * Creates the application's executable file name.
 243  *
 244  * <p>The application's executable file name is the name of this executable
 245  * prefixed by '_'.</p>
 246  *
 247  * @param argv0 specifies the argv[0] parameter of the main function
 248  *
 249  * @return the application's executable file name or NULL, if an error occurred
 250  */
 251 char* createCommandName( char* argv0 )
 252 {
 253     const char* CMDPREFIX = "_";
 254     const char* prgname = NULL;
 255
 256     char* cmdname = NULL;
 257     char* sep = NULL;
 258 #ifndef AIX
 259     Dl_info dl_info;
 260 #endif
 261
 262     /* get the executable file name from argv0 */
 263     prgname = argv0;
 264
 265 #ifndef AIX
 266     /*
 267      * if argv0 doesn't contain an absolute path name, try to get the absolute
 268      * path name from dladdr; note that this only works for Solaris, not for
 269      * Linux
 270      */
 271     if ( argv0 != NULL && *argv0 != SEPARATOR &&
 272          dladdr( (void*) &createCommandName, &dl_info ) &&
 273          dl_info.dli_fname != NULL && *dl_info.dli_fname == SEPARATOR )
 274     {
 275         prgname = dl_info.dli_fname;
 276     }
 277 #endif
 278
 279     /* prefix the executable file name by '_' */
 280     if ( prgname != NULL )
 281     {
 282         cmdname = (char*) malloc( strlen( prgname ) + strlen( CMDPREFIX ) + 1 );
 283         sep = strrchr( prgname, SEPARATOR );
 284         if ( sep != NULL )
 285         {
 286             int pos = ++sep - prgname;
 287             strncpy( cmdname, prgname, pos );
 288             cmdname[ pos ] = '\0';
 289             strcat( cmdname, CMDPREFIX );
 290             strcat( cmdname, sep );
 291         }
 292         else
 293         {
 294             strcpy( cmdname, CMDPREFIX );
 295             strcat( cmdname, prgname );
 296         }
 297     }
 298
 299     return cmdname;
 300 }
 301
 302 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */