QBasic & Borland Pascal & C/Delphi5.iso/C/BC_502/OWLSRC.PAK/DOCTPL.CPP

C/C++ Source or Header | 1997-05-06 | 5.8 KB | 237 lines

//----------------------------------------------------------------------------
// ObjectWindows
// Copyright (c) 1993, 1997 by Borland International, All Rights Reserved
//
//$Revision:   10.9  $
//
// Implementation of class TDocTemplate
//----------------------------------------------------------------------------
#pragma hdrignore SECTION
#include <owl/pch.h>
#if !defined(OWL_DEFS_H)
# include <owl/defs.h>
#endif
#if !defined(OWL_DOCTPL_H)
# include <owl/doctpl.h>
#endif
#include <stdio.h>

OWL_DIAGINFO;
#if !defined(SECTION) || SECTION == 1

//
// Construct a Doc/View template from the specified parameters.
//
TDocTemplate::TDocTemplate(TRegList& regList, TModule*& module,
                           TDocTemplate*& rptpl)
:
  TRegLink(regList, (TRegLink*&)rptpl),
  Directory(0),
  ModulePtr(&module)
{
  RefCnt = module ? 1 : 0x8001;  // static if constructed before Module
  Flags = atol((*RegList)["docflags"]);
}

//
//
//
void TDocTemplate::SetFlag(long flag)
{
  Flags = GetFlags() | flag;
}

//
//
//
void TDocTemplate::ClearFlag(long flag)
{
  Flags = GetFlags() & ~flag;
}

//
//
//
const char far* TDocTemplate::GetDirectory() const
{
  if (Directory)
    return Directory;
  return (*RegList)["directory"];
}

//
//
//
void TDocTemplate::SetDirectory(const char far* txt)
{
  delete[] Directory;
  Directory = 0;
  if (txt)
    Directory = strnewdup(txt);
}

//
//
//
void TDocTemplate::SetDirectory(const char far* txt, int len)
{
  delete[] Directory;
  Directory = 0;
  if (txt && len > 0) {
    Directory = strnewdup(txt, len);
    Directory[len] = 0;
  }
}

//
// Called only when RefCnt goes to 0
//
TDocTemplate::~TDocTemplate()
{
  if (GetFlags() & dtDynRegInfo) {
    delete RegList;
    RegList = 0;
  }
  delete[] Directory;
}

//
const char far* TDocTemplate::GetFileFilter() const
{
  return (*RegList)["docfilter"];
}

//
const char far* TDocTemplate::GetDescription() const
{
  return (*RegList)["description"];
}

//
const char far* TDocTemplate::GetDefaultExt() const
{
  return (*RegList)["extension"];
}

//----------------------------------------------------------------------------
// Backward compatibility with old style doc templates
//
#if defined(OWL2_COMPAT)

//
// The following three function vectors get reset by TDocManager constructor
//
static bool       _CALLCNVN SelectSaveX(TDocTemplate*, TDocument&) {return false;}
static TView*     _CALLCNVN InitViewX(TView*) {return 0;}
static TDocument* _CALLCNVN InitDocX(TDocTemplate&, TDocument*, const char far*, long)
                                    {return 0;}

bool       _CALLCNVN (*TDocTemplate::SelectSave_)(TDocTemplate*,TDocument&) = SelectSaveX;
TView*     _CALLCNVN (*TDocTemplate::InitView_)(TView*) = InitViewX;
TDocument* _CALLCNVN (*TDocTemplate::InitDoc_)(TDocTemplate&, TDocument*,
                                     const char far*, long) = InitDocX;

//
// private class for backward compatibility
//
class TRegListOldDocTemplate : public TRegList {
  public:
    TRegListOldDocTemplate(const char* desc, const char* filt,
                           const char* dir,  const char* ext, long flags);
    TRegItem List[6];  // 4 strings, flags, terminator
    char FlagBuf[12];  // for string representation of doc template flags
};

//
//
//
TRegListOldDocTemplate::TRegListOldDocTemplate(const char* desc,
                                               const char* filt,
                                               const char* dir,
                                               const char* ext,
                                               long        flags)
:
  TRegList(List)
{
  sprintf(FlagBuf,"0x%lX",flags);
  List[0].Key = "description";
  List[0].Value = desc;
  List[1].Key = "docfilter";
  List[1].Value = filt;
  List[2].Key = "directory";
  List[2].Value = dir;
  List[3].Key = "extension";
  List[3].Value = ext;
  List[4].Key = "docflags";
  List[4].Value = FlagBuf;
  List[5].Key = 0;
}

//
// Construct a Doc/View template from the description, filter, directory,
// file extension, 'dt' flags, module and template head parameters.
// This constructor is primarily for backward compatibility with earlier
// implementation of ObjectWindows' Doc/View subsystem.
//
TDocTemplate::TDocTemplate(const char* desc, const char* filt,
                           const char* dir, const char* ext,
                           long flags, TModule*& module,
                           TDocTemplate*& rphead)
:
  TRegLink(),
  Directory(0),
  ModulePtr(&module),
  Flags(flags | dtDynRegInfo)
{
  AddLink((TRegLink*&)rphead, *this);
  RefCnt = module ? 1 : 0x8001;  // static if contructed before Module
//  NextTemplate = 0;
  RegList = new TRegListOldDocTemplate(desc, filt, dir, ext, flags);
}

#endif  //  defined(OWL2_COMPAT)

#endif
//----------------------------------------------------------------------------
#if !defined(SECTION) || SECTION == 2

IMPLEMENT_ABSTRACT_STREAMABLE(TDocTemplate);

#if !defined(BI_NO_OBJ_STREAMING)

//
//
//
void*
TDocTemplate::Streamer::Read(ipstream& is, uint32 /*version*/) const
{
  TDocTemplate* o = GetObject();
  bool wasStatic = o->IsStatic();  // test in case dummy template passed
  is >> o->RefCnt;  // need to set back to 1 if doc attach increments!!?
  is >> o->Flags;
  if (o->IsStatic()) {
    delete[] o->Directory;
  }
  o->Directory   = is.freadString();
  if (o->IsStatic() && !wasStatic) {  // dummy template passed as sink
    delete[] o->Directory;
  }
  return o;
}

//
//
//
void
TDocTemplate::Streamer::Write(opstream& os) const
{
  TDocTemplate* o = GetObject();
  os << o->RefCnt;
  os << o->GetFlags();
  os.fwriteString(o->Directory);
}

#endif  // if !defined(BI_NO_OBJ_STREAMING)

#endif