1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
3 * This file is part of the LibreOffice project.
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/.
9 * This file incorporates work covered by the following license notice:
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 .
20 #include "callform.hxx"
22 #include <osl/diagnose.h>
23 #include <tools/urlobj.hxx>
24 #include <ucbhelper/content.hxx>
25 #include <unotools/localfilehelper.hxx>
27 #include <unotools/pathoptions.hxx>
29 #include <com/sun/star/sdbc/XResultSet.hpp>
30 #include <com/sun/star/sdbc/XRow.hpp>
31 #include <com/sun/star/ucb/XCommandEnvironment.hpp>
32 #include <com/sun/star/ucb/XContentAccess.hpp>
34 #include <com/sun/star/i18n/OrdinalSuffix.hpp>
35 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
36 #include <comphelper/processfactory.hxx>
37 #include <comphelper/string.hxx>
38 #include <unotools/localedatawrapper.hxx>
40 using namespace ::com::sun::star
;
41 using namespace ::com::sun::star::uno
;
42 using namespace ::com::sun::star::ucb
;
44 void ScGlobal::InitAddIns()
46 // multi paths separated by semicolons
47 SvtPathOptions aPathOpt
;
48 OUString aMultiPath
= aPathOpt
.GetAddinPath();
49 if (aMultiPath
.isEmpty())
52 sal_Int32 nTokens
= comphelper::string::getTokenCount(aMultiPath
, ';');
53 for (sal_Int32 j
= 0; j
< nTokens
; ++j
)
55 OUString aPath
= aMultiPath
.getToken(j
, ';');
59 // use LocalFileHelper to convert the path to a URL that always points
60 // to the file on the server
62 if ( utl::LocalFileHelper::ConvertPhysicalNameToURL( aPath
, aUrl
) )
66 aObj
.SetSmartURL( aPath
);
70 ::ucbhelper::Content
aCnt( aObj
.GetMainURL(INetURLObject::NO_DECODE
),
71 Reference
< XCommandEnvironment
>(),
72 comphelper::getProcessComponentContext() );
73 Reference
< sdbc::XResultSet
> xResultSet
;
74 Sequence
< OUString
> aProps
;
77 xResultSet
= aCnt
.createCursor(
78 aProps
, ::ucbhelper::INCLUDE_DOCUMENTS_ONLY
);
82 // ucb may throw different exceptions on failure now
83 // no assertion if AddIn directory doesn't exist
86 if ( xResultSet
.is() )
88 Reference
< sdbc::XRow
> xRow( xResultSet
, UNO_QUERY
);
89 Reference
< XContentAccess
>
90 xContentAccess( xResultSet
, UNO_QUERY
);
93 if ( xResultSet
->first() )
97 OUString aId
= xContentAccess
->queryContentIdentifierString();
98 InitExternalFunc( aId
);
100 while ( xResultSet
->next() );
105 OSL_FAIL( "ResultSetException caught!" );
111 OSL_FAIL( "Exception caught!" );
115 OSL_FAIL( "unexpected exception caught!" );
120 OUString
ScGlobal::GetOrdinalSuffix( sal_Int32 nNumber
)
124 if (!xOrdinalSuffix
.is())
126 xOrdinalSuffix
= i18n::OrdinalSuffix::create( ::comphelper::getProcessComponentContext() );
128 uno::Sequence
< OUString
> aSuffixes
= xOrdinalSuffix
->getOrdinalSuffix( nNumber
,
129 ScGlobal::pLocaleData
->getLanguageTag().getLocale());
130 if ( aSuffixes
.getLength() > 0 )
137 OSL_FAIL( "GetOrdinalSuffix: exception caught during init" );
142 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */