34 static int Tcl_startrun(ClientData useless, Tcl_Interp* stupidTcl,
int argc, Tcl_Obj *CONST objv[])
36 std::string* argv =
new std::string[argc];
38 for(
int i=0; i<argc; i++)
40 argv[i] = Tcl_GetString(objv[i]);
73 std::string(argv[12]),
84 static int Tcl_updaterun(ClientData useless, Tcl_Interp* stupidTcl,
int argc, Tcl_Obj *CONST argv[])
86 std::string colvar = Tcl_GetString(argv[1]);
92 static int Tcl_setcol(ClientData useless, Tcl_Interp* stupidTcl,
int argc, Tcl_Obj *CONST argv[])
94 std::vector<int> cols;
95 for (
int i = 1; i<argc; i++)
105 static int Tcl_mergefile(ClientData useless, Tcl_Interp* stupidTcl,
int argc, Tcl_Obj *CONST objv[])
107 std::string* argv =
new std::string[argc];
109 for (
int i = 0; i < argc; i++)
111 argv[i] = Tcl_GetString(objv[i]);
121 std::string(argv[5]),
130 for (
int i = 6; i < argc; i++)
146 std::string(argv[8]),
155 for (
int i = 9; i < argc; i++)
168 Tcl_CreateObjCommand(stupidTcl,
"startrun",
Tcl_startrun, (ClientData)0, (Tcl_CmdDeleteProc*)0);
169 Tcl_CreateObjCommand(stupidTcl,
"updaterun",
Tcl_updaterun, (ClientData)0, (Tcl_CmdDeleteProc*)0);
170 Tcl_CreateObjCommand(stupidTcl,
"mergefile",
Tcl_mergefile, (ClientData)0, (Tcl_CmdDeleteProc*)0);
171 Tcl_CreateObjCommand(stupidTcl,
"setcol",
Tcl_setcol, (ClientData)0, (Tcl_CmdDeleteProc*)0);
172 Tcl_PkgProvide(stupidTcl,
"Eabf",
"1.0.0");
174 Tcl_Eval(stupidTcl,
"puts \"eABF [package require Eabf]\"");
181 return Tcl_Eval(interp,
"package ifneeded Eabf 1.0.0 {load {} Eabf}");
static int Tcl_startrun(ClientData useless, Tcl_Interp *stupidTcl, int argc, Tcl_Obj *CONST objv[])
int Eabf_Init(Tcl_Interp *stupidTcl)
static int Tcl_updaterun(ClientData useless, Tcl_Interp *stupidTcl, int argc, Tcl_Obj *CONST argv[])
bool mergefile(const std::string &inputname, const std::string &outputname)
int chartoint(const std::string &c)
bool setcolumn(std::vector< int > col)
int eabf_static_init(Tcl_Interp *interp)
static int Tcl_mergefile(ClientData useless, Tcl_Interp *stupidTcl, int argc, Tcl_Obj *CONST objv[])
double chartodouble(const std::string &c)
static int Tcl_setcol(ClientData useless, Tcl_Interp *stupidTcl, int argc, Tcl_Obj *CONST argv[])
virtual bool update(const std::string &)=0