1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_xmloff.hxx"
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski #include "XFormsModelContext.hxx"
28*b1cdbd2cSJim Jagielski #include <vector>
29*b1cdbd2cSJim Jagielski #include <utility>
30*b1cdbd2cSJim Jagielski #include "xmloff/xformsimport.hxx"
31*b1cdbd2cSJim Jagielski #include <com/sun/star/uno/Reference.hxx>
32*b1cdbd2cSJim Jagielski #include <com/sun/star/beans/XPropertySet.hpp>
33*b1cdbd2cSJim Jagielski #include <com/sun/star/form/binding/XValueBinding.hpp>
34*b1cdbd2cSJim Jagielski #include <com/sun/star/form/binding/XBindableValue.hpp>
35*b1cdbd2cSJim Jagielski #include <com/sun/star/form/binding/XListEntrySource.hpp>
36*b1cdbd2cSJim Jagielski #include <com/sun/star/form/binding/XListEntrySink.hpp>
37*b1cdbd2cSJim Jagielski #include <com/sun/star/form/submission/XSubmission.hpp>
38*b1cdbd2cSJim Jagielski #include <com/sun/star/form/submission/XSubmissionSupplier.hpp>
39*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XNameAccess.hpp>
40*b1cdbd2cSJim Jagielski #include <rtl/ustring.hxx>
41*b1cdbd2cSJim Jagielski #include <xformsapi.hxx>
42*b1cdbd2cSJim Jagielski #include <comphelper/namedvaluecollection.hxx>
43*b1cdbd2cSJim Jagielski #include <tools/diagnose_ex.h>
44*b1cdbd2cSJim Jagielski
45*b1cdbd2cSJim Jagielski using std::pair;
46*b1cdbd2cSJim Jagielski using com::sun::star::uno::Reference;
47*b1cdbd2cSJim Jagielski using com::sun::star::uno::Exception;
48*b1cdbd2cSJim Jagielski using com::sun::star::uno::UNO_QUERY;
49*b1cdbd2cSJim Jagielski using com::sun::star::uno::UNO_QUERY_THROW;
50*b1cdbd2cSJim Jagielski using com::sun::star::uno::UNO_SET_THROW;
51*b1cdbd2cSJim Jagielski using com::sun::star::uno::Sequence;
52*b1cdbd2cSJim Jagielski using com::sun::star::beans::XPropertySet;
53*b1cdbd2cSJim Jagielski using com::sun::star::beans::XPropertySetInfo;
54*b1cdbd2cSJim Jagielski using com::sun::star::beans::PropertyValue;
55*b1cdbd2cSJim Jagielski using com::sun::star::frame::XModel;
56*b1cdbd2cSJim Jagielski using com::sun::star::container::XNameAccess;
57*b1cdbd2cSJim Jagielski using com::sun::star::form::binding::XValueBinding;
58*b1cdbd2cSJim Jagielski using com::sun::star::form::binding::XBindableValue;
59*b1cdbd2cSJim Jagielski using com::sun::star::form::binding::XListEntrySource;
60*b1cdbd2cSJim Jagielski using com::sun::star::form::binding::XListEntrySink;
61*b1cdbd2cSJim Jagielski using com::sun::star::form::submission::XSubmission;
62*b1cdbd2cSJim Jagielski using com::sun::star::form::submission::XSubmissionSupplier;
63*b1cdbd2cSJim Jagielski using rtl::OUString;
64*b1cdbd2cSJim Jagielski
createXFormsModelContext(SvXMLImport & rImport,sal_uInt16 nPrefix,const rtl::OUString & rLocalName)65*b1cdbd2cSJim Jagielski SvXMLImportContext* createXFormsModelContext(
66*b1cdbd2cSJim Jagielski SvXMLImport& rImport,
67*b1cdbd2cSJim Jagielski sal_uInt16 nPrefix,
68*b1cdbd2cSJim Jagielski const rtl::OUString& rLocalName )
69*b1cdbd2cSJim Jagielski {
70*b1cdbd2cSJim Jagielski return new XFormsModelContext( rImport, nPrefix, rLocalName );
71*b1cdbd2cSJim Jagielski }
72*b1cdbd2cSJim Jagielski
bindXFormsValueBinding(Reference<XModel> xModel,pair<Reference<XPropertySet>,OUString> aPair)73*b1cdbd2cSJim Jagielski void bindXFormsValueBinding(
74*b1cdbd2cSJim Jagielski Reference<XModel> xModel,
75*b1cdbd2cSJim Jagielski pair<Reference<XPropertySet>,OUString> aPair )
76*b1cdbd2cSJim Jagielski {
77*b1cdbd2cSJim Jagielski Reference<XBindableValue> xBindable(
78*b1cdbd2cSJim Jagielski aPair.first,
79*b1cdbd2cSJim Jagielski UNO_QUERY );
80*b1cdbd2cSJim Jagielski Reference<XValueBinding> xBinding(
81*b1cdbd2cSJim Jagielski lcl_findXFormsBinding( xModel, aPair.second ),
82*b1cdbd2cSJim Jagielski UNO_QUERY );
83*b1cdbd2cSJim Jagielski
84*b1cdbd2cSJim Jagielski if( xBindable.is() && xBinding.is() )
85*b1cdbd2cSJim Jagielski {
86*b1cdbd2cSJim Jagielski try
87*b1cdbd2cSJim Jagielski {
88*b1cdbd2cSJim Jagielski xBindable->setValueBinding( xBinding );
89*b1cdbd2cSJim Jagielski }
90*b1cdbd2cSJim Jagielski catch( const Exception& )
91*b1cdbd2cSJim Jagielski {
92*b1cdbd2cSJim Jagielski // ignore problems during binding
93*b1cdbd2cSJim Jagielski // TODO: call XML error handling
94*b1cdbd2cSJim Jagielski }
95*b1cdbd2cSJim Jagielski }
96*b1cdbd2cSJim Jagielski }
97*b1cdbd2cSJim Jagielski
bindXFormsListBinding(Reference<XModel> xModel,::pair<Reference<XPropertySet>,OUString> aPair)98*b1cdbd2cSJim Jagielski void bindXFormsListBinding(
99*b1cdbd2cSJim Jagielski Reference<XModel> xModel,
100*b1cdbd2cSJim Jagielski ::pair<Reference<XPropertySet>,OUString> aPair )
101*b1cdbd2cSJim Jagielski {
102*b1cdbd2cSJim Jagielski Reference<XListEntrySink> xListEntrySink(
103*b1cdbd2cSJim Jagielski aPair.first,
104*b1cdbd2cSJim Jagielski UNO_QUERY );
105*b1cdbd2cSJim Jagielski Reference<XListEntrySource> xListEntrySource(
106*b1cdbd2cSJim Jagielski lcl_findXFormsBinding( xModel, aPair.second ),
107*b1cdbd2cSJim Jagielski UNO_QUERY );
108*b1cdbd2cSJim Jagielski
109*b1cdbd2cSJim Jagielski if( xListEntrySink.is() && xListEntrySource.is() )
110*b1cdbd2cSJim Jagielski {
111*b1cdbd2cSJim Jagielski try
112*b1cdbd2cSJim Jagielski {
113*b1cdbd2cSJim Jagielski xListEntrySink->setListEntrySource( xListEntrySource );
114*b1cdbd2cSJim Jagielski }
115*b1cdbd2cSJim Jagielski catch( const Exception& )
116*b1cdbd2cSJim Jagielski {
117*b1cdbd2cSJim Jagielski // ignore problems during binding
118*b1cdbd2cSJim Jagielski // TODO: call XML error handling
119*b1cdbd2cSJim Jagielski }
120*b1cdbd2cSJim Jagielski }
121*b1cdbd2cSJim Jagielski }
122*b1cdbd2cSJim Jagielski
bindXFormsSubmission(Reference<XModel> xModel,pair<Reference<XPropertySet>,OUString> aPair)123*b1cdbd2cSJim Jagielski void bindXFormsSubmission(
124*b1cdbd2cSJim Jagielski Reference<XModel> xModel,
125*b1cdbd2cSJim Jagielski pair<Reference<XPropertySet>,OUString> aPair )
126*b1cdbd2cSJim Jagielski {
127*b1cdbd2cSJim Jagielski Reference<XSubmissionSupplier> xSubmissionSupp( aPair.first, UNO_QUERY );
128*b1cdbd2cSJim Jagielski Reference<XSubmission> xSubmission(
129*b1cdbd2cSJim Jagielski lcl_findXFormsSubmission( xModel, aPair.second ),
130*b1cdbd2cSJim Jagielski UNO_QUERY );
131*b1cdbd2cSJim Jagielski
132*b1cdbd2cSJim Jagielski if( xSubmissionSupp.is() && xSubmission.is() )
133*b1cdbd2cSJim Jagielski {
134*b1cdbd2cSJim Jagielski try
135*b1cdbd2cSJim Jagielski {
136*b1cdbd2cSJim Jagielski xSubmissionSupp->setSubmission( xSubmission );
137*b1cdbd2cSJim Jagielski }
138*b1cdbd2cSJim Jagielski catch( const Exception& )
139*b1cdbd2cSJim Jagielski {
140*b1cdbd2cSJim Jagielski // ignore problems during binding
141*b1cdbd2cSJim Jagielski // TODO: call XML error handling
142*b1cdbd2cSJim Jagielski }
143*b1cdbd2cSJim Jagielski }
144*b1cdbd2cSJim Jagielski }
145*b1cdbd2cSJim Jagielski
applyXFormsSettings(const Reference<XNameAccess> & _rXForms,const Sequence<PropertyValue> & _rSettings)146*b1cdbd2cSJim Jagielski void applyXFormsSettings( const Reference< XNameAccess >& _rXForms, const Sequence< PropertyValue >& _rSettings )
147*b1cdbd2cSJim Jagielski {
148*b1cdbd2cSJim Jagielski OSL_PRECOND( _rXForms.is(), "applyXFormsSettings: invalid XForms container!" );
149*b1cdbd2cSJim Jagielski if ( !_rXForms.is() )
150*b1cdbd2cSJim Jagielski return;
151*b1cdbd2cSJim Jagielski
152*b1cdbd2cSJim Jagielski ::comphelper::NamedValueCollection aSettings( _rSettings );
153*b1cdbd2cSJim Jagielski Reference< XNameAccess > xModelSettings( aSettings.get( "XFormModels" ), UNO_QUERY );
154*b1cdbd2cSJim Jagielski if ( !xModelSettings.is() )
155*b1cdbd2cSJim Jagielski {
156*b1cdbd2cSJim Jagielski OSL_ENSURE( false, "applyXFormsSettings: wrong type for the XFormModels settings!" );
157*b1cdbd2cSJim Jagielski return;
158*b1cdbd2cSJim Jagielski }
159*b1cdbd2cSJim Jagielski
160*b1cdbd2cSJim Jagielski try
161*b1cdbd2cSJim Jagielski {
162*b1cdbd2cSJim Jagielski Sequence< ::rtl::OUString > aSettingsForModels( xModelSettings->getElementNames() );
163*b1cdbd2cSJim Jagielski for ( const ::rtl::OUString* pModelName = aSettingsForModels.getConstArray();
164*b1cdbd2cSJim Jagielski pModelName != aSettingsForModels.getConstArray() + aSettingsForModels.getLength();
165*b1cdbd2cSJim Jagielski ++pModelName
166*b1cdbd2cSJim Jagielski )
167*b1cdbd2cSJim Jagielski {
168*b1cdbd2cSJim Jagielski // the settings for this particular model
169*b1cdbd2cSJim Jagielski Sequence< PropertyValue > aModelSettings;
170*b1cdbd2cSJim Jagielski OSL_VERIFY( xModelSettings->getByName( *pModelName ) >>= aModelSettings );
171*b1cdbd2cSJim Jagielski
172*b1cdbd2cSJim Jagielski // the model itself
173*b1cdbd2cSJim Jagielski if ( !_rXForms->hasByName( *pModelName ) )
174*b1cdbd2cSJim Jagielski {
175*b1cdbd2cSJim Jagielski OSL_ENSURE( false, "applyXFormsSettings: have settings for a non-existent XForms model!" );
176*b1cdbd2cSJim Jagielski continue;
177*b1cdbd2cSJim Jagielski }
178*b1cdbd2cSJim Jagielski
179*b1cdbd2cSJim Jagielski // propagate the settings, being tolerant by omitting properties which are not supported
180*b1cdbd2cSJim Jagielski Reference< XPropertySet > xModelProps( _rXForms->getByName( *pModelName ), UNO_QUERY_THROW );
181*b1cdbd2cSJim Jagielski Reference< XPropertySetInfo > xModelPSI( xModelProps->getPropertySetInfo(), UNO_SET_THROW );
182*b1cdbd2cSJim Jagielski
183*b1cdbd2cSJim Jagielski for ( const PropertyValue* pSetting = aModelSettings.getConstArray();
184*b1cdbd2cSJim Jagielski pSetting != aModelSettings.getConstArray() + aModelSettings.getLength();
185*b1cdbd2cSJim Jagielski ++pSetting
186*b1cdbd2cSJim Jagielski )
187*b1cdbd2cSJim Jagielski {
188*b1cdbd2cSJim Jagielski if ( !xModelPSI->hasPropertyByName( pSetting->Name ) )
189*b1cdbd2cSJim Jagielski {
190*b1cdbd2cSJim Jagielski OSL_ENSURE( false, "applyXFormsSettings: non-existent model property!" );
191*b1cdbd2cSJim Jagielski continue;
192*b1cdbd2cSJim Jagielski }
193*b1cdbd2cSJim Jagielski
194*b1cdbd2cSJim Jagielski xModelProps->setPropertyValue( pSetting->Name, pSetting->Value );
195*b1cdbd2cSJim Jagielski }
196*b1cdbd2cSJim Jagielski }
197*b1cdbd2cSJim Jagielski }
198*b1cdbd2cSJim Jagielski catch( const Exception& )
199*b1cdbd2cSJim Jagielski {
200*b1cdbd2cSJim Jagielski DBG_UNHANDLED_EXCEPTION();
201*b1cdbd2cSJim Jagielski }
202*b1cdbd2cSJim Jagielski }
203