wz.cxx

有限元学习研究用源代码(老外的),供科研人员参考

//#define wzPrintError

//#include <iostream.h>
#include <stdlib.h>
#include "wz.hxx"
#include "wzoutput.hxx"

#ifdef wzDebug
static int maxcount=3;
#else
static int maxcount=0;
#endif

static int count=1;

void wzDebugger()
{
  if(++count>maxcount)
    throw wzError("errors","InternalError");
}

void wzMessage(wzString s)
{
  wzOutput::Default.operator()("<>\n")<<s;
}

wzError::wzError(wzString m,wzString e)
:module(m),entry(e) 
{
#ifdef wzPrintError
  print();
#else
  ;
#endif
}

void wzError::print()
{
  wzOutput::Error<<"\nError: \"<>\"\n",entry;
  wzPrintDocumentationEntry(wzOutput::Error,module,entry);
}

wzString wzgethome()
{wzString s=getenv("COG_HOME"); if(s) return s; else return "\"$COG_HOME\"";}

const wzString wzHomePath = wzgethome();