| version 1.119 | version 1.120 |
|---|
| |
| int ScriptTcl::Tcl_param(ClientData clientData, | int ScriptTcl::Tcl_param(ClientData clientData, |
| Tcl_Interp *interp, int argc, char *argv[]) { | Tcl_Interp *interp, int argc, char *argv[]) { |
| if (argc != 2 && argc != 3 && argc != 5) { | if (argc != 2 && argc != 3 && argc != 5) { |
| Tcl_SetResult(interp,"wrong # args",TCL_VOLATILE); | Tcl_SetResult(interp,"wrong # args for NAMD config parameter",TCL_VOLATILE); |
| return TCL_ERROR; | return TCL_ERROR; |
| } | } |
| | |
| char *param = argv[1]; | char *param = argv[1]; |
| if ( strlen(param) + 1 > MAX_SCRIPT_PARAM_SIZE ) { | if ( strlen(param) + 1 > MAX_SCRIPT_PARAM_SIZE ) { |
| Tcl_SetResult(interp,"parameter name too long",TCL_VOLATILE); | Tcl_SetResult(interp,"parameter name too long for NAMD config parameter",TCL_VOLATILE); |
| return TCL_ERROR; | return TCL_ERROR; |
| } | } |
| | |
| |
| Tcl_SetResult(interp, result,TCL_VOLATILE); | Tcl_SetResult(interp, result,TCL_VOLATILE); |
| return TCL_OK; | return TCL_OK; |
| } else { | } else { |
| Tcl_SetResult(interp,"unknown parameter",TCL_VOLATILE); | Tcl_SetResult(interp,"parameter unknown for NAMD config parameter",TCL_VOLATILE); |
| return TCL_ERROR; | return TCL_ERROR; |
| } | } |
| } | } |
| |
| int arglen = strlen(argv[2]) + 1; | int arglen = strlen(argv[2]) + 1; |
| if ( argc == 5 ) arglen += strlen(argv[3]) + strlen(argv[4]) + 2; | if ( argc == 5 ) arglen += strlen(argv[3]) + strlen(argv[4]) + 2; |
| if ( arglen > MAX_SCRIPT_PARAM_SIZE ) { | if ( arglen > MAX_SCRIPT_PARAM_SIZE ) { |
| Tcl_SetResult(interp,"parameter value too long",TCL_VOLATILE); | Tcl_SetResult(interp,"parameter value too long for NAMD config parameter",TCL_VOLATILE); |
| return TCL_ERROR; | return TCL_ERROR; |
| } | } |
| if ( argc == 3 ) sprintf(value,"%s",argv[2]); | if ( argc == 3 ) sprintf(value,"%s",argv[2]); |