vcl/unx/source/app/i18n_wrp.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: i18n_wrp.cxx,v $
  10  * $Revision: 1.15 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_vcl.hxx"
  33
  34 struct XIMArg
  35 {
  36     char *name;
  37     char *value;
  38 };
  39
  40 #if defined(SOLARIS) && !defined(__GNUC__)
  41 #include <varargs.h>
  42 #else
  43 #include <stdarg.h>
  44 #endif
  45 #include <sal/alloca.h>
  46
  47 #include <string.h>
  48 #include <dlfcn.h>
  49 #include <X11/Xlib.h>
  50 #include <X11/Xlibint.h>
  51 #include "XIM.h"
  52
  53 #define XIIIMP_LIB               "xiiimp.so.2"
  54
  55 #ifdef SOLARIS
  56 #define XIIIMP_PATH     "/usr/openwin/lib/locale/common/" XIIIMP_LIB
  57 #else /* Linux */
  58 #define XIIIMP_PATH     "/usr/lib/im/" XIIIMP_LIB
  59 #endif
  60
  61 extern "C" {
  62 typedef XIM (*OpenFunction)(Display*, XrmDatabase, char*, char*, XIMArg*);
  63 }
  64
  65 /* global variables */
  66 static void *g_dlmodule = 0;
  67 static OpenFunction g_open_im = (OpenFunction)NULL;
  68
  69 /* utility function to transform vararg list into an array of XIMArg */
  70
  71 int
  72 XvaCountArgs( XIMArg *pInArgs )
  73 {
  74     int nArgs = 0;
  75     char *pName, *pValue;
  76
  77     while ( (pName = pInArgs->name) != NULL )
  78     {
  79         pValue = pInArgs->value;
  80
  81         if ( strcmp(pName, XNVaNestedList) == 0 )
  82         {
  83             nArgs += XvaCountArgs( (XIMArg*)pValue );
  84         }
  85         else
  86         {
  87             nArgs += 1;
  88         }
  89         pInArgs++;
  90     }
  91
  92     return nArgs;
  93 }
  94
  95 int
  96 XvaCountArgs( va_list pInArgs )
  97 {
  98     int nArgs = 0;
  99     char *pName, *pValue;
 100
 101     while ( (pName = va_arg(pInArgs, char*)) != NULL)
 102     {
 103         pValue = va_arg(pInArgs, char*);
 104
 105         if ( strcmp(pName, XNVaNestedList) == 0 )
 106         {
 107             nArgs += XvaCountArgs( (XIMArg*)pValue );
 108         }
 109         else
 110         {
 111             nArgs += 1;
 112         }
 113     }
 114
 115     return nArgs;
 116 }
 117
 118 XIMArg*
 119 XvaGetArgs( XIMArg *pInArgs, XIMArg *pOutArgs )
 120 {
 121     char *pName, *pValue;
 122
 123     while ( (pName = pInArgs->name) != NULL )
 124     {
 125         pValue = pInArgs->value;
 126
 127         if ( strcmp(pName, XNVaNestedList) == 0 )
 128         {
 129             pOutArgs = XvaGetArgs( (XIMArg*)pValue, pOutArgs );
 130         }
 131         else
 132         {
 133             pOutArgs->name  = pName;
 134             pOutArgs->value = pValue;
 135             pOutArgs++;
 136         }
 137         pInArgs++;
 138     }
 139
 140     return pOutArgs;
 141 }
 142
 143 void
 144 XvaGetArgs( va_list pInArgs, XIMArg *pOutArgs )
 145 {
 146     char *pName, *pValue;
 147
 148     while ((pName = va_arg(pInArgs, char*)) != NULL)
 149     {
 150         pValue = va_arg(pInArgs, char*);
 151
 152         if ( strcmp(pName, XNVaNestedList) == 0 )
 153         {
 154             pOutArgs = XvaGetArgs( (XIMArg*)pValue, pOutArgs );
 155         }
 156         else
 157         {
 158             pOutArgs->name  = pName;
 159             pOutArgs->value = pValue;
 160             pOutArgs++;
 161         }
 162     }
 163
 164     pOutArgs->name  = NULL;
 165     pOutArgs->value = NULL;
 166 }
 167
 168
 169 /* Puplic functions */
 170
 171 #ifdef __cplusplus
 172 extern "C"
 173 #endif
 174 XIM
 175 XvaOpenIM(Display *display, XrmDatabase rdb,
 176         char *res_name, char *res_class, ...)
 177 {
 178       XIM xim = (XIM)0;
 179       va_list variable;
 180       int total_count = 0;
 181
 182       /*
 183         * so count the stuff dangling here
 184      */
 185
 186 #if defined(SOLARIS) && !defined(__GNUC__)
 187       va_start(variable);
 188 #else
 189     va_start(variable, res_class);
 190 #endif
 191       total_count = XvaCountArgs(variable);
 192       va_end(variable);
 193
 194       if (total_count > 0)
 195     {
 196         /* call a new open IM method */
 197
 198         XIMArg* args = (XIMArg*)alloca( (total_count + 1) * sizeof(XIMArg) );
 199
 200         /*
 201           * now package it up so we can set it along
 202           */
 203 #if defined(SOLARIS) && !defined(__GNUC__)
 204         va_start(variable);
 205 #else
 206         va_start(variable, res_class);
 207 #endif
 208         XvaGetArgs( variable, args );
 209         va_end(variable);
 210
 211         if (!g_dlmodule)
 212         {
 213             g_dlmodule = dlopen(XIIIMP_LIB, RTLD_LAZY);
 214             if(!g_dlmodule)
 215             {
 216                 g_dlmodule = dlopen(XIIIMP_PATH, RTLD_LAZY);
 217                 if (!g_dlmodule)
 218                     goto legacy_XIM;
 219             }
 220               g_open_im = (OpenFunction)(long)dlsym(g_dlmodule, "__XOpenIM");
 221               if (!g_open_im)
 222                 goto legacy_XIM;
 223
 224               xim = (*g_open_im)(display, (XrmDatabase)rdb,
 225                   (char*)res_name, (char *)res_class, (XIMArg*)args);
 226         }
 227         else
 228         {
 229               goto legacy_XIM;
 230         }
 231       }
 232
 233 // in #if to prevent warning "warning: label 'legacy_XIM' defined but not used"
 234      legacy_XIM:
 235
 236     if (!xim)
 237         xim = XOpenIM(display, rdb, res_name, res_class);
 238
 239     return xim;
 240 }
 241
 242 /*
 243  * Close the connection to the input manager, and free the XIM structure
 244  */
 245
 246 Status XvaCloseIM(XIM)
 247 {
 248       Status s = False;
 249
 250     if (!g_dlmodule)
 251     {
 252         /* assuming one XvaOpenIM call */
 253         dlclose(g_dlmodule);
 254             g_dlmodule = (void*)0;
 255         g_open_im = (OpenFunction)NULL;
 256         s = True;
 257       }
 258     return (s);
 259 }
 260
 261
 262