* Ooops, I didn't copy the files in the right directory of my repository.

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@362 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

src/common/objstrm.cpp

@@ -0,0 +1,224 @@
+/////////////////////////////////////////////////////////////////////////////
+// Name:        objstrm.cpp
+// Purpose:     wxObjectStream classes
+// Author:      Guilhem Lavaux
+// Modified by:
+// Created:     16/07/98
+// RCS-ID:      $Id$
+// Copyright:   (c) 1998 Guilhem Lavaux
+// Licence:     wxWindows license
+/////////////////////////////////////////////////////////////////////////////
+#ifdef __GNUG__
+#pragma implementation "objstrm.h"
+#endif
+
+#include "wx/object.h"
+#include "wx/objstrm.h"
+#include "wx/datstrm.h"
+
+#define WXOBJ_BEGIN "OBEGIN"
+#define WXOBJ_BEG_LEN 6
+
+// ----------------------------------------------------------------------------
+// wxObjectOutputStream
+// ----------------------------------------------------------------------------
+
+wxObjectOutputStream::wxObjectOutputStream(wxOutputStream& s)
+  : wxFilterOutputStream(s)
+{
+  m_saving = FALSE;
+}
+
+wxString wxObjectOutputStream::GetObjectName(wxObject *obj)
+{
+  wxString name;
+
+  name.Printf("%x", (unsigned long)obj);
+  return name;
+}
+
+void wxObjectOutputStream::WriteObjectDef(wxObjectStreamInfo& info)
+{
+  wxDataOutputStream data_s(*this); 
+
+  Write(WXOBJ_BEGIN, WXOBJ_BEG_LEN);
+  data_s.WriteString(info.object->GetClassInfo()->GetClassName());
+  data_s.WriteString(GetObjectName(info.object));
+  // I assume an object will not have millions of children
+  data_s.Write8(info.children.Number());
+}
+
+void wxObjectOutputStream::AddChildren(wxObject *obj)
+{
+  wxObjectStreamInfo *info;
+
+  if (!FirstStage())
+    return;
+
+  info = new wxObjectStreamInfo;
+  info->n_children = 0;
+  info->object = obj;
+  info->parent = m_current_info->object; // Not useful here.
+  m_current_info->n_children++;
+  m_current_info->children.Append(info);
+}
+
+void wxObjectOutputStream::ProcessObjectDef(wxObjectStreamInfo *info)
+{
+  wxNode *node;
+
+  m_current_info = info;
+  // First stage: get children of obj
+  info->object->StoreObject(*this);
+
+  // Prepare and write the sub-entry about the child obj.
+  WriteObjectDef(*info);
+
+  node = info->children.First();
+  
+  while (node) {
+    ProcessObjectDef((wxObjectStreamInfo *)node->Data());
+    node = node->Next();
+  }
+}
+
+void wxObjectOutputStream::ProcessObjectData(wxObjectStreamInfo *info)
+{
+  wxNode *node = info->children.First();
+
+  m_current_info = info;
+
+  info->object->StoreObject(*this);
+
+  while (node) {
+    ProcessObjectData((wxObjectStreamInfo *)node->Data());
+    node = node->Next();
+  }
+}
+
+bool wxObjectOutputStream::SaveObject(wxObject& obj)
+{
+  wxObjectStreamInfo info;
+
+  if (m_saving)
+    return FALSE;
+
+  m_saving = TRUE;
+
+  // First stage
+  m_stage = 0;
+  info.object = &obj;
+  info.n_children = 0;
+  ProcessObjectDef(&info);
+
+  m_stage = 1;
+  ProcessObjectData(&info);
+
+  info.children.Clear();
+
+  m_saving = FALSE;
+
+  return TRUE;
+}
+
+// ----------------------------------------------------------------------------
+// wxObjectInputStream
+// ----------------------------------------------------------------------------
+
+wxObjectInputStream::wxObjectInputStream(wxInputStream& s)
+  : wxFilterInputStream(s)
+{
+}
+
+wxObject *wxObjectInputStream::SolveName(const wxString& name) const
+{
+  wxNode *node = m_solver.First();
+  wxObjectStreamInfo *info;
+
+  while (node) {
+    info = (wxObjectStreamInfo *)node->Data();
+    if (info->object_name == name)
+      return info->object;
+
+    node = node->Next();
+  }
+  return NULL;
+}
+
+wxObject *wxObjectInputStream::GetChild(int no) const
+{
+  return m_current_info->children.Nth(no);
+}
+
+bool wxObjectInputStream::ReadObjectDef(wxObjectStreamInfo *info)
+{
+  wxDataInputStream data_s(*this);
+  char sig[WXOBJ_BEG_LEN+1];
+
+  Read(sig, WXOBJ_BEG_LEN);
+  sig[WXOBJ_BEG_LEN] = 0;
+  if (wxString(sig) != WXOBJ_BEGIN)
+    return FALSE;
+  info->object = wxCreateDynamicObject((char *)data_s.ReadString());
+  info->object_name = data_s.ReadString();
+  info->n_children = data_s.Read8();
+  info->children = wxList();
+
+  return TRUE;
+}
+
+wxObjectStreamInfo *wxObjectInputStream::ProcessObjectDef(wxObjectStreamInfo *parent)
+{
+  wxObjectStreamInfo *info, *c_info;
+  int c;
+
+  info = new wxObjectStreamInfo;
+  info->parent = parent;
+  info->children.DeleteContents(TRUE);
+
+  m_solver.Append(info);
+
+  if (!ReadObjectDef(info))
+    return NULL;
+
+  for (c=0;c<info->n_children;c++) {
+    c_info = ProcessObjectDef(info);
+    if (!c_info)
+      return NULL;
+    info->children.Append(c_info);
+  }
+
+  return info;
+}
+
+void wxObjectInputStream::ProcessObjectData(wxObjectStreamInfo *info)
+{
+  wxNode *node = info->children.First();
+  wxObjectStreamInfo *c_info;
+
+  m_current_info = info;
+
+  info->object->LoadObject(*this);
+  while (node) {
+    c_info = (wxObjectStreamInfo *)node->Data();
+    c_info->object->LoadObject(*this);
+    node = node->Next();
+  }
+}
+
+wxObject *wxObjectInputStream::LoadObject()
+{
+  wxObjectStreamInfo *info;
+  wxObject *object;
+
+  info = ProcessObjectDef(NULL);
+  if (!info)
+    return NULL;
+  ProcessObjectData(info);
+
+  object = info->object;
+
+  delete info; // It's magic ! The whole tree is destroyed.
+
+  return object;
+}