home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C Programming Starter Kit 2.0
/
SamsPublishing-CProgrammingStarterKit-v2.0-Win31.iso
/
bc45
/
docview.pak
/
DVLOADER.CPP
< prev
next >
Wrap
C/C++ Source or Header
|
1997-07-23
|
3KB
|
109 lines
//----------------------------------------------------------------------------
// ObjectWindows - (C) Copyright 1993 by Borland International
// Provides TModuleDoc class to dynamically load new document/view classes
//----------------------------------------------------------------------------
#include <owl\owlpch.h>
#include <owl\docmanag.h>
#include "dvloader.rc"
class TModuleDocument : public TDocument {
public:
TModuleDocument(TDocument* parent=0) : TDocument(parent), Module(0) {}
~TModuleDocument() { Close(); }
BOOL Open(int mode, const char far* path=0);
BOOL Close();
BOOL IsOpen() { return Module != 0; }
protected:
TModule* Module;
DECLARE_STREAMABLE(, TModuleDocument,1);
};
class TModuleView : public TView {
public:
TModuleView(TDocument& doc, TWindow* parent = 0) : TView(doc) {
doc.GetDocManager().PostDocError(doc, IDS_DVLOADED);
NotOK();
}
static LPCSTR StaticName() {return "Module View";}
LPCSTR GetViewName() {return StaticName();}
};
BOOL TModuleDocument::Open(int /*mode*/, const char far* path)
{
if (IsOpen())
return TRUE;
if (path)
SetDocPath(path);
if (!GetDocPath())
return FALSE;
try {
Module = new TModule(GetDocPath());
}
catch(TXOwl&) {
return FALSE;
}
TDocTemplate** tplhead;
TDocTemplate** PASCAL(*entry)(int version);
(FARPROC)entry = Module->GetProcAddress("GetDocTemplateHead");
if (!entry || (tplhead = entry(OWLVersion)) == 0) {
delete Module;
Module = 0;
return FALSE;
}
TDocTemplate* tpl = *tplhead;
for (; tpl; tpl = GetDocManager().GetNextTemplate(tpl))
tpl->Clone(Module)->SetDocManager(&GetDocManager());
return TRUE;
}
BOOL TModuleDocument::Close()
{
if (!IsOpen())
return TRUE;
TDocTemplate* tpl;
TDocTemplate* next;
for (tpl = GetDocManager().GetNextTemplate(0); tpl; tpl = next) {
next = GetDocManager().GetNextTemplate(tpl);
if (*tpl->GetModule() == *Module) {
// must remove any remaining associated documents before freeing module
TDocument* doc;
TDocument* next;
for (doc = GetDocManager().DocList.Next(0); doc; doc = next) {
next = GetDocManager().DocList.Next(doc);
if (doc->GetTemplate() == tpl){
doc->Close();
delete doc;
}
}
GetDocManager().DeleteTemplate(*tpl); // RefCnt should go to 0 now
}
}
delete Module;
Module = 0;
return TRUE;
}
IMPLEMENT_STREAMABLE1(TModuleDocument, TDocument);
void*
TModuleDocument::Streamer::Read(ipstream& is, uint32 /*version*/) const
{
ReadBaseObject((TDocument*)GetObject(), is);
is >> GetObject()->Module;
return GetObject();
}
void
TModuleDocument::Streamer::Write(opstream& os) const
{
WriteBaseObject((TDocument*)GetObject(), os);
os << GetObject()->Module;
}
DEFINE_DOC_TEMPLATE_CLASS(TModuleDocument, TModuleView, LoadTemplate);
LoadTemplate loadTpl("DocView Components (*.DVC)","*.dvc",0,0,
dtAutoOpen|dtUpdateDir|dtReadOnly|dtHideReadOnly);