lispEnv.h

Go to the documentation of this file.

/*********************************************************************
** Copyright (c) 1992-2010 VT MAK
** All rights reserved.
*********************************************************************/


#ifndef lispEnv_H_
#define lispEnv_H_


#include "mtl.h"
#include "mtlenv.h"
#include <vlutil/vlString.h>

#include <cmdLine/cmdLine.h>
#include <cmdLine/cmdSwitchArg.h>
#include <cmdLine/cmdUnlabeledValueArg.h>
#include <cmdLine/cmdUnlabeledMultiArg.h>

#include "configVar.h"

#if defined(_WIN32) && _MSC_VER==1200
#define registerCmdLineVar(x) \
   registerVar(x.getName().c_str(), x.getInternalPtrValue())
#endif

#ifdef DtUSE_UTILITIES_NAMESPACE
namespace DtUSE_UTILITIES_NAMESPACE
{
#endif

class DT_DLL_MTL DtMtlEnvironment
{
public:

   DtMtlEnvironment();

   virtual ~DtMtlEnvironment();

   virtual DtlObjPtr lookup(const DtString& name);
   
   virtual int registerVar(const char* name, float* addr);
   virtual int registerVar(const char* name, double* addr);
   virtual int registerVar(const char* name, int* addr);
   virtual int registerVar(const char* name, unsigned long* addr);
   virtual int registerVar(const char* name, char** addr);
   virtual int registerVar(const char* name, DtString* addr);
   virtual int registerVar(const char* name, long* addr);
   virtual int registerVar(const char* name, short* addr);
   virtual int registerVar(const char* name, unsigned short* addr);
#if DT_HAVE_64BIT_LONGS
   virtual int registerVar(const char* name, unsigned int* addr);
#endif  

#if defined(_WIN32) && _MSC_VER==1200

#else

   template<class T>
   int registerCmdLineVar(DtCmdLine::ValueArg<T> &arg);

   template<class T>
   int registerConfigVar(DtConfigVariable<T>& arg);
#endif

   virtual DtlObjPtr loadLispFile(char* filename, int complain = 1);
   virtual DtlObjPtr loadLispFile(
      const DtlObjPtr& pathlist, char* filename, int complain = 1);
   virtual DtlObjPtr loadLispFileOrExpr(char* arg, int complain = 1);
   virtual DtlObjPtr loadLispExpr(char* lispLine, int complain = 1);

   virtual DtlObjPtr setParameter(
      const DtString& name, const DtlObjPtr& value);
   virtual DtlObjPtr setFunction(const DtString& name, DtlFcn func);

   virtual DtlObjPtr& env();
   
protected:

   DtMtlEnvironment(const DtMtlEnvironment& orig);
   
   DtMtlEnvironment& operator=(const DtMtlEnvironment& orig);

   virtual DtlObjPtr setSpecialForm(const DtString& name, DtlFcn func);

   void initEnv();

protected:
   
   DtlObjPtr myEnv;

   DtList* myParams;
};

#define DtREGISTER(var) registerVar((char *)#var, &var)

inline DtlObjPtr& DtMtlEnvironment::env()
{
   return myEnv;
}

#if defined(_WIN32) && _MSC_VER==1200
   //use macro...
#else
template<class T>
int DtMtlEnvironment::registerCmdLineVar(DtCmdLine::ValueArg<T> &arg)
{
   return registerVar(arg.getName().c_str(), arg.getInternalPtrValue());
}

template<class T>
int DtMtlEnvironment::registerConfigVar(DtConfigVariable<T>& arg)
{
   return registerVar(arg.name().c_str(), arg.getInternalPtrValue());
}

#endif

#ifdef DtUSE_UTILITIES_NAMESPACE
} 
#endif

#endif