INTEGRATION: CWS eforms4 (1.2.6); FILE MERGED

2004/12/29 10:53:12 fs 1.2.6.5: renamed a method
2004/12/28 09:39:26 fs 1.2.6.4: #i39451# derive from another PropertySet helper class, which also allows listener handling
2004/12/15 12:01:50 mbu 1.2.6.3: .
2004/12/15 11:03:18 dvo 1.2.6.2: #i35397# use model namespaces (when possible)
Issue number:
Submitted by:
Reviewed by:
2004/12/14 16:08:28 dvo 1.2.6.1: #i36765# use Interaction Handler for submission warning & submission itself
Issue number:
Submitted by:
Reviewed by:

forms/source/xforms/model.cxx

@@ -2,9 +2,9 @@
  *
  *  $RCSfile: model.cxx,v $
  *
- *  $Revision: 1.2 $
+ *  $Revision: 1.3 $
  *
- *  last change: $Author: obo $ $Date: 2004-11-16 10:53:47 $
+ *  last change: $Author: vg $ $Date: 2005-03-23 11:37:03 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -69,6 +69,7 @@
 #include "evaluationcontext.hxx"
 #include "xmlhelper.hxx"
 #include "datatyperepository.hxx"
+#include "NameContainer.hxx"
 
 #include <rtl/ustring.hxx>
 #include <rtl/ustrbuf.hxx>
@@ -89,7 +90,6 @@
 #include <com/sun/star/xml/dom/XDocumentBuilder.hpp>
 #include <com/sun/star/uno/Sequence.hxx>
 #include <com/sun/star/ucb/XSimpleFileAccess.hpp>
-#include <com/sun/star/beans/PropertyAttribute.hpp>
 #include <com/sun/star/beans/PropertyValue.hpp>
 #include <com/sun/star/ucb/XSimpleFileAccess.hpp>
 #include <com/sun/star/io/XInputStream.hpp>
@@ -149,9 +149,10 @@ Model::Model() :
     mxBindings( mpBindings ),
     mxSubmissions( mpSubmissions ),
     mxInstances( mpInstances ),
+    mxNamespaces( new NameContainer<OUString>() ),
     mbInitialized( false )
 {
-    setInfo( _getPropertySetInfo() );
+    initializePropertySet();
 
     // initialize bindings collections
     // (not in initializer list to avoid use of incomplete 'this')
@@ -206,7 +207,8 @@ EvaluationContext Model::getEvaluationContext()
     OSL_ENSURE( xElement.is() &&
                 xElement->getNodeType() == NodeType_ELEMENT_NODE,
                 "no element in evaluation context" );
-    return EvaluationContext( xElement, this, 0, 1 );
+
+    return EvaluationContext( xElement, this, mxNamespaces, 0, 1 );
 }
 
 
@@ -236,6 +238,17 @@ void Model::setSchemaRef( const rtl::OUString& rSchemaRef )
     msSchemaRef = rSchemaRef;
 }
 
+Model::XNameContainer_t Model::getNamespaces() const
+{
+    return mxNamespaces;
+}
+
+void Model::setNamespaces( const XNameContainer_t& rNamespaces )
+{
+    if( rNamespaces.is() )
+        mxNamespaces = rNamespaces;
+}
+
 
 #if OSL_DEBUG_LEVEL > 1
 void Model::dbg_assertInvariant() const
@@ -501,6 +514,20 @@ bool Model::isInitialized() const
     return mbInitialized;
 }
 
+bool Model::isValid() const
+{
+    bool bValid = true;
+    sal_Int32 nCount = mpBindings->countItems();
+    for( sal_Int32 i = 0; bValid && i < nCount; i++ )
+    {
+        Binding* pBind = Binding::getBinding( mpBindings->Collection<XPropertySet_t>::getItem( i ) );
+        OSL_ENSURE( pBind != NULL, "binding?" );
+        bValid = pBind->isValid();
+    }
+    return bValid;
+}
+
+
 
 //
 // implement xforms::XModel
@@ -561,15 +588,15 @@ void Model::refresh()
 }
 
 
-void SAL_CALL Model::submitWithInteraction( const ::rtl::OUString& sID, const XInteraction_t& _rxHandler )
-    throw( VetoException, WrappedTargetException, RuntimeException )
+void SAL_CALL Model::submitWithInteraction(
+    const rtl::OUString& sID,
+    const XInteractionHandler_t& _rxHandler )
+    throw( VetoException,
+           WrappedTargetException,
+           RuntimeException )
 {
     DBG_INVARIANT();
 
-    bool bResult = false;
-    try
-    {
-        // TODO: error handling!
     if( mpSubmissions->hasItem( sID ) )
     {
         Submission* pSubmission =
@@ -577,27 +604,10 @@ void SAL_CALL Model::submitWithInteraction( const ::rtl::OUString& sID, const XI
         OSL_ENSURE( pSubmission != NULL, "no submission?" );
         OSL_ENSURE( pSubmission->getModel() == Reference<XModel>( this ),
                     "wrong model" );
-            bResult = pSubmission->doSubmit( _rxHandler );
-        }
-    }
-    catch( const RuntimeException& )
-    {
-        // allowed to leave
-        throw;
-    }
-    catch( const VetoException& )
-    {
-        OSL_ENSURE( sal_False, "Model::submit: Hmm. How can a single submission have a veto right?" );
-        // allowed to leave
-        throw;
-    }
-    catch( const Exception& e )
-    {
-        throw WrappedTargetException( ::rtl::OUString::createFromAscii( "The submission failed. Sorry." ), *this, makeAny( e ) );
-    }
 
-    if( ! bResult )
-        throw WrappedTargetException( ::rtl::OUString::createFromAscii( "The submission failed. Sorry, no further info is available." ), *this, Any() );
+        // submit. All exceptions are allowed to leave.
+        pSubmission->submitWithInteraction( _rxHandler );
+    }
 }
 
 void Model::submit( const rtl::OUString& sID )
