src/common/xtistrm.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/common/xtistrm.cpp
   3 // Purpose:     streaming runtime metadata information
   4 // Author:      Stefan Csomor
   5 // Modified by:
   6 // Created:     27/07/03
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) 2003 Stefan Csomor
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifdef __BORLANDC__
  16 #pragma hdrstop
  17 #endif
  18
  19 #ifndef WX_PRECOMP
  20 #include "wx/hash.h"
  21 #include "wx/object.h"
  22 #endif
  23
  24 #include "wx/tokenzr.h"
  25 #include "wx/txtstrm.h"
  26 #include "wx/event.h"
  27
  28 #if wxUSE_EXTENDED_RTTI
  29
  30 #include "wx/xtistrm.h"
  31
  32 #include "wx/beforestd.h"
  33 #include <map>
  34 #include <vector>
  35 #include <string>
  36 #include "wx/afterstd.h"
  37
  38 using namespace std ;
  39
  40 struct wxWriter::wxWriterInternal
  41 {
  42     map< const wxObject* , int > m_writtenObjects ;
  43     int m_nextId ;
  44 } ;
  45
  46 wxWriter::wxWriter()
  47 {
  48     m_data = new wxWriterInternal ;
  49     m_data->m_nextId = 0 ;
  50 }
  51
  52 wxWriter::~wxWriter()
  53 {
  54     delete m_data ;
  55 }
  56
  57 struct wxWriter::wxWriterInternalPropertiesData
  58 {
  59     char nothing ;
  60 } ;
  61
  62 void wxWriter::ClearObjectContext()
  63 {
  64     delete m_data ;
  65     m_data = new wxWriterInternal() ;
  66     m_data->m_nextId = 0 ;
  67 }
  68
  69 void wxWriter::WriteObject(const wxObject *object, const wxClassInfo *classInfo , wxPersister *persister , const wxString &name , wxxVariantArray &metadata )
  70 {
  71     DoBeginWriteTopLevelEntry( name ) ;
  72     WriteObject( object , classInfo , persister , false , metadata) ;
  73     DoEndWriteTopLevelEntry( name ) ;
  74 }
  75
  76 void wxWriter::WriteObject(const wxObject *object, const wxClassInfo *classInfo , wxPersister *persister , bool isEmbedded, wxxVariantArray &metadata )
  77 {
  78     if ( !classInfo->BeforeWriteObject( object , this , persister , metadata) )
  79         return ;
  80
  81     if ( persister->BeforeWriteObject( this , object , classInfo , metadata) )
  82     {
  83         if ( object == NULL )
  84             DoWriteNullObject() ;
  85         else if ( IsObjectKnown( object ) )
  86             DoWriteRepeatedObject( GetObjectID(object) ) ;
  87         else
  88         {
  89             int oid = m_data->m_nextId++ ;
  90             if ( !isEmbedded )
  91                 m_data->m_writtenObjects[object] = oid ;
  92
  93             // in case this object is a wxDynamicObject we also have to insert is superclass
  94             // instance with the same id, so that object relations are streamed out correctly
  95             const wxDynamicObject* dynobj = dynamic_cast<const wxDynamicObject *>( object ) ;
  96             if ( !isEmbedded && dynobj )
  97                 m_data->m_writtenObjects[dynobj->GetSuperClassInstance()] = oid ;
  98
  99             DoBeginWriteObject( object , classInfo , oid , metadata ) ;
 100             wxWriterInternalPropertiesData data ;
 101             WriteAllProperties( object , classInfo , persister , &data ) ;
 102             DoEndWriteObject( object , classInfo , oid  ) ;
 103         }
 104         persister->AfterWriteObject( this ,object , classInfo ) ;
 105     }
 106 }
 107
 108 void wxWriter::FindConnectEntry(const wxEvtHandler * evSource,const wxDelegateTypeInfo* dti, const wxObject* &sink , const wxHandlerInfo *&handler)
 109 {
 110     wxList *dynamicEvents = evSource->GetDynamicEventTable() ;
 111
 112     if ( dynamicEvents )
 113     {
 114         wxList::compatibility_iterator node = dynamicEvents->GetFirst();
 115         while (node)
 116         {
 117             wxDynamicEventTableEntry *entry = (wxDynamicEventTableEntry*)node->GetData();
 118
 119             // find the match
 120             if ( entry->m_fn &&
 121                 (dti->GetEventType() == entry->m_eventType) &&
 122                 (entry->m_id == -1 ) &&
 123                 (entry->m_eventSink != NULL ) )
 124             {
 125                 sink = entry->m_eventSink ;
 126                 const wxClassInfo* sinkClassInfo = sink->GetClassInfo() ;
 127                 const wxHandlerInfo* sinkHandler = sinkClassInfo->GetFirstHandler() ;
 128                 while ( sinkHandler )
 129                 {
 130                     if ( sinkHandler->GetEventFunction() == entry->m_fn )
 131                     {
 132                         handler = sinkHandler ;
 133                         break ;
 134                     }
 135                     sinkHandler = sinkHandler->GetNext() ;
 136                 }
 137                 break ;
 138             }
 139             node = node->GetNext();
 140         }
 141     }
 142 }
 143 void wxWriter::WriteAllProperties( const wxObject * obj , const wxClassInfo* ci , wxPersister *persister, wxWriterInternalPropertiesData * data )
 144 {
 145     wxPropertyInfoMap map ;
 146     ci->GetProperties( map ) ;
 147     for ( int i = 0 ; i < ci->GetCreateParamCount() ; ++i )
 148     {
 149         wxString name = ci->GetCreateParamName(i) ;
 150         const wxPropertyInfo* prop = map.find(name)->second ;
 151         if ( prop )
 152         {
 153             WriteOneProperty( obj , prop->GetDeclaringClass() , prop , persister , data ) ;
 154         }
 155         else
 156         {
 157             wxLogError( _("Create Parameter not found in declared RTTI Parameters") ) ;
 158         }
 159         map.erase( name ) ;
 160     }
 161     { // Extra block for broken compilers
 162         for( wxPropertyInfoMap::iterator iter = map.begin() ; iter != map.end() ; ++iter )
 163         {
 164             const wxPropertyInfo* prop = iter->second ;
 165             if ( prop->GetFlags() & wxPROP_OBJECT_GRAPH )
 166             {
 167                 WriteOneProperty( obj , prop->GetDeclaringClass() , prop , persister , data ) ;
 168             }
 169         }
 170     }
 171     { // Extra block for broken compilers
 172         for( wxPropertyInfoMap::iterator iter = map.begin() ; iter != map.end() ; ++iter )
 173         {
 174             const wxPropertyInfo* prop = iter->second ;
 175             if ( !(prop->GetFlags() & wxPROP_OBJECT_GRAPH) )
 176             {
 177                 WriteOneProperty( obj , prop->GetDeclaringClass() , prop , persister , data ) ;
 178             }
 179         }
 180     }
 181 }
 182
 183 void wxWriter::WriteOneProperty( const wxObject *obj , const wxClassInfo* ci , const wxPropertyInfo* pi , wxPersister *persister , wxWriterInternalPropertiesData *WXUNUSED(data) )
 184 {
 185     if ( pi->GetFlags() & wxPROP_DONT_STREAM )
 186         return ;
 187
 188     // make sure that we are picking the correct object for accessing the property
 189     const wxDynamicObject* dynobj = dynamic_cast< const wxDynamicObject* > (obj ) ;
 190     if ( dynobj && (dynamic_cast<const wxDynamicClassInfo*>(ci) == NULL) )
 191         obj = dynobj->GetSuperClassInstance() ;
 192
 193     if ( pi->GetTypeInfo()->GetKind() == wxT_COLLECTION )
 194     {
 195         wxxVariantArray data ;
 196         pi->GetAccessor()->GetPropertyCollection(obj, data) ;
 197         const wxTypeInfo * elementType = dynamic_cast< const wxCollectionTypeInfo* >( pi->GetTypeInfo() )->GetElementType() ;
 198         for ( size_t i = 0 ; i < data.GetCount() ; ++i )
 199         {
 200             if ( i == 0 )
 201                 DoBeginWriteProperty( pi ) ;
 202
 203             DoBeginWriteElement() ;
 204             wxxVariant value = data[i] ;
 205             if ( persister->BeforeWriteProperty( this , obj, pi , value ) )
 206             {
 207                 const wxClassTypeInfo* cti = dynamic_cast< const wxClassTypeInfo* > ( elementType ) ;
 208                 if ( cti )
 209                 {
 210                     const wxClassInfo* pci = cti->GetClassInfo() ;
 211                     wxObject *vobj = pci->VariantToInstance( value ) ;
 212                     wxxVariantArray md ;
 213                     WriteObject( vobj , (vobj ? vobj->GetClassInfo() : pci ) , persister , cti->GetKind()== wxT_OBJECT , md ) ;
 214                 }
 215                 else
 216                 {
 217                     DoWriteSimpleType( value ) ;
 218                 }
 219             }
 220             DoEndWriteElement() ;
 221             if ( i == data.GetCount() - 1 )
 222                  DoEndWriteProperty( pi ) ;
 223        }
 224    }
 225     else
 226     {
 227         const wxDelegateTypeInfo* dti = dynamic_cast< const wxDelegateTypeInfo* > ( pi->GetTypeInfo() ) ;
 228         if ( dti )
 229         {
 230             const wxObject* sink = NULL ;
 231             const wxHandlerInfo *handler = NULL ;
 232
 233             const wxEvtHandler * evSource = dynamic_cast<const wxEvtHandler *>(obj) ;
 234             if ( evSource )
 235             {
 236                 FindConnectEntry( evSource , dti , sink , handler ) ;
 237                 if ( persister->BeforeWriteDelegate( this , obj , ci , pi , sink , handler ) )
 238                 {
 239                     if ( sink != NULL && handler != NULL )
 240                     {
 241                         DoBeginWriteProperty( pi ) ;
 242                         if ( IsObjectKnown( sink ) )
 243                         {
 244                             DoWriteDelegate( obj , ci , pi , sink , GetObjectID( sink ) , sink->GetClassInfo() , handler ) ;
 245                             DoEndWriteProperty( pi ) ;
 246                         }
 247                         else
 248                         {
 249                             wxLogError( _("Streaming delegates for not already streamed objects not yet supported") ) ;
 250                         }
 251                     }
 252                 }
 253             }
 254             else
 255             {
 256                 wxLogError(_("Illegal Object Class (Non-wxEvtHandler) as Event Source") ) ;
 257             }
 258         }
 259         else
 260         {
 261             wxxVariant value ;
 262             pi->GetAccessor()->GetProperty(obj, value) ;
 263
 264             // avoid streaming out void objects
 265             if( value.IsEmpty() )
 266                 return ;
 267
 268             if ( pi->GetFlags() & wxPROP_ENUM_STORE_LONG )
 269             {
 270                 const wxEnumTypeInfo *eti = dynamic_cast<const wxEnumTypeInfo*>( pi->GetTypeInfo() ) ;
 271                 if ( eti )
 272                 {
 273                     eti->ConvertFromLong( value.wxTEMPLATED_MEMBER_CALL(Get , long) , value ) ;
 274                 }
 275                 else
 276                 {
 277                     wxLogError( _("Type must have enum - long conversion") ) ;
 278                 }
 279             }
 280
 281             // avoid streaming out default values
 282             if ( pi->GetTypeInfo()->HasStringConverters() && !pi->GetDefaultValue().IsEmpty() )
 283             {
 284                 if ( value.GetAsString() == pi->GetDefaultValue().GetAsString() )
 285                     return ;
 286             }
 287
 288             // avoid streaming out null objects
 289             const wxClassTypeInfo* cti = dynamic_cast< const wxClassTypeInfo* > ( pi->GetTypeInfo() ) ;
 290
 291             if ( cti && value.GetAsObject() == NULL )
 292                 return ;
 293
 294             if ( persister->BeforeWriteProperty( this , obj, pi , value ) )
 295             {
 296                 DoBeginWriteProperty( pi ) ;
 297                 if ( cti )
 298                 {
 299                     const wxClassInfo* pci = cti->GetClassInfo() ;
 300                     wxObject *vobj = pci->VariantToInstance( value ) ;
 301                     if ( vobj && pi->GetTypeInfo()->HasStringConverters() )
 302                     {
 303                         wxString stringValue ;
 304                         cti->ConvertToString( value , stringValue ) ;
 305                         wxxVariant convertedValue(stringValue) ;
 306                         DoWriteSimpleType( convertedValue ) ;
 307                     }
 308                     else
 309                     {
 310                         wxxVariantArray md ;
 311                         WriteObject( vobj , (vobj ? vobj->GetClassInfo() : pci ) , persister , cti->GetKind()== wxT_OBJECT , md) ;
 312                     }
 313                 }
 314                 else
 315                 {
 316                     DoWriteSimpleType( value ) ;
 317                 }
 318                 DoEndWriteProperty( pi ) ;
 319             }
 320         }
 321     }
 322 }
 323
 324 int wxWriter::GetObjectID(const wxObject *obj)
 325 {
 326     if ( !IsObjectKnown( obj ) )
 327         return wxInvalidObjectID ;
 328
 329     return m_data->m_writtenObjects[obj] ;
 330 }
 331
 332 bool wxWriter::IsObjectKnown( const wxObject *obj )
 333 {
 334     return m_data->m_writtenObjects.find( obj ) != m_data->m_writtenObjects.end() ;
 335 }
 336
 337
 338 // ----------------------------------------------------------------------------
 339 // reading objects in
 340 // ----------------------------------------------------------------------------
 341
 342 struct wxReader::wxReaderInternal
 343 {
 344     map<int,wxClassInfo*> m_classInfos;
 345 };
 346
 347 wxReader::wxReader()
 348 {
 349     m_data = new wxReaderInternal;
 350 }
 351
 352 wxReader::~wxReader()
 353 {
 354     delete m_data;
 355 }
 356
 357 wxClassInfo* wxReader::GetObjectClassInfo(int objectID)
 358 {
 359     if ( objectID == wxNullObjectID || objectID == wxInvalidObjectID )
 360     {
 361         wxLogError( _("Invalid or Null Object ID passed to GetObjectClassInfo" ) ) ;
 362         return NULL ;
 363     }
 364     if ( m_data->m_classInfos.find(objectID) == m_data->m_classInfos.end() )
 365     {
 366         wxLogError( _("Unknown Object passed to GetObjectClassInfo" ) ) ;
 367         return NULL ;
 368     }
 369     return m_data->m_classInfos[objectID] ;
 370 }
 371
 372 void wxReader::SetObjectClassInfo(int objectID, wxClassInfo *classInfo )
 373 {
 374     if ( objectID == wxNullObjectID || objectID == wxInvalidObjectID )
 375     {
 376         wxLogError( _("Invalid or Null Object ID passed to GetObjectClassInfo" ) ) ;
 377         return ;
 378     }
 379     if ( m_data->m_classInfos.find(objectID) != m_data->m_classInfos.end() )
 380     {
 381         wxLogError( _("Already Registered Object passed to SetObjectClassInfo" ) ) ;
 382         return ;
 383     }
 384     m_data->m_classInfos[objectID] = classInfo ;
 385 }
 386
 387 bool wxReader::HasObjectClassInfo( int objectID )
 388 {
 389     if ( objectID == wxNullObjectID || objectID == wxInvalidObjectID )
 390     {
 391         wxLogError( _("Invalid or Null Object ID passed to HasObjectClassInfo" ) ) ;
 392         return NULL ;
 393     }
 394     return m_data->m_classInfos.find(objectID) != m_data->m_classInfos.end() ;
 395 }
 396
 397
 398 // ----------------------------------------------------------------------------
 399 // reading xml in
 400 // ----------------------------------------------------------------------------
 401
 402 /*
 403 Reading components has not to be extended for components
 404 as properties are always sought by typeinfo over all levels
 405 and create params are always toplevel class only
 406 */
 407
 408
 409 // ----------------------------------------------------------------------------
 410 // depersisting to memory
 411 // ----------------------------------------------------------------------------
 412
 413 struct wxRuntimeDepersister::wxRuntimeDepersisterInternal
 414 {
 415     map<int,wxObject *> m_objects;
 416
 417     void SetObject(int objectID, wxObject *obj )
 418     {
 419         if ( m_objects.find(objectID) != m_objects.end() )
 420         {
 421             wxLogError( _("Passing a already registered object to SetObject") ) ;
 422             return  ;
 423         }
 424         m_objects[objectID] = obj ;
 425     }
 426     wxObject* GetObject( int objectID )
 427     {
 428         if ( objectID == wxNullObjectID )
 429             return NULL ;
 430         if ( m_objects.find(objectID) == m_objects.end() )
 431         {
 432             wxLogError( _("Passing an unkown object to GetObject") ) ;
 433             return NULL ;
 434         }
 435
 436         return m_objects[objectID] ;
 437     }
 438 } ;
 439
 440 wxRuntimeDepersister::wxRuntimeDepersister()
 441 {
 442     m_data = new wxRuntimeDepersisterInternal() ;
 443 }
 444
 445 wxRuntimeDepersister::~wxRuntimeDepersister()
 446 {
 447     delete m_data ;
 448 }
 449
 450 void wxRuntimeDepersister::AllocateObject(int objectID, wxClassInfo *classInfo ,
 451                                           wxxVariantArray &WXUNUSED(metadata))
 452 {
 453     wxObject *O;
 454     O = classInfo->CreateObject();
 455     m_data->SetObject(objectID, O);
 456 }
 457
 458 void wxRuntimeDepersister::CreateObject(int objectID,
 459                                         const wxClassInfo *classInfo,
 460                                         int paramCount,
 461                                         wxxVariant *params,
 462                                         int *objectIdValues,
 463                                         const wxClassInfo **objectClassInfos ,
 464                                         wxxVariantArray &WXUNUSED(metadata))
 465 {
 466     wxObject *o;
 467     o = m_data->GetObject(objectID);
 468     for ( int i = 0 ; i < paramCount ; ++i )
 469     {
 470         if ( objectIdValues[i] != wxInvalidObjectID )
 471         {
 472             wxObject *o;
 473             o = m_data->GetObject(objectIdValues[i]);
 474             // if this is a dynamic object and we are asked for another class
 475             // than wxDynamicObject we cast it down manually.
 476             wxDynamicObject *dyno = dynamic_cast< wxDynamicObject * > (o) ;
 477             if ( dyno!=NULL && (objectClassInfos[i] != dyno->GetClassInfo()) )
 478             {
 479                 o = dyno->GetSuperClassInstance() ;
 480             }
 481             params[i] = objectClassInfos[i]->InstanceToVariant(o) ;
 482         }
 483     }
 484     classInfo->Create(o, paramCount, params);
 485 }
 486
 487 void wxRuntimeDepersister::ConstructObject(int objectID,
 488                                         const wxClassInfo *classInfo,
 489                                         int paramCount,
 490                                         wxxVariant *params,
 491                                         int *objectIdValues,
 492                                         const wxClassInfo **objectClassInfos ,
 493                                         wxxVariantArray &WXUNUSED(metadata))
 494 {
 495     wxObject *o;
 496     for ( int i = 0 ; i < paramCount ; ++i )
 497     {
 498         if ( objectIdValues[i] != wxInvalidObjectID )
 499         {
 500             wxObject *o;
 501             o = m_data->GetObject(objectIdValues[i]);
 502             // if this is a dynamic object and we are asked for another class
 503             // than wxDynamicObject we cast it down manually.
 504             wxDynamicObject *dyno = dynamic_cast< wxDynamicObject * > (o) ;
 505             if ( dyno!=NULL && (objectClassInfos[i] != dyno->GetClassInfo()) )
 506             {
 507                 o = dyno->GetSuperClassInstance() ;
 508             }
 509             params[i] = objectClassInfos[i]->InstanceToVariant(o) ;
 510         }
 511     }
 512     o = classInfo->ConstructObject(paramCount, params);
 513     m_data->SetObject(objectID, o);
 514 }
 515
 516
 517 void wxRuntimeDepersister::DestroyObject(int objectID, wxClassInfo *WXUNUSED(classInfo))
 518 {
 519     wxObject *o;
 520     o = m_data->GetObject(objectID);
 521     delete o ;
 522 }
 523
 524 void wxRuntimeDepersister::SetProperty(int objectID,
 525                                        const wxClassInfo *classInfo,
 526                                        const wxPropertyInfo* propertyInfo,
 527                                        const wxxVariant &value)
 528 {
 529     wxObject *o;
 530     o = m_data->GetObject(objectID);
 531     classInfo->SetProperty( o , propertyInfo->GetName() , value ) ;
 532 }
 533
 534 void wxRuntimeDepersister::SetPropertyAsObject(int objectID,
 535                                                const wxClassInfo *classInfo,
 536                                                const wxPropertyInfo* propertyInfo,
 537                                                int valueObjectId)
 538 {
 539     wxObject *o, *valo;
 540     o = m_data->GetObject(objectID);
 541     valo = m_data->GetObject(valueObjectId);
 542     const wxClassInfo* valClassInfo = (dynamic_cast<const wxClassTypeInfo*>(propertyInfo->GetTypeInfo()))->GetClassInfo() ;
 543     // if this is a dynamic object and we are asked for another class
 544     // than wxDynamicObject we cast it down manually.
 545     wxDynamicObject *dynvalo = dynamic_cast< wxDynamicObject * > (valo) ;
 546     if ( dynvalo!=NULL  && (valClassInfo != dynvalo->GetClassInfo()) )
 547     {
 548         valo = dynvalo->GetSuperClassInstance() ;
 549     }
 550
 551     classInfo->SetProperty( o , propertyInfo->GetName() , valClassInfo->InstanceToVariant(valo) ) ;
 552 }
 553
 554 void wxRuntimeDepersister::SetConnect(int eventSourceObjectID,
 555                                       const wxClassInfo *WXUNUSED(eventSourceClassInfo),
 556                                       const wxPropertyInfo *delegateInfo ,
 557                                       const wxClassInfo *WXUNUSED(eventSinkClassInfo) ,
 558                                       const wxHandlerInfo* handlerInfo ,
 559                                       int eventSinkObjectID )
 560 {
 561     wxEvtHandler *ehsource = dynamic_cast< wxEvtHandler* >( m_data->GetObject( eventSourceObjectID ) ) ;
 562     wxEvtHandler *ehsink = dynamic_cast< wxEvtHandler *>(m_data->GetObject(eventSinkObjectID) ) ;
 563
 564     if ( ehsource && ehsink )
 565     {
 566         const wxDelegateTypeInfo *delegateTypeInfo = dynamic_cast<const wxDelegateTypeInfo*>(delegateInfo->GetTypeInfo());
 567         if( delegateTypeInfo && delegateTypeInfo->GetLastEventType() == -1 )
 568         {
 569             ehsource->Connect( -1 , delegateTypeInfo->GetEventType() ,
 570                 handlerInfo->GetEventFunction() , NULL /*user data*/ ,
 571                 ehsink ) ;
 572         }
 573         else
 574         {
 575             for ( wxEventType iter = delegateTypeInfo->GetEventType() ; iter <= delegateTypeInfo->GetLastEventType() ; ++iter )
 576             {
 577                 ehsource->Connect( -1 , iter ,
 578                     handlerInfo->GetEventFunction() , NULL /*user data*/ ,
 579                     ehsink ) ;
 580             }
 581         }
 582     }
 583 }
 584
 585 wxObject *wxRuntimeDepersister::GetObject(int objectID)
 586 {
 587     return m_data->GetObject( objectID ) ;
 588 }
 589
 590 // adds an element to a property collection
 591 void wxRuntimeDepersister::AddToPropertyCollection( int objectID ,
 592                                                    const wxClassInfo *classInfo,
 593                                                    const wxPropertyInfo* propertyInfo ,
 594                                                    const wxxVariant &value)
 595 {
 596     wxObject *o;
 597     o = m_data->GetObject(objectID);
 598     classInfo->AddToPropertyCollection( o , propertyInfo->GetName() , value ) ;
 599 }
 600
 601 // sets the corresponding property (value is an object)
 602 void wxRuntimeDepersister::AddToPropertyCollectionAsObject(int objectID,
 603                                                            const wxClassInfo *classInfo,
 604                                                            const wxPropertyInfo* propertyInfo ,
 605                                                            int valueObjectId)
 606 {
 607     wxObject *o, *valo;
 608     o = m_data->GetObject(objectID);
 609     valo = m_data->GetObject(valueObjectId);
 610     const wxCollectionTypeInfo * collectionTypeInfo = dynamic_cast< const wxCollectionTypeInfo * >(propertyInfo->GetTypeInfo() ) ;
 611     const wxClassInfo* valClassInfo = (dynamic_cast<const wxClassTypeInfo*>(collectionTypeInfo->GetElementType()))->GetClassInfo() ;
 612     // if this is a dynamic object and we are asked for another class
 613     // than wxDynamicObject we cast it down manually.
 614     wxDynamicObject *dynvalo = dynamic_cast< wxDynamicObject * > (valo) ;
 615     if ( dynvalo!=NULL  && (valClassInfo != dynvalo->GetClassInfo()) )
 616     {
 617         valo = dynvalo->GetSuperClassInstance() ;
 618     }
 619
 620     classInfo->AddToPropertyCollection( o , propertyInfo->GetName() , valClassInfo->InstanceToVariant(valo) ) ;
 621 }
 622
 623 // ----------------------------------------------------------------------------
 624 // depersisting to code
 625 // ----------------------------------------------------------------------------
 626
 627 struct wxCodeDepersister::wxCodeDepersisterInternal
 628 {
 629 #if wxUSE_UNICODE
 630     map<int,wstring> m_objectNames ;
 631 #else
 632     map<int,string> m_objectNames ;
 633 #endif
 634
 635     void SetObjectName(int objectID, const wxString &name )
 636     {
 637         if ( m_objectNames.find(objectID) != m_objectNames.end() )
 638         {
 639             wxLogError( _("Passing a already registered object to SetObjectName") ) ;
 640             return  ;
 641         }
 642         m_objectNames[objectID] = (const wxChar *)name;
 643     }
 644
 645     wxString GetObjectName( int objectID )
 646     {
 647         if ( objectID == wxNullObjectID )
 648             return wxT("NULL") ;
 649
 650         if ( m_objectNames.find(objectID) == m_objectNames.end() )
 651         {
 652             wxLogError( _("Passing an unkown object to GetObject") ) ;
 653             return wxEmptyString ;
 654         }
 655         return wxString( m_objectNames[objectID].c_str() ) ;
 656     }
 657 } ;
 658
 659 wxCodeDepersister::wxCodeDepersister(wxTextOutputStream *out)
 660 : m_fp(out)
 661 {
 662     m_data = new wxCodeDepersisterInternal ;
 663 }
 664
 665 wxCodeDepersister::~wxCodeDepersister()
 666 {
 667     delete m_data ;
 668 }
 669
 670 void wxCodeDepersister::AllocateObject(int objectID, wxClassInfo *classInfo ,
 671                                        wxxVariantArray &WXUNUSED(metadata))
 672 {
 673     wxString objectName = wxString::Format( wxT("LocalObject_%d") , objectID ) ;
 674     m_fp->WriteString( wxString::Format( wxT("\t%s *%s = new %s;\n"),
 675         classInfo->GetClassName(),
 676         objectName.c_str(),
 677         classInfo->GetClassName()) );
 678     m_data->SetObjectName( objectID , objectName ) ;
 679 }
 680
 681 void wxCodeDepersister::DestroyObject(int objectID, wxClassInfo *WXUNUSED(classInfo))
 682 {
 683     m_fp->WriteString( wxString::Format( wxT("\tdelete %s;\n"),
 684         m_data->GetObjectName( objectID).c_str() ) );
 685 }
 686
 687 wxString wxCodeDepersister::ValueAsCode( const wxxVariant &param )
 688 {
 689     wxString value ;
 690     const wxTypeInfo* type = param.GetTypeInfo() ;
 691     if ( type->GetKind() == wxT_CUSTOM )
 692     {
 693         const wxCustomTypeInfo* cti = dynamic_cast<const wxCustomTypeInfo*>(type) ;
 694         if ( cti )
 695         {
 696             value.Printf( wxT("%s(%s)"), cti->GetTypeName().c_str(),param.GetAsString().c_str() );
 697         }
 698         else
 699         {
 700             wxLogError ( _("Internal error, illegal wxCustomTypeInfo") ) ;
 701         }
 702     }
 703     else if ( type->GetKind() == wxT_STRING )
 704     {
 705         value.Printf( wxT("\"%s\""),param.GetAsString().c_str() );
 706     }
 707     else
 708     {
 709         value.Printf( wxT("%s"), param.GetAsString().c_str() );
 710     }
 711     return value ;
 712 }
 713
 714 void wxCodeDepersister::CreateObject(int objectID,
 715                                      const wxClassInfo *WXUNUSED(classInfo),
 716                                      int paramCount,
 717                                      wxxVariant *params,
 718                                      int *objectIDValues,
 719                                      const wxClassInfo **WXUNUSED(objectClassInfos) ,
 720                                      wxxVariantArray &WXUNUSED(metadata)
 721                                      )
 722 {
 723     int i;
 724     m_fp->WriteString( wxString::Format( wxT("\t%s->Create("), m_data->GetObjectName(objectID).c_str() ) );
 725     for (i = 0; i < paramCount; i++)
 726     {
 727         if ( objectIDValues[i] != wxInvalidObjectID )
 728             m_fp->WriteString( wxString::Format( wxT("%s"), m_data->GetObjectName( objectIDValues[i] ).c_str() ) );
 729         else
 730         {
 731             m_fp->WriteString( wxString::Format( wxT("%s"), ValueAsCode(params[i]).c_str() ) );
 732         }
 733         if (i < paramCount - 1)
 734             m_fp->WriteString( wxT(", "));
 735     }
 736     m_fp->WriteString( wxT(");\n") );
 737 }
 738
 739 void wxCodeDepersister::ConstructObject(int objectID,
 740                                      const wxClassInfo *classInfo,
 741                                      int paramCount,
 742                                      wxxVariant *params,
 743                                      int *objectIDValues,
 744                                      const wxClassInfo **WXUNUSED(objectClassInfos) ,
 745                                      wxxVariantArray &WXUNUSED(metadata)
 746                                      )
 747 {
 748     wxString objectName = wxString::Format( wxT("LocalObject_%d") , objectID ) ;
 749     m_fp->WriteString( wxString::Format( wxT("\t%s *%s = new %s("),
 750         classInfo->GetClassName(),
 751         objectName.c_str(),
 752         classInfo->GetClassName()) );
 753     m_data->SetObjectName( objectID , objectName ) ;
 754
 755     int i;
 756     for (i = 0; i < paramCount; i++)
 757     {
 758         if ( objectIDValues[i] != wxInvalidObjectID )
 759             m_fp->WriteString( wxString::Format( wxT("%s"), m_data->GetObjectName( objectIDValues[i] ).c_str() ) );
 760         else
 761         {
 762             m_fp->WriteString( wxString::Format( wxT("%s"), ValueAsCode(params[i]).c_str() ) );
 763         }
 764         if (i < paramCount - 1)
 765             m_fp->WriteString( wxT(", ") );
 766     }
 767     m_fp->WriteString( wxT(");\n") );
 768 }
 769
 770 void wxCodeDepersister::SetProperty(int objectID,
 771                                     const wxClassInfo *WXUNUSED(classInfo),
 772                                     const wxPropertyInfo* propertyInfo,
 773                                     const wxxVariant &value)
 774 {
 775     m_fp->WriteString( wxString::Format( wxT("\t%s->%s(%s);\n"),
 776         m_data->GetObjectName(objectID).c_str(),
 777         propertyInfo->GetAccessor()->GetSetterName().c_str(),
 778         ValueAsCode(value).c_str()) );
 779 }
 780
 781 void wxCodeDepersister::SetPropertyAsObject(int objectID,
 782                                             const wxClassInfo *WXUNUSED(classInfo),
 783                                             const wxPropertyInfo* propertyInfo,
 784                                             int valueObjectId)
 785 {
 786     if ( propertyInfo->GetTypeInfo()->GetKind() == wxT_OBJECT )
 787         m_fp->WriteString( wxString::Format( wxT("\t%s->%s(*%s);\n"),
 788         m_data->GetObjectName(objectID).c_str(),
 789         propertyInfo->GetAccessor()->GetSetterName().c_str(),
 790         m_data->GetObjectName( valueObjectId).c_str() ) );
 791     else
 792         m_fp->WriteString( wxString::Format( wxT("\t%s->%s(%s);\n"),
 793         m_data->GetObjectName(objectID).c_str(),
 794         propertyInfo->GetAccessor()->GetSetterName().c_str(),
 795         m_data->GetObjectName( valueObjectId).c_str() ) );
 796 }
 797
 798 void wxCodeDepersister::AddToPropertyCollection( int objectID ,
 799                                                 const wxClassInfo *WXUNUSED(classInfo),
 800                                                 const wxPropertyInfo* propertyInfo ,
 801                                                 const wxxVariant &value)
 802 {
 803     m_fp->WriteString( wxString::Format( wxT("\t%s->%s(%s);\n"),
 804         m_data->GetObjectName(objectID).c_str(),
 805         propertyInfo->GetAccessor()->GetAdderName().c_str(),
 806         ValueAsCode(value).c_str()) );
 807 }
 808
 809 // sets the corresponding property (value is an object)
 810 void wxCodeDepersister::AddToPropertyCollectionAsObject(int WXUNUSED(objectID),
 811                                                         const wxClassInfo *WXUNUSED(classInfo),
 812                                                         const wxPropertyInfo* WXUNUSED(propertyInfo) ,
 813                                                         int WXUNUSED(valueObjectId))
 814 {
 815     // TODO
 816 }
 817
 818 void wxCodeDepersister::SetConnect(int eventSourceObjectID,
 819                                    const wxClassInfo *WXUNUSED(eventSourceClassInfo),
 820                                    const wxPropertyInfo *delegateInfo ,
 821                                    const wxClassInfo *eventSinkClassInfo ,
 822                                    const wxHandlerInfo* handlerInfo ,
 823                                    int eventSinkObjectID )
 824 {
 825     wxString ehsource = m_data->GetObjectName( eventSourceObjectID ) ;
 826     wxString ehsink = m_data->GetObjectName(eventSinkObjectID) ;
 827     wxString ehsinkClass = eventSinkClassInfo->GetClassName() ;
 828     const wxDelegateTypeInfo *delegateTypeInfo = dynamic_cast<const wxDelegateTypeInfo*>(delegateInfo->GetTypeInfo());
 829     if ( delegateTypeInfo )
 830     {
 831         int eventType = delegateTypeInfo->GetEventType() ;
 832         wxString handlerName = handlerInfo->GetName() ;
 833
 834         m_fp->WriteString( wxString::Format(  wxT("\t%s->Connect( %s->GetId() , %d , (wxObjectEventFunction)(wxEventFunction) & %s::%s , NULL , %s ) ;") ,
 835             ehsource.c_str() , ehsource.c_str() , eventType , ehsinkClass.c_str() , handlerName.c_str() , ehsink.c_str() ) );
 836     }
 837     else
 838     {
 839         wxLogError(_("delegate has no type info"));
 840     }
 841 }
 842
 843 #include "wx/arrimpl.cpp"
 844
 845 WX_DEFINE_OBJARRAY(wxxVariantArray);
 846
 847 #endif