1*cdf0e10cSrcweir /************************************************************************* 2*cdf0e10cSrcweir * 3*cdf0e10cSrcweir * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir * 5*cdf0e10cSrcweir * Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir * 7*cdf0e10cSrcweir * OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir * 9*cdf0e10cSrcweir * This file is part of OpenOffice.org. 10*cdf0e10cSrcweir * 11*cdf0e10cSrcweir * OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir * it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir * only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir * 15*cdf0e10cSrcweir * OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir * but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir * GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir * (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir * 21*cdf0e10cSrcweir * You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir * version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir * <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir * for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir * 26*cdf0e10cSrcweir ************************************************************************/ 27*cdf0e10cSrcweir 28*cdf0e10cSrcweir #include "uno/environment.hxx" 29*cdf0e10cSrcweir 30*cdf0e10cSrcweir #include "cppu/EnvDcp.hxx" 31*cdf0e10cSrcweir #include "cppu/Enterable.hxx" 32*cdf0e10cSrcweir 33*cdf0e10cSrcweir #include "osl/thread.h" 34*cdf0e10cSrcweir #include "osl/mutex.hxx" 35*cdf0e10cSrcweir 36*cdf0e10cSrcweir #include <hash_map> 37*cdf0e10cSrcweir 38*cdf0e10cSrcweir 39*cdf0e10cSrcweir using namespace com::sun::star; 40*cdf0e10cSrcweir 41*cdf0e10cSrcweir 42*cdf0e10cSrcweir struct SAL_DLLPRIVATE oslThreadIdentifier_equal 43*cdf0e10cSrcweir { 44*cdf0e10cSrcweir bool operator()(oslThreadIdentifier s1, oslThreadIdentifier s2) const; 45*cdf0e10cSrcweir }; 46*cdf0e10cSrcweir 47*cdf0e10cSrcweir bool oslThreadIdentifier_equal::operator()(oslThreadIdentifier s1, oslThreadIdentifier s2) const 48*cdf0e10cSrcweir { 49*cdf0e10cSrcweir bool result = s1 == s2; 50*cdf0e10cSrcweir 51*cdf0e10cSrcweir return result; 52*cdf0e10cSrcweir } 53*cdf0e10cSrcweir 54*cdf0e10cSrcweir 55*cdf0e10cSrcweir struct SAL_DLLPRIVATE oslThreadIdentifier_hash 56*cdf0e10cSrcweir { 57*cdf0e10cSrcweir size_t operator()(oslThreadIdentifier s1) const; 58*cdf0e10cSrcweir }; 59*cdf0e10cSrcweir 60*cdf0e10cSrcweir size_t oslThreadIdentifier_hash::operator()(oslThreadIdentifier s1) const 61*cdf0e10cSrcweir { 62*cdf0e10cSrcweir return s1; 63*cdf0e10cSrcweir } 64*cdf0e10cSrcweir 65*cdf0e10cSrcweir typedef ::std::hash_map<oslThreadIdentifier, 66*cdf0e10cSrcweir uno_Environment *, 67*cdf0e10cSrcweir oslThreadIdentifier_hash, 68*cdf0e10cSrcweir oslThreadIdentifier_equal> ThreadMap; 69*cdf0e10cSrcweir 70*cdf0e10cSrcweir static osl::Mutex s_threadMap_mutex; 71*cdf0e10cSrcweir static ThreadMap s_threadMap; 72*cdf0e10cSrcweir 73*cdf0e10cSrcweir 74*cdf0e10cSrcweir static rtl::OUString s_uno_envDcp(RTL_CONSTASCII_USTRINGPARAM(UNO_LB_UNO)); 75*cdf0e10cSrcweir 76*cdf0e10cSrcweir static void s_setCurrent(uno_Environment * pEnv) 77*cdf0e10cSrcweir { 78*cdf0e10cSrcweir oslThreadIdentifier threadId = osl_getThreadIdentifier(NULL); 79*cdf0e10cSrcweir 80*cdf0e10cSrcweir osl::MutexGuard guard(s_threadMap_mutex); 81*cdf0e10cSrcweir if (pEnv) 82*cdf0e10cSrcweir s_threadMap[threadId] = pEnv; 83*cdf0e10cSrcweir 84*cdf0e10cSrcweir else 85*cdf0e10cSrcweir { 86*cdf0e10cSrcweir ThreadMap::iterator iEnv = s_threadMap.find(threadId); 87*cdf0e10cSrcweir s_threadMap.erase(iEnv); 88*cdf0e10cSrcweir } 89*cdf0e10cSrcweir } 90*cdf0e10cSrcweir 91*cdf0e10cSrcweir static uno_Environment * s_getCurrent(void) 92*cdf0e10cSrcweir { 93*cdf0e10cSrcweir uno_Environment * pEnv = NULL; 94*cdf0e10cSrcweir 95*cdf0e10cSrcweir oslThreadIdentifier threadId = osl_getThreadIdentifier(NULL); 96*cdf0e10cSrcweir 97*cdf0e10cSrcweir osl::MutexGuard guard(s_threadMap_mutex); 98*cdf0e10cSrcweir ThreadMap::iterator iEnv = s_threadMap.find(threadId); 99*cdf0e10cSrcweir if(iEnv != s_threadMap.end()) 100*cdf0e10cSrcweir pEnv = iEnv->second; 101*cdf0e10cSrcweir 102*cdf0e10cSrcweir return pEnv; 103*cdf0e10cSrcweir } 104*cdf0e10cSrcweir 105*cdf0e10cSrcweir 106*cdf0e10cSrcweir extern "C" void SAL_CALL uno_getCurrentEnvironment(uno_Environment ** ppEnv, rtl_uString * pTypeName) 107*cdf0e10cSrcweir SAL_THROW_EXTERN_C() 108*cdf0e10cSrcweir { 109*cdf0e10cSrcweir if (*ppEnv) 110*cdf0e10cSrcweir { 111*cdf0e10cSrcweir (*ppEnv)->release(*ppEnv); 112*cdf0e10cSrcweir *ppEnv = NULL; 113*cdf0e10cSrcweir } 114*cdf0e10cSrcweir 115*cdf0e10cSrcweir rtl::OUString currPurpose; 116*cdf0e10cSrcweir 117*cdf0e10cSrcweir uno_Environment * pCurrEnv = s_getCurrent(); 118*cdf0e10cSrcweir if (pCurrEnv) // no environment means no purpose 119*cdf0e10cSrcweir currPurpose = cppu::EnvDcp::getPurpose(pCurrEnv->pTypeName); 120*cdf0e10cSrcweir 121*cdf0e10cSrcweir if (pTypeName && rtl_uString_getLength(pTypeName)) 122*cdf0e10cSrcweir { 123*cdf0e10cSrcweir rtl::OUString envDcp(pTypeName); 124*cdf0e10cSrcweir envDcp += currPurpose; 125*cdf0e10cSrcweir 126*cdf0e10cSrcweir uno_getEnvironment(ppEnv, envDcp.pData, NULL); 127*cdf0e10cSrcweir } 128*cdf0e10cSrcweir else 129*cdf0e10cSrcweir { 130*cdf0e10cSrcweir if (pCurrEnv) 131*cdf0e10cSrcweir { 132*cdf0e10cSrcweir *ppEnv = pCurrEnv; 133*cdf0e10cSrcweir (*ppEnv)->acquire(*ppEnv); 134*cdf0e10cSrcweir } 135*cdf0e10cSrcweir else 136*cdf0e10cSrcweir uno_getEnvironment(ppEnv, s_uno_envDcp.pData, NULL); 137*cdf0e10cSrcweir 138*cdf0e10cSrcweir } 139*cdf0e10cSrcweir } 140*cdf0e10cSrcweir 141*cdf0e10cSrcweir static rtl::OUString s_getPrefix(rtl::OUString const & str1, rtl::OUString const & str2) 142*cdf0e10cSrcweir { 143*cdf0e10cSrcweir sal_Int32 nIndex1 = 0; 144*cdf0e10cSrcweir sal_Int32 nIndex2 = 0; 145*cdf0e10cSrcweir sal_Int32 sim = 0; 146*cdf0e10cSrcweir 147*cdf0e10cSrcweir rtl::OUString token1; 148*cdf0e10cSrcweir rtl::OUString token2; 149*cdf0e10cSrcweir 150*cdf0e10cSrcweir do 151*cdf0e10cSrcweir { 152*cdf0e10cSrcweir token1 = str1.getToken(0, ':', nIndex1); 153*cdf0e10cSrcweir token2 = str2.getToken(0, ':', nIndex2); 154*cdf0e10cSrcweir 155*cdf0e10cSrcweir if (token1.equals(token2)) 156*cdf0e10cSrcweir sim += token1.getLength() + 1; 157*cdf0e10cSrcweir } 158*cdf0e10cSrcweir while(nIndex1 == nIndex2 && nIndex1 >= 0 && token1.equals(token2)); 159*cdf0e10cSrcweir 160*cdf0e10cSrcweir rtl::OUString result; 161*cdf0e10cSrcweir 162*cdf0e10cSrcweir if (sim) 163*cdf0e10cSrcweir result = str1.copy(0, sim - 1); 164*cdf0e10cSrcweir 165*cdf0e10cSrcweir return result; 166*cdf0e10cSrcweir } 167*cdf0e10cSrcweir 168*cdf0e10cSrcweir static int s_getNextEnv(uno_Environment ** ppEnv, uno_Environment * pCurrEnv, uno_Environment * pTargetEnv) 169*cdf0e10cSrcweir { 170*cdf0e10cSrcweir int res = 0; 171*cdf0e10cSrcweir 172*cdf0e10cSrcweir rtl::OUString nextPurpose; 173*cdf0e10cSrcweir 174*cdf0e10cSrcweir rtl::OUString currPurpose; 175*cdf0e10cSrcweir if (pCurrEnv) 176*cdf0e10cSrcweir currPurpose = cppu::EnvDcp::getPurpose(pCurrEnv->pTypeName); 177*cdf0e10cSrcweir 178*cdf0e10cSrcweir rtl::OUString targetPurpose; 179*cdf0e10cSrcweir if (pTargetEnv) 180*cdf0e10cSrcweir targetPurpose = cppu::EnvDcp::getPurpose(pTargetEnv->pTypeName); 181*cdf0e10cSrcweir 182*cdf0e10cSrcweir rtl::OUString intermPurpose(s_getPrefix(currPurpose, targetPurpose)); 183*cdf0e10cSrcweir if (currPurpose.getLength() > intermPurpose.getLength()) 184*cdf0e10cSrcweir { 185*cdf0e10cSrcweir sal_Int32 idx = currPurpose.lastIndexOf(':'); 186*cdf0e10cSrcweir nextPurpose = currPurpose.copy(0, idx); 187*cdf0e10cSrcweir 188*cdf0e10cSrcweir res = -1; 189*cdf0e10cSrcweir } 190*cdf0e10cSrcweir else if (intermPurpose.getLength() < targetPurpose.getLength()) 191*cdf0e10cSrcweir { 192*cdf0e10cSrcweir sal_Int32 idx = targetPurpose.indexOf(':', intermPurpose.getLength() + 1); 193*cdf0e10cSrcweir if (idx == -1) 194*cdf0e10cSrcweir nextPurpose = targetPurpose; 195*cdf0e10cSrcweir 196*cdf0e10cSrcweir else 197*cdf0e10cSrcweir nextPurpose = targetPurpose.copy(0, idx); 198*cdf0e10cSrcweir 199*cdf0e10cSrcweir res = 1; 200*cdf0e10cSrcweir } 201*cdf0e10cSrcweir 202*cdf0e10cSrcweir if (nextPurpose.getLength()) 203*cdf0e10cSrcweir { 204*cdf0e10cSrcweir rtl::OUString next_envDcp(s_uno_envDcp); 205*cdf0e10cSrcweir next_envDcp += nextPurpose; 206*cdf0e10cSrcweir 207*cdf0e10cSrcweir uno_getEnvironment(ppEnv, next_envDcp.pData, NULL); 208*cdf0e10cSrcweir } 209*cdf0e10cSrcweir else 210*cdf0e10cSrcweir { 211*cdf0e10cSrcweir if (*ppEnv) 212*cdf0e10cSrcweir (*ppEnv)->release(*ppEnv); 213*cdf0e10cSrcweir 214*cdf0e10cSrcweir *ppEnv = NULL; 215*cdf0e10cSrcweir } 216*cdf0e10cSrcweir 217*cdf0e10cSrcweir return res; 218*cdf0e10cSrcweir } 219*cdf0e10cSrcweir 220*cdf0e10cSrcweir extern "C" { static void s_pull(va_list * pParam) 221*cdf0e10cSrcweir { 222*cdf0e10cSrcweir uno_EnvCallee * pCallee = va_arg(*pParam, uno_EnvCallee *); 223*cdf0e10cSrcweir va_list * pXparam = va_arg(*pParam, va_list *); 224*cdf0e10cSrcweir 225*cdf0e10cSrcweir pCallee(pXparam); 226*cdf0e10cSrcweir }} 227*cdf0e10cSrcweir 228*cdf0e10cSrcweir static void s_callInto_v(uno_Environment * pEnv, uno_EnvCallee * pCallee, va_list * pParam) 229*cdf0e10cSrcweir { 230*cdf0e10cSrcweir cppu::Enterable * pEnterable = reinterpret_cast<cppu::Enterable *>(pEnv->pReserved); 231*cdf0e10cSrcweir if (pEnterable) 232*cdf0e10cSrcweir pEnterable->callInto(s_pull, pCallee, pParam); 233*cdf0e10cSrcweir 234*cdf0e10cSrcweir else 235*cdf0e10cSrcweir pCallee(pParam); 236*cdf0e10cSrcweir } 237*cdf0e10cSrcweir 238*cdf0e10cSrcweir static void s_callInto(uno_Environment * pEnv, uno_EnvCallee * pCallee, ...) 239*cdf0e10cSrcweir { 240*cdf0e10cSrcweir va_list param; 241*cdf0e10cSrcweir 242*cdf0e10cSrcweir va_start(param, pCallee); 243*cdf0e10cSrcweir s_callInto_v(pEnv, pCallee, ¶m); 244*cdf0e10cSrcweir va_end(param); 245*cdf0e10cSrcweir } 246*cdf0e10cSrcweir 247*cdf0e10cSrcweir static void s_callOut_v(uno_Environment * pEnv, uno_EnvCallee * pCallee, va_list * pParam) 248*cdf0e10cSrcweir { 249*cdf0e10cSrcweir cppu::Enterable * pEnterable = reinterpret_cast<cppu::Enterable *>(pEnv->pReserved); 250*cdf0e10cSrcweir if (pEnterable) 251*cdf0e10cSrcweir pEnterable->callOut_v(pCallee, pParam); 252*cdf0e10cSrcweir 253*cdf0e10cSrcweir else 254*cdf0e10cSrcweir pCallee(pParam); 255*cdf0e10cSrcweir } 256*cdf0e10cSrcweir 257*cdf0e10cSrcweir static void s_callOut(uno_Environment * pEnv, uno_EnvCallee * pCallee, ...) 258*cdf0e10cSrcweir { 259*cdf0e10cSrcweir va_list param; 260*cdf0e10cSrcweir 261*cdf0e10cSrcweir va_start(param, pCallee); 262*cdf0e10cSrcweir s_callOut_v(pEnv, pCallee, ¶m); 263*cdf0e10cSrcweir va_end(param); 264*cdf0e10cSrcweir } 265*cdf0e10cSrcweir 266*cdf0e10cSrcweir static void s_environment_invoke_v(uno_Environment *, uno_Environment *, uno_EnvCallee *, va_list *); 267*cdf0e10cSrcweir 268*cdf0e10cSrcweir extern "C" { static void s_environment_invoke_vv(va_list * pParam) 269*cdf0e10cSrcweir { 270*cdf0e10cSrcweir uno_Environment * pCurrEnv = va_arg(*pParam, uno_Environment *); 271*cdf0e10cSrcweir uno_Environment * pTargetEnv = va_arg(*pParam, uno_Environment *); 272*cdf0e10cSrcweir uno_EnvCallee * pCallee = va_arg(*pParam, uno_EnvCallee *); 273*cdf0e10cSrcweir va_list * pXparam = va_arg(*pParam, va_list *); 274*cdf0e10cSrcweir 275*cdf0e10cSrcweir s_environment_invoke_v(pCurrEnv, pTargetEnv, pCallee, pXparam); 276*cdf0e10cSrcweir }} 277*cdf0e10cSrcweir 278*cdf0e10cSrcweir static void s_environment_invoke_v(uno_Environment * pCurrEnv, uno_Environment * pTargetEnv, uno_EnvCallee * pCallee, va_list * pParam) 279*cdf0e10cSrcweir { 280*cdf0e10cSrcweir uno_Environment * pNextEnv = NULL; 281*cdf0e10cSrcweir switch(s_getNextEnv(&pNextEnv, pCurrEnv, pTargetEnv)) 282*cdf0e10cSrcweir { 283*cdf0e10cSrcweir case -1: 284*cdf0e10cSrcweir s_setCurrent(pNextEnv); 285*cdf0e10cSrcweir s_callOut(pCurrEnv, s_environment_invoke_vv, pNextEnv, pTargetEnv, pCallee, pParam); 286*cdf0e10cSrcweir s_setCurrent(pCurrEnv); 287*cdf0e10cSrcweir break; 288*cdf0e10cSrcweir 289*cdf0e10cSrcweir case 0: { 290*cdf0e10cSrcweir uno_Environment * hld = s_getCurrent(); 291*cdf0e10cSrcweir s_setCurrent(pCurrEnv); 292*cdf0e10cSrcweir pCallee(pParam); 293*cdf0e10cSrcweir s_setCurrent(hld); 294*cdf0e10cSrcweir } 295*cdf0e10cSrcweir break; 296*cdf0e10cSrcweir 297*cdf0e10cSrcweir case 1: 298*cdf0e10cSrcweir s_setCurrent(pNextEnv); 299*cdf0e10cSrcweir s_callInto(pNextEnv, s_environment_invoke_vv, pNextEnv, pTargetEnv, pCallee, pParam); 300*cdf0e10cSrcweir s_setCurrent(pCurrEnv); 301*cdf0e10cSrcweir break; 302*cdf0e10cSrcweir } 303*cdf0e10cSrcweir 304*cdf0e10cSrcweir if (pNextEnv) 305*cdf0e10cSrcweir pNextEnv->release(pNextEnv); 306*cdf0e10cSrcweir } 307*cdf0e10cSrcweir 308*cdf0e10cSrcweir extern "C" void SAL_CALL uno_Environment_invoke_v(uno_Environment * pTargetEnv, uno_EnvCallee * pCallee, va_list * pParam) 309*cdf0e10cSrcweir SAL_THROW_EXTERN_C() 310*cdf0e10cSrcweir { 311*cdf0e10cSrcweir s_environment_invoke_v(s_getCurrent(), pTargetEnv, pCallee, pParam); 312*cdf0e10cSrcweir } 313*cdf0e10cSrcweir 314*cdf0e10cSrcweir extern "C" void SAL_CALL uno_Environment_invoke(uno_Environment * pEnv, uno_EnvCallee * pCallee, ...) 315*cdf0e10cSrcweir SAL_THROW_EXTERN_C() 316*cdf0e10cSrcweir { 317*cdf0e10cSrcweir va_list param; 318*cdf0e10cSrcweir 319*cdf0e10cSrcweir va_start(param, pCallee); 320*cdf0e10cSrcweir uno_Environment_invoke_v(pEnv, pCallee, ¶m); 321*cdf0e10cSrcweir va_end(param); 322*cdf0e10cSrcweir } 323*cdf0e10cSrcweir 324*cdf0e10cSrcweir extern "C" void SAL_CALL uno_Environment_enter(uno_Environment * pTargetEnv) 325*cdf0e10cSrcweir SAL_THROW_EXTERN_C() 326*cdf0e10cSrcweir { 327*cdf0e10cSrcweir uno_Environment * pNextEnv = NULL; 328*cdf0e10cSrcweir uno_Environment * pCurrEnv = s_getCurrent(); 329*cdf0e10cSrcweir 330*cdf0e10cSrcweir int res; 331*cdf0e10cSrcweir while ( (res = s_getNextEnv(&pNextEnv, pCurrEnv, pTargetEnv)) != 0) 332*cdf0e10cSrcweir { 333*cdf0e10cSrcweir cppu::Enterable * pEnterable; 334*cdf0e10cSrcweir 335*cdf0e10cSrcweir switch(res) 336*cdf0e10cSrcweir { 337*cdf0e10cSrcweir case -1: 338*cdf0e10cSrcweir pEnterable = reinterpret_cast<cppu::Enterable *>(pCurrEnv->pReserved); 339*cdf0e10cSrcweir if (pEnterable) 340*cdf0e10cSrcweir pEnterable->leave(); 341*cdf0e10cSrcweir pCurrEnv->release(pCurrEnv); 342*cdf0e10cSrcweir break; 343*cdf0e10cSrcweir 344*cdf0e10cSrcweir case 1: 345*cdf0e10cSrcweir pNextEnv->acquire(pNextEnv); 346*cdf0e10cSrcweir pEnterable = reinterpret_cast<cppu::Enterable *>(pNextEnv->pReserved); 347*cdf0e10cSrcweir if (pEnterable) 348*cdf0e10cSrcweir pEnterable->enter(); 349*cdf0e10cSrcweir break; 350*cdf0e10cSrcweir } 351*cdf0e10cSrcweir 352*cdf0e10cSrcweir s_setCurrent(pNextEnv); 353*cdf0e10cSrcweir pCurrEnv = pNextEnv; 354*cdf0e10cSrcweir } 355*cdf0e10cSrcweir } 356*cdf0e10cSrcweir 357*cdf0e10cSrcweir int SAL_CALL uno_Environment_isValid(uno_Environment * pEnv, rtl_uString ** pReason) 358*cdf0e10cSrcweir SAL_THROW_EXTERN_C() 359*cdf0e10cSrcweir { 360*cdf0e10cSrcweir int result = 1; 361*cdf0e10cSrcweir 362*cdf0e10cSrcweir rtl::OUString typeName(cppu::EnvDcp::getTypeName(pEnv->pTypeName)); 363*cdf0e10cSrcweir if (typeName.equals(s_uno_envDcp)) 364*cdf0e10cSrcweir { 365*cdf0e10cSrcweir cppu::Enterable * pEnterable = reinterpret_cast<cppu::Enterable *>(pEnv->pReserved); 366*cdf0e10cSrcweir if (pEnterable) 367*cdf0e10cSrcweir result = pEnterable->isValid((rtl::OUString *)pReason); 368*cdf0e10cSrcweir } 369*cdf0e10cSrcweir else 370*cdf0e10cSrcweir { 371*cdf0e10cSrcweir rtl::OUString envDcp(s_uno_envDcp); 372*cdf0e10cSrcweir envDcp += cppu::EnvDcp::getPurpose(pEnv->pTypeName); 373*cdf0e10cSrcweir 374*cdf0e10cSrcweir uno::Environment env(envDcp); 375*cdf0e10cSrcweir 376*cdf0e10cSrcweir result = env.isValid((rtl::OUString *)pReason); 377*cdf0e10cSrcweir } 378*cdf0e10cSrcweir 379*cdf0e10cSrcweir return result; 380*cdf0e10cSrcweir } 381