Function Tcl_ops_printGID

SRC/interpreter/TclWrapper.cpp:584–590

}

static int Tcl_ops_printGID(ClientData clientData, Tcl_Interp *interp, int argc,   TCL_Char **argv) {
    wrapper->resetCommandLine(argc, 1, argv);

    if (OPS_printModelGID() < 0) return TCL_ERROR;

    return TCL_OK;
}

static int Tcl_ops_getCTestNorms(ClientData clientData, Tcl_Interp *interp, int argc,   TCL_Char **argv) {
    wrapper->resetCommandLine(argc, 1, argv);