52 lines
2.2 KiB
C++
52 lines
2.2 KiB
C++
// -*- 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.
|
|
|
|
|
|
#include <vector>
|
|
|
|
#include "colvarproxy.h"
|
|
#include "colvarbias.h"
|
|
#include "colvardeps.h"
|
|
#include "colvarscript.h"
|
|
#include "colvarscript_commands.h"
|
|
|
|
|
|
|
|
// Instantiate the body of all bias-specific script commands
|
|
|
|
#define CVSCRIPT_COMM_FN(COMM,N_ARGS_MIN,N_ARGS_MAX,ARGS,FN_BODY) \
|
|
int CVSCRIPT_COMM_FNAME(COMM)(void *pobj, \
|
|
int objc, unsigned char *const objv[]) \
|
|
{ \
|
|
if (cvm::debug()) { \
|
|
cvm::log("Executing script function \""+std::string(#COMM)+"\""); \
|
|
} \
|
|
colvarscript *script = colvarscript_obj(); \
|
|
script->clear_str_result(); \
|
|
if (script->check_bias_cmd_nargs(#COMM, \
|
|
objc, N_ARGS_MIN, N_ARGS_MAX) != \
|
|
COLVARSCRIPT_OK) { \
|
|
return COLVARSCRIPT_ERROR; \
|
|
} \
|
|
if (objc > 1) { \
|
|
/* Silence unused parameter warning */ \
|
|
(void) objv; \
|
|
} \
|
|
colvarbias *this_bias = colvarbias_obj(pobj); \
|
|
FN_BODY; \
|
|
}
|
|
#undef CVSCRIPT
|
|
#define CVSCRIPT(COMM,HELP,N_ARGS_MIN,N_ARGS_MAX,ARGS,FN_BODY) \
|
|
CVSCRIPT_COMM_FN(COMM,N_ARGS_MIN,N_ARGS_MAX,ARGS,FN_BODY)
|
|
|
|
#include "colvarscript_commands_bias.h"
|
|
|
|
#undef CVSCRIPT_COMM_FN
|
|
#undef CVSCRIPT
|