1 /*************************************************************************
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 * Copyright 2008 by Sun Microsystems, Inc.
7 * OpenOffice.org - a multi-platform office productivity suite
9 * $RCSfile: env_subst.cxx,v $
12 * This file is part of OpenOffice.org.
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.
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).
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.
29 ************************************************************************/
31 #include "rtl/ustring.hxx"
32 #include "uno/environment.h"
33 #include "env_subst.hxx"
36 void SAL_CALL
uno_getEnvironment(uno_Environment
** ppEnv
,
37 rtl_uString
* pEnvDcp
,
41 rtl::OUString
envDcp(pEnvDcp
);
43 rtl::OString
a_envName("UNO_ENV_SUBST:");
44 a_envName
+= rtl::OUStringToOString(envDcp
, RTL_TEXTENCODING_ASCII_US
);
45 char * c_value
= getenv(a_envName
.getStr());
46 if (c_value
&& rtl_str_getLength(c_value
))
48 rtl::OString
a_envDcp(a_envName
.copy(a_envName
.indexOf(':') + 1));
50 OSL_TRACE("UNO_ENV_SUBST \"%s\" -> \"%s\"", a_envDcp
.getStr(), c_value
);
51 rtl::OUString
value(c_value
, rtl_str_getLength(c_value
), RTL_TEXTENCODING_ASCII_US
);
56 uno_direct_getEnvironment(ppEnv
, envDcp
.pData
, pContext
);