---

colvarproxy_tcl.h

Go to the documentation of this file.

// -*- c++ -*-

// This file is part of the Collective Variables module (Colvars).
// The original version of Colvars and its updates are located at:
// https://github.com/Colvars/colvars
// Please update all Colvars source files before making any changes.
// If you wish to distribute your changes, please submit them to the
// Colvars repository at GitHub.

#ifndef COLVARPROXY_TCL_H
#define COLVARPROXY_TCL_H

#if defined(NAMD_TCL) || defined(VMDTCL)
#define COLVARS_TCL
#endif

#ifdef COLVARS_TCL
#include <tcl.h>
#else
// Allow for placeholders Tcl_Interp* variables
typedef void Tcl_Interp;
#endif

#include <vector>


class colvarproxy_tcl {

public:

  colvarproxy_tcl();

  virtual ~colvarproxy_tcl();

  inline bool tcl_available() {
#if defined(COLVARS_TCL)
    return true;
#else
    return false;
#endif
  }

  char const *tcl_get_str(void *obj);

  int tcl_run_script(std::string const &script);

  int tcl_run_file(std::string const &fileName);

  int tcl_run_force_callback();

  int tcl_run_colvar_callback(
              std::string const &name,
              std::vector<const colvarvalue *> const &cvcs,
              colvarvalue &value);

  int tcl_run_colvar_gradient_callback(
              std::string const &name,
              std::vector<const colvarvalue *> const &cvcs,
              std::vector<cvm::matrix2d<cvm::real> > &gradient);

  inline Tcl_Interp *get_tcl_interp()
  {
    return tcl_interp_;
  }

  inline void set_tcl_interp(Tcl_Interp *interp)
  {
    tcl_interp_ = interp;
  }

  virtual void init_tcl_pointers();

protected:
  Tcl_Interp *tcl_interp_;
};

#endif

---