@@ -741,99 +751,24 @@ Model::XSet_t Model::getSubmissions()
 #define HANDLE_InstanceURL 2
 #define HANDLE_ForeignSchema 3
 #define HANDLE_SchemaRef 4
+#define HANDLE_Namespaces 5
 
-#define ENTRY_FLAGS(NAME,TYPE,FLAGS) { #NAME, sizeof(#NAME)-1, HANDLE_##NAME, &getCppuType(static_cast<TYPE*>(NULL)), FLAGS, 0 }
-#define ENTRY(NAME,TYPE) ENTRY_FLAGS(NAME,TYPE,0)
-#define ENTRY_RO(NAME,TYPE) ENTRY_FLAGS(NAME,TYPE,com::sun::star::beans::PropertyAttribute::READONLY)
-#define ENTRY_END { NULL, 0, NULL, 0, 0}
-
-comphelper::PropertySetInfo* Model::_getPropertySetInfo()
-{
-    static comphelper::PropertySetInfo* pInfo = NULL;
+#define REGISTER_PROPERTY( property, type )   \
+    registerProperty( PROPERTY( property, type ), \
+    new DirectPropertyAccessor< Model, type >( this, &Model::set##property, &Model::get##property ) );
 
-    static comphelper::PropertyMapEntry pEntries[] =
-    {
-        ENTRY( ID, OUString ),
-        ENTRY( ForeignSchema, XDocument_t ),
-        ENTRY( SchemaRef, OUString ),
-        ENTRY_END
-    };
+#define REGISTER_PROPERTY_API( property, type )   \
+    registerProperty( PROPERTY( property, type ), \
+    new APIPropertyAccessor< Model, type >( this, &Model::set##property, &Model::get##property ) );
 
-    if( pInfo == NULL )
-    {
-        pInfo = new comphelper::PropertySetInfo( pEntries );
-        pInfo->acquire();
-    }
-
-    return pInfo;
-}
-
-
-
-void Model::_setPropertyValues(
-    const comphelper::PropertyMapEntry** ppEntries,
-    const Any_t* pValues )
-    throw( UnknownPropertyException,
-           PropertyVetoException,
-           IllegalArgumentException,
-           WrappedTargetException )
-{
-    DBG_INVARIANT();
-
-    // iterate over all PropertyMapEntry/Any pairs
-    for( ; *ppEntries != NULL; ppEntries++, pValues++ )
-    {
-        // delegate each property to the suitable handler method
-        switch( (*ppEntries)->mnHandle )
-        {
-            case HANDLE_ID:
-                setAny( this, &Model::setID, *pValues );
-                break;
-            case HANDLE_ForeignSchema:
-                setAny( this, &Model::setForeignSchema, *pValues );
-                break;
-            case HANDLE_SchemaRef:
-                setAny( this, &Model::setSchemaRef, *pValues );
-                break;
-            default:
-                OSL_ENSURE( false, "Unknown HANDLE" );
-                break;
-        }
-    }
-}
-
-
-void Model::_getPropertyValues(
-    const comphelper::PropertyMapEntry** ppEntries,
-    Any_t* pValues )
-    throw( UnknownPropertyException,
-           WrappedTargetException )
+void Model::initializePropertySet()
 {
-    DBG_INVARIANT();
-
-    // iterate over all PropertyMapEntry/Any pairs
-    for( ; *ppEntries != NULL; ppEntries++, pValues++ )
-    {
-        // delegate each property to the suitable handler method
-        switch( (*ppEntries)->mnHandle )
-        {
-        case HANDLE_ID:
-            getAny( this, &Model::getID, *pValues );
-            break;
-        case HANDLE_ForeignSchema:
-            getAny( this, &Model::getForeignSchema, *pValues );
-            break;
-        case HANDLE_SchemaRef:
-            getAny( this, &Model::getSchemaRef, *pValues );
-            break;
-        default:
-            OSL_ENSURE( false, "Unknown HANDLE" );
-            break;
-        }
-    }
+    REGISTER_PROPERTY_API( ID,            OUString );
+    REGISTER_PROPERTY    ( ForeignSchema, XDocument_t );
+    REGISTER_PROPERTY    ( SchemaRef,     OUString );
+    REGISTER_PROPERTY    ( Namespaces,    XNameContainer_t );
 }
 
-
 void Model::update()
     throw( RuntimeException )
 